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上,即 ...

随机推荐

改变jupyter notebook的主题背景
https://study.163.com/provider/400000000398149/index.htm?share=2&shareId=400000000398149( 欢迎关注博 ...
Java基础 switch 表达式为字符串
JDK :OpenJDK-11 OS :CentOS 7.6.1810 IDE :Eclipse 2019‑03 typesetting :Markdown code ...
[转]3D渲染管线
转自:http://tgerm.org/SRP/ 在3D中有两种渲染管线,分别是图形渲染管线和GPU渲染管线. 图形渲染管线 <Render-Time Rendering Third Editi ...
002-06-RestTemplate-请求示例-form、json、multipart、okhttp3
一.概述请求示例集合服务端:https://github.com/bjlhx15/common-study.git 中的 http-client-webserver 服务端:RequestBody ...
QVector init error
QMetaType::registerType: Binary compatibility break -- Size mismatch for type 'PtsData' [1025]. Prev ...
Qt编写自定义控件68-IP地址输入框
一.前言这个IP地址输入框控件,估计写烂了,网上随便一搜索,保证一大堆,估计也是因为这个控件太容易了,非常适合新手练手,一般的思路都是用4个qlineedit控件拼起来,然后每个输入框设置正则表达式 ...
无法嵌入互操作类型"NationalInstruments.TestStand.Interop.UI.ExecutionViewOptions"。请改用适用的接口
参考一下文章说明, 修改Interop.UI动态库的引入属性为 False,不再报错: VS2010,VS2012,VS2013中,无法嵌入互操作类型“……”,请改用适用的接口的解决方法在VS2 ...
WinForm，在另一个线程中更新Form中的数据（转）
Form本身有线程,但对于一些耗时的操作,我们不希望在Form的线程中进行,因为会导致Form线程阻塞,产生假死的现象. 其他线程中操作Form中的控件,总出现“线程间操作无效: 从不是创建控件的线程 ...
Ubuntu18.04下LAMP环境搭建
可以安装安装Xampp,Xampp是一个集成的LAMP开发环境. 但是这只是对于一个刚安装好的系统来说的,但是很有可能我的电脑上面已经安装过Apache,或者安装过MySQL,或者安装过PHP了,或者 ...
Python3 IO编程之文件读写
读写文件是最常见的IO操作.python内置了读写文件的函数,用法和C是兼容的. 读写文件前,我们先必须了解一个,在磁盘上读写文件的功能都是由操作系统提供的,现代操作系统不允许普通的程序终结操作磁盘, ...

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

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

随机推荐

热门专题