SAP ABAP ALV(LVC)的一个自定义事件(F4帮助事件,回车ENTER按钮事件)的一个实例
https://blog.csdn.net/zhongguomao/article/details/51775112
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_modify FOR EVENT data_changed_finished OF cl_gui_alv_grid IMPORTING e_modified et_good_cells. METHODS: handle_f4 FOR EVENT onf4 OF cl_gui_alv_grid IMPORTING e_fieldname es_row_no er_event_data et_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 = 19 AND 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_MODIFY METHOD handle_f4. * 供应商供货信息基础表的情况 IF p_vds = 'X'. * 窗口时间参数的自定义f4检索帮助 PERFORM f4_help_zsjcs USING e_fieldname es_row_no. * 设置后,alv稳定刷新 PERFORM refresh_table_alv. ENDIF. ENDMETHOD. "HANDLE_F4 ENDCLASS. "LCL_EVENT_RECEIVER IMPLEMENTATION
2. 调用alv函数
**EVENT LAYOUT DATA: 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' EXPORTING i_callback_program = sy-repid i_callback_pf_status_set = 'PF_STATUS_SET' i_callback_user_command = 'USER_COMMAND' is_layout_lvc = ls_layout it_fieldcat_lvc = gt_fieldcat_lvc i_save = 'X' it_events = lt_event TABLES t_outtab = pt_outdata EXCEPTIONS program_error = 1 OTHERS = 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' IMPORTING e_grid = tem_grid. * 设置enter事件 CALL METHOD tem_grid->register_edit_event EXPORTING i_event_id = cl_gui_alv_grid=>mc_evt_enter EXCEPTIONS error = 1 OTHERS = 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_fields EXPORTING it_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-ucomm selfield TYPE slis_selfield. DATA l_grid TYPE REF TO cl_gui_alv_grid. *------------将ALV上修改的内容保存到内表---------------------------------* CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR' IMPORTING e_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' IMPORTING e_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_display EXPORTING is_stable = stbl. ENDFORM. " REFRESH_TABLE_ALV *&---------------------------------------------------------------------* *& Form F4_HELP_ZSJCS *&---------------------------------------------------------------------* * 窗口时间参数的自定义f4检索帮助 *----------------------------------------------------------------------* FORM f4_help_zsjcs USING p_fieldname TYPE lvc_fname p_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_dtdetail FROM ztpp_dtdetail WHERE werks = gw_vds-werks. SORT lt_dtdetail BY werks zsjcs. DELETE ADJACENT DUPLICATES FROM lt_dtdetail COMPARING werks zsjcs. ENDIF. CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST' EXPORTING retfield = 'ZSJCS' "lt内表里面的字段 dynpprog = sy-repid dynpnr = sy-dynnr dynprofield = 'ZSJCS' "画面上绑定字段 value_org = 'S' callback_program = sy-repid TABLES value_tab = lt_dtdetail "需要显示帮助的值内表 return_tab = lt_return "返回值 EXCEPTIONS parameter_error = 1 no_values_found = 2 OTHERS = 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_id TRANSPORTING zsjcs. ENDIF. ENDFORM. " F4_HELP_ZSJCS
标签:function,OO,f4,PERFORM,alv,grid,ls,ALV,event From: https://www.cnblogs.com/wangzuoer/p/18125345