Hello,这里是百里,一个学习中的ABAPER, 本栏目记录工作生活中遇到的问题,bug,知识积累等内容. 今天我们要研究的是,ABAP中的事件内容,ALV_CHANGE_DATA 和 ALV_CHANGE_DATA_FINISHED 的应用场景.

序

在ABAP开发中,会经常遇到事件,比如相同单号自动选择, 料号内容自动完善,光标移开保存数据等等等,ABAP的OOALV开发中也提供了大量的事件处理函数.比如,选择帮助,光标事件,回车事件,按键等等,这里不详细介绍,只是针对.两个change_Data 和finished 两块做比较 .

ALV_data_changed

在ALV中若需要用户交互输入数据，则数据的输入后可能需要做检查或者其他联动设备，则需要alv中进行回车操作，或者在被修改的单元格失去焦点的时候，能够触发事件，以便程序可以对变化的结果信息做详细的分析，或者做处理。
这个时候就需要使用ALV_data_changed .

实例

在ALV func函数中 需要在it_events 中增加对应 事件内容
其中,MOVE 'DATA_CHANGED'     TO gs_event-name.  MOVE 'ALV_DATA_CHANGED' TO gs_event-form.
分别对应的事件名称和事件子例程.

............
FORM call_alv_func .  
  DATA :gt_event TYPE slis_t_event,  
        gs_event TYPE slis_alv_event.
 MOVE 'DATA_CHANGED'     TO gs_event-name.  
 MOVE 'ALV_DATA_CHANGED' TO gs_event-form.  
 APPEND gs_event TO gt_event.
 gs_glay-edt_cll_cb = abap_true.     " 选中复选款，立刻触发data changed 事件  
  
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'  
    EXPORTING  
      i_callback_program       = sy-repid           "回调程序  
      i_callback_pf_status_set = 'SET_PF_STATUS'  
      i_callback_user_command  = 'USER_COMMAND'  
      i_grid_settings          = gs_glay  
      is_layout_lvc            = wa_layout  
      it_fieldcat_lvc          = gt_fieldcat        "需要显示的内表的列  
      i_save                   = 'A'  
      it_events                = gt_event  
    TABLES  
      t_outtab                 = gt_alv         "需要显示的数据  
    EXCEPTIONS  
      program_error            = 1  
      OTHERS                   = 2.  
  IF sy-subrc <> 0.  
  ENDIF.
ENDFORM. 
FORM alv_data_changed USING pcl_data TYPE REF TO cl_alv_changed_data_protocol.  
  DATA:  
        l_name(100),  
  ls_cells TYPE lvc_s_modi.  
  
  
  FIELD-SYMBOLS: <f_field> TYPE any .  
  LOOP AT pcl_data->mt_mod_cells INTO ls_cells.  
    READ TABLE gt_alv    INTO  gs_alv   INDEX ls_cells-row_id.  
    ASSIGN COMPONENT ls_cells-fieldname OF STRUCTURE gs_alv   TO <f_field>.  
    <f_field> = ls_cells-value.  
    MESSAGE '数据变动'  && <f_field> TYPE  'S' .  
    i_flag = 'X' .  
   " gs_DAta-SLBOX = <f_field>.  
 "   MODIFY gt_DAta FROM gs_DAta TRANSPORTING SLBOX WHERE DELIVERY = gs_DAta-DELIVERY.  
    CLEAR gs_alv  . 
  ENDLOOP.  
  DATA: ls_stbl TYPE lvc_s_stbl.  
  
 PERFORM refresh_alv  .  
ENDFORM.

注意: 使用alv_data_changed 时,这个事件时间是在操作时就触发的,内表会当即发生变化.而且使用该事件时一定要更新刷新alv事件 .

DATA_CHANGED_FINISHED

使用该函数时,需要在data 数据准备的地方注册定义屏幕类并注册对应的事件 ,其次是该事件是在处理完毕后修改对应内表数据. 在前面讲的 alv_Data_changed 后面,
在类中定义一个专门用户捕获和处理alv 的 data_changed事件的方法，并编写相应的代码。
在事件回调代码中进行绑定，绑定时需要alv对象,
绑定之后，该alv就可以相应data_changed事件
提高了联动的效果。

实例

........数据准备
" 屏幕函数  
CLASS lcl_event_receiver  DEFINITION .  "定义类 捕捉各种事件  
  PUBLIC SECTION .  
**   搜索帮助  
*    METHODS handle_onf4 FOR EVENT onf4 OF cl_gui_alv_grid  
*      IMPORTING e_fieldname es_row_no er_event_data.  
*   数据改变事件  
    METHODS handle_data_changed_finished  FOR EVENT data_changed_finished OF cl_gui_alv_grid  
      IMPORTING e_modified et_good_cells.  
  
ENDCLASS .                     "LCL_EVENT_RECEIVER DEFINITION  
DATA:  
  g_event_receiver TYPE  REF  TO lcl_event_receiver,  
  g_grid           TYPE  REF  TO cl_gui_alv_grid.  
  
  
CLASS lcl_event_receiver  IMPLEMENTATION .  "实现类 处理事件  
** 界面修改事件  
*  METHOD handle_onf4  .  
**   编辑供应商搜索帮助  
*    PERFORM frm_f4_lifnr USING e_fieldname es_row_no er_event_data.  
**    M_REFRESH_GRID V_GRID21.  
*  ENDMETHOD .                     "HANDLE_MODIFY  
  
  METHOD handle_data_changed_finished.  
    CHECK sy-ucomm <> 'BACK'.  
    CHECK e_modified = 'X'.   "ALV OO中修改数据  
  
*   数据改变  
    PERFORM frm_data_changed  
      USING et_good_cells."系统中的被修改单元格的数据  
  
*    PERFORM FRM_REFRESH_ALV.  
  ENDMETHOD.                    "handle_data_changed_finished  
  
ENDCLASS .                     "LCL_EVENT_RECEIVER IMPLEMENTATION
*选择屏幕 

*INITIALIZATION .


*子例程
FORM frm_data_changed  USING ft_good_cells TYPE lvc_t_modi.  
  
  
  LOOP AT ft_good_cells INTO DATA(lw_cell).  
  
    READ TABLE gt_alv ASSIGNING FIELD-SYMBOL(<lfs_alv>) INDEX lw_cell-row_id.  
  
    IF sy-subrc = 0.  
  
      CASE lw_cell-fieldname.  
        WHEN 'ZNAME' .  
           IF i_flag <> 'X'.  
              MESSAGE '按了回车'  && lw_cell-value  && '行' TYPE 'S' .  
           ENDIF.  
  
  
  
          IF lw_cell-value IS INITIAL.  
            "  select SINGLE  zkhic  from  @gt_alv  as a where  index =   @lw_cell-row_id  into  @data(ls_zkhic) .  
            "   SELECT SINGLE matnr FROM zmmtmara AS a   WHERE zkhic   = @<lfs_alv>-zkhic  INTO  @DATA(ls_matnr)  .  
  
            "  
            "  <lfs_alv>-zmatnr =  ls_matnr .  
  
  
          ENDIF.
          WHEN OTHERS.  
          RETURN.  
      ENDCASE.  
    ENDIF.  
  ENDLOOP.  
  
  " PERFORM frm_refresh_alv.  
ENDFORM.
........
FORM call_alv_func .  
  DATA :gt_event TYPE slis_t_event,  
        gs_event TYPE slis_alv_event.  
  
 gs_event-name  =  'CALLER_EXIT' .  
  gs_event-form  =  'FRM_CALLER_EXIT' .  
  APPEND gs_event TO gt_event.
............
FORM frm_caller_exit  USING e_grid  TYPE slis_data_caller_exit .  
  DATA:lt_f4 TYPE  lvc_t_f4,  
       ls_f4 TYPE  lvc_s_f4.  
  DATA:  
    lw_f4 TYPE lvc_s_f4.  
  "  lt_f4 TYPE lvc_t_f4.  
  
  CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'  
    IMPORTING  
      e_grid = g_grid.  
  
  CALL METHOD g_grid->register_edit_event      "注册GRID事件  
    EXPORTING  
      i_event_id = cl_gui_alv_grid=>mc_evt_enter "事件：回车  
    EXCEPTIONS  
      error      = 1  
      OTHERS     = 2.  
  
 " CALL METHOD g_grid->register_edit_event      "注册GRID事件  
"    EXPORTING  
"      i_event_id = cl_gui_alv_grid=>mc_evt_modified "事件：光标移动  
"    EXCEPTIONS  
"      error      = 1  
"      OTHERS     = 2.  
  
  CREATE OBJECT g_event_receiver.  
  SET  HANDLER g_event_receiver->handle_data_changed_finished  FOR g_grid .  
  
 ENDFORM .

注意: alv_data_changed也是事件类函数,需要lt_event 中增加对应内表. 并且需要注册对应的事件,使用该事件也必须后面跟带刷新函数,否则无法生效. 该函数使用场景主要为,修改料号, 选择帮助,权限检查,下拉列表等.

总结

以上就为data_changed 和data_change_finished 的使用方式, 主要还是对应的事件应用实例.
在工作中熟练使用对应的事件注册函数可以帮用户极大的解决需求,如系统不带的选择帮助,默认值,缺省值等等.

勤能补拙是良训,一分辛苦一分才. 今天的不开心就到此为止吧~ 这里是百里,一个努力学习者 .