ABAP ALV檢查單元格更新數據
將ALV單元格設置為可輸入后,通常我們需要對單元格輸入的值做一個檢查,一般來說用循環內表的方法可以實現上述操作,不過如果ALV中有大量數據,而我們只更新了少量的單元格數據,這樣檢查顯得非常的麻煩,而且效率低下
在ALV OO中我們可以通過DATA_CHANGE事件得到被修改的單元格的信息,利用這些信息我們可以很方便的對所填數據做檢查,別且可以給用戶相應的錯誤提示,以及自動修改單元格數據
1. 我們需要在處理事件的類中添加一個處理DATA_CHANGE事件的方法
Eg:
CLASS lcl_alv_receiver DEFINITION DEFERRED.
CLASS lcl_alv_receiver DEFINITION.
PUBLIC SECTION.
……..
METHODS:
handle_data_changed
FOR EVENT data_changed OF cl_gui_alv_grid
IMPORTING er_data_changed e_onf4 e_onf4_before e_onf4_after e_ucomm.
ENDCLASS. "lcl_event_receiver DEFINITION
2. 初始化ALV后為lcl_alv_receiver類注冊一個DATA_CHANGED事件
Eg:
CALL METHOD g_grid->set_table_for_first_display
EXPORTING
i_save = x_save
is_variant = ls_layout
is_layout = is_layout
CHANGING
it_fieldcatalog = it_fieldcat
it_outtab = lt_zqsdmx[].
SET HANDLER g_alv_application->handle_data_changed FOR g_grid.
CALL METHOD g_grid->register_edit_event “注冊更新事件
EXPORTING
i_event_id = cl_gui_alv_grid=>mc_evt_enter .
其中i_event_id = cl_gui_alv_grid=>mc_evt_enter 表示在單元格修改后回車或者執行其他操作時觸發事件,此類型可用於多個單元格修改后一起檢查修改的值
i_event_id = cl_gui_alv_grid=>mc_evt_modified 表示單光標焦點移開被修改單元格后既觸發事件,此類型可用於每個每個單元個的實時更新檢查
3.實現lcl_alv_receiver類的handle_data_changed方法,其中一些常用的一些屬性方法我會在后附表列出
Eg:
CLASS lcl_alv_receiver IMPLEMENTATION.
METHOD handle_toolbar.
METHOD handle_data_changed.
PERFORM. handle_data_changed USING er_data_changed.
ENDMETHOD. "handle_data_changed
ENDCLASS. "lcl_ALV_event_receiver
*&---------------------------------------------------------------------*
*& Form handle_data_changed
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_ER_DATA_CHANGED text
*----------------------------------------------------------------------*
FORM. handle_data_changed USING p_er_data_changed TYPE REF TO cl_alv_changed_data_protocol.
*如果更新的reason字段長度小於10為則提示用戶填入字符數不能低於10
DATA:mod_data TYPE lvc_t_modi,
wa_mod_data TYPE lvc_s_modi.
mod_data = p_er_data_changed->mt_mod_cells.
LOOP AT mod_data INTO wa_mod_data WHERE fieldname = 'ZRESON'.
IF STRLEN( wa_mod_data-value ) < 10.
CALL METHOD p_er_data_changed->add_protocol_entry
EXPORTING
i_msgid = '00'
i_msgty = 'E'
i_msgno = '001'
i_msgv1 = '長度必須大於10 '
i_fieldname = wa_mod_data-fieldname.
*如果長度小於10,則將字段內容更新為長都無法確定
CALL METHOD p_er_data_changed->modify_cell
EXPORTING
i_row_id = wa_mod_data-row_id
i_fieldname = wa_mod_data-fieldname.
ENDIF.
ENDLOOP.
ENDFORM. " handle_data_changed
轉自:http://space.itpub.net/?uid-166523-action-viewspace-itemid-410217