Code: Alles auswählen.
SELECTION-SCREEN BEGIN OF BLOCK b14 WITH FRAME TITLE text-001.
PARAMETERS:
persno TYPE zpersno. *Personal nummer
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS:
p_nreise RADIOBUTTON GROUP r3 DEFAULT 'X'. *Neu Reise
SELECTION-SCREEN COMMENT 3(26) text-002 FOR FIELD p_nreise.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS:
p_areise RADIOBUTTON GROUP r3. *Reise Anzeigen
SELECTION-SCREEN COMMENT 3(26) text-003 FOR FIELD p_nreise.
SELECTION-SCREEN END OF LINE.
PARAMETERS:
reiseno TYPE zpersno. *Reise Nummer
SELECTION-SCREEN END OF BLOCK b14.
Code: Alles auswählen.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
IF screen-name = 'reiseno' AND p_areise = 'X'.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
Code: Alles auswählen.
INCLUDE Z_SCREEN.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
IF screen-name = 'p_nach' AND p_nreise = 'X'.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
START-OF-SELECTION.
.....
Code: Alles auswählen.
IF screen-name = 'p_nach' AND p_nreise = 'X'.
Code: Alles auswählen.
screen-INPUT = '1'.