ALV通过F4事件，实现自定义搜索帮助F4

ALV通过参考可以直接获取表中搜索帮助，但是表中字段没有搜索帮助或者不合要求就需要通过F4事件完成了。

1、定义OOALV类

1. CLASS lcl_event_receiver DEFINITION DEFERRED.
   
2. 
   
3. DATA:gt_fieldcat   TYPE lvc_t_fcat,
   
4.      gs_fieldcat   TYPE lvc_s_fcat,
   
5.      go_grid       TYPE REF TO cl_gui_alv_grid,
   
6.      go_event_receiver    TYPE REF TO lcl_event_receiver.
   
7. 
   
8. *----------------------------------------------------------------------*
   
9. *       CLASS lcl_event_receiver DEFINITION
   
10. *----------------------------------------------------------------------*
    
11. CLASS lcl_event_receiver DEFINITION.
    
12.   PUBLIC SECTION.
    
13.     METHODS:
    
14.       handle_f4_help  FOR EVENT onf4 OF cl_gui_alv_grid
    
15.                          IMPORTING  e_fieldname
    
16.                                     es_row_no
    
17.                                     er_event_data
    
18.                                     et_bad_cells
    
19.                                     e_display.
    
20. 
    
21. ENDCLASS.                    "lcl_event_receiver DEFINITION
    
22. *----------------------------------------------------------------------*
    
23. *       CLASS lcl_event_receiver IMPLEMENTATION
    
24. *----------------------------------------------------------------------*
    
25. CLASS lcl_event_receiver IMPLEMENTATION.
    
26.   METHOD handle_f4_help.
    
27.     FIELD-SYMBOLS:<fs_alv> TYPE gs_alv.
    
28.     CASE e_fieldname.
    
29.       WHEN 'ARKTX'.
    
30.         READ TABLE git_alv ASSIGNING <fs_alv> INDEX es_row_no-row_id.
    
31.         IF sy-subrc = 0.
    
32.           PERFORM frm_get_arktx_f4 CHANGING <fs_alv>-arktx.
    
33.         ENDIF.
    
34. *      WHEN .
    
35.       WHEN OTHERS.
    
36.     ENDCASE.
    
37.     CALL METHOD go_grid->refresh_table_display.
    
38.   ENDMETHOD.
    
39. 
    
40. ENDCLASS.               "lcl_event_receiver

复制代码

2、定义alv-fieldcat属性

1. gs_fieldcat-f4availabl = 'X'.
   
2. gs_fieldcat-edit = 'X'.

复制代码

3、将F4事件注册到ALV对象中

1. DATA:lt_f4             TYPE lvc_t_f4,
   
2.      ls_f4             TYPE lvc_s_f4.
   
3. 
   
4. CALL METHOD go_grid->set_table_for_first_display
   
5.   EXPORTING
   
6.     it_toolbar_excluding = lt_exclude
   
7.   CHANGING
   
8.     it_fieldcatalog      = git_fieldcat
   
9.     it_outtab            = git_alv[].
   
10. 
    
11. 
    
12. CLEAR:ls_f4.
    
13. ls_f4-fieldname  = 'ARKTX'.
    
14. ls_f4-register   = 'X'.
    
15. ls_f4-getbefore  = 'X'.
    
16. ls_f4-chngeafter = ''.
    
17. ls_f4-internal   = ''.
    
18. INSERT ls_f4 INTO TABLE lt_f4.
    
19. 
    
20. CALL METHOD go_grid->register_f4_for_fields
    
21.   EXPORTING
    
22.     it_f4 = lt_f4.
    
23. 
    
24. CREATE OBJECT go_event_receiver.
    
25. SET HANDLER go_event_receiver->handle_f4_help FOR go_grid .

复制代码

4、自定义F4，获取数据

1. *&---------------------------------------------------------------------*
   
2. *&      Form  FRM_GET_ARKTX_F4
   
3. *&---------------------------------------------------------------------*
   
4. *       text
   
5. *----------------------------------------------------------------------*
   
6. *      <--P_<FS_ALV>_ARKTX  text
   
7. *----------------------------------------------------------------------*
   
8. FORM frm_get_arktx_f4  USING    pc_matnr TYPE vbrp-matnr
   
9.                        CHANGING pc_arktx TYPE zfit005-maktx.
   
10.   DATA:BEGIN OF lt_zfit029 OCCURS 0,
    
11.         sub_type_m TYPE zfit029-sub_type_m,
    
12.         sub_name_m TYPE zfit029-sub_name_m,
    
13.       END OF lt_zfit029.
    
14.   DATA:lt_ret_tab TYPE TABLE OF ddshretval WITH HEADER LINE.
    
15.   DATA:lv_matnr TYPE zfit028-matnr.
    
16. 
    
17.   lv_matnr = pc_matnr.
    
18. 
    
19.   SELECT sub_type_m
    
20.          sub_name_m
    
21.   INTO TABLE lt_zfit029
    
22.   FROM zfit028
    
23.   INNER JOIN zfit029 ON zfit028~type_m = zfit029~type_m
    
24.   WHERE zfit028~matnr = lv_matnr.
    
25. 
    
26.   CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    
27.     EXPORTING
    
28.       retfield        = 'SUB_NAME_M'
    
29.       value_org       = 'S'
    
30.     TABLES
    
31.       value_tab       = lt_zfit029
    
32.       return_tab      = lt_ret_tab
    
33.     EXCEPTIONS
    
34.       parameter_error = 1
    
35.       no_values_found = 2
    
36.       OTHERS          = 3.
    
37.   IF sy-subrc = 0.
    
38.     READ TABLE lt_ret_tab INDEX 1.
    
39.     IF sy-subrc = 0  AND lt_ret_tab-fieldval IS NOT INITIAL.
    
40.       pc_arktx = lt_ret_tab-fieldval.
    
41.     ENDIF.
    
42.   ENDIF.
    
43. 
    
44. ENDFORM.                    " FRM_GET_ARKTX_F4

复制代码

5、效果

很有帮助！

写得好！！！