SAP ABAP编程 ALV--按钮响应与刷新

1，数据定义部分要求的结构体：
  销售组织，     VBAK-VKORG
分销渠道，     VBAK-VTWEG
产品组，       VBAK-SPART
  订单号(即销售凭证）， VBAK-VBELN
项目号，        VBAP-POSEX
物料号，        VBAP-MATNR
数量， VBAP-KWMENG
单位，        VBAP-ZIEME
净价， VBAP-NETPR
货币， VBAP-WAERK
请求交货日期 VBEP-EDATU
2，选择屏幕字段：
销售组织（多选）
分销渠道（多选）
产品组（多选）
订单号（多选），
物料号（多选），
请求交货日期（多选,必选,默认从本月第一天到当前日期）
3，读取数据：会用到的系统表有：销售订单抬头信息（VBAK），销售订单项目信息（VBAP）,计划行数据(VBEP)
4，ALV抬头部分显示格式：
        销售订单报表
        日期：XXXX年XX月XX日格式(系统当前日期）
        用户名：XXXX  
ALV输出的字段有：
销售组织，分销渠道，产品组，订单号，项目号，物料号，数量，单位，净价，货币，请求交货日期
-------------------------------------------------------------------------------------------
新增需求：
1，根据已创建的销售订单结构体自定义一张自建表。
2，ALV显示界面中每行增加一个复选框,同时增加‘全选’和‘取消全选’，‘保存’三个按钮。

3，ALV显示界面中增加一列‘备注’，并且为可输入状态。 ZBOX C 1

4，点‘保存’按钮时，把‘复选框’打上勾的记录存放入自建表中。

*以下是程序

REPORT  Y0821_REPORTS_SALES MESSAGE-ID Y0822_REPORTS_SALES.
TABLES: VBAK,VBAP,VBEP.
*****************数据定义*****************
DATA: BEGIN OF REPORT_DATA,
      VKORG LIKE VBAK-VKORG,   "销售组织，
      VTWEG LIKE VBAK-VTWEG,   "分销渠道，
      SPART LIKE VBAK-SPART,   "产品组，
      VBELN LIKE VBAK-VBELN,   "订单号(即销售凭证）
      POSEX LIKE VBAP-POSEX,   "项目号，
      MATNR LIKE VBAP-MATNR,   "物料号，
      KWMENG LIKE VBAP-KWMENG,  "数量，
      ZIEME LIKE VBAP-ZIEME,   "单位，
      NETPR LIKE VBAP-NETPR,   "净价，
      WAERK LIKE VBAP-WAERK,   "货币，
      EDATU  LIKE VBEP-EDATU,   "请求交货日期
      ZBOX TYPE C LENGTH 1,  "备注
      SEL TYPE C ,                "选中状态
  END OF REPORT_DATA.

DATA:REPORT_WA LIKE REPORT_DATA.  "YREPORTS_SALES自定义的自建表
DATA: REPORT_TAB LIKE TABLE OF REPORT_DATA.

********************ALV数据*********
TYPE-POOLS: SLIS.
DATA: T_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV, "字段 列表
      LS_FIELDCAT TYPE SLIS_FIELDCAT_ALV,  " 字段 工作区
      IS_LAYOUT TYPE SLIS_LAYOUT_ALV.      "    布局格式
DATA: GWK_GRID_SETTING LIKE LVC_S_GLAY.    "标记选中列

*****************选择屏幕*************
SELECT-OPTIONS:
    S_VKORG FOR VBAK-VKORG,
    S_VTWEG FOR VBAK-VTWEG,
    S_SPART FOR VBAK-SPART,
    S_VBELN FOR VBAK-VBELN,
    S_MATNR FOR VBAP-MATNR DEFAULT '100-200',
    S_DATU  FOR VBEP-EDATU OBLIGATORY.

INITIALIZATION.
  DATA: BEGIN_DATA LIKE SY-DATUM.
  BEGIN_DATA = SY-DATUM.
  BEGIN_DATA+6(2) = '01'.
  S_DATU-LOW = BEGIN_DATA.
  S_DATU-HIGH = SY-DATUM.
  APPEND S_DATU.

START-OF-SELECTION.
**************通过条件筛选符合的数据*************
  SELECT DISTINCT
    AK~VKORG
    AK~VTWEG
    AK~SPART
    AK~VBELN
    AP~POSEX
    AP~MATNR
    AP~KWMENG
    AP~ZIEME
    AP~NETPR
    AP~WAERK
    EP~EDATU
  INTO CORRESPONDING FIELDS OF TABLE REPORT_TAB
    FROM VBAK AS AK
    JOIN VBAP AS AP ON AK~MANDT = AP~MANDT AND AK~VBELN = AP~VBELN
    JOIN VBEP AS EP ON AK~MANDT = EP~MANDT AND AK~VBELN = EP~VBELN
    WHERE AK~VKORG IN S_VKORG AND AK~VTWEG IN S_VTWEG AND  AK~SPART IN S_SPART
    AND AK~VBELN IN S_VBELN AND AP~MATNR IN S_MATNR AND EP~EDATU IN S_DATU.

END-OF-SELECTION.

*******列表信息***********
  LS_FIELDCAT-FIELDNAME = 'SEL'. " 列表内容 数据
  LS_FIELDCAT-CHECKBOX = 'X'.
  LS_FIELDCAT-FIX_COLUMN = 'X'.  "固定列
  LS_FIELDCAT-EDIT = 'X'.
  LS_FIELDCAT-SELTEXT_L = '复选框'.   " 列表头
  APPEND LS_FIELDCAT TO T_FIELDCAT.
  CLEAR: LS_FIELDCAT.

  LS_FIELDCAT-FIELDNAME = 'VKORG'. " 列表内容 数据
  LS_FIELDCAT-SELTEXT_L = '销售组织'.   " 列表头
  APPEND LS_FIELDCAT TO T_FIELDCAT.
  CLEAR: LS_FIELDCAT.

  LS_FIELDCAT-FIELDNAME = 'VTWEG'. " 列表内容 数据
  LS_FIELDCAT-SELTEXT_L = '分销渠道'.   " 列表头
  APPEND LS_FIELDCAT TO T_FIELDCAT.
  CLEAR: LS_FIELDCAT.

  LS_FIELDCAT-FIELDNAME = 'VBELN'. " 列表内容 数据
  LS_FIELDCAT-SELTEXT_L = '订单号'.   " 列表头
  APPEND LS_FIELDCAT TO T_FIELDCAT.
  CLEAR: LS_FIELDCAT.

  LS_FIELDCAT-FIELDNAME = 'SPART'. " 列表内容 数据
  LS_FIELDCAT-SELTEXT_L = '产品组'.   " 列表头
  APPEND LS_FIELDCAT TO T_FIELDCAT.
  CLEAR: LS_FIELDCAT.

  LS_FIELDCAT-FIELDNAME = 'POSEX'. " 列表内容 数据
  LS_FIELDCAT-SELTEXT_L = '项目号'.   " 列表头
  APPEND LS_FIELDCAT TO T_FIELDCAT.
  CLEAR: LS_FIELDCAT.

  LS_FIELDCAT-FIELDNAME = 'MATNR'. " 列表内容 数据
  LS_FIELDCAT-SELTEXT_L = '物料号'.   " 列表头
  APPEND LS_FIELDCAT TO T_FIELDCAT.
  CLEAR: LS_FIELDCAT.

  LS_FIELDCAT-FIELDNAME = 'KWMENG'. " 列表内容 数据
  LS_FIELDCAT-SELTEXT_L = '数量'.   " 列表头
  APPEND LS_FIELDCAT TO T_FIELDCAT.
  CLEAR: LS_FIELDCAT.

  LS_FIELDCAT-FIELDNAME = 'ZIEME'. " 列表内容 数据
  LS_FIELDCAT-SELTEXT_L = '单位'.   " 列表头
  APPEND LS_FIELDCAT TO T_FIELDCAT.
  CLEAR: LS_FIELDCAT.

  LS_FIELDCAT-FIELDNAME = 'NETPR'. " 列表内容 数据
  LS_FIELDCAT-SELTEXT_L = '净价'.   " 列表头
  APPEND LS_FIELDCAT TO T_FIELDCAT.
  CLEAR: LS_FIELDCAT.

  LS_FIELDCAT-FIELDNAME = 'WAERK'. " 列表内容 数据
  LS_FIELDCAT-SELTEXT_L = '货币'.   " 列表头
  APPEND LS_FIELDCAT TO T_FIELDCAT.
  CLEAR: LS_FIELDCAT.

  LS_FIELDCAT-FIELDNAME = 'EDATU'. " 列表内容 数据
  LS_FIELDCAT-SELTEXT_L = '请求交货日期'.   " 列表头
  APPEND LS_FIELDCAT TO T_FIELDCAT.
  CLEAR: LS_FIELDCAT.

  LS_FIELDCAT-FIELDNAME = 'ZBOX'. " 列表内容 数据
  LS_FIELDCAT-EDIT = 'X'.
  LS_FIELDCAT-SELTEXT_L = '备注'.   " 列表头
  LS_FIELDCAT-outputlen = 1.  "允许输入长度
  APPEND LS_FIELDCAT TO T_FIELDCAT.
  CLEAR: LS_FIELDCAT.


**********格式变化************
  IS_LAYOUT-ZEBRA = 'X'.   " 是否有斑纹的页面列表输出
  IS_LAYOUT-NO_VLINE = 'X'. "是否不输出竖线

  GWK_GRID_SETTING-EDT_CLL_CB = 'X'.              "点击按钮后刷新

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
*    I_INTERFACE_CHECK                 = ' '
*    I_BYPASSING_BUFFER                = ' '
*    I_BUFFER_ACTIVE                   = ' '
    I_CALLBACK_PROGRAM                = 'Y0821_REPORTS_SALES'
    I_CALLBACK_PF_STATUS_SET          = 'SELECT_EVENT'  "列表按钮 栏
    I_CALLBACK_USER_COMMAND           = 'USER_CLICK'   "点击按钮响应事件
*    I_CALLBACK_TOP_OF_PAGE            = ' '
    I_CALLBACK_HTML_TOP_OF_PAGE       = 'REPORT_HEADER'
*    I_CALLBACK_HTML_END_OF_LIST       = ' '
*    I_STRUCTURE_NAME                  =
*    I_BACKGROUND_ID                   = ' '
*    I_GRID_TITLE                      =
    I_GRID_SETTINGS                   = GWK_GRID_SETTING
     IS_LAYOUT                         = IS_LAYOUT
     IT_FIELDCAT                       = T_FIELDCAT
*    IT_EXCLUDING                      =
*    IT_SPECIAL_GROUPS                 =
*    IT_SORT                           =
*    IT_FILTER                         =
*    IS_SEL_HIDE                       =
*    I_DEFAULT                         = 'X'
*    I_SAVE                            = ' '
*    IS_VARIANT                        =
*    IT_EVENTS                         =
*    IT_EVENT_EXIT                     =
*    IS_PRINT                          =
*    IS_REPREP_ID                      =
*    I_SCREEN_START_COLUMN             = 0
*    I_SCREEN_START_LINE               = 0
*    I_SCREEN_END_COLUMN               = 0
*    I_SCREEN_END_LINE                 = 0
*    I_HTML_HEIGHT_TOP                 = 0
*    I_HTML_HEIGHT_END                 = 0
*    IT_ALV_GRAPHICS                   =
*    IT_HYPERLINK                      =
*    IT_ADD_FIELDCAT                   =
*    IT_EXCEPT_QINFO                   =
*    IR_SALV_FULLSCREEN_ADAPTER        =
*  IMPORTING
*    E_EXIT_CAUSED_BY_CALLER           =
*    ES_EXIT_CAUSED_BY_USER            =
    TABLES
      T_OUTTAB                          = REPORT_TAB
  EXCEPTIONS                                 "出现的异常类型
    PROGRAM_ERROR                     = 1
    OTHERS                            = 2
            .
  IF SY-SUBRC <> 0.
* Implement suitable error handling here
  ENDIF.
*&---------------------------------------------------------------------*
*       ALV的表头
*----------------------------------------------------------------------*
FORM REPORT_HEADER USING P_CL_DD TYPE REF TO CL_DD_DOCUMENT.

************定义登陆日期***********
  DATA: LOG_DATE TYPE STRING.

*************定义缓冲区变量**********
  DATA: M_P TYPE I,
        M_BUFFER TYPE STRING.

  CONCATENATE SY-DATUM+0(4) '年'
              SY-DATUM+4(2) '月'
              SY-DATUM+6(2) '日'
              INTO LOG_DATE.

  M_BUFFER = '<HTML><CENTER><H1>销售订单报表</H1></CENTER></HTML>'.

  CALL METHOD P_CL_DD->HTML_INSERT
    EXPORTING
      CONTENTS = M_BUFFER
    CHANGING
      POSITION = M_P.

  CONCATENATE '<P ALIGN = CENTER >日期：' LOG_DATE
              '   用户名：' SY-UNAME INTO M_BUFFER.
  CALL METHOD P_CL_DD->HTML_INSERT
    EXPORTING
      CONTENTS = M_BUFFER
    CHANGING
      POSITION = M_P.

ENDFORM.                    "REPORT_HEADER
*&---------------------------------------------------------------------*
*       报表打印按钮
*----------------------------------------------------------------------*
FORM SELECT_EVENT USING P_EXTAB TYPE  SLIS_T_EXTAB.
  SET PF-STATUS 'BUTTON'.

ENDFORM.                    "PF_STATUS
*&---------------------------------------------------------------------*
*       点击按钮响应事件
*----------------------------------------------------------------------*
FORM USER_CLICK USING I_UCOMM LIKE SY-UCOMM
                         I_SELFIELD TYPE  SLIS_SELFIELD.
  DATA S_WA LIKE YREPORTS_SALES.
  DATA S_ITAB LIKE TABLE OF YREPORTS_SALES.  " REPORT_TAB

  CASE I_UCOMM.
    WHEN 'SELEC_ALL'.

      LOOP AT REPORT_TAB INTO REPORT_WA.
        REPORT_WA-SEL = 'X'.
        MODIFY REPORT_TAB FROM REPORT_WA.
      ENDLOOP.

    WHEN 'NO_SELECT'.

      LOOP AT REPORT_TAB INTO REPORT_WA.
        REPORT_WA-SEL = ''.
        MODIFY REPORT_TAB FROM REPORT_WA.
      ENDLOOP.

    WHEN 'SAVE'.

*****************保存选取的数据********
      CLEAR S_ITAB.
      LOOP AT REPORT_TAB INTO REPORT_WA.
        CASE REPORT_WA-SEL.
          WHEN 'X'.
            APPEND REPORT_WA TO S_ITAB.
        ENDCASE.
      ENDLOOP.
*      BREAK-POINT.
      IF S_ITAB IS INITIAL.
        MESSAGE E001.
      ELSE.
      ENDIF.
*        BREAK QINLZ.
************把数据写入数据库*********
      LOOP AT  S_ITAB INTO S_WA.
        MODIFY YREPORTS_SALES FROM S_WA.
        CLEAR S_WA.
      ENDLOOP.
      MESSAGE  I000.
***********************打印功能************
    WHEN 'ZPRINT'.

      CLEAR S_ITAB.
      LOOP AT REPORT_TAB INTO REPORT_WA.
        CASE REPORT_WA-SEL.
          WHEN 'X'.
            APPEND REPORT_WA TO S_ITAB.
        ENDCASE.
      ENDLOOP.
      IF S_ITAB IS INITIAL.
        MESSAGE E001.
      ELSE.
*        BREAK QINLZ.
        CALL FUNCTION '/1BCDWB/SF00000276'                        "打印的smartforms程序
* EXPORTING
*   ARCHIVE_INDEX              =
*   ARCHIVE_INDEX_TAB          =
*   ARCHIVE_PARAMETERS         =
*   CONTROL_PARAMETERS         =
*   MAIL_APPL_OBJ              =
*   MAIL_RECIPIENT             =
*   MAIL_SENDER                =
*   OUTPUT_OPTIONS             =
*   USER_SETTINGS              = 'X'
* IMPORTING
*   DOCUMENT_OUTPUT_INFO       =
*   JOB_OUTPUT_INFO            =
*   JOB_OUTPUT_OPTIONS         =
          TABLES
            ITAB                       = S_ITAB
 EXCEPTIONS
   FORMATTING_ERROR           = 1
   INTERNAL_ERROR             = 2
   SEND_ERROR                 = 3
   USER_CANCELED              = 4
   OTHERS                     = 5
                  .
        IF SY-SUBRC <> 0.
* Implement suitable error handling here
        ENDIF.

      ENDIF.
  ENDCASE.

  I_SELFIELD-REFRESH = 'X'.
ENDFORM.                    "SELEC_ALL