topic Re: loop at screen , screen-input explain in Application Development and Automation Discussions

loop at screen , screen-input explain

Former Member — Mon, 10 Mar 2008 15:56:09 GMT

hiii

My selection screen is a bit like below

radio button 1

select option1

parameter 1

radio button2

select option2

parameter 2

IF radio button 1 i want to grey out the select option 2 and parameter 2. and since i am doing a select conditon selection screen

even if there is value in the select option 1 and parameter1 the inputed value should not be taken into consideration

LOOP AT SCREEN.

screen-input = c_zero . " is this enough????/

MODIFY SCREEN.

ENDIF.

ENDLOOP.

Re: loop at screen , screen-input explain

Former Member — Mon, 10 Mar 2008 16:05:06 GMT

hi check this ,

REPORT ZVENKATTEST0.

TABLES:MARA.

SELECT-OPTIONS:S_TEST1 FOR MARA-MATNR MODIF ID M1 ,

S_TEST2 FOR MARA-MEINS MODIF ID M2 .

PARAMETERS:P_RAD1 RADIOBUTTON GROUP G1 USER-COMMAND UC1 DEFAULT 'X',

P_RAD2 RADIOBUTTON GROUP G1 ,

P_RAD3 RADIOBUTTON GROUP G1 .

AT SELECTION-SCREEN OUTPUT .

LOOP AT SCREEN.

IF P_RAD1 = 'X'.

IF SCREEN-NAME = 'S_TEST1-LOW' .

SCREEN-INPUT = '0'.

MODIFY SCREEN.

ENDIF.

IF SCREEN-NAME = 'S_TEST1-HIGH' .

SCREEN-INPUT = '0'.

MODIFY SCREEN.

ENDIF.

IF SCREEN-NAME = 'S_TEST2-LOW' .

SCREEN-INPUT = '0'.

MODIFY SCREEN.

ENDIF.

IF SCREEN-NAME = 'S_TEST2-HIGH' .

SCREEN-INPUT = '0'.

MODIFY SCREEN.

ENDIF.

IF P_RAD2 = 'X'.

IF SCREEN-NAME = 'S_TEST1-LOW' .

SCREEN-INPUT = '0'.

MODIFY SCREEN.

ENDIF.

IF SCREEN-NAME = 'S_TEST1-HIGH' .

SCREEN-INPUT = '0'.

MODIFY SCREEN.

ENDIF.

IF P_RAD3 = 'X'.

IF SCREEN-NAME = 'S_TEST2-LOW' .

SCREEN-INPUT = '0'.

MODIFY SCREEN.

ENDIF.

IF SCREEN-NAME = 'S_TEST2-HIGH' .

SCREEN-INPUT = '0'.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

regards,

venkat.

Re: loop at screen , screen-input explain

JozsefSzikszai — Mon, 10 Mar 2008 16:06:55 GMT

hi,

pls. have a look at the following code. It turns on/off the fields acc. to the radiobuttons and clears the other paramter/select option:

TABLES : bkpf.

PARAMETERS : rb1 RADIOBUTTON GROUP 1 USER-COMMAND uc01.

SELECT-OPTIONS : so1 FOR bkpf-belnr MODIF ID 001.

PARAMETERS : p1 TYPE bkpf-bukrs MODIF ID 001.

PARAMETERS : rb2 RADIOBUTTON GROUP 1.

SELECT-OPTIONS : so2 FOR bkpf-belnr MODIF ID 002.

PARAMETERS : p2 TYPE bkpf-bukrs MODIF ID 002.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

CASE 'X'.

WHEN rb1.

CASE screen-group1.

WHEN '001'.

screen-input = '1'.

WHEN '002'.

screen-input = '0'.

ENDCASE.

MODIFY SCREEN.

CLEAR : so2, p2.

WHEN rb2.

CASE screen-group1.

WHEN '001'.

screen-input = '0'.

WHEN '002'.

screen-input = '1'.

ENDCASE.

MODIFY SCREEN.

CLEAR : so1, p1.

ENDCASE.

ENDLOOP.

hope this helps

Re: loop at screen , screen-input explain

Former Member — Mon, 10 Mar 2008 16:16:19 GMT

Hi,

You need to group the two radio button into one group and in one block then only it is possible to do.

And please refer to the code below:


TABLES : bsis.


SELECTION-SCREEN : BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETER : sp_sel radiobutton group rad USER-COMMAND radio DEFAULT 'X',
            sp_all RADIOBUTTON GROUP rad.
SELECTION-SCREEN END OF BLOCK b1.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
SELECT-OPTIONS : so_bukrs FOR bsis-bukrs MODIF ID sp1.
SELECT-OPTIONS : so_hkont FOR bsis-hkont MODIF ID sp2.
SELECTION-SCREEN END OF BLOCK b2.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.
  IF sp_sel = 'X'.


      IF screen-group1 = 'SP2'.
        screen-input = '0'.
        screen-invisible = '0'.
        screen-required = '0'.
        MODIFY SCREEN.
      ENDIF.
      endif.

  IF sp_all = 'X'.


      IF screen-group1 = 'SP1'.
        screen-input = '0'.
        screen-invisible = '0'.
        screen-required = '0'.
        MODIFY SCREEN.
      ENDIF.
      endif.

    ENDLOOP.

Thanks,

Sriram Ponna.