可根据用户选择,切换不同的屏幕界面(select block)
*----------------------------------------------------------------------*
* Define the selection screen here *
*----------------------------------------------------------------------*
SELECTION-SCREEN:BEGIN OF BLOCK b01 WITH FRAME TITLE text-tt0.
SELECTION-SCREEN BEGIN OF LINE.
*- 查询
PARAMETERS : rb_que RADIOBUTTON GROUP grp1
DEFAULT 'X'
MODIF ID que
USER-COMMAND rad1.
SELECTION-SCREEN: COMMENT (18) text-t01 FOR FIELD rb_que
MODIF ID que.
*- 增加
SELECTION-SCREEN POSITION 22.
PARAMETERS : rb_add RADIOBUTTON GROUP grp1
MODIF ID add .
SELECTION-SCREEN: COMMENT (18) text-t02 FOR FIELD rb_add
MODIF ID add.
*- 删除
SELECTION-SCREEN POSITION 44.
PARAMETERS : rb_del RADIOBUTTON GROUP grp1
MODIF ID del.
SELECTION-SCREEN: COMMENT (15) text-t03 FOR FIELD rb_del
MODIF ID del.
SELECTION-SCREEN END OF LINE.
SELECT-OPTIONS: s_matnr FOR ztmm001-matnr MODIF ID adv,
s_netwr FOR ztmm001-netwr MODIF ID adv.
SELECTION-SCREEN:END OF BLOCK b01.
SELECTION-SCREEN:BEGIN OF BLOCK b1 WITH FRAME TITLE text-t00.
PARAMETERS : p_file LIKE rlgrap-filename
MODIF ID fil
DEFAULT 'E:\MM001.xlsx'.
PARAMETERS : cb_line AS CHECKBOX
MODIF ID fil
DEFAULT 'X',
cb_try AS CHECKBOX
MODIF ID fil
DEFAULT 'X'.
SELECTION-SCREEN:END OF BLOCK b1.
*-----------------------------------------------------------"
* AT SELECTION-SCREEN OUTPUT "
*-----------------------------------------------------------"
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
CASE screen-group1.
WHEN 'ADV'.
IF rb_que IS INITIAL.
screen-active = '0'.
ELSE.
screen-active = '1'.
ENDIF.
WHEN 'FIL'.
IF rb_que IS NOT INITIAL.
screen-active = '0'.
ELSE.
screen-active = '1'.
ENDIF.
WHEN 'QUE'.
screen-intensified = '1'.
screen-display_3d = '1'.
WHEN OTHERS.
ENDCASE.
MODIFY SCREEN.
ENDLOOP.