ZFJ002(实现上下同步)



画1个屏幕：1001，分别再画2个自定义控件：CONT1以及CONT3.

TABLES t001w.
TYPES:BEGIN OF typ_t001w ,
     werks  TYPE t001w-werks,
     name1  TYPE t001w-name1,
     werks2 TYPE t001w-werks,
  rowcolor  TYPE char10,
  zcheckbox TYPE c,       "LAYOUT-CHECBOX   =  'ZCHECKBOX'.
*  zflag     TYPE c,      "LAYOUT-BOX_FNAME = 'ZFLAG'.
  zicon     TYPE char10, "LAYOUT-ICON      = 'ZICON'  图标需要显示的
     END OF typ_t001w.

TYPES:BEGIN OF typ_smf ,
     werks  TYPE t001w-werks,
     name1  TYPE t001w-name1,
     END OF typ_smf.

DATA:i_t001w  TYPE TABLE OF typ_t001w,"""""第一次ALV内表
     i_t001w1  TYPE TABLE OF typ_t001w,
     i_detail TYPE TABLE OF typ_smf, """""单击ALV内表列ZICON显示的明细ALV内表
     i_smf    TYPE TABLE OF typ_smf.""""SF内表

DATA:fieldcat TYPE lvc_t_fcat,
      fieldcat1 TYPE lvc_t_fcat,
     grid TYPE REF TO cl_gui_alv_grid,  "alv控件名
     grid1 TYPE REF TO cl_gui_alv_grid,
     grid2 TYPE REF TO cl_gui_alv_grid,  "alv控件名
     g_container TYPE scrfname VALUE 'CONT1',"重新定义本地容器对象名
     g_container1 TYPE scrfname VALUE 'CONT3',
     g_container2 TYPE scrfname VALUE 'CONT2',"重新定义本地容器对象名
     is_layout TYPE lvc_s_layo,
     ps_layout TYPE lvc_s_layo,
     g_custom_container TYPE REF TO cl_gui_custom_container,
     g_custom_container1 TYPE REF TO cl_gui_custom_container,
     g_custom_container2 TYPE REF TO cl_gui_custom_container.

DATA: ui_functions TYPE ui_functions. "隐藏按钮的内表
*********ALV上事件捕捉类
DATA:gs_toolbar TYPE stb_button.             "按钮
CLASS alv_event_receiver DEFINITION DEFERRED. "声明类对象
*----------------------------------------------------------------------*
*       CLASS alv_event_receiver DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS alv_event_receiver DEFINITION.                  "声明类成员可见性
  PUBLIC SECTION.                                      "定义相关类成员可以被程序中的所有对象调用
    CLASS-METHODS:                                     "静态方法
      handle_toolbar                                   "初始化工具栏对象事件，如增加按钮并设定其属性
        FOR EVENT toolbar OF cl_gui_alv_grid
          IMPORTING e_object e_interactive,

       handle_menu_button                              "用于在下拉菜单中增加选项
         FOR EVENT menu_button OF cl_gui_alv_grid
          IMPORTING e_object e_ucomm,

       handle_user_command                             "工具栏中的按钮的单击事件
          FOR EVENT user_command OF cl_gui_alv_grid
            IMPORTING e_ucomm,

       handle_hotspot_click
          FOR EVENT hotspot_click OF cl_gui_alv_grid    "屏幕中的单击事件，可以具体到某行某列，需要设置热点
            IMPORTING  e_row_id e_column_id es_row_no,

       handle_double_click
          FOR EVENT double_click OF cl_gui_alv_grid     "屏幕中的双击事件，可以具体到某行某列，即使设置热点也必须双击
            IMPORTING e_row e_column es_row_no.
ENDCLASS.                    "alv_event_receiver DEFINITION
*&---------------------------------------------------------------------*
*&       Class (Implementation)  alv_event_receiver
*&---------------------------------------------------------------------*
*        Text
*----------------------------------------------------------------------*
CLASS alv_event_receiver IMPLEMENTATION.  "实现类方法
  METHOD handle_toolbar.
    gs_toolbar-function =  'B_SUM'.       "为按钮分配功能码
    gs_toolbar-icon     =  icon_display.  "为按钮分配图标
    gs_toolbar-text     =  '总行数'.      "为按钮分配文本
    gs_toolbar-butn_type = '0'.           "定义按钮类型，不填时默认为0
    APPEND gs_toolbar TO e_object->mt_toolbar. "添加按钮到工具栏

    gs_toolbar-function =  'B_PRINT'.       "为按钮分配功能码
    gs_toolbar-icon     =  icon_import.  "为按钮分配图标
    gs_toolbar-text     =  '转储订单打印'.      "为按钮分配文本
    gs_toolbar-checked  = 'X'.
    gs_toolbar-butn_type = '0'.           "定义按钮类型，不填时默认为0
    APPEND gs_toolbar TO e_object->mt_toolbar. "添加按钮到工具栏

    gs_toolbar-function =  'B_LIST'.      "为按钮分配功能码
    gs_toolbar-quickinfo = '自定义下拉菜单'.
    gs_toolbar-icon     =  icon_biw_report_view.  "为按钮分配图标
    gs_toolbar-text     =  '下拉菜单'.      "为按钮分配文本
    gs_toolbar-butn_type = '1'.           "定义按钮类型
    APPEND gs_toolbar TO e_object->mt_toolbar. "添加按钮到工具栏

    gs_toolbar-function =  'B_EDIT'.       "为按钮分配功能码
    gs_toolbar-icon     =  icon_change.  "为按钮分配图标
    gs_toolbar-text     =  '切换编辑状态'.      "为按钮分配文本
    gs_toolbar-checked  = 'X'.
    gs_toolbar-butn_type = '0'.           "定义按钮类型，不填时默认为0
    APPEND gs_toolbar TO e_object->mt_toolbar. "添加按钮到工具栏
  ENDMETHOD.                    "handle_toolbar
  METHOD handle_menu_button.
    IF e_ucomm = 'B_LIST'.
      CALL METHOD e_object->add_function
        EXPORTING
          icon  = icon_display
          fcode = 'B_SUM'
          text  = '显示ALV总数'.
    ENDIF.
  ENDMETHOD.                    "handle_menu_button
  METHOD handle_user_command.
    DATA sum TYPE i.
    DATA text TYPE string.
    DATA:lwa_t001w LIKE LINE OF  i_t001w.
    DATA: lwa_smf   LIKE LINE OF i_smf.

    CASE e_ucomm.
      WHEN  'B_SUM'.
        DESCRIBE TABLE i_t001w[] LINES sum.
        text = sum.
        CONCATENATE  '当前表格中数据的总行数:' text  INTO text.
        MESSAGE  text  TYPE 'I'. "为何消息类型为 E 时运行时显示A类型，异常终止到初始界面
      WHEN 'B_PRINT'.


      WHEN 'B_EDIT'.
        IF grid->is_ready_for_input( ) EQ 0.
          CALL METHOD grid->set_ready_for_input
            EXPORTING
              i_ready_for_input = 1.
        ELSE.
          CALL METHOD grid->set_ready_for_input
            EXPORTING
              i_ready_for_input = 0.
        ENDIF.
      WHEN OTHERS.
    ENDCASE.
  ENDMETHOD.                    "handle_user_command
  "ALV内表展示处单击事件捕捉，需要设置热点对单击列字段
  METHOD handle_hotspot_click.
    DATA:lwa_t001w LIKE LINE OF  i_t001w.
    DATA: lwa_t001w1 LIKE LINE OF i_t001w.
    READ TABLE i_t001w INTO lwa_t001w INDEX es_row_no-row_id. "判断行号
     LOOP AT i_t001w INTO lwa_t001w.
      READ TABLE i_t001w INTO lwa_t001w INDEX es_row_no-row_id.
      IF lwa_t001w-zcheckbox = 'X'..
        lwa_t001w-zcheckbox = ' '.
      ELSEIF lwa_t001w-zcheckbox = ' '.
        lwa_t001w-zcheckbox = 'X'.
      ENDIF.

      MODIFY i_t001w FROM lwa_t001w INDEX es_row_no-row_id.
      CLEAR lwa_t001w.
    ENDLOOP.

    CALL METHOD grid->refresh_table_display.

    CASE e_column_id-fieldname . "判断列名
      WHEN 'NAME1'.
        CALL TRANSACTION 'ME51N' AND SKIP FIRST SCREEN. "随便写的
      WHEN 'ZCHECKBOX'.
*        LOOP AT i_t001w INTO lwa_t001w WHERE zcheckbox = 'X'.
*          LOOP AT i_t001w1 INTO lwa_t001w1 WHERE werks = lwa_t001w-werks.
*            lwa_t001w1-zcheckbox = 'X'.
*            MODIFY i_t001w1 FROM lwa_t001w1 INDEX sy-tabix.
*            CLEAR lwa_t001w1.
*          ENDLOOP.

        LOOP AT I_T001W1 INTO LWA_T001W1.
          READ TABLE I_T001W INTO LWA_T001W WITH KEY WERKS = LWA_T001W1.
          IF SY-SUBRC = 0.
            LWA_T001W1-ZCHECKBOX = LWA_T001W-ZCHECKBOX.
          ENDIF.
          MODIFY i_t001w1 FROM lwa_t001w1 INDEX sy-tabix.
          CLEAR: lwa_t001w,LWA_T001W1.
        ENDLOOP.

        CALL METHOD grid1->refresh_table_display.
      WHEN 'ZICON'.         "
        SELECT werks
               name1
          INTO TABLE i_detail
          FROM t001w
          WHERE werks = lwa_t001w-werks2.
        CLEAR lwa_t001w.
        IF sy-subrc NE 0.
          MESSAGE  'No result finding!' TYPE 'I'.
        ELSE.
          CALL SCREEN 1002.
        ENDIF.
      WHEN OTHERS.
    ENDCASE.
*    MESSAGE i001(00) WITH '当前行：' es_row_no-row_id '，航线代码：' ls_lt001w-werks.
  ENDMETHOD.                    "handle_hotspot_click
  "ALV内表展示处双击击事件捕捉，如果设置热点双击不起作用
  METHOD handle_double_click.
    DATA:lwa_t001w LIKE LINE OF i_t001w.
    READ TABLE i_t001w INTO lwa_t001w INDEX es_row_no-row_id.
    IF e_column-fieldname = 'WERKS'.
      SET PARAMETER ID 'AUN' FIELD lwa_t001w-werks.
      CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.
    ENDIF.
  ENDMETHOD.                    "handle_double_click

ENDCLASS.               "alv_event_receiver

START-OF-SELECTION.
  CALL SCREEN 1001.

*&---------------------------------------------------------------------*
*&      Module  STATUS_1001  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE status_1001 OUTPUT.
  SET PF-STATUS 'T001'.
*  SET TITLEBAR 'xxx'.
ENDMODULE.                 " STATUS_1001  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_1001  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_1001 INPUT.
  FIELD-SYMBOLS <field> TYPE typ_t001w .
  DATA: i TYPE i VALUE 0.
  DATA ok_code TYPE sy-ucomm.
  ok_code = sy-ucomm.
  CLEAR sy-ucomm.

  CASE ok_code.
    WHEN 'BACK'.
      LEAVE TO SCREEN 0.
    WHEN 'EDIT'.
      IF grid->is_ready_for_input( ) EQ 0.
        CALL METHOD grid->set_ready_for_input
          EXPORTING
            i_ready_for_input = 1.
      ELSE.
        CALL METHOD grid->set_ready_for_input
          EXPORTING
            i_ready_for_input = 0.
      ENDIF.
    WHEN 'EXECU'.
      SELECT * FROM t001w
         INTO CORRESPONDING FIELDS OF TABLE i_t001w.
      LOOP AT  i_t001w  ASSIGNING <field>  .
        <field>-werks2 = <field>-werks.
        <field>-zicon  = '@16@'.  "图标
      ENDLOOP.

      SELECT * FROM t001w
         INTO CORRESPONDING FIELDS OF TABLE i_t001w1.
      LOOP AT  i_t001w1  ASSIGNING <field>  .
        <field>-werks2 = <field>-werks.
        <field>-zicon  = '@16@'.  "图标
      ENDLOOP.



      IF g_custom_container IS INITIAL.
        PERFORM exclude_tb_functions CHANGING ui_functions. "隐藏某些按钮
        PERFORM frm_layout_set.
        PERFORM frm_fieldcat_set.
        PERFORM alv_show.
      ELSE.
        CALL METHOD grid->refresh_table_display. "刷新
      ENDIF.

      IF g_custom_container1 IS INITIAL.
        PERFORM exclude_tb_functions CHANGING ui_functions. "隐藏某些按钮
        PERFORM frm_layout_set.
        PERFORM frm_fieldcat_set1.
        PERFORM alv_show2.
      ELSE.
        CALL METHOD grid1->refresh_table_display. "刷新
      ENDIF.
    WHEN OTHERS.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_1001  INPUT
*&---------------------------------------------------------------------*
*&      Form  ALV_SHOW
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM alv_show .
  CREATE OBJECT g_custom_container                        "创建容器对象
        EXPORTING container_name = g_container.
  CREATE OBJECT grid                                      "创建ALV对象
        EXPORTING i_parent = g_custom_container.
  CALL METHOD grid->register_edit_event                   "可编辑回传方法
    EXPORTING
      i_event_id = grid->mc_evt_modified.
  CALL METHOD grid->set_table_for_first_display
    EXPORTING
*     I_BUFFER_ACTIVE      =
*     I_BYPASSING_BUFFER   =
*     I_CONSISTENCY_CHECK  =
*     I_STRUCTURE_NAME     = 'T001W'
*     IS_VARIANT           =
      i_save               = 'X'
*     I_DEFAULT            = 'X'
      is_layout            = is_layout
*     IS_PRINT             =
*     IT_SPECIAL_GROUPS    =
      it_toolbar_excluding = ui_functions[]
*     IT_HYPERLINK         =
*     IT_ALV_GRAPHICS      =
*     IT_EXCEPT_QINFO      =
*     IR_SALV_ADAPTER      =
    CHANGING
      it_outtab            = i_t001w[]
      it_fieldcatalog      = fieldcat[].
*           IT_SORT                       =
*           IT_FILTER                     =
*         EXCEPTIONS
*           INVALID_PARAMETER_COMBINATION = 1
*           PROGRAM_ERROR                 = 2
*           TOO_MANY_LINES                = 3
*           others                        = 4
  .

******注册ALV中引用的事件
  SET HANDLER alv_event_receiver=>handle_toolbar
              alv_event_receiver=>handle_menu_button
              alv_event_receiver=>handle_user_command
              alv_event_receiver=>handle_hotspot_click
              alv_event_receiver=>handle_double_click
           FOR ALL INSTANCES.
****调用方法激活自定义工具对象
  CALL METHOD grid->set_toolbar_interactive.
ENDFORM.                    " ALV_SHOW

*&---------------------------------------------------------------------*
*&      Form  exclude_tb_functions
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->PT_EXCLUDE text
*----------------------------------------------------------------------*
FORM exclude_tb_functions CHANGING pt_exclude TYPE ui_functions .
  DATA ls_exclude TYPE ui_func.
  ls_exclude = cl_gui_alv_grid=>mc_fc_filter . "过滤器
  APPEND ls_exclude TO pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_current_variant . "布局更改
  APPEND ls_exclude TO pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_average ."平均值
  APPEND ls_exclude TO pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_mb_sum ."求和
  APPEND ls_exclude TO pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_mb_export .   "导出
  APPEND ls_exclude TO pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_cut .        "剪切
  APPEND ls_exclude TO pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_delete_row . "删除行
  APPEND ls_exclude TO pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_insert_row . "插入行
  APPEND ls_exclude TO pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_refresh .  "刷新
  APPEND ls_exclude TO pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_find ."查找
  APPEND ls_exclude TO pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_sort_asc .  "升序排列
  APPEND ls_exclude TO pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_sort_dsc .  "降序排列
  APPEND ls_exclude TO pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_views .   "视图
  APPEND ls_exclude TO pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_print ."打印
  APPEND ls_exclude TO pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_detail . "详细按钮
  APPEND ls_exclude TO pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_graph . "显示图形
  APPEND ls_exclude TO pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_info . "最终用户文档
  APPEND ls_exclude TO pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_append_row . "附加行
  APPEND ls_exclude TO pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_copy_row . "复制行
  APPEND ls_exclude TO pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_copy . "复制文本
  APPEND ls_exclude TO pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_undo . "撤消
  APPEND ls_exclude TO pt_exclude.
ENDFORM .                    "exclude_tb_functions
*&---------------------------------------------------------------------*
*&      Form  FRM_LAYOUT_SET
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM frm_layout_set .
  is_layout-zebra = 'X' .
  is_layout-grid_title = '仓储转储订单跟踪及打印' .
  is_layout-smalltitle = 'X' .  "ALV 控制: 标题大小
  is_layout-cwidth_opt = 'X' . "优化列宽
*   is_layout-no_toolbar = 'X' . "隐藏按钮
  is_layout-sel_mode = 'A' . "flag选择方式 A：行和列的选择,无法选择单元格  多行，多列  B
  is_layout-info_fname = 'ROWCOLOR'.
ENDFORM.                    " FRM_LAYOUT_SET
*&---------------------------------------------------------------------*
*&      Form  FRM_FIELDCAT_SET
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM frm_fieldcat_set .
  DATA ls_fcat TYPE lvc_s_fcat .
  CLEAR ls_fcat .
  ls_fcat-fieldname = 'ZCHECKBOX' .
  ls_fcat-coltext = '选择'.
*  ls_fcat-emphasize = 'C601' ."列颜色控制
  ls_fcat-checkbox   = 'X'.
  ls_fcat-edit       = 'X'.
  ls_fcat-hotspot   = 'X'.
  APPEND ls_fcat TO fieldcat .

  CLEAR ls_fcat .
  ls_fcat-fieldname = 'WERKS' .
  ls_fcat-inttype = 'C' .
  ls_fcat-outputlen = '4' .
  ls_fcat-coltext = '工厂'."Carrier ID.列标题
  ls_fcat-seltext = 'AAA' ."ALV 控制: 对话功能的列标识符
  ls_fcat-emphasize = 'C601' ."列颜色控制
*  ls_fcat-hotspot   = 'X'.  “不能设置hotspot  否则double click事件无效
  APPEND ls_fcat TO fieldcat .

  CLEAR ls_fcat .
  ls_fcat-fieldname = 'NAME1' .
  ls_fcat-ref_table = 'T001W' .
  ls_fcat-ref_field = 'NAME1' .
  ls_fcat-outputlen = '30' .
  ls_fcat-coltext = '工厂名称' .
  ls_fcat-hotspot   = 'X'.
  APPEND ls_fcat TO fieldcat .

  CLEAR ls_fcat .
  ls_fcat-fieldname = 'WERKS2' .
  ls_fcat-inttype = 'C' .
  ls_fcat-outputlen = '4' .
  ls_fcat-coltext = '工厂2号'."Carrier ID.列标题
  ls_fcat-seltext = 'AAA' ."ALV 控制: 对话功能的列标识符
  ls_fcat-emphasize = 'C601' ."列颜色控制
  ls_fcat-edit    = 'X'.
  APPEND ls_fcat TO fieldcat .

  CLEAR ls_fcat .
  ls_fcat-fieldname = 'ZICON' .
  ls_fcat-coltext = '交货明细凭证'."Carrier ID.列标题
  ls_fcat-seltext = 'AAA' ."ALV 控制: 对话功能的列标识符
  ls_fcat-icon    = 'X'.
  ls_fcat-hotspot   = 'X'.
  APPEND ls_fcat TO fieldcat .
  CLEAR ls_fcat .
ENDFORM.                    " FRM_FIELDCAT_SET
*&---------------------------------------------------------------------*
*&      Form  FRM_PRINT_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM frm_print_data .

ENDFORM.                    " FRM_PRINT_DATA
*&---------------------------------------------------------------------*
*&      Module  STATUS_1002  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE status_1002 OUTPUT.
  SET PF-STATUS 'T001'.
*  SET TITLEBAR 'xxx'.
  PERFORM  frm_alv_show_detail.
ENDMODULE.                 " STATUS_1002  OUTPUT
*&---------------------------------------------------------------------*
*&      Form  FRM_ALV_SHOW_DETAIL
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM frm_alv_show_detail .
  DATA: ls_fcat  TYPE lvc_s_fcat ,
       fieldcat2 TYPE lvc_t_fcat.
  ls_fcat-fieldname = 'WERKS' .
  ls_fcat-coltext = '工厂'."Carrier ID.列标题
  APPEND ls_fcat TO fieldcat2 .
  CLEAR ls_fcat .
  ls_fcat-fieldname = 'NAME1' .
  ls_fcat-coltext = '工厂名称'.
  APPEND ls_fcat TO fieldcat2 .
  CLEAR ls_fcat .

  ps_layout-zebra = 'X' .
  ps_layout-grid_title = '交货明细凭证' .
  ps_layout-smalltitle = 'X' .  "ALV 控制: 标题大小
  ps_layout-cwidth_opt = 'X' . "优化列宽
  ps_layout-no_toolbar = 'X' . "隐藏按钮
*  ps_layout-SEL_MODE = 'A' . "flag选择方式 A：行和列的选择,无法选择单元格  多行，多列  B
*  ps_layout-info_fname = 'ROWCOLOR'.

  IF g_custom_container2 IS INITIAL.
    CREATE OBJECT g_custom_container2                        "创建容器对象
     EXPORTING container_name = g_container2.
    CREATE OBJECT grid2                                      "创建ALV对象
     EXPORTING i_parent = g_custom_container2.
  ELSE.
    CALL METHOD grid2->refresh_table_display. "刷新
  ENDIF.
  CALL METHOD grid2->set_table_for_first_display
    EXPORTING
*     I_BUFFER_ACTIVE      =
*     I_BYPASSING_BUFFER   =
*     I_CONSISTENCY_CHECK  =
*     I_STRUCTURE_NAME     = 'T001W'
*     IS_VARIANT           =
      i_save               = 'X'
*     I_DEFAULT            = 'X'
      is_layout            = ps_layout
*     IS_PRINT             =
*     IT_SPECIAL_GROUPS    =
*     IT_TOOLBAR_EXCLUDING =
*     IT_HYPERLINK         =
*     IT_ALV_GRAPHICS      =
*     IT_EXCEPT_QINFO      =
*     IR_SALV_ADAPTER      =
    CHANGING
      it_outtab            = i_detail[]
      it_fieldcatalog      = fieldcat2[].
*           IT_SORT                       =
*           IT_FILTER                     =
*         EXCEPTIONS
*           INVALID_PARAMETER_COMBINATION = 1
*           PROGRAM_ERROR                 = 2
*           TOO_MANY_LINES                = 3
*           others                        = 4
  .
ENDFORM.                    " FRM_ALV_SHOW_DETAIL
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_1002  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_1002 INPUT.
  DATA ok_code2 TYPE sy-ucomm.
  ok_code2 = sy-ucomm.
  CLEAR sy-ucomm.
  CASE ok_code2.
    WHEN 'BACK'.
      LEAVE TO SCREEN 0.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_1002  INPUT
*&---------------------------------------------------------------------*
*&      Form  ALV_SHOW2
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM ALV_SHOW2 .
  CREATE OBJECT g_custom_container1                        "创建容器对象
       EXPORTING container_name = g_container1.
  CREATE OBJECT grid1                                      "创建ALV对象
        EXPORTING i_parent = g_custom_container1.
  CALL METHOD grid1->register_edit_event                   "可编辑回传方法
    EXPORTING
      i_event_id = grid1->mc_evt_modified.
  CALL METHOD grid1->set_table_for_first_display
    EXPORTING
*     I_BUFFER_ACTIVE      =
*     I_BYPASSING_BUFFER   =
*     I_CONSISTENCY_CHECK  =
*     I_STRUCTURE_NAME     = 'T001W'
*     IS_VARIANT           =
      i_save               = 'X'
*     I_DEFAULT            = 'X'
      is_layout            = is_layout
*     IS_PRINT             =
*     IT_SPECIAL_GROUPS    =
      it_toolbar_excluding = ui_functions[]
*     IT_HYPERLINK         =
*     IT_ALV_GRAPHICS      =
*     IT_EXCEPT_QINFO      =
*     IR_SALV_ADAPTER      =
    CHANGING
      it_outtab            = i_t001w1[]
      it_fieldcatalog      = fieldcat1[].
*           IT_SORT                       =
*           IT_FILTER                     =
*         EXCEPTIONS
*           INVALID_PARAMETER_COMBINATION = 1""""
*           PROGRAM_ERROR                 = 2
*           TOO_MANY_LINES                = 3
*           others                        = 4
  .

******注册ALV中引用的事件
  SET HANDLER alv_event_receiver=>handle_toolbar
              alv_event_receiver=>handle_menu_button
              alv_event_receiver=>handle_user_command
              alv_event_receiver=>handle_hotspot_click
              alv_event_receiver=>handle_double_click
           FOR ALL INSTANCES.
****调用方法激活自定义工具对象
  CALL METHOD grid1->set_toolbar_interactive.

ENDFORM.                    " ALV_SHOW2
*&---------------------------------------------------------------------*
*&      Form  FRM_FIELDCAT_SET1
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_FIELDCAT_SET1 .
  DATA ls_fcat TYPE lvc_s_fcat .
  CLEAR ls_fcat .
  ls_fcat-fieldname = 'ZCHECKBOX' .
  ls_fcat-coltext = '选择'.
*  ls_fcat-emphasize = 'C601' ."列颜色控制
  ls_fcat-checkbox   = 'X'.
  ls_fcat-edit       = 'X'.
  ls_fcat-hotspot   = 'X'.
  APPEND ls_fcat TO fieldcat1 .

  CLEAR ls_fcat .
  ls_fcat-fieldname = 'WERKS' .
  ls_fcat-inttype = 'C' .
  ls_fcat-outputlen = '4' .
  ls_fcat-coltext = '工厂'."Carrier ID.列标题
  ls_fcat-seltext = 'AAA' ."ALV 控制: 对话功能的列标识符
  ls_fcat-emphasize = 'C601' ."列颜色控制
*  ls_fcat-hotspot   = 'X'.  “不能设置hotspot  否则double click事件无效
  APPEND ls_fcat TO fieldcat1 .

  CLEAR ls_fcat .
  ls_fcat-fieldname = 'NAME1' .
  ls_fcat-ref_table = 'T001W' .
  ls_fcat-ref_field = 'NAME1' .
  ls_fcat-outputlen = '30' .
  ls_fcat-coltext = '工厂名称' .
  ls_fcat-hotspot   = 'X'.
  APPEND ls_fcat TO fieldcat1 .

  CLEAR ls_fcat .
  ls_fcat-fieldname = 'WERKS2' .
  ls_fcat-inttype = 'C' .
  ls_fcat-outputlen = '4' .
  ls_fcat-coltext = '工厂2号'."Carrier ID.列标题
  ls_fcat-seltext = 'AAA' ."ALV 控制: 对话功能的列标识符
  ls_fcat-emphasize = 'C601' ."列颜色控制
  ls_fcat-edit    = 'X'.
  APPEND ls_fcat TO fieldcat1 .

  CLEAR ls_fcat .
  ls_fcat-fieldname = 'ZICON' .
  ls_fcat-coltext = '交货明细凭证'."Carrier ID.列标题
  ls_fcat-seltext = 'AAA' ."ALV 控制: 对话功能的列标识符
  ls_fcat-icon    = 'X'.
  ls_fcat-hotspot   = 'X'.
  APPEND ls_fcat TO fieldcat1 .
  CLEAR ls_fcat .

ENDFORM.                    " FRM_FIELDCAT_SET1