SELECTION-SCREEN BEGIN OF BLOCK bk0 WITH FRAME TITLE TEXT-000.
PARAMETERS: p_1 TYPE c RADIOBUTTON GROUP rg1 USER-COMMAND uc1 MODIF ID bk0.
PARAMETERS: p_2 TYPE c RADIOBUTTON GROUP rg1 MODIF ID bk0.
PARAMETERS: p_3 TYPE c RADIOBUTTON GROUP rg1 MODIF ID bk0.
PARAMETERS: p_4 TYPE c RADIOBUTTON GROUP rg1 MODIF ID bk0.
PARAMETERS: p_5 TYPE c RADIOBUTTON GROUP rg1 MODIF ID bk0.
PARAMETERS: p_vkorg TYPE ztsd001a-vkorg MODIF ID bkx.
PARAMETERS: p_spart TYPE ztsd001a-spart MODIF ID bkx.
SELECT-OPTIONS:s_kunnr FOR ztsd001a-kunnr MODIF ID bkx.
SELECTION-SCREEN END OF BLOCK bk0.
通过 MODIF ID 降不同的选择屏幕字段分组,对应SCREEN-GROUP1
AT SELECTION-SCREEN OUTPUT.
PERFORM frm_set_screen.
FORM frm_set_screen .
LOOP AT SCREEN.
CHECK screen-group1 NE 'BK0' AND screen-group1 NE 'BKX' AND screen-group3 NE 'BLK'.
CASE 'X'.
WHEN p_1.
IF screen-group1 NE 'BK1'.
screen-active = 0.
MODIFY SCREEN.
ENDIF.
WHEN p_2.
IF screen-group1 NE 'BK2'.
screen-active = 0.
MODIFY SCREEN.
ENDIF.
WHEN OTHERS.
ENDCASE.
ENDLOOP.
ENDFORM.
MATCHCODE OBJECT
PARAMETERS: P_MWSKZ TYPE T007A-MWSKZ MATCHCODE OBJECT ZSH_T007A.