ABAP 交货单抬头文本读取

  DATA: lt_tdline LIKE TABLE OF tline,
        ls_tdline TYPE tline,
        lv_tdname TYPE thead-tdname.

    lv_tdname = LS_LIKP-ZDELIVERY-VBELN && ''.
    CALL FUNCTION 'READ_TEXT'
      EXPORTING
        CLIENT                        = SY-MANDT
        ID                            = '0001'
        LANGUAGE                      = sy-LANGU
        NAME                          = lv_tdname
        OBJECT                        = 'VBBK'
*       ARCHIVE_HANDLE                = 0
*       LOCAL_CAT                     = ' '
*     IMPORTING
*       HEADER                        =
*       OLD_LINE_COUNTER              =
      TABLES
        LINES                         = lt_tdline
     EXCEPTIONS
       ID                            = 1
       LANGUAGE                      = 2
       NAME                          = 3
       NOT_FOUND                     = 4
       OBJECT                        = 5
       REFERENCE_CHECK               = 6
       WRONG_ACCESS_TO_ARCHIVE       = 7
       OTHERS                        = 8
              .
    IF lt_tdline IS NOT INITIAL.
      LOOP AT lt_tdline INTO ls_tdline.
        CONCATENATE LS_LIKP-ZDELIVERY-ZTEXT ls_tdline-tdline INTO LS_LIKP-ZDELIVERY-ZTEXT.
      ENDLOOP.
    ENDIF.

评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

Gong JX

多谢鼓励

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

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

余额充值