At Selection-Screen

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.