1. 定義和注冊事件接受器類 *----------------------------------------------------------------------* *???????CLASS?LCL_EVENT_RECEIVER?DEFINITION?DEFERRED *----------------------------------------------------------------------* *???????LCL_EVENT_RECEIVER *----------------------------------------------------------------------* CLASS?lcl_event_receiver?DEFINITION?DEFERRED. DATA?gv_flg??TYPE?char01.*----------------------------------------------------------------------* *???????CLASS?LCL_EVENT_RECEIVER?DEFINITION *----------------------------------------------------------------------* *???????lcl_event_receiver的類定義： *----------------------------------------------------------------------* CLASS?lcl_event_receiver?DEFINITION.PUBLIC?SECTION.METHODS:handle_modifyFOR?EVENT?data_changed_finished?OF?cl_gui_alv_gridIMPORTING?e_modifiedet_good_cells.METHODS:handle_f4FOR?EVENT?onf4?OF?cl_gui_alv_gridIMPORTING?e_fieldnamees_row_noer_event_dataet_bad_cells.ENDCLASS.????????????????????"LCL_EVENT_RECEIVER?DEFINITION*----------------------------------------------------------------------* *???????CLASS?LCL_EVENT_RECEIVER?IMPLEMENTATION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS?lcl_event_receiver?IMPLEMENTATION.METHOD??handle_modify.DATA:?lv_enter????TYPE?REF?TO?cl_gui_event,lv_eventid??TYPE?i.*???獲取當前事件lv_enter???=?tem_grid->cur_event.*???實例化成功的時候IF?lv_enter?IS?NOT?INITIAL.lv_eventid?=?lv_enter->eventid.ENDIF.*???只有在[回車]事件的時候，再進行檢查(19:代表回車事件)IF?lv_eventid?=?19AND?sy-ucomm???=?''.IF?p_mmvds?=?'X'. *???????設置供應商描述字段和物料描述字段PERFORM?set_name1_maktx.*???????設置后，alv穩定刷新PERFORM?refresh_table_alv.*???????添加行項目檢查（多頻次包裝基礎表）PERFORM?check_line_mmvds.ELSEIF?p_detail?=?'X'. *???????添加行項目檢查（窗口時間表）PERFORM?check_line_dtdetail.ELSEIF?p_vds?=?'X'. *???????設置供應商描述字段（供應商供貨信息基礎表）PERFORM?set_name1_vds.*???????設置后，alv穩定刷新PERFORM?refresh_table_alv.*???????添加行項目檢查（供應商供貨信息基礎表）PERFORM?check_line_vds.ENDIF.ENDIF.*???設置后，alv穩定刷新PERFORM?refresh_table_alv.ENDMETHOD.????????????????????"HANDLE_MODIFYMETHOD??handle_f4. *???供應商供貨信息基礎表的情況IF?p_vds?=?'X'. *?????窗口時間參數的自定義f4檢索幫助PERFORM?f4_help_zsjcs?USING?e_fieldnamees_row_no.*?????設置后，alv穩定刷新PERFORM?refresh_table_alv.ENDIF.ENDMETHOD.????????????????????"HANDLE_F4ENDCLASS.????????????????????"LCL_EVENT_RECEIVER?IMPLEMENTATION ? ? 2. 調用alv函數 ? **EVENT?LAYOUTDATA:?ls_events?????TYPE?slis_alv_event,lt_event??????TYPE?slis_t_event,ls_layout?????TYPE?lvc_s_layo.ls_events-name?=?'CALLER_EXIT'.ls_events-form?=?'FM_BUTTON'.APPEND?ls_events?TO?lt_event.ls_layout-stylefname?=?'FIELD_STYL'.ls_layout-zebra??????=?'X'.ls_layout-box_fname??=?'CHK_BOX'.ls_layout-cwidth_opt?=?'X'.CALL?FUNCTION?'REUSE_ALV_GRID_DISPLAY_LVC'EXPORTINGi_callback_program???????=?sy-repidi_callback_pf_status_set?=?'PF_STATUS_SET'i_callback_user_command??=?'USER_COMMAND'is_layout_lvc????????????=?ls_layoutit_fieldcat_lvc??????????=?gt_fieldcat_lvci_save???????????????????=?'X'it_events????????????????=?lt_eventTABLESt_outtab?????????????????=?pt_outdataEXCEPTIONSprogram_error????????????=?1OTHERS???????????????????=?2. ? ? ? ? ? ? 3. 定義是事件子程序 *&---------------------------------------------------------------------* *&??????Form??FM_BUTTON *&---------------------------------------------------------------------* *???????設置enter事件 *----------------------------------------------------------------------* *??????-->E_GRID?????text *----------------------------------------------------------------------* FORM?fm_button?USING?e_grid?TYPE?slis_data_caller_exit.DATA:?lv_event_receiver?TYPE?REF?TO?lcl_event_receiver,lt_f4?????????????TYPE?lvc_t_f4,ls_f4?????????????TYPE?lvc_s_f4.CALL?FUNCTION?'GET_GLOBALS_FROM_SLVC_FULLSCR'IMPORTINGe_grid?=?tem_grid.*?設置enter事件CALL?METHOD?tem_grid->register_edit_eventEXPORTINGi_event_id?=?cl_gui_alv_grid=>mc_evt_enterEXCEPTIONSerror??????=?1OTHERS?????=?2.CREATE?OBJECT?lv_event_receiver.SET?HANDLER?lv_event_receiver->handle_modify?FOR?tem_grid.*?設置f4事件CHECK?gv_flg?IS?INITIAL.gv_flg?=?'X'.ls_f4-fieldname??=?'ZSJCS'.???"窗口時間參數（需要定義F4幫助按鈕的字段）ls_f4-register???=?'X'.ls_f4-getbefore??=?'X'.ls_f4-chngeafter?=?'X'.INSERT?ls_f4?INTO?TABLE?lt_f4.CREATE?OBJECT?lv_event_receiver.SET?HANDLER?lv_event_receiver->handle_f4?FOR?tem_grid.CALL?METHOD?tem_grid->register_f4_for_fieldsEXPORTINGit_f4?=?lt_f4[].ENDFORM.????????????????????"FM_BUTTON ? 4. 定義alv-status子程序 ? *&---------------------------------------------------------------------* *&??????Form??PF_STATUS_SET *&---------------------------------------------------------------------* *???????status設定 *----------------------------------------------------------------------* *??????-->RT_EXTAB???text *----------------------------------------------------------------------* FORM?pf_status_set?USING?rt_extab?TYPE?slis_t_extab.SET?PF-STATUS?'STATUS_ALV'.ENDFORM.????????????????????"PF_STATUS_SET ? ? 5. 定義alv-comman子程序 ? *&---------------------------------------------------------------------* *&??????Form??USER_COMMAND *&---------------------------------------------------------------------* *???????USER?COMMMAND *----------------------------------------------------------------------* *??????-->P_UCOMM??????text *??????-->PS_SELFIELD??text *----------------------------------------------------------------------* FORM?user_command?USING?ucomm????LIKE?sy-ucommselfield?TYPE?slis_selfield.DATA?l_grid?TYPE?REF?TO?cl_gui_alv_grid. *------------將ALV上修改的內容保存到內表---------------------------------*CALL?FUNCTION?'GET_GLOBALS_FROM_SLVC_FULLSCR'IMPORTINGe_grid?=?l_grid.CALL?METHOD?l_grid->check_changed_data.CASE?ucomm. *???[行項目追加]按鈕WHEN?'CREATE'. *?????多頻次包裝基礎表IF?p_mmvds?=?'X'. *???????添加行項目（多頻次包裝基礎表）PERFORM?cteate_line_mmvds.*?????窗口時間基礎表ELSEIF?p_detail?=?'X'. *???????添加行項目（窗口時間基礎表）PERFORM?cteate_line_dtdetail.*?????供應商供貨信息基礎表ELSEIF?p_vds?=?'X'. *???????添加行項目（供應商供貨信息基礎表）PERFORM?cteate_line_vds.ENDIF.selfield-refresh?=?'X'. "將更新后內表的數據反饋到alv畫面，自動刷新功能*???[行項目刪除]按鈕WHEN?'DELETE'. *?????多頻次包裝基礎表IF?p_mmvds?=?'X'. *???????刪除行項目（多頻次包裝基礎表）PERFORM?delete_line_mmvds.*?????窗口時間基礎表ELSEIF?p_detail?=?'X'. *???????刪除行項目（窗口時間基礎表）PERFORM?delete_line_dtdetail.*?????供應商供貨信息基礎表ELSEIF?p_vds?=?'X'. *???????刪除行項目（供應商供貨信息基礎表）PERFORM?delete_line_vds.ENDIF.selfield-refresh?=?'X'. "將更新后內表的數據反饋到alv畫面，自動刷新功能*???[保存]按鈕WHEN?'SAVE'. *?????多頻次包裝基礎表IF?p_mmvds?=?'X'. *???????保存處理（多頻次包裝基礎表）PERFORM?save_data_mmvds.*?????窗口時間基礎表ELSEIF?p_detail?=?'X'. *???????保存處理（窗口時間基礎表）PERFORM?save_data_dtdetail.*?????供應商供貨信息基礎表ELSEIF?p_vds?=?'X'. *???????保存處理（供應商供貨信息基礎表）PERFORM?save_data_vds.ENDIF.ENDCASE.*------------將ALV上修改的內容保存到內表---------------------------------*CALL?FUNCTION?'GET_GLOBALS_FROM_SLVC_FULLSCR'IMPORTINGe_grid?=?l_grid.CALL?METHOD?l_grid->check_changed_data.ENDFORM.????????????????????"USER_COMMAND ? ? 6. 其他子程序定義 *&---------------------------------------------------------------------* *&??????Form??REFRESH_TABLE_ALV *&---------------------------------------------------------------------* *???????設置后，alv穩定刷新 *----------------------------------------------------------------------* FORM?refresh_table_alv?.DATA:?stbl????????TYPE?lvc_s_stbl. *stbl-row?=?'X'."?基于行的穩定刷新stbl-col?=?'X'."?基于列穩定刷新CALL?METHOD?tem_grid->refresh_table_displayEXPORTINGis_stable?=?stbl.ENDFORM.????????????????????"?REFRESH_TABLE_ALV *&---------------------------------------------------------------------* *&??????Form??F4_HELP_ZSJCS *&---------------------------------------------------------------------* *???????窗口時間參數的自定義f4檢索幫助 *----------------------------------------------------------------------* FORM?f4_help_zsjcs?USING?p_fieldname??TYPE?lvc_fnamep_row_no?????TYPE?lvc_s_roid.DATA:?lt_dtdetail?TYPE?STANDARD?TABLE?OF?ztpp_dtdetail,lt_return???TYPE?STANDARD?TABLE?OF?ddshretval,ls_return???TYPE?ddshretval.CLEAR?gw_vds.READ?TABLE?gt_vds?INTO?gw_vds?INDEX?p_row_no-row_id.IF?p_fieldname?=?'ZSJCS'.SELECT?*INTO?TABLE?lt_dtdetailFROM?ztpp_dtdetailWHERE?werks?=?gw_vds-werks.SORT?lt_dtdetail?BY?werks?zsjcs.DELETE?ADJACENT?DUPLICATES?FROM?lt_dtdetailCOMPARING?werks?zsjcs.ENDIF.CALL?FUNCTION?'F4IF_INT_TABLE_VALUE_REQUEST'EXPORTINGretfield?????????=?'ZSJCS'????????????"lt內表里面的字段dynpprog?????????=?sy-repiddynpnr???????????=?sy-dynnrdynprofield??????=?'ZSJCS'????????????"畫面上綁定字段value_org????????=?'S'callback_program?=?sy-repidTABLESvalue_tab????????=?lt_dtdetail????????"需要顯示幫助的值內表return_tab???????=?lt_return??????????"返回值EXCEPTIONSparameter_error??=?1no_values_found??=?2OTHERS???????????=?3.IF?sy-subrc?=?0.READ?TABLE?lt_return?INTO?ls_return?INDEX?1.gw_vds-zsjcs?=?ls_return-fieldval.MODIFY?gt_vds?FROM?gw_vds?INDEX?p_row_no-row_idTRANSPORTING?zsjcs.ENDIF.ENDFORM.????????????????????"?F4_HELP_ZSJCS 與50位技術專家面對面20年技術見證，附贈技術全景圖

總結

以上是生活随笔為你收集整理的SAP ABAP ALV（LVC）的一个自定义事件（F4帮助事件，回车ENTER按钮事件）的一个实例的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。