SAP GRID-ALV复选框+GRID事件-编程知识

实现功能: 复选框\设置复选框是否可编辑\实现changed_finished事件.

一、ALV增加复选框：

1.1、在输出内表里增加一个SEL的字段：

sel TYPE c,

1.2、在build_fieldcat FORM里设置checkbox属性和edit属性，并输出SEL字段：

    IF ls_fieldcat-fieldname = 'SEL'.ls_fieldcat-checkbox = 'X'.ENDIF.

1.3、刷新内表数据,捕获到用户选择的数据

  CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'IMPORTINGe_grid = g_grid.CALL METHOD g_grid->check_changed_data.

二、控制ALV里的复选框是否可选择：

2.1、在输出内表里增加一个Style字段,控制复选框的样式:

stytle TYPE lvc_t_styl, "2.1

2.2、设置ALV的Layout：

gs_layout-stylefname = 'STYTLE'. "2.2

2.3、在输出内表里设置STYTLE样式,控制复选框是否可行:

  LOOP AT gt_data ASSIGNING .AT NEW ebeln.l_new_flag = 'X'.ENDAT.IF l_new_flag = 'X'.CLEAR -stytle.ls_stytle-fieldname = 'SEL'.ls_stytle-style = cl_gui_alv_grid=>mc_style_enabled.INSERT ls_stytle INTO TABLE -stytle.CLEAR: l_new_flag.ELSE.CLEAR -stytle.ls_stytle-fieldname = 'SEL'.ls_stytle-style = cl_gui_alv_grid=>mc_style_disabled.INSERT ls_stytle INTO TABLE -stytle.ENDIF.ENDLOOP.

三、增加CHANGED_FINISHED 事件：

3.1、定义事件接收者：

*&**ALV 事件
DATA: g_grid    TYPE REF TO cl_gui_alv_grid.
DATA: gt_event TYPE slis_t_event WITH HEADER LINE.
CLASS: cl_event_receiver DEFINITION DEFERRED.
DATA:  event_receiver TYPE REF TO cl_event_receiver .

3.2、定义与实现事件：

*&**========================================================================
*&* 事件
*&**========================================================================
CLASS cl_event_receiver DEFINITION.PUBLIC SECTION.METHODS:handle_top_of_page FOR EVENT top_of_pageOF cl_gui_alv_grid IMPORTING e_dyndoc_id,
*Hotspot click controlhandle_hotspot_clickFOR EVENT hotspot_click OF cl_gui_alv_gridIMPORTING e_row_id e_column_id es_row_no,handle_double_clickFOR EVENT double_click OF cl_gui_alv_gridIMPORTING e_row e_column es_row_no sender,handle_toolbarFOR EVENT toolbar OF cl_gui_alv_gridIMPORTING e_object e_interactive sender,handle_before_user_commandFOR EVENT before_user_command OF cl_gui_alv_gridIMPORTING e_ucomm sender,handle_user_commandFOR EVENT user_command OF cl_gui_alv_gridIMPORTING e_ucomm sender,handle_data_changedFOR EVENT data_changed OF cl_gui_alv_gridIMPORTING er_data_changed sender,handle_data_changed_finishedFOR EVENT data_changed_finished OF cl_gui_alv_gridIMPORTING e_modified et_good_cells sender.PRIVATE SECTION.
* This flag is set if any error occured in one of the
* following methods:DATA: error_in_data TYPE c.
ENDCLASS. "CL_event_receiver DEFINITION**------实现事件---------------------------------------------------CLASS cl_event_receiver IMPLEMENTATION.METHOD handle_top_of_page.
*    perform frm_top_of_page  using e_dyndoc_id.ENDMETHOD.                    "handle_top_of_pageMETHOD handle_hotspot_click .
*    perform frm_handle_hotspot_click using e_row_id e_column_id es_row_no.ENDMETHOD .                    "handle_hotspot_clickMETHOD handle_double_click.
*    PERFORM frm_handle_double_click USING e_row e_column es_row_no sender.ENDMETHOD.                    "HANDLE_DOUBLE_CLICKMETHOD handle_toolbar.ENDMETHOD.                    "handle_toolbarMETHOD handle_before_user_command.ENDMETHOD.                    "handle_before_user_commandMETHOD handle_user_command.ENDMETHOD.                           "handle_user_commandMETHOD handle_data_changed.ENDMETHOD.                    "handle_data_changedMETHOD   handle_data_changed_finished.DATA: ls_data LIKE ty_data.DATA: ls_stable TYPE lvc_s_stbl.DATA: ls_modi TYPE lvc_s_modi.BREAK-POINT.error_in_data = space.READ TABLE et_good_cells INTO ls_modi INDEX 1.IF ls_modi-fieldname = 'SEL'.READ TABLE gt_data INTO ls_data INDEX ls_modi-row_id.MODIFY gt_data FROM ls_data TRANSPORTING sel WHERE ebeln = ls_data-ebeln."刷新内表ls_stable-row = 'X'.ls_stable-col = 'X'.CALL METHOD g_grid->refresh_table_displayEXPORTINGis_stable = ls_stable.ENDIF.ENDMETHOD.                    "HANDLE_DATA_CHANGED_FINISHED
ENDCLASS. "CL_event_receiver IMPLEMENTATION

3.3、追加事件并设置事件参数:

"3.3

 gt_event-name = 'CALLER_EXIT'.          "CALLER_EXIT 不能改变gt_event-form = 'FRM_CHANGED_FINISHED'.  " FORMAPPEND gt_event .CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'EXPORTINGi_callback_program       = sy-repidi_callback_pf_status_set = 'ALV_GUI_STATUS'i_callback_user_command  = 'ALV_USER_COMMAND'it_events                = gt_event[]is_layout_lvc            = gs_layoutit_fieldcat_lvc          = gt_fieldcatTABLESt_outtab                 = gt_dataEXCEPTIONSprogram_error            = 1OTHERS                   = 2.

3.4、注册事件:

FORM FRM_CHANGED_FINISHED USING e_grid TYPE slis_data_caller_exit.CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'IMPORTINGe_grid = g_grid.* 设置enter事件CALL METHOD g_grid->register_edit_eventEXPORTINGi_event_id = cl_gui_alv_grid=>mc_evt_enter.CALL METHOD g_grid->register_edit_eventEXPORTINGi_event_id = cl_gui_alv_grid=>mc_evt_modified.CREATE OBJECT event_receiver.SET HANDLER   event_receiver->handle_data_changed_finished FOR g_grid.
ENDFORM.                    "FRM_CHANGED_FINISHED程序完事代码(新建一个GUI_1000可直接运行):
*&---------------------------------------------------------------------*
*& Report ZFIRP004
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zfirp005_test.TABLES: ekpo.TYPE-POOLS:slis.
*&*ALV
DATA:gt_fieldcat TYPE lvc_t_fcat,gs_layout   TYPE lvc_s_layo.*&**ALV 事件
DATA: g_grid    TYPE REF TO cl_gui_alv_grid.
DATA: gt_event TYPE slis_t_event WITH HEADER LINE.
CLASS: cl_event_receiver DEFINITION DEFERRED.
DATA:  event_receiver TYPE REF TO cl_event_receiver .DATA: BEGIN OF ty_data,ebeln        LIKE ekpo-ebeln,ebelp        LIKE ekpo-ebelp,loekz        LIKE ekpo-loekz,matnr        LIKE ekpo-matnr,bukrs        LIKE ekpo-bukrs,werks        LIKE ekpo-werks,lgort        LIKE ekpo-lgort,menge        LIKE ekpo-menge,meins        LIKE ekpo-meins,netwr        LIKE ekpo-netwr,sel          TYPE c,              "1.1stytle       TYPE lvc_t_styl,     "2.1message(100) TYPE c,END OF ty_data,gt_data LIKE TABLE OF ty_data.SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS: s_bukrs FOR ekpo-bukrs DEFAULT '8000',s_matnr FOR ekpo-matnr,s_werks FOR ekpo-werks.
PARAMETERS: p_mtart LIKE mara-mtart DEFAULT 'Z400'.
SELECTION-SCREEN END OF BLOCK b1.AT SELECTION-SCREEN OUTPUT.AT SELECTION-SCREEN.INITIALIZATION.START-OF-SELECTION.PERFORM frm_get_data.END-OF-SELECTION.PERFORM alv_display.*&**========================================================================
*&* 事件
*&**========================================================================
CLASS cl_event_receiver DEFINITION.PUBLIC SECTION.METHODS:handle_top_of_page FOR EVENT top_of_pageOF cl_gui_alv_grid IMPORTING e_dyndoc_id,
*Hotspot click controlhandle_hotspot_clickFOR EVENT hotspot_click OF cl_gui_alv_gridIMPORTING e_row_id e_column_id es_row_no,handle_double_clickFOR EVENT double_click OF cl_gui_alv_gridIMPORTING e_row e_column es_row_no sender,handle_toolbarFOR EVENT toolbar OF cl_gui_alv_gridIMPORTING e_object e_interactive sender,handle_before_user_commandFOR EVENT before_user_command OF cl_gui_alv_gridIMPORTING e_ucomm sender,handle_user_commandFOR EVENT user_command OF cl_gui_alv_gridIMPORTING e_ucomm sender,handle_data_changedFOR EVENT data_changed OF cl_gui_alv_gridIMPORTING er_data_changed sender,handle_data_changed_finishedFOR EVENT data_changed_finished OF cl_gui_alv_gridIMPORTING e_modified et_good_cells sender.PRIVATE SECTION.* This flag is set if any error occured in one of the
* following methods:DATA: error_in_data TYPE c.ENDCLASS. "CL_event_receiver DEFINITION**------实现事件---------------------------------------------------
CLASS cl_event_receiver IMPLEMENTATION.METHOD handle_top_of_page.
*    perform frm_top_of_page  using e_dyndoc_id.ENDMETHOD.                    "handle_top_of_pageMETHOD handle_hotspot_click .
*    perform frm_handle_hotspot_click using e_row_id e_column_id es_row_no.ENDMETHOD .                    "handle_hotspot_clickMETHOD handle_double_click.
*    PERFORM frm_handle_double_click USING e_row e_column es_row_no sender.ENDMETHOD.                    "HANDLE_DOUBLE_CLICKMETHOD handle_toolbar.ENDMETHOD.                    "handle_toolbarMETHOD handle_before_user_command.ENDMETHOD.                    "handle_before_user_commandMETHOD handle_user_command.ENDMETHOD.                           "handle_user_commandMETHOD handle_data_changed.ENDMETHOD.                    "handle_data_changedMETHOD   handle_data_changed_finished.DATA: ls_data LIKE ty_data.DATA: ls_stable TYPE lvc_s_stbl.DATA: ls_modi TYPE lvc_s_modi.BREAK-POINT.error_in_data = space.READ TABLE et_good_cells INTO ls_modi INDEX 1.IF ls_modi-fieldname = 'SEL'.READ TABLE gt_data INTO ls_data INDEX ls_modi-row_id.MODIFY gt_data FROM ls_data TRANSPORTING sel WHERE ebeln = ls_data-ebeln."刷新内表ls_stable-row = 'X'.ls_stable-col = 'X'.CALL METHOD g_grid->refresh_table_displayEXPORTINGis_stable = ls_stable.ENDIF.ENDMETHOD.                    "HANDLE_DATA_CHANGED_FINISHEDENDCLASS. "CL_event_receiver IMPLEMENTATION*&---------------------------------------------------------------------*
*&      Form  FRM_GET_DATA
*&---------------------------------------------------------------------*
*      获取 主数据
*----------------------------------------------------------------------*
FORM frm_get_data .FIELD-SYMBOLS <fs> LIKE ty_data.DATA: l_new_flag TYPE c,ls_stytle  TYPE lvc_s_styl.SELECT *INTO CORRESPONDING FIELDS OF TABLE gt_dataFROM ekpoWHERE bukrs IN s_bukrsAND matnr IN s_matnrAND werks IN s_werks.SORT gt_data BY ebeln ebelp ."2.3LOOP AT gt_data ASSIGNING <fs>.AT NEW ebeln.l_new_flag = 'X'.ENDAT.IF l_new_flag = 'X'.CLEAR <fs>-stytle.ls_stytle-fieldname = 'SEL'.ls_stytle-style = cl_gui_alv_grid=>mc_style_enabled.INSERT ls_stytle INTO TABLE <fs>-stytle.CLEAR: l_new_flag.ELSE.CLEAR <fs>-stytle.ls_stytle-fieldname = 'SEL'.ls_stytle-style = cl_gui_alv_grid=>mc_style_disabled.INSERT ls_stytle INTO TABLE <fs>-stytle.ENDIF.ENDLOOP.ENDFORM.FORM alv_display .PERFORM alv_build_fieldcat .gs_layout-cwidth_opt = abap_true.     "优化列宽设置gs_layout-no_toolbar = 'X'.gs_layout-stylefname = 'STYTLE'.      "2.2"3.3gt_event-name = 'CALLER_EXIT'.          "CALLER_EXIT 不能改变gt_event-form = 'FRM_CHANGED_FINISHED'.APPEND gt_event .CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'EXPORTINGi_callback_program       = sy-repidi_callback_pf_status_set = 'ALV_GUI_STATUS'i_callback_user_command  = 'ALV_USER_COMMAND'it_events                = gt_event[]is_layout_lvc            = gs_layoutit_fieldcat_lvc          = gt_fieldcatTABLESt_outtab                 = gt_dataEXCEPTIONSprogram_error            = 1OTHERS                   = 2.IF sy-subrc <> 0.MESSAGE e001(00) WITH '系统错误' space space space.ENDIF.ENDFORM.FORM alv_gui_status USING fu_extab TYPE slis_t_extab.SET PF-STATUS 'GUI_1000'.
ENDFORM.FORM alv_user_command USING fu_ucomm LIKE sy-ucommfu_selfield TYPE slis_selfield.DATA:ls_stable LIKE lvc_s_stbl.* 1.3 刷新內表CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'IMPORTINGe_grid = g_grid.CALL METHOD g_grid->check_changed_data.CASE fu_ucomm.WHEN 'POST'.CLEAR:fu_ucomm.WHEN 'CHECK'.CLEAR:fu_ucomm.ENDCASE.*&**重新设置ALV显示布局CALL METHOD g_grid->set_frontend_layoutEXPORTINGis_layout = gs_layout.
*&**刷新显示数据 row col 为X刷新后保持位置不变ls_stable-row = 'X'.ls_stable-col = 'X'.CALL METHOD g_grid->refresh_table_displayEXPORTINGis_stable = ls_stable.fu_selfield-refresh    = 'X'.fu_selfield-row_stable = 'X'.fu_selfield-col_stable = 'X'.
ENDFORM.FORM alv_build_fieldcat .DATA: ls_fieldcat TYPE lvc_s_fcat.DEFINE set_fieldcatalog.CLEAR ls_fieldcat.ls_fieldcat-col_pos      = &1.      "列位置ls_fieldcat-edit         = &2.      "可编辑ls_fieldcat-just         = &3.      "对齐方式ls_fieldcat-ref_table    = &4.      "引用表ls_fieldcat-ref_field    = &5.      "引用字段ls_fieldcat-fieldname    = &6.      "要显示的字段ls_fieldcat-coltext      = &7.      "字段名IF ls_fieldcat-fieldname = 'SEL'.   "1.2ls_fieldcat-checkbox = 'X'.ENDIF.APPEND ls_fieldcat TO gt_fieldcat.END-OF-DEFINITION.set_fieldcatalog:1 'X ' 'L'  ' ' ' ' 'SEL'  '选择',1 ' ' 'L'  ' ' ' ' 'EBELN'  '采购订单',1 ' ' 'L'  ' ' ' ' 'EBELP'  '采购订单项目',1 ' ' 'L'  ' ' ' ' 'BUKRS'  '公司代码',1 ' ' 'L'  ' ' ' ' 'WERKS'  '工厂',1 ' ' 'L'  ' ' ' ' 'LGORT'  '库位',1 ' ' 'L'  ' ' ' ' 'MATNR'  '物料编码',1 ' ' 'L'  ' ' ' ' 'LOEKZ'  '删除标识',1 ' ' 'L'  ' ' ' ' 'MENGE'  '数量',1 ' ' 'L'  ' ' ' ' 'MEINS'  '单位',1 ' ' 'L'  ' ' ' ' 'NETWR'  '净值'.ENDFORM.FORM FRM_CHANGED_FINISHED USING e_grid TYPE slis_data_caller_exit.CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'IMPORTINGe_grid = g_grid.* 设置enter事件CALL METHOD g_grid->register_edit_eventEXPORTINGi_event_id = cl_gui_alv_grid=>mc_evt_enter.CALL METHOD g_grid->register_edit_eventEXPORTINGi_event_id = cl_gui_alv_grid=>mc_evt_modified.CREATE OBJECT event_receiver.SET HANDLER   event_receiver->handle_data_changed_finished FOR g_grid.
ENDFORM.                    "FRM_CHANGED_FINISHED