自定义搜索帮助：AT SELECTION-SCREEN ON VALUE-REQUEST 和 PROCESS ON VALUE-REQUEST、返回多个搜索帮助字段值

深藏阁楼爱情的钟 2023-05-28 11:16 1阅读 0赞

1、选择屏幕字段搜索帮助AT SELECTION-SCREEN ON VALUE-REQUEST

2、自定义屏幕字段搜索帮助PROCESS ON VALUE-REQUEST

结合BAPI: F4IF\_INT\_TABLE\_VALUE\_REQUEST 实现搜索帮助功能

其中AT SELECTION-SCREEN ON VALUE-REQUEST用法参考如下文章

[https://blog.csdn.net/wangjolly/article/details/80075531][https_blog.csdn.net_wangjolly_article_details_80075531]

PROCESS ON VALUE-REQUEST使用方法如下：

客制化屏幕PAI后面

PROCESS AFTER INPUT.

PROCESS ON VALUE-REQUEST.

FIELD 需要搜索帮助的字段 MODULE 实现模块.

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dhbmdsZWk4ODA1MjY_size_16_color_FFFFFF_t_70][]

TYPES: BEGIN OF ty_bank_info,
             zskzh  TYPE zfis009-zskzh,
             zskylh TYPE zfis009-zskylh,
             zskmc  TYPE zfis009-zskmc,
             xezer  TYPE lfbk-xezer,
             bkont  TYPE lfbk-bkont,
           END OF ty_bank_info.
    
    MODULE sh_get_zskzh INPUT.
      PERFORM frm_sh_get_zskzh.
    ENDMODULE.
    
    FORM frm_sh_get_zskzh .
    
       DATA: lt_value TYPE STANDARD TABLE OF ty_bank_info,
             ls_value LIKE LINE OF lt_value.
       DATA: lt_return_value TYPE STANDARD TABLE OF ddshretval.
       DATA: lt_lfbk TYPE STANDARD TABLE OF lfbk.
       DATA: ls_lfbk LIKE LINE OF lt_lfbk.
       DATA: ls_bnka TYPE bnka.
       DATA: lv_bkont TYPE lfbk-bkont.
       DATA: lv_line TYPE i.
       GET CURSOR LINE lv_line.
       "lt_value 搜索帮助数据集
       IF lt_value[] IS NOT INITIAL.
         CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
           EXPORTING
             retfield         = 'ZSKZH'
             dynpprog         = sy-repid
             dynpnr           = '9000'
             dynprofield      = 'GS_ITEMS-ZSKZH'
             value_org        = 'S'
             callback_program = sy-repid
             callback_form    = 'FRM_CB_FORM'
           TABLES
             value_tab        = lt_value
             return_tab       = lt_return_value.
         READ TABLE lt_return_value INTO DATA(ls_return_value) INDEX 1.
         IF sy-subrc = 0.
           gs_items-zskzh = ls_return_value-fieldval.
         ENDIF.
       ENDIF.
    
     ENDFORM.

*&---------------------------------------------------------------------*
    *&      Form  FRM_CB_FORM
    *&---------------------------------------------------------------------*
     FORM frm_cb_form TABLES record_tab STRUCTURE seahlpres
                   CHANGING shlp TYPE shlp_descr_t
                            callcontrol LIKE ddshf4ctrl.
    
       DATA: interface LIKE LINE OF shlp-interface.
    
       READ TABLE shlp-interface INTO interface INDEX 1.
       interface-shlpfield+4(1) = '2'.
       interface-valfield = 'GS_ITEMS-ZSKYLH'.
       APPEND interface TO shlp-interface.
    
     ENDFORM.                    "bo_callback_form

***子例程：FORM frm\_cb\_form搜索帮助返回多个值，实现字段：GS\_ITEMS-ZSKZH和GS\_ITEMS-ZSKYLH同时返回***

![20200325232735604.jpg][]

![2020032523274860.jpg][]

![20200325232757235.jpg][]

[https_blog.csdn.net_wangjolly_article_details_80075531]: https://blog.csdn.net/wangjolly/article/details/80075531
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dhbmdsZWk4ODA1MjY_size_16_color_FFFFFF_t_70]: /images/20230528/36031f8482194152934e412e09c2e85a.png
[20200325232735604.jpg]: /images/20230528/221c021457f741efb363f60c84109ebb.png
[2020032523274860.jpg]: /images/20230528/b4e24dd54e19459c9eabd2e47a1c392a.png
[20200325232757235.jpg]: /images/20230528/b9983a1797c54312b462d06d154aa4d6.png