Code: Alles auswählen.
* Selektionsoptionen - werden immer angezeigt
selection-screen begin of block choice with frame title text-s24.
selection-screen skip.
selection-screen begin of line.
selection-screen position 1. "detailierte Selektion
parameters se_slow radiobutton group wahl user-command fst. "Button B
selection-screen comment 4(21) text-s05.
selection-screen position 26. "schnelle Selektion
parameters se_fast radiobutton group wahl default 'X'. "Button A
selection-screen comment 29(18) text-s06.
selection-screen end of line.
selection-screen end of block choice.
...
*Hier wird der Selektionsscreen dynamisch aufbereitet
at selection-screen output.
if se_slow = 'X'.
loop at screen.
if screen-group1 = 'SLW'.
screen-active = 1.
elseif screen-group1 = 'FST'.
screen-active = 0.
endif.
modify screen.
endloop.
elseif se_fast = 'X'.
loop at screen.
if screen-group1 = 'SLW'.
screen-active = 0.
elseif screen-group1 = 'FST'.
screen-active = 1.
endif.
modify screen.
endloop.
endif.
*diese Prüfroutine soll durchlaufen werden
at selection-screen on se_dok.
if se_slow = 'X'. " wenn Button B = 'X'
clear g_result.
if not se_dok is initial.
loop at se_dok.
call method zcl_report_service=>check_doc
exporting
im_doc_typ = se_dok-low
importing
ex_result = g_result.
if g_result = '0'.
message e121(ng).
endif.
"set cursor field 'se_dok'.
clear se_dok.
endloop.
endif.
endif.
Code: Alles auswählen.
* Überprüfen des Dokumenttyps
at selection-screen on se_dok.
loop at screen.
if se_slow = 'X'.
if screen-group1 = 'SLW' and screen-active = 1.
clear g_result.
if not se_dok is initial.
loop at se_dok.
call method zcl_report_service=>check_doc
exporting
im_doc_typ = se_dok-low
importing
ex_result = g_result.
if g_result = '0'.
message e121(ng).
endif.
"set cursor field 'se_dok'.
clear se_dok.
endloop.
endif.
endif.
endif.
endloop.
Code: Alles auswählen.
if se_slow = 'X'.
if screen-group1 = 'SLW' and screen-active = 1.
Code: Alles auswählen.
PARAMETERS: px_opt01 RADIOBUTTON GROUP rad1 DEFAULT 'X' USER-COMMAND rad.
"+weitere
AT SELECTION-SCREEN.
CHECK sy-ucomm <> 'RAD'.
PERFORM check_parameters.