使用exit函数，实现Search help的增强

1、se11创建一个Elementary srch hlp

执行时，只能实现单值的搜索选择

2、我们需要创建Search Help Exit函数，可以参考系统标准的F4IF_SHLP_EXIT_EXAMPLE搜索帮助接口函数
1）se37，创建自定义函数


Changing:
SHLP 搜索帮助描述
CALLCONTROL 具有搜索帮助出口的 F4 处理控制结构
Tables:
SHLP_TAB 替代基本搜索帮助的清单
RECORD_TAB 搜索帮助的结果结构
2）函数source code

1. DATA:type_info LIKE dfies.
   
2. 
   
3.    callcontrol-no_maxdisp = 'X'.
   
4. 
   
5.    IF callcontrol-step EQ 'SELECT'.
   
6.      callcontrol-step = 'DISP'.
   
7.    ENDIF.
   
8. 
   
9.    CHECK: callcontrol-step EQ 'DISP'.
   
10. 
    
11.    CALL FUNCTION 'TABCONTROL_VISIBLE'
    
12.      EXPORTING
    
13.        visible = 'F'
    
14.        tab_id  = 1.
    
15. 
    
16.    SUBMIT YLEON_002 VIA SELECTION-SCREEN AND RETURN."YLEON_002下面代码的程序名
    
17.    IMPORT record_tab TO record_tab  FROM MEMORY ID 'REC1'.
    
18. 
    
19.    READ TABLE shlp-fielddescr INDEX 1 INTO type_info.
    
20.    type_info-leng = 18.
    
21.    CLEAR type_info-offset .
    
22.    MODIFY shlp-fielddescr INDEX 1 FROM type_info
    
23.                           TRANSPORTING leng offset.
    
24. 
    
25.    callcontrol-step = 'RETURN'.

复制代码

将新建的函数保存激活，然后将函数名填到Search Help Exit

3、创建程序，代码如下：

1. TABLES: mara,makt.
   
2. TYPE-POOLS: slis.
   
3. DATA:   gs_fcat   TYPE  slis_fieldcat_ALV  ,
   
4.          gt_fcat   TYPE STANDARD TABLE OF slis_fieldcat_alv   ,
   
5.          gs_layout TYPE slis_layout_alv   .
   
6. 
   
7. DATA: record_tab TYPE STANDARD TABLE OF seahlpres,
   
8.        gs_record  TYPE seahlpres.
   
9. 
   
10. DATA:BEGIN OF gs_output,
    
11.         matnr TYPE matnr,
    
12.         brand_id TYPE mara-brand_id,
    
13.         saiso TYPE mara-saiso,
    
14.         saisj TYPE mara-saisj,
    
15.         saity TYPE mara-saity,
    
16.         maktx TYPE makt-maktx,
    
17.         chk TYPE c,
    
18.        END OF gs_output,
    
19.        gt_output LIKE STANDARD TABLE OF gs_output.
    
20. 
    
21. SELECT-OPTIONS:matkl FOR mara-matkl matchcode object wwg1,
    
22.                 brand  FOR mara-brand_id,
    
23.                 saiso  FOR mara-saiso NO INTERVALS NO-EXTENSION,
    
24.                 saisj  FOR mara-saisj NO INTERVALS NO-EXTENSION,
    
25.                 saity  FOR mara-saity NO INTERVALS NO-EXTENSION.
    
26. 
    
27. START-OF-SELECTION.
    
28. 
    
29.    SELECT mara~matnr
    
30.           mara~matkl
    
31.           mara~brand_id
    
32.           mara~saiso
    
33.           mara~saisj
    
34.           mara~saity
    
35.           makt~maktx
    
36.       FROM mara INNER JOIN makt ON mara~matnr = makt~matnr AND makt~spras EQ sy-langu
    
37.      INTO CORRESPONDING FIELDS OF TABLE gt_output
    
38.      WHERE mara~matkl        IN matkl            AND
    
39.            mara~brand_id     IN brand            AND
    
40.            mara~saiso        IN saiso            AND
    
41.            mara~saisj        IN saisj            AND
    
42.            mara~saity        IN saity .
    
43. 
    
44.    PERFORM build_fcat USING :   'MATNR'   'Article'   'X' ,
    
45.                                 'BRAND_ID'   'Brand Id' '' ,
    
46.                                 'SAISO'   'Season Category' ''       ,
    
47.                                 'SAISJ'   'Season Year'    ''    ,
    
48.                                 'SAITY'   'Rollout'      ''  ,
    
49.                                 'MAKTX'   'Description'  ''    .
    
50. 
    
51.    gs_layout-box_fieldname = 'CHK'.
    
52.    gs_layout-colwidth_optimize = 'X'.
    
53. 
    
54.   CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    
55.      EXPORTING
    
56.        i_callback_program       = sy-repid
    
57.        i_callback_pf_status_set = 'PF_STATUS_ALV'
    
58.        i_callback_user_command  = 'USER_COMMAND_ALV'
    
59.        is_layout                = gs_layout
    
60.        it_fieldcat              = gt_fcat
    
61.      TABLES
    
62.        t_outtab                 = gt_output
    
63.      EXCEPTIONS
    
64.        program_error            = 1
    
65.        OTHERS                   = 2.
    
66.    IF sy-subrc <> 0.
    
67.      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    
68.              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    
69.    ENDIF.
    
70. *&---------------------------------------------------------------------*
    
71. *&      Form  build_fcat
    
72. *&-------------------------------------------------------------------
    
73. FORM build_fcat  USING    us_fieldname TYPE c
    
74.                            us_seltext_m TYPE c
    
75.                            us_key       TYPE c.
    
76.    gs_fcat-fieldname = us_fieldname .
    
77.    gs_fcat-seltext_l = us_seltext_m .
    
78.    gs_fcat-key       = us_key       .
    
79.    APPEND gs_fcat TO gt_fcat        .
    
80.    CLEAR gs_fcat .
    
81. ENDFORM.                    " build_fcat
    
82. 
    
83. *&---------------------------------------------------------------------*
    
84. *&      Form  pf_status_alv
    
85. *&-------------------------------------------------------------------
    
86. 
    
87. FORM pf_status_alv USING rt_extab  TYPE slis_t_extab.
    
88.    SET PF-STATUS 'YSTANDARD' EXCLUDING rt_extab.
    
89. ENDFORM.                    "pf_status_alv
    
90. 
    
91. *&---------------------------------------------------------------------*
    
92. *&      Form  user_command_alv
    
93. *&-------------------------------------------------------------------
    
94. FORM user_command_alv USING r_ucomm LIKE sy-ucomm
    
95.          rs_selfield TYPE slis_selfield.
    
96.    CASE r_ucomm.
    
97.      WHEN 'EXC'.
    
98.        LOOP AT gt_output INTO gs_output WHERE chk EQ 'X'.
    
99.          WRITE gs_output-matnr TO gs_record-string(18).
    
100.          APPEND gs_record TO record_tab.
     
101.        ENDLOOP.
     
102.        EXPORT record_tab TO MEMORY ID 'REC1'.
     
103.        LEAVE PROGRAM.
     
104.      WHEN '&IC1'.
     
105.        READ TABLE gt_output INTO gs_output INDEX rs_selfield-tabindex.
     
106.        IF sy-subrc EQ 0.
     
107.          WRITE gs_output-matnr TO gs_record-string(18).
     
108.          APPEND gs_record TO record_tab.
     
109.          EXPORT record_tab TO MEMORY ID 'REC1'.
     
110.          LEAVE PROGRAM.
     
111.        ENDIF.
     
112.      WHEN '&FB03'.
     
113.        SET SCREEN 0 .
     
114.        LEAVE SCREEN.
     
115.    ENDCASE.
     
116. ENDFORM.                    "user_command_alv

复制代码

4、返回到search help，执行，效果如下

执行选择屏幕，出现alv，单击任一行，就会返回选中的值