loop at screen , screen-input explain

[Former Member]

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.

[Former Member]

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.

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.

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.

ENDIF.

ENDLOOP.

regards,

venkat.

[JozsefSzikszai]

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

ec

[Former Member]

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.