Code: Alles auswählen.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-000.
SELECT-OPTIONS: s_user FOR usr02-bname, " NO INTERVALS,
s_vnam FOR bapiaddr3-firstname NO INTERVALS,
s_nam FOR bapiaddr3-lastname NO INTERVALS,
s_btyp FOR logondata-ustyp NO INTERVALS,
s_firma FOR bapiuscomp-company NO INTERVALS.
PARAMETERS: p_sperre AS CHECKBOX DEFAULT'X'.
SELECTION-SCREEN END OF BLOCK b1.
Code: Alles auswählen.
LOOP AT user_rest INTO user_rest_line
WHERE ( name IN s_nam OR name = s_nam-low ) and
( vorname IN s_vnam or vorname = s_vnam-low ) and
benutzertyp IN s_btyp and firmenadresse IN s_firma.
* WHERE name IN s_nam and
* vorname IN s_vnam and
* benutzertyp IN s_btyp and firmenadresse IN s_firma.
PERFORM ndop_user_berechnen.
ENDLOOP.
Code: Alles auswählen.
AT SELECTION-SCREEN.
IF NOT s_nam CA '*'.
s_nam-option = 'CP'.
CONCATENATE s_nam-low '*' INTO s_nam.
ENDIF.
IF NOT s_vnam CA '*'.
s_vnam-option = 'CP'.
CONCATENATE s_vnam-low '*' INTO s_vnam.
ENDIF.