FUNCTION ZPPFM011.
*"----------------------------------------------------------------------
*"*"本地接口:
*" IMPORTING
*" VALUE(I_AUFNR) LIKE AFKO-AUFNR OPTIONAL
*" EXPORTING
*" VALUE(O_MSG) TYPE STRING
*"----------------------------------------------------------------------
DATA: TMP_AUFNR LIKE AFKO-AUFNR.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' "前导0
EXPORTING
INPUT = I_AUFNR
IMPORTING
OUTPUT = TMP_AUFNR.
DATA: TMP_LTEXT TYPE CHAR1.
CLEAR: TMP_LTEXT.
SELECT SINGLE AUFK~LTEXT INTO TMP_LTEXT FROM AUFK WHERE AUFK~AUFNR = TMP_AUFNR AND AUFK~LTEXT = '1'.
IF TMP_LTEXT IS NOT INITIAL."找到数据
DATA: FUNC_TLINES TYPE STANDARD TABLE OF TLINE WITH HEADER LINE."长文本内容
DATA: FUNC_TDNAME TYPE THEAD-TDNAME.
DATA: FUNC_OBJECT TYPE THEAD-TDOBJECT VALUE 'AUFK'.
DATA: FUNC_ID TYPE THEAD-TDID VALUE 'KOPF'.
CLEAR: FUNC_TLINES, FUNC_TDNAME.
CONCATENATE SY-MANDT TMP_AUFNR INTO FUNC_TDNAME.
CALL FUNCTION 'READ_TEXT' "读取长文本
EXPORTING
CLIENT = SY-MANDT
ID = FUNC_ID
LANGUAGE = '1'"SY-LANGU
NAME = FUNC_TDNAME
OBJECT = FUNC_OBJECT
TABLES
LINES = FUNC_TLINES.
IF SY-SUBRC IS NOT INITIAL.
O_MSG = '无数据'.
ELSE.
LOOP AT FUNC_TLINES.
O_MSG = FUNC_TLINES-TDLINE."长文本
ENDLOOP.
ENDIF.
ELSE.
O_MSG = ''.
ENDIF.
ENDFUNCTION.
ZPPFM011 获取生产订单长文本接口
最新推荐文章于 2023-12-21 16:53:47 发布