搜索幫助聯(lián)動

一般做搜索幫助我們需要回車才能帶出和搜索幫助相關(guān)的值,例:
點擊物料的搜索幫助回車帶出物料描述,現(xiàn)在幫你省掉敲回車的動作,物料和描述同步粗來啦!
首先在PAI里寫:

PROCESS ON VALUE-REQUEST.
   FIELD ZPRPEOPL MODULE USER_NAME_F4-1."問題提出人
MODULE USER_NAME_F4-1 INPUT.
  data: return_tab like ddshretval occurs 1 with header line,
        field_tab like dfies occurs 1 with header line,
        dynpfields like dynpread occurs 3 with header line.
*取開發(fā)人員(名字)

  SELECT
      USERID       "用戶名字ID
      USERNAME     "用戶名ID描述(名字)
    INTO CORRESPONDING FIELDS OF TABLE GT_UNAME
    FROM ZVXXDEV_UNAME
    .
  SORT GT_UNAME BY USERID USERNAME.
  DELETE ADJACENT DUPLICATES FROM  GT_UNAME.

*&----調(diào)用展示函數(shù)
  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
*     DDIC_STRUCTURE         = ' '
      RETFIELD    = 'USERID'    "表格要顯示的字段
*     PVALKEY     = ' '
      DYNPPROG    = SY-REPID        "返回才程序
      DYNPNR      = SY-DYNNR        "屏幕
      DYNPROFIELD = 'ZPRPEOPL'       "往頁面回填值的地方
*     STEPL       = 0
*     WINDOW_TITLE           =
*     VALUE       = ' '
      VALUE_ORG    = 'S'
*     MULTIPLE_CHOICE        = ' '
*     DISPLAY     = ' '
     CALLBACK_PROGRAM       = SY-REPID "當(dāng)前程序
    CALLBACK_FORM          = 'BO_CALLBACK_FORM' "回調(diào)函數(shù)
*     CALLBACK_METHOD        =
*     MARK_TAB    =
* IMPORTING
*     USER_RESET  =
    TABLES
      VALUE_TAB   = GT_UNAME
     FIELD_TAB   = FIELD_TAB
     RETURN_TAB  = RETURN_TAB
**     DYNPFLD_MAPPING        =
 EXCEPTIONS
     PARAMETER_ERROR        = 1
     NO_VALUES_FOUND        = 2
     OTHERS      = 3
    .
  IF SY-SUBRC <> 0.
* Implement suitable error handling here
  ENDIF.


ENDMODULE.
form bo_callback_form  tables   record_tab structure seahlpres
                                 changing shlp type shlp_descr_t
                                 callcontrol like ddshf4ctrl.
data: interface like line of shlp-interface,
        fp like line of shlp-fieldprop.
read table shlp-interface into interface index 1.
 interface-shlpfield+4(1) = '2'.
interface-valfield = 'ZPRPEOPL2'.
append interface to shlp-interface.

endform.
```
最后編輯于
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
【社區(qū)內(nèi)容提示】社區(qū)部分內(nèi)容疑似由AI輔助生成,瀏覽時請結(jié)合常識與多方信息審慎甄別。
平臺聲明:文章內(nèi)容(如有圖片或視頻亦包括在內(nèi))由作者上傳并發(fā)布,文章內(nèi)容僅代表作者本人觀點,簡書系信息發(fā)布平臺,僅提供信息存儲服務(wù)。

相關(guān)閱讀更多精彩內(nèi)容

友情鏈接更多精彩內(nèi)容