REPORT 1.
TABLES:sscrfields.
SELECTION-SCREEN BEGIN OF BLOCK b2xx WITH FRAME TITLE zx.
TYPE-POOLS:icon.
SELECTION-SCREEN: BEGIN OF BLOCK blk_note WITH FRAME TITLE text-002.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN PUSHBUTTON 1(8) btn1 USER-COMMAND asall MODIF ID qs.
SELECTION-SCREEN PUSHBUTTON 9(12) btn2 USER-COMMAND adall MODIF ID qs.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN: BEGIN OF LINE.
PARAMETERS: p_fl1 AS CHECKBOX USER-COMMAND cmd01 MODIF ID qs. " 产品一级
SELECTION-SCREEN: COMMENT 5(20) fl1t MODIF ID qs.
PARAMETERS: p_fl2 AS CHECKBOX USER-COMMAND cmd02 MODIF ID qs. " 产品二级
SELECTION-SCREEN: COMMENT 30(20) fl2t MODIF ID qs.
PARAMETERS: p_fl3 AS CHECKBOX USER-COMMAND cmd03 MODIF ID qs. " 产品三级
SELECTION-SCREEN: COMMENT 55(20) fl3t MODIF ID qs.
SELECTION-SCREEN: END OF LINE.
SELECTION-SCREEN: BEGIN OF LINE.
PARAMETERS: p_cl1 AS CHECKBOX USER-COMMAND cmd04 MODIF ID qs. "材料一级
SELECTION-SCREEN: COMMENT 5(20) cl1t MODIF ID qs.
PARAMETERS: p_cl2 AS CHECKBOX USER-COMMAND cmd05 MODIF ID qs. "材料二级
SELECTION-SCREEN: COMMENT 30(20) cl2t MODIF ID qs.
PARAMETERS: p_cl3 AS CHECKBOX USER-COMMAND cmd06 MODIF ID qs. "材料三级
SELECTION-SCREEN: COMMENT 55(20) cl3t MODIF ID qs.
SELECTION-SCREEN: END OF LINE.
SELECTION-SCREEN: BEGIN OF LINE.
PARAMETERS: p_cl4 AS CHECKBOX USER-COMMAND cmd07 MODIF ID qs. "材料四级
SELECTION-SCREEN: COMMENT 5(20) cl4t MODIF ID qs.
PARAMETERS: p_cl5 AS CHECKBOX USER-COMMAND cmd08 MODIF ID qs. "材料五级
SELECTION-SCREEN: COMMENT 30(20) cl5t MODIF ID qs.
SELECTION-SCREEN: END OF LINE.
SELECTION-SCREEN: END OF BLOCK blk_note .
SELECTION-SCREEN END OF BLOCK b2xx.
INITIALIZATION.
fl1t = '产品一级'.fl2t = '产品二级'.fl3t = '产品三级'.
cl1t = '材料一级'.cl2t = '材料二级'.cl3t = '材料三级'.
cl4t = '材料四级'.cl5t = '材料五级'.
zx = '再销情况' .
AT SELECTION-SCREEN OUTPUT.
PERFORM frm_init_scr.
AT SELECTION-SCREEN.
PERFORM frm_sel_scr.
*&---------------------------------------------------------------------*
*& Form frm_init_scr
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM frm_init_scr .
"全选
CALL FUNCTION 'ICON_CREATE'
EXPORTING
name = icon_select_all
info = '全选'
IMPORTING
RESULT = btn1.
"取消全选
CALL FUNCTION 'ICON_CREATE'
EXPORTING
name = icon_deselect_all
info = '取消全选'
IMPORTING
RESULT = btn2.
ENDFORM. "FRM_INIT_SCR
*&---------------------------------------------------------------------*
*& Form FRM_SEL_SCR
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_sel_scr .
CASE sscrfields-ucomm.
WHEN 'ASALL'.
p_fl1 = 'X'.
p_fl2 = 'X'.
p_fl3 = 'X'.
p_cl1 = 'X'.
p_cl2 = 'X'.
p_cl3 = 'X'.
p_cl4 = 'X'.
p_cl5 = 'X'.
WHEN 'ADALL'.
CLEAR: p_fl1,
p_fl2,
p_fl3,
p_cl1,
p_cl2,
p_cl3,
p_cl4,
p_cl5.
WHEN OTHERS.
ENDCASE.
ENDFORM. " FRM_SEL_SCR
