搜尋幫助函式F4IF_INT_TABLE_VALUE_REQUEST
阿新 • • 發佈:2018-11-07
搜尋幫助函式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
-
IF SY-SUBRC <> 0.DYNPFLD_MAPPING = EXCEPTIONS PARAMETER_ERROR = 1 NO_VALUES_FOUND = 2 OTHERS = 3.
- Implement suitable error handling here
RETURN.
ENDIF.
ENDIF.
ENDFORM.