Code: Alles auswählen.
SELECTION-SCREEN BEGIN OF BLOCK bla WITH FRAME TITLE TEXT-T03.
PARAMETERS: R_auf RADIOBUTTON GROUP RB1,
R_Abdu RADIOBUTTON GROUP RB1 DEFAULT 'X'.
* RB1 RADIOBUTTON GROUP RB2,
* RB2 RADIOBUTTON GROUP RB2.
SELECTION-SCREEN END OF BLOCK bla.
at SELECTION-SCREEN output.
if sy-ucomm = 'ONLI'.
if r_auf = 'X'.
so_opbel[] = value #( ( sign = 'I' option = 'EQ' low = '32' high = '' ) ).
endif.
endif.
Code: Alles auswählen.
TABLES bsegc.
SELECTION-SCREEN BEGIN OF BLOCK bla WITH FRAME TITLE text-t03.
SELECT-OPTIONS so_opbel FOR bsegc-opbel.
PARAMETERS: r_auf RADIOBUTTON GROUP rb1 USER-COMMAND uc1 MODIF ID 01,
r_abdu RADIOBUTTON GROUP rb1 DEFAULT 'X'.
* RB1 RADIOBUTTON GROUP RB2,
* RB2 RADIOBUTTON GROUP RB2.
SELECTION-SCREEN END OF BLOCK bla.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
IF screen-group1 = '01'.
IF r_auf IS NOT INITIAL.
so_opbel[] = VALUE #( ( sign = 'I' option = 'LT' low = '32' high = '' ) ).
ELSE.
FREE so_opbel.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
Code: Alles auswählen.
REPORT z_tst_selscreen.
TABLES bsegc.
SELECTION-SCREEN BEGIN OF BLOCK bla WITH FRAME TITLE text-t03.
SELECT-OPTIONS so_opbel FOR bsegc-opbel.
PARAMETERS: r_auf RADIOBUTTON GROUP rb1 USER-COMMAND uc1,
r_abdu RADIOBUTTON GROUP rb1 DEFAULT 'X'.
SELECTION-SCREEN END OF BLOCK bla.
AT SELECTION-SCREEN OUTPUT.
IF r_auf IS NOT INITIAL.
so_opbel[] = VALUE #( ( sign = 'I' option = 'LT' low = '32' high = '' ) ).
ELSE.
FREE so_opbel.
ENDIF.