再销

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