ABAP ALV檢查單元格更新數據


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


免責聲明!

本站轉載的文章為個人學習借鑒使用,本站對版權不負任何法律責任。如果侵犯了您的隱私權益,請聯系本站郵箱yoyou2525@163.com刪除。



 
粵ICP備18138465號   © 2018-2025 CODEPRJ.COM