Code: Alles auswählen.
INITIALIZATION.
perform loop_at_screen using '1' 0.
AT SELECTION-SCREEN.
IF SO_GPART IS NOT INITIAL.
MESSAGE 'Es wird nur mit dem angegebenen Geschäftspartner selektiert' TYPE 'W'.
ENDIF.
if sscrfields-ucomm = 'PUSH1'.
if anz1 is initial.
anz1 = 'X'.
else.
anz1 = space.
endif.
endif.
IF SO_BUDAT IS INITIAL.
SO_VTREF-SIGN = 'I'.
SO_VTREF-OPTION = 'BT'.
SO_VTREF-LOW = '01012001'.
SO_VTREF-HIGH = '01012019'.
APPEND SO_BUDAT.
ENDIF.
at SELECTION-SCREEN output.
if anz1 is initial.
push1 = 'Auswahl anzeigen'.
perform loop_at_screen using '1' 0.
else.
push1 = 'Auswahl ausblenden'.
perform loop_at_screen using '1' 1.
endif.
Loop AT SCREEN.
if screen-group1 = '1'.
if R_FUELL is NOT INITIAL.
so_agsta[] = value #( ( sign = 'I' option = 'LT' low = '30' high = '' ) ).
else.
FREE so_agsta.
endif.
endif.
MODIFY SCREEN.
ENDLOOP.
START-OF-SELECTION.
...
...
....
form loop_at_screen using value(p_gruppe) value(p_mode).
loop at screen.
if screen-group1 = p_gruppe.
screen-active = p_mode.
modify screen.
endif.
endloop.
endform.