Folgende Benutzer bedankten sich beim Autor jensschladitz für den Beitrag:
cschmoel
Code: Alles auswählen.
REPORT z_test_para.
TABLES: mara.
TABLES: sscrfields.
SELECTION-SCREEN BEGIN OF BLOCK brbg WITH FRAME TITLE frtitle.
PARAMETERS:
p_radd RADIOBUTTON GROUP rbg DEFAULT 'X',
p_rdel RADIOBUTTON GROUP rbg.
SELECTION-SCREEN SKIP 1.
PARAMETERS:
s_bps_to LIKE mara-mtart,
s_bps_fr LIKE mara-matnr.
SELECTION-SCREEN SKIP 1.
PARAMETERS:
p_tstmod AS CHECKBOX DEFAULT 'X'.
SELECTION-SCREEN END OF BLOCK brbg.
********************************************************************************
*… SELECTION SCREEN END *
********************************************************************************
*#---------------------------------------------------------------------*
*# Aktionen vor Ausgabe Selektionsmaske
*# Actions before output selektion screen
*#---------------------------------------------------------------------*
AT SELECTION-SCREEN OUTPUT.
IF p_radd = 'X'.
LOOP AT SCREEN.
IF screen-group1 = 'SC1'.
screen-required = '0'. "Mussausgabe setzen
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
IF p_rdel = 'X'.
LOOP AT SCREEN.
IF screen-group1 = 'SC1'.
screen-required = '2'. "Mussausgabe setzen
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
AT SELECTION-SCREEN.
CASE sscrfields-ucomm.
WHEN 'SEL'.
IF p_radd = 'X' OR p_rdel = 'X'.
LOOP AT SCREEN.
IF screen-group1 = 'SC1'.
screen-required = '0'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
* Wird Ausführen (F8) gewählt …
WHEN 'ONLI'.
* … und ist Button ‘Komb. Auftragsnummer’ gesetzt und Eingabefeld leer
IF p_radd = 'X' AND s_bps_fr IS INITIAL.
* … dann Error-Nachricht:
MESSAGE text-004 TYPE 'E'.
* … und ist Button ‘Auftrag’ gesetzt und Eingabefeld leer
ELSEIF p_rdel = 'X' AND s_bps_to IS INITIAL.
MESSAGE text-005 TYPE 'E'.
* … und ist Button ‘Eckstarttermin’ gesetzt und Eingabefeld leer
ENDIF.
ENDCASE.
Schau dir die F1-Hilfe tz AT SELECTION-SCREEN ON FIELD an.cschmoel hat geschrieben:wie man einen Focus setzt nach einer Fehlermeldung???