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.
ABAP 交货单抬头文本读取
最新推荐文章于 2024-09-26 11:12:35 发布