Code: Alles auswählen.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
IF screen-name EQ 'PA_CSVE'.
IF pa_csvb EQ 'X'.
screen-required = '1'.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
Code: Alles auswählen.
PARAMETERS : pa_csvb AS CHECKBOX DEFAULT ' ' USER-COMMAND 00.
Code: Alles auswählen.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
IF screen-name EQ 'PA_CSVE'.
IF pa_csvb EQ 'X'.
screen-required = '1'.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
Code: Alles auswählen.
PARAMETERS: ... pa_csvb TYPE boole_d USER-COMMAND 00, "Option CSV zu erzeugen
pa_csve TYPE comm_id_long. "Mail-Adresse des CSV-Empfängers
SELECTION-SCREEN END OF BLOCK b2.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
IF screen-name EQ 'PA_CSVE'.
IF pa_csvb EQ 'X'.
screen-required = '1'.
ELSE.
screen-required = '0'.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
Code: Alles auswählen.
PARAMETERS: pa_refu TYPE p0105-usrid, "Referenzuser
pa_send TYPE boole_d, "Option um Protokoll zu senden
pa_mail TYPE comm_id_long, "Mail-Adresse des Protokollempfängers
pa_csvb TYPE boole_d USER-COMMAND ucomm, "Option CSV zu erzeugen
pa_csve TYPE comm_id_long. "Mail-Adresse des CSV-Empfängers
SELECTION-SCREEN END OF BLOCK b2.
"Wenn CSV-Option aktiv, MUSS Empfänger eingetragen werden
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
IF screen-name EQ 'PA_CSVE'.
IF pa_csvb EQ 'X'.
screen-required = '2'.
ELSE.
screen-required = '0'.
ENDIF.
ENDIF.
IF screen-name EQ 'PA_PWDE'.
screen-input = '0'.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
Code: Alles auswählen.
START-OF-SELECTION.
IF pa_csvb EQ 'X' AND pa_csve IS INITIAL.
MESSAGE s000 DISPLAY LIKE 'W'.
LEAVE LIST-PROCESSING.
ENDIF.