Aide à la recherche personnalisée: À ÉCRAN DE SÉLECTION SUR DEMANDE DE VALEUR et PROCESSUS SUR DEMANDE DE VALEUR, renvoyer plusieurs valeurs de champ d'aide à la recherche

1. Sélectionnez l'aide à la recherche de champ d'écran À L'ÉCRAN DE SÉLECTION À LA DEMANDE DE VALEUR

2. Aide à la recherche de champ d'écran personnalisé PROCESSUS SUR DEMANDE DE VALEUR

Combinez avec BAPI: F4IF_INT_TABLE_VALUE_REQUEST pour réaliser la fonction d'aide à la recherche

 

L'utilisation de AT SELECTION-SCREEN ON VALUE-REQUEST fait référence à l'article suivant

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

 

PROCESS ON VALUE-REQUEST est utilisé comme suit:

Derrière l'écran personnalisé PAI

PROCESSUS APRÈS SAISIE.

PROCESSUS SUR DEMANDE DE VALEUR.

       Module de mise en œuvre du MODULE DE TERRAIN nécessitant une aide à la recherche.

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

Sous-programme: l'aide à la recherche FORM frm_cb_form renvoie plusieurs valeurs, champs d'implémentation: GS_ITEMS-ZSKZH et GS_ITEMS-ZSKYLH retournent en même temps