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.

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 1
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值