Custom search help: AT SELECTION-SCREEN ON VALUE-REQUEST and PROCESS ON VALUE-REQUEST, return multiple search help field values

1. Select screen field search help AT SELECTION-SCREEN ON VALUE-REQUEST

2. Custom screen field search help PROCESS ON VALUE-REQUEST

Combine with BAPI: F4IF_INT_TABLE_VALUE_REQUEST to realize search help function

 

The usage of AT SELECTION-SCREEN ON VALUE-REQUEST refers to the following article

https://blog.csdn.net/wangjolly/article/details/80075531

 

PROCESS ON VALUE-REQUEST is used as follows:

Behind the customized screen PAI

PROCESS AFTER INPUT.

PROCESS ON VALUE-REQUEST.

       FIELD MODULE implementation module that needs search help.

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

Subroutine: FORM frm_cb_form search help returns multiple values, implementation fields: GS_ITEMS-ZSKZH and GS_ITEMS-ZSKYLH return at the same time