搜索帮助函数F4IF_INT_TABLE_VALUE_REQUEST

搜索帮助函数F4IF_INT_TABLE_VALUE_REQUEST

FORM FRM_F4_MATNR USING VALUE(PV_MATNR).
DATA LT_DDSHRETVAL TYPE TABLE OF DDSHRETVAL WITH HEADER LINE.
DATA: BEGIN OF LS_MATNR,
MATNR TYPE ZTJYFI_0014-MATNR,
MAKTX TYPE MAKT-MAKTX,
END OF LS_MATNR,
LT_MATNR LIKE TABLE OF LS_MATNR.

*—物料
SELECT ZTJYFI_0014~MATNR
MAKT~MAKTX
INTO TABLE LT_MATNR
FROM ZTJYFI_0014
INNER JOIN MAKT
ON MAKT~MATNR = ZTJYFI_0014~MATNR
WHERE MAKT~SPRAS = SY-LANGU.
IF SY-SUBRC = 0.
SORT LT_MATNR BY MATNR.

*— POPUP TO SELECT…
CALL FUNCTION ‘F4IF_INT_TABLE_VALUE_REQUEST’
EXPORTING

•   DDIC_STRUCTURE  = ' '
    RETFIELD        = 'MATNR' "大写,可选值内表的字段名
  

•   PVALKEY         = ' '
    DYNPPROG        = SY-CPROG "返回的输入框所在的main program
    DYNPNR          = SY-DYNNR   "返回的输入框所在屏幕
    DYNPROFIELD     = PV_MATNR
  

•   STEPL           = 0
    WINDOW_TITLE    = TEXT-002“ 搜索帮助抬头
  

•   VALUE           = ' '
    VALUE_ORG       = 'S'   "就写'S'
  

•   MULTIPLE_CHOICE = ' '
  

•   DISPLAY         = ' '
  

•   CALLBACK_PROGRAM       = ' '
  

•   CALLBACK_FORM   = ' '
  

•   CALLBACK_METHOD =
  

•   MARK_TAB        =
  

• IMPORTING

•   USER_RESET      =
  TABLES
    VALUE_TAB       = LT_MATNR "可选值的内表
  

•   FIELD_TAB       =
    RETURN_TAB      = LT_DDSHRETVAL
  

•   DYNPFLD_MAPPING =
  EXCEPTIONS
    PARAMETER_ERROR = 1
    NO_VALUES_FOUND = 2
    OTHERS          = 3.
  

  IF SY-SUBRC <> 0.
• Implement suitable error handling here
  RETURN.
  ENDIF.
  ENDIF.
  ENDFORM.