ALV DataChange 事件

最新推荐文章于 2024-05-13 11:36:56 发布

JY_L

最新推荐文章于 2024-05-13 11:36:56 发布

阅读量1.6k

点赞数 2

分类专栏： ALV 文章标签： abap

本文链接：https://blog.csdn.net/meiyan0622/article/details/9199419

版权

ALV 专栏收录该内容

2 篇文章 0 订阅

订阅专栏

（1）首先得在XXXC01里面定义一个事件。如：

CLASS lcl_event_receiver DEFINITION .

PUBLIC SECTION .
METHODS : handle_data_changed

FOR EVENT data_changed OF cl_gui_alv_grid

IMPORTING er_data_changed .

ENDCLASS .

（2）定义类之后得实现如：

CLASS lcl_event_receiver IMPLEMENTATION .
.
METHOD handle_user_command .

PERFORM handle_data_changed
USING er_data_changed.

ENDMETHOD.

ENDCLASS .

（3）设置完 data_changed事件之后必须得设置通过什么方式来触发有两种可以选择如下：

1. 通过按回车键触发

CALL METHOD po_alv_grid- >register_edit_event

EXPORTING
i_event_id = cl_gui_alv_grid => mc_evt_enter .

2. 通过单元格失去焦点触发

CALL METHOD

po_alv_grid ->register_edit_event

EXPORTING
i_event_id = cl_gui_alv_grid => mc_evt_modified .

3. 设置全局编辑设置就是 LAYOUT编辑

CALL METHOD po_alv_grid ->set_ready_for_input

EXPORTING
i_ready_for_input = 1 .

（4）为了获取ALV里字段修改的一些信息，DATA_CHANGED事件会把参考CL_ALV_CHANGED_DATA_PROTOCOL创建的实列通过参数 ER_DATA_CHANGED 传递给 ALV，通过这个参数可以知道哪些单元格被修改了，修改了什么值。

（5）实现第（2）步骤中调用的子程序。

FORM handle_data_changed   USING
        p_er_data_changed TYPE REF TO cl_alv_changed_data_protocol.

”声明 LVC_S_MODI 类型的数据对象。（结构类型）
DATA:  ls_lvc_modi TYPE lvc_s_modi.

”声明 LVC_T_MODI 类型的数据对象。（表类型）
DATA: mod_data TYPE lvc_t_modi.

”调用方法 mt_mod_cells 来获取改变数据的信息（获取的为表类型）
mod_data =

p_er_data_changed ->mt_mod_cells .
” 调用方法 mt_mod_cells 来获取改变数据的信息循环获取的表
LOOP AT p_er_data_changed ->mt_mod_cells INTO ls_lvc_modi .

” 读取修改单元格所在的行（读取的是内表）

READ TABLE gt_list INDEX ls_lvc_modi -row_id .

” 如果读取成功并且标志不是创建行的标志

IF sy -subrc = 0 AND gt_list -ind <> gc_c .

” 设置该行的标志为数据更新的标志
      gt_list -ind = gc_u .
      gt_c_boolean = 'x' .
     ENDIF .
   ENDLOOP .

” 读取修改行的信息表的 price字段的值
   LOOP AT mod_data INTO wa_mod_data WHERE fieldname = 'PRICE' .

     DATA lv_price TYPE sflight -price .

” 如果修改的值大于500 则增加日志记录。并弹出错误消息
     IF wa_mod_data - value > 500 .
       CALL METHOD p_er_data_changed ->add_protocol_entry
         EXPORTING
          i_msgid      = '00'
          i_msgty      = 'E'
          i_msgno      = '001'
          i_msgv1      = '长度不能大于500'
          i_fieldname = wa_mod_data -fieldname .
     ELSE .

" 调用方法获取单元格的值
       CALL METHOD p_er_data_changed ->get_cell_value
         EXPORTING
          i_row_id     = wa_mod_data -row_id
          i_fieldname = 'PRICE'
         IMPORTING
          e_value      = lv_price .
“ 修改内表的值
      gt_list -price = lv_price .
       MODIFY gt_list INDEX wa_mod_data -row_id .
     ENDIF .
   ENDLOOP .
ENDFORM .

（5）创建事件的实列如下：

DATA event_receiver TYPE REF TO lcl_event_receiver .

CREATE OBJECT event_receiver .
SET HANDLER event_receiver

->handle_user_command FOR po_alv_grid (ALV的一个实列）