ZPPFM011 获取生产订单长文本接口

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.