Code: Alles auswählen.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
PARAMETERS: prad1 RADIOBUTTON GROUP rad DEFAULT 'X',
prad2 RADIOBUTTON GROUP rad,
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME.
PARAMETERS: pchk1 AS CHECKBOX.
SELECTION-SCREEN END OF BLOCK b2.
Code: Alles auswählen.
PARAMETERS p_alle TYPE c RADIOBUTTON GROUP rad1 DEFAULT 'X'
USER-COMMAND click.
Code: Alles auswählen.
PARAMETERS p_all TYPE c RADIOBUTTON GROUP rad2 MODIF ID r.
PARAMETERS p_falsch TYPE c RADIOBUTTON GROUP rad2 MODIF ID r.
Code: Alles auswählen.
AT SELECTION-SCREEN OUTPUT.
Code: Alles auswählen.
IF p_alle IS NOT INITIAL.
LOOP AT SCREEN.
IF screen-group1 = 'R'.
screen-active = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
Code: Alles auswählen.
AT SELECTION-SCREEN OUTPUT.
Code: Alles auswählen.
if p_alle is NOT INITIAL.
Loop at screen.
IF screen-name = 'P_ALL'.
screen-active = 0.
Modify screen.
endif.
IF screen-name = 'P_FALSCH'.
screen-active = 0.
Modify screen.
endif.
Endloop.
ENDIF.