ALV报表——点击事件(二)

一、复选框

二、点击事件
- 1、行双击事件
- 2、单元格双击事件

PS：请自行忽略gif的水印

一、复选框

ALV的复选框有两种方式实现，一种是使用Layout属性，另一种是使用Fieldcat属性

1、Layout实现方式（最简单的实现方式，这种方式能直接使用ALV报表自带的全选和反全选按钮，多选的话需要按住Ctrl再进行鼠标点选）

代码：

************************************************************************

* Program Name      : ZMMR999

* Descriptions      :

* Updates Tables    :

* Input  Parameters :

* Output Parameters :

* Return Codes      :

* Special Logic     :

* Includes          :

************************************************************************

* Modification Log

************************************************************************

*   Date   Ver. Programmer   Descriptions

* -------- ---- ------------ -------------------------------------------

* 20171223 1.0 xxx Create

*

************************************************************************

REPORT ZMMR999.

* Tables Definitions

************************************************************************

*TABLES:.

TABLES: marc,ekpo.

************************************************************************

* Data Definitions

************************************************************************

DATA: BEGIN OF gt_data OCCURS ,

    checkbox  TYPE c ,   "复选框

    ebeln LIKE ekpo-ebeln,  "PO

    ebelp LIKE ekpo-ebelp,  "PO项次

END OF gt_data.

TYPE-POOLS: slis.

DATA: gs_layout TYPE slis_layout_alv,

      gt_fieldcat TYPE slis_t_fieldcat_alv,

      wa_fieldcat TYPE slis_fieldcat_alv.

************************************************************************

* Includes Module

************************************************************************

************************************************************************

* Selection Screen

************************************************************************

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-b01.

PARAMETERS: p_werks LIKE marc-werks OBLIGATORY DEFAULT ''.

SELECT-OPTIONS: s_ebeln FOR ekpo-ebeln,

                          s_ebelp FOR ekpo-ebelp.

SELECTION-SCREEN END OF BLOCK b1.

************************************************************************

* Initialization

************************************************************************

INITIALIZATION.

************************************************************************

* At Selection Screen

************************************************************************

AT SELECTION-SCREEN.

************************************************************************

* At Selection Screen Output

************************************************************************

AT SELECTION-SCREEN OUTPUT.

************************************************************************

* Report Format

************************************************************************

TOP-OF-PAGE.

END-OF-PAGE.

************************************************************************

* Main Process

************************************************************************

START-OF-SELECTION.

  PERFORM get_data.

  PERFORM display_data.

END-OF-SELECTION.

FORM get_data.

  DATA: l_index LIKE sy-tabix.

  SELECT ebeln ebelp INTO CORRESPONDING FIELDS OF TABLE gt_data

            FROM ekpo

            WHERE bukrs = p_werks

            AND ebeln IN s_ebeln

            AND ebelp IN s_ebelp.

ENDFORM.

*&---------------------------------------------------------------------*

*&      Form  DISPLAY_DATA

*&---------------------------------------------------------------------*

FORM display_data.

  DATA: l_repid TYPE sy-repid,

        l_inclname TYPE trdir-name,

        l_index LIKE sy-tabix.

  CLEAR: gt_fieldcat[],wa_fieldcat.

  l_repid = l_inclname = sy-cprog.

  "栏位最适宽度

  gs_layout-colwidth_optimize = 'X'.

  "复选框

  gs_layout-box_fieldname     = 'CHECKBOX'.

  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

    EXPORTING

      I_PROGRAM_NAME         = l_repid

      I_INTERNAL_TABNAME     = 'GT_DATA'

      I_INCLNAME             = l_inclname

    CHANGING

      CT_FIELDCAT            = gt_fieldcat

    EXCEPTIONS

      INCONSISTENT_INTERFACE =

      PROGRAM_ERROR          =

      OTHERS                 = .

  LOOP AT gt_fieldcat INTO wa_fieldcat.

    l_index = sy-tabix.

    CASE wa_fieldcat-fieldname.

      WHEN 'CHECKBOX'.

        "技术字段，设置’X’后，该字段不会显示，也不能输出，如同MANDT字段一样的效果，不然会多出空列

        wa_fieldcat-tech = 'X'.

    ENDCASE.

    MODIFY gt_fieldcat FROM wa_fieldcat INDEX l_index.

  ENDLOOP.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

    EXPORTING

      I_CALLBACK_PROGRAM       = sy-repid

      IS_LAYOUT                = gs_layout

      IT_FIELDCAT              = gt_fieldcat[]

      I_SAVE                   = 'A'

    TABLES

      T_OUTTAB            =  gt_data

    EXCEPTIONS

      PROGRAM_ERROR            =

      OTHERS                   = .

ENDFORM.

运行效果：

2、Fieldcat实现方式（设置edit属性的时，会多出Layout方式的选择框效果，此复选框在此处无任何作用，未设置edit属性时，复选框在Fiori页面上又显示灰色，感觉不友好；不过Fieldcat实现方式不可使用ALV报表自带的全选和反全选按钮，需要自定义全选和反全选的点击按钮事件）

代码：

************************************************************************

* Program Name      : ZMMR999

* Descriptions      :

* Updates Tables    :

* Input  Parameters :

* Output Parameters :

* Return Codes      :

* Special Logic     :

* Includes          :

************************************************************************

* Modification Log

************************************************************************

*   Date   Ver. Programmer   Descriptions

* -------- ---- ------------ -------------------------------------------

* 20171223 1.0 xxx Create

*

************************************************************************

REPORT ZMMR999.

* Tables Definitions

************************************************************************

*TABLES:.

TABLES: marc,ekpo.

************************************************************************

* Data Definitions

************************************************************************

DATA: BEGIN OF gt_data OCCURS ,

    checkbox  TYPE c ,   "复选框

    ebeln LIKE ekpo-ebeln,  "PO

    ebelp LIKE ekpo-ebelp,  "PO项次

END OF gt_data.

TYPE-POOLS: slis.

DATA: gs_layout TYPE slis_layout_alv,

      gt_fieldcat TYPE slis_t_fieldcat_alv,

      wa_fieldcat TYPE slis_fieldcat_alv.

"ALV自定義按鈕

CONSTANTS alv_pf_status TYPE slis_formname  VALUE 'ALV_PF_STATUS'.

*ALV自定義按鈕事件

CONSTANTS alv_user_command TYPE slis_formname

  VALUE 'ALV_USER_COMMAND'.

************************************************************************

* Includes Module

************************************************************************

************************************************************************

* Selection Screen

************************************************************************

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-b01.

PARAMETERS: p_werks LIKE marc-werks OBLIGATORY DEFAULT ''.

SELECT-OPTIONS: s_ebeln FOR ekpo-ebeln,

                          s_ebelp FOR ekpo-ebelp.

SELECTION-SCREEN END OF BLOCK b1.

************************************************************************

* Initialization

************************************************************************

INITIALIZATION.

************************************************************************

* At Selection Screen

************************************************************************

AT SELECTION-SCREEN.

************************************************************************

* At Selection Screen Output

************************************************************************

AT SELECTION-SCREEN OUTPUT.

************************************************************************

* Report Format

************************************************************************

TOP-OF-PAGE.

END-OF-PAGE.

************************************************************************

* Main Process

************************************************************************

START-OF-SELECTION.

  PERFORM get_data.

  PERFORM display_data.

END-OF-SELECTION.

FORM get_data.

  DATA: l_index LIKE sy-tabix.

  SELECT ebeln ebelp INTO CORRESPONDING FIELDS OF TABLE gt_data

            FROM ekpo

            WHERE bukrs = p_werks

            AND ebeln IN s_ebeln

            AND ebelp IN s_ebelp.

ENDFORM.

*&---------------------------------------------------------------------*

*&      Form  DISPLAY_DATA

*&---------------------------------------------------------------------*

FORM display_data.

  DATA: l_repid TYPE sy-repid,

        l_inclname TYPE trdir-name,

        l_index LIKE sy-tabix.

  CLEAR: gt_fieldcat[],wa_fieldcat.

  l_repid = l_inclname = sy-cprog.

  "栏位最适宽度

  gs_layout-colwidth_optimize = 'X'.

  "复选框

  "gs_layout-box_fieldname     = 'CHECKBOX'.

  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

    EXPORTING

      I_PROGRAM_NAME         = l_repid

      I_INTERNAL_TABNAME     = 'GT_DATA'

      I_INCLNAME             = l_inclname

    CHANGING

      CT_FIELDCAT            = gt_fieldcat

    EXCEPTIONS

      INCONSISTENT_INTERFACE =

      PROGRAM_ERROR          =

      OTHERS                 = .

  LOOP AT gt_fieldcat INTO wa_fieldcat.

    l_index = sy-tabix.

    CASE wa_fieldcat-fieldname.

      WHEN 'CHECKBOX'.

        "技术字段，设置’X’后，该字段不会显示，也不能输出，如同MANDT字段一样的效果

        "wa_fieldcat-tech = 'X'.

        wa_fieldcat-seltext_s = wa_fieldcat-seltext_m =

        wa_fieldcat-seltext_l = '复选框'.

        wa_fieldcat-fix_column = 'X'.

        wa_fieldcat-checkbox = 'X'.

        wa_fieldcat-hotspot = 'X'.

    ENDCASE.

    MODIFY gt_fieldcat FROM wa_fieldcat INDEX l_index.

  ENDLOOP.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

    EXPORTING

      I_CALLBACK_PROGRAM       = sy-repid

      IS_LAYOUT                = gs_layout

      IT_FIELDCAT              = gt_fieldcat[]

      I_CALLBACK_PF_STATUS_SET = 'ALV_PF_STATUS'

      I_CALLBACK_USER_COMMAND  = 'ALV_USER_COMMAND'

      I_SAVE                   = 'A'

    TABLES

      T_OUTTAB            =  gt_data

    EXCEPTIONS

      PROGRAM_ERROR            =

      OTHERS                   = .

ENDFORM.

FORM alv_pf_status USING rt_extab TYPE slis_t_extab.

  SET  PF-STATUS  'STATUS_POST' .

ENDFORM.                    " ALV_PF_STATUS

FORM alv_user_command USING in_ucomm LIKE sy-ucomm

      in_selfield TYPE slis_selfield.

  DATA: ref TYPE REF TO cl_gui_alv_grid,

            wa_data LIKE gt_data.

  DATA: l_index LIKE sy-index.

  CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'

    IMPORTING

      e_grid = ref.

  CALL METHOD ref->check_changed_data.

  CASE in_ucomm.

    WHEN '&ZALL'. "全选

      LOOP AT gt_data.

        l_index = sy-tabix.

        gt_data-checkbox = 'X'.

        MODIFY gt_data INDEX l_index.

      ENDLOOP.

      CALL METHOD ref->refresh_table_display. "刷新ALV data

    WHEN '&ZSAL'. "反选

      LOOP AT gt_data.

        l_index = sy-tabix.

        gt_data-checkbox = space.

        MODIFY gt_data INDEX l_index.

      ENDLOOP.

      CALL METHOD ref->refresh_table_display. "刷新ALV data

    WHEN '&IC1'.  "单选，如果未设置 wa_fieldcat-hotspot，则为行双击

      READ TABLE gt_data INTO wa_data INDEX in_selfield-tabindex.

      LOOP AT gt_data.

        l_index = sy-tabix.

        IF l_index = in_selfield-tabindex.

          IF in_selfield-fieldname = 'CHECKBOX'

            AND wa_data-checkbox = space.

            gt_data-checkbox = 'X'.

          ELSEIF in_selfield-fieldname = 'CHECKBOX'

             AND wa_data-checkbox = 'X'.

            gt_data-checkbox = space.

          ENDIF.

          MODIFY gt_data INDEX l_index.

          EXIT.

        ENDIF.

      ENDLOOP.

      CALL METHOD ref->refresh_table_display.

     " cl_demo_output=>write( in_selfield-tabindex ).

      "cl_demo_output=>display(  ).

    WHEN '&DATA'.

      cl_demo_output=>write( gt_data[] ).

      cl_demo_output=>display(  ).

  ENDCASE.

ENDFORM.

自定义按钮：

运行效果：

3、拓展（单选某张PO的项次则改PO所有的项次全选）

代码：

************************************************************************

* Program Name      : ZMMR999

* Descriptions      :

* Updates Tables    :

* Input  Parameters :

* Output Parameters :

* Return Codes      :

* Special Logic     :

* Includes          :

************************************************************************

* Modification Log

************************************************************************

*   Date   Ver. Programmer   Descriptions

* -------- ---- ------------ -------------------------------------------

* 20171223 1.0 xxx Create

*

************************************************************************

REPORT ZMMR999.

* Tables Definitions

************************************************************************

*TABLES:.

TABLES: marc,ekpo.

************************************************************************

* Data Definitions

************************************************************************

DATA: BEGIN OF gt_data OCCURS ,

    checkbox  TYPE c ,   "复选框

    ebeln LIKE ekpo-ebeln,  "PO

    ebelp LIKE ekpo-ebelp,  "PO项次

END OF gt_data.

TYPE-POOLS: slis.

DATA: gs_layout TYPE slis_layout_alv,

      gt_fieldcat TYPE slis_t_fieldcat_alv,

      wa_fieldcat TYPE slis_fieldcat_alv.

"ALV自定義按鈕

CONSTANTS alv_pf_status TYPE slis_formname  VALUE 'ALV_PF_STATUS'.

*ALV自定義按鈕事件

CONSTANTS alv_user_command TYPE slis_formname

  VALUE 'ALV_USER_COMMAND'.

************************************************************************

* Includes Module

************************************************************************

************************************************************************

* Selection Screen

************************************************************************

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-b01.

PARAMETERS: p_werks LIKE marc-werks OBLIGATORY DEFAULT ''.

SELECT-OPTIONS: s_ebeln FOR ekpo-ebeln,

                          s_ebelp FOR ekpo-ebelp.

SELECTION-SCREEN END OF BLOCK b1.

************************************************************************

* Initialization

************************************************************************

INITIALIZATION.

************************************************************************

* At Selection Screen

************************************************************************

AT SELECTION-SCREEN.

************************************************************************

* At Selection Screen Output

************************************************************************

AT SELECTION-SCREEN OUTPUT.

************************************************************************

* Report Format

************************************************************************

TOP-OF-PAGE.

END-OF-PAGE.

************************************************************************

* Main Process

************************************************************************

START-OF-SELECTION.

  PERFORM get_data.

  PERFORM display_data.

END-OF-SELECTION.

FORM get_data.

  DATA: l_index LIKE sy-tabix.

  SELECT ebeln ebelp INTO CORRESPONDING FIELDS OF TABLE gt_data

            FROM ekpo

            WHERE bukrs = p_werks

            AND ebeln IN s_ebeln

            AND ebelp IN s_ebelp.

  SORT gt_data BY ebeln ebelp.

ENDFORM.

*&---------------------------------------------------------------------*

*&      Form  DISPLAY_DATA

*&---------------------------------------------------------------------*

FORM display_data.

  DATA: l_repid TYPE sy-repid,

        l_inclname TYPE trdir-name,

        l_index LIKE sy-tabix.

  CLEAR: gt_fieldcat[],wa_fieldcat.

  l_repid = l_inclname = sy-cprog.

  "栏位最适宽度

  gs_layout-colwidth_optimize = 'X'.

  "复选框

  "gs_layout-box_fieldname     = 'CHECKBOX'.

  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

    EXPORTING

      I_PROGRAM_NAME         = l_repid

      I_INTERNAL_TABNAME     = 'GT_DATA'

      I_INCLNAME             = l_inclname

    CHANGING

      CT_FIELDCAT            = gt_fieldcat

    EXCEPTIONS

      INCONSISTENT_INTERFACE =

      PROGRAM_ERROR          =

      OTHERS                 = .

  LOOP AT gt_fieldcat INTO wa_fieldcat.

    l_index = sy-tabix.

    CASE wa_fieldcat-fieldname.

      WHEN 'CHECKBOX'.

        "技术字段，设置’X’后，该字段不会显示，也不能输出，如同MANDT字段一样的效果

        "wa_fieldcat-tech = 'X'.

        wa_fieldcat-seltext_s = wa_fieldcat-seltext_m =

        wa_fieldcat-seltext_l = '复选框'.

        wa_fieldcat-fix_column = 'X'.

        wa_fieldcat-checkbox = 'X'.

        wa_fieldcat-hotspot = 'X'.

    ENDCASE.

    MODIFY gt_fieldcat FROM wa_fieldcat INDEX l_index.

  ENDLOOP.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

    EXPORTING

      I_CALLBACK_PROGRAM       = sy-repid

      IS_LAYOUT                = gs_layout

      IT_FIELDCAT              = gt_fieldcat[]

      I_CALLBACK_PF_STATUS_SET = 'ALV_PF_STATUS'

      I_CALLBACK_USER_COMMAND  = 'ALV_USER_COMMAND'

      I_SAVE                   = 'A'

    TABLES

      T_OUTTAB            =  gt_data

    EXCEPTIONS

      PROGRAM_ERROR            =

      OTHERS                   = .

ENDFORM.

FORM alv_pf_status USING rt_extab TYPE slis_t_extab.

  SET  PF-STATUS  'STATUS_POST' .

ENDFORM.                    " ALV_PF_STATUS

FORM alv_user_command USING in_ucomm LIKE sy-ucomm

      in_selfield TYPE slis_selfield.

  DATA: ref TYPE REF TO cl_gui_alv_grid,

            wa_data LIKE gt_data.

  DATA: l_index LIKE sy-index.

  CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'

    IMPORTING

      e_grid = ref.

  CALL METHOD ref->check_changed_data.

  CASE in_ucomm.

    WHEN '&ZALL'. "全选

      LOOP AT gt_data.

        l_index = sy-tabix.

        gt_data-checkbox = 'X'.

        MODIFY gt_data INDEX l_index.

      ENDLOOP.

      CALL METHOD ref->refresh_table_display. "刷新ALV data

    WHEN '&ZSAL'. "反选

      LOOP AT gt_data.

        l_index = sy-tabix.

        gt_data-checkbox = space.

        MODIFY gt_data INDEX l_index.

      ENDLOOP.

      CALL METHOD ref->refresh_table_display. "刷新ALV data

    WHEN '&IC1'.  "单选，如果未设置 wa_fieldcat-hotspot，则为行双击

      READ TABLE gt_data INTO wa_data INDEX in_selfield-tabindex.

      IF in_selfield-fieldname = 'CHECKBOX'

        AND wa_data-checkbox = space.

        LOOP AT gt_data ASSIGNING FIELD-SYMBOL(<fs_temp>)

          WHERE ebeln = wa_data-ebeln.

          <fs_temp>-checkbox = 'X'.

        ENDLOOP.

      ELSEIF in_selfield-fieldname = 'CHECKBOX'

        AND wa_data-checkbox = 'X'.

        LOOP AT gt_data ASSIGNING FIELD-SYMBOL(<fs_temp2>)

          WHERE ebeln = wa_data-ebeln.

          <fs_temp2>-checkbox = space.

        ENDLOOP.

      ENDIF.

      CALL METHOD ref->refresh_table_display.

     " cl_demo_output=>write( in_selfield-tabindex ).

      "cl_demo_output=>display(  ).

    WHEN '&DATA'.

      cl_demo_output=>write( gt_data[] ).

      cl_demo_output=>display(  ).

  ENDCASE.

ENDFORM.

运行效果：

二、点击事件

1、行双击：

代码：

************************************************************************

* Program Name      : ZMMR999

* Descriptions      :

* Updates Tables    :

* Input  Parameters :

* Output Parameters :

* Return Codes      :

* Special Logic     :

* Includes          :

************************************************************************

* Modification Log

************************************************************************

*   Date   Ver. Programmer   Descriptions

* -------- ---- ------------ -------------------------------------------

* 20171223 1.0 xxx Create

*

************************************************************************

REPORT ZMMR999.

* Tables Definitions

************************************************************************

*TABLES:.

TABLES: marc,ekpo.

************************************************************************

* Data Definitions

************************************************************************

DATA: BEGIN OF gt_data OCCURS ,

*    checkbox  TYPE c ,   "复选框

    ebeln LIKE ekpo-ebeln,  "PO

    ebelp LIKE ekpo-ebelp,  "PO项次

END OF gt_data.

TYPE-POOLS: slis.

DATA: gs_layout TYPE slis_layout_alv,

      gt_fieldcat TYPE slis_t_fieldcat_alv,

      wa_fieldcat TYPE slis_fieldcat_alv.

*ALV自定義按鈕事件

CONSTANTS alv_user_command TYPE slis_formname

  VALUE 'ALV_USER_COMMAND'.

************************************************************************

* Includes Module

************************************************************************

************************************************************************

* Selection Screen

************************************************************************

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-b01.

PARAMETERS: p_werks LIKE marc-werks OBLIGATORY DEFAULT ''.

SELECT-OPTIONS: s_ebeln FOR ekpo-ebeln,

                          s_ebelp FOR ekpo-ebelp.

SELECTION-SCREEN END OF BLOCK b1.

************************************************************************

* Initialization

************************************************************************

INITIALIZATION.

************************************************************************

* At Selection Screen

************************************************************************

AT SELECTION-SCREEN.

************************************************************************

* At Selection Screen Output

************************************************************************

AT SELECTION-SCREEN OUTPUT.

************************************************************************

* Report Format

************************************************************************

TOP-OF-PAGE.

END-OF-PAGE.

************************************************************************

* Main Process

************************************************************************

START-OF-SELECTION.

  PERFORM get_data.

  PERFORM display_data.

END-OF-SELECTION.

FORM get_data.

  DATA: l_index LIKE sy-tabix.

  SELECT ebeln ebelp INTO CORRESPONDING FIELDS OF TABLE gt_data

            FROM ekpo

            WHERE bukrs = p_werks

            AND ebeln IN s_ebeln

            AND ebelp IN s_ebelp.

  SORT gt_data BY ebeln ebelp.

ENDFORM.

*&---------------------------------------------------------------------*

*&      Form  DISPLAY_DATA

*&---------------------------------------------------------------------*

FORM display_data.

  DATA: l_repid TYPE sy-repid,

        l_inclname TYPE trdir-name,

        l_index LIKE sy-tabix.

  CLEAR: gt_fieldcat[],wa_fieldcat.

  l_repid = l_inclname = sy-cprog.

  "栏位最适宽度

  gs_layout-colwidth_optimize = 'X'.

  "复选框

*  gs_layout-box_fieldname     = 'CHECKBOX'.

  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

    EXPORTING

      I_PROGRAM_NAME         = l_repid

      I_INTERNAL_TABNAME     = 'GT_DATA'

      I_INCLNAME             = l_inclname

    CHANGING

      CT_FIELDCAT            = gt_fieldcat

    EXCEPTIONS

      INCONSISTENT_INTERFACE =

      PROGRAM_ERROR          =

      OTHERS                 = .

  LOOP AT gt_fieldcat INTO wa_fieldcat.

    l_index = sy-tabix.

    CASE wa_fieldcat-fieldname.

*      WHEN 'CHECKBOX'.

*        "技术字段，设置’X’后，该字段不会显示，也不能输出，如同MANDT字段一样的效果，不然会多出空列

*        wa_fieldcat-tech = 'X'.

    ENDCASE.

    MODIFY gt_fieldcat FROM wa_fieldcat INDEX l_index.

  ENDLOOP.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

    EXPORTING

      I_CALLBACK_PROGRAM       = sy-repid

      IS_LAYOUT                = gs_layout

      IT_FIELDCAT              = gt_fieldcat[]

      I_CALLBACK_USER_COMMAND  = 'ALV_USER_COMMAND'

      I_SAVE                   = 'A'

    TABLES

      T_OUTTAB            =  gt_data

    EXCEPTIONS

      PROGRAM_ERROR            =

      OTHERS                   = .

ENDFORM.

FORM alv_user_command USING in_ucomm LIKE sy-ucomm

      in_selfield TYPE slis_selfield.

  DATA: wa_data LIKE gt_data.

  CASE in_ucomm.

    WHEN '&IC1'.  "行双击

      READ TABLE gt_data INTO wa_data INDEX in_selfield-tabindex.

      cl_demo_output=>write( wa_data ).

      cl_demo_output=>display(  ).

  ENDCASE.

ENDFORM.

运行效果：

2、单元格双击事件（双击PO进入ME23N显示PO，双击物料进入MM03显示物料）

代码：

************************************************************************

* Program Name      : ZMMR999

* Descriptions      :

* Updates Tables    :

* Input  Parameters :

* Output Parameters :

* Return Codes      :

* Special Logic     :

* Includes          :

************************************************************************

* Modification Log

************************************************************************

*   Date   Ver. Programmer   Descriptions

* -------- ---- ------------ -------------------------------------------

* 20171223 1.0 xxx Create

*

************************************************************************

REPORT ZMMR999.

* Tables Definitions

************************************************************************

*TABLES:.

TABLES: marc,ekpo.

************************************************************************

* Data Definitions

************************************************************************

DATA: BEGIN OF gt_data OCCURS ,

*    checkbox  TYPE c ,   "复选框

    ebeln LIKE ekpo-ebeln,  "PO

    ebelp LIKE ekpo-ebelp,  "PO项次

END OF gt_data.

TYPE-POOLS: slis.

DATA: gs_layout TYPE slis_layout_alv,

      gt_fieldcat TYPE slis_t_fieldcat_alv,

      wa_fieldcat TYPE slis_fieldcat_alv.

*ALV自定義按鈕事件

CONSTANTS alv_user_command TYPE slis_formname

  VALUE 'ALV_USER_COMMAND'.

************************************************************************

* Includes Module

************************************************************************

************************************************************************

* Selection Screen

************************************************************************

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-b01.

PARAMETERS: p_werks LIKE marc-werks OBLIGATORY DEFAULT ''.

SELECT-OPTIONS: s_ebeln FOR ekpo-ebeln,

                          s_ebelp FOR ekpo-ebelp.

SELECTION-SCREEN END OF BLOCK b1.

************************************************************************

* Initialization

************************************************************************

INITIALIZATION.

************************************************************************

* At Selection Screen

************************************************************************

AT SELECTION-SCREEN.

************************************************************************

* At Selection Screen Output

************************************************************************

AT SELECTION-SCREEN OUTPUT.

************************************************************************

* Report Format

************************************************************************

TOP-OF-PAGE.

END-OF-PAGE.

************************************************************************

* Main Process

************************************************************************

START-OF-SELECTION.

  PERFORM get_data.

  PERFORM display_data.

END-OF-SELECTION.

FORM get_data.

  DATA: l_index LIKE sy-tabix.

  SELECT ebeln ebelp INTO CORRESPONDING FIELDS OF TABLE gt_data

            FROM ekpo

            WHERE bukrs = p_werks

            AND ebeln IN s_ebeln

            AND ebelp IN s_ebelp.

  SORT gt_data BY ebeln ebelp.

ENDFORM.

*&---------------------------------------------------------------------*

*&      Form  DISPLAY_DATA

*&---------------------------------------------------------------------*

FORM display_data.

  DATA: l_repid TYPE sy-repid,

        l_inclname TYPE trdir-name,

        l_index LIKE sy-tabix.

  CLEAR: gt_fieldcat[],wa_fieldcat.

  l_repid = l_inclname = sy-cprog.

  "栏位最适宽度

  gs_layout-colwidth_optimize = 'X'.

  "复选框

*  gs_layout-box_fieldname     = 'CHECKBOX'.

  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

    EXPORTING

      I_PROGRAM_NAME         = l_repid

      I_INTERNAL_TABNAME     = 'GT_DATA'

      I_INCLNAME             = l_inclname

    CHANGING

      CT_FIELDCAT            = gt_fieldcat

    EXCEPTIONS

      INCONSISTENT_INTERFACE =

      PROGRAM_ERROR          =

      OTHERS                 = .

  LOOP AT gt_fieldcat INTO wa_fieldcat.

    l_index = sy-tabix.

    CASE wa_fieldcat-fieldname.

*      WHEN 'CHECKBOX'.

*        "技术字段，设置’X’后，该字段不会显示，也不能输出，如同MANDT字段一样的效果，不然会多出空列

*        wa_fieldcat-tech = 'X'.

    ENDCASE.

    MODIFY gt_fieldcat FROM wa_fieldcat INDEX l_index.

  ENDLOOP.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

    EXPORTING

      I_CALLBACK_PROGRAM       = sy-repid

      IS_LAYOUT                = gs_layout

      IT_FIELDCAT              = gt_fieldcat[]

      I_CALLBACK_USER_COMMAND  = 'ALV_USER_COMMAND'

      I_SAVE                   = 'A'

    TABLES

      T_OUTTAB            =  gt_data

    EXCEPTIONS

      PROGRAM_ERROR            =

      OTHERS                   = .

ENDFORM.

FORM alv_user_command USING in_ucomm LIKE sy-ucomm

      in_selfield TYPE slis_selfield.

  DATA: wa_data LIKE gt_data.

  CASE in_ucomm.

    WHEN '&IC1'.  "行双击

      CASE in_selfield-fieldname.  "双击的栏位名

        WHEN 'EBELN'.

          "PARAMETER ID通过F1->technical information->Parameter id可以获得

          SET PARAMETER ID: 'BES' FIELD in_selfield-value.

          CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.

      ENDCASE.

  ENDCASE.

ENDFORM.

运行效果：

ALV报表——点击事件(二)的更多相关文章

juery下拉刷新，div加载更多元素并添加点击事件(二)
buffer.append("<div class='col-xs-3 "+companyId+"' style='padding-left: 10px; padd ...
Unity UGUI按钮添加点击事件
1. 可视化创建及事件绑定 # 1 : 通过 Hierarchy 面板创建 UI > Button. 2 : 创建一个脚本 TestClick.cs, 定义了一个 Click 的 public ...
事件处理之二：点击事件监听器的五种写法分类： H1_ANDROID 2013-09-11 10:32 4262人阅读评论(1) 收藏
首选方法二! 方法一:写一个内部类,在类中实现点击事件 1.在父类中调用点击事件 bt_dail.setOnClickListener(new MyButtonListener()); 2.创建内部类 ...
（二）AS给button添加点击事件
三种方法给Button添加点击事件 (一)通过button的id,添加继承View.OnClickListener的监听实现 <Button android:id="@+id/btn_ ...
帆软报表（finereport）点击事件对话框打开
点击事件对话框打开iframe var iframe = $("<iframe id='001' name='001' width='100%' height='100%' scrol ...
HTML 事件(二) 事件的注册与注销
本篇主要介绍HTML元素事件的注册.注销的方式. 其他事件文章 1. HTML 事件(一) 事件的介绍 2. HTML 事件(二) 事件的注册与注销 3. HTML 事件(三) 事件流.事件委托 4. ...
Android开发-之监听button点击事件
一.实现button点击事件的方法实现button点击事件的监听方法有很多种,这里总结了常用的四种方法: 1.匿名内部类 2.外部类(独立类) 3.实现OnClickListener接口 4.添加X ...
Android 防止多次点击事件
恐怕大家都会遇到这样的问题,一个点击事件多次触发,导致,同样的内容提交了多次,或者说弹出多个页面... 下面是简单的方案,大家可以试一试原理很简单,当我们第一次点击的时候,把按钮变成不可点击状态. ...
UIButton无法响应点击事件
一.问题描述因为项目需要,需要UITableView上添加固定的筛选表头,一直固定,不能随UITableView滚动.所以直接将表头与UITableView分离,将它添加到控制器的UIView上,即 ...

随机推荐

Unexpected token o in JSON at position 1 报错原因
写在前面的话这个问题在之前做项目时碰到过一次,当时按照网上的做法,去掉JSON.parse()这一层转换后就没有这个报错了,数据也能正常使用,就没多想,也没深究是什么原因. 可是这次又碰到了,所以这次 ...
Windows安装Redis并添加本地自启动服务并解决客户端dll报错
参考文章:https://blog.csdn.net/realjh/article/details/82026160 Redis下载: https://github.com/MicrosoftArch ...
nodejs设置淘宝镜像
nodeJS的资源仓库在国内使用过程中,偶尔会遇到各种资源问题,通常设置为淘宝的镜像,网上很多说法是安装淘宝镜像,即$ npm install -g cnpm --registry=https://r ...
JQuery中formSerialize()报错：对象不支持"formSerialize"属性或方法
formSerialize()是jQuery的表单插件中提供的方法. formSerialize()的核心方法是:$.param(data); Form表单经过formSerialize(),被序列化 ...
linux系统执行.exe文件
首先要了解一下Wine: Wine (“Wine Is Not an Emulator” 的首字母缩写)是一个能够在多种 POSIX-compliant 操作系统(诸如 Linux,Mac OSX 及 ...
Flutter中的Stack、Align、Positioned的使用
import 'package:flutter/material.dart'; import 'package:flutter_testdemo001/res/listData.dart'; void ...
CentOS7下yum安装Redis
(1).Redis概述 Redis是一个开源的使用ANSI C语言编写.支持网络.可基于内存亦可持久化的日志型.Key-Value(键值型)数据库(非关系型数据库),并提供多种语言的API. Redi ...
Python json序列化时default/object_hook指定函数处理
在Python中,json.dumps函数接受参数default用于指定一个函数,该函数能够把自定义类型的对象转换成可序列化的基本类型.json.loads函数接受参数objec_thook用于指定函 ...
AI佳作解读系列(六) －生成对抗网络（GAN）综述精华
注:本文来自机器之心的PaperWeekly系列:万字综述之生成对抗网络(GAN),如有侵权,请联系删除,谢谢! 前阵子学习 GAN 的过程发现现在的 GAN 综述文章大都是 2016 年 Ian G ...
MySQL中事务的隔离级别
MySQl InnoDB存储引擎实现SQL标准的4种隔离级别(RU,RC,RR,serializable),用来限定事务内外的哪些改变时可见的,哪些时不可见的.低级别的隔离级一般支持更高的并发处理,并 ...

ALV报表——点击事件(二)

ALV报表——点击事件(二)的更多相关文章

随机推荐

热门专题