SAP 获取采购订单表头长文本

SAP 获取采购订单表头长文本

长文本不是直接存在某个table中，你在（me23n）可以双击该文本，然后选择菜单goto->header，查看该文本的技术信息，然后通过function module 'read_text'，输入相关的技术信息，取得该文本。

DATA: BEGIN OF T_LINES OCCURS 50.

INCLUDE STRUCTURE TLINE.

DATA: END OF T_LINES.

DATA: BEGIN OF HTEXT.

INCLUDE STRUCTURE THEAD.

DATA: END OF HTEXT.

DATA: TNAME LIKE THEAD-TDNAME.

DATA: S_LINE(100) TYPE C.

TNAME = open_po-ebeln. " 将采购单号码付给变量

S_LINE = ''.

CLEAR T_LINES.

REFRESH T_LINES.

*-- 采购表头长文本

CALL FUNCTION 'READ_TEXT'

EXPORTING

CLIENT = SY-MANDT

ID = 'F01'

LANGUAGE = '1'

NAME = TNAME

OBJECT = 'EKKO'

ARCHIVE_HANDLE = 0

IMPORTING

HEADER = HTEXT

TABLES

LINES = T_LINES

EXCEPTIONS

ID = 1

LANGUAGE = 2

NAME = 3

NOT_FOUND = 4

OBJECT = 5

REFERENCE_CHECK = 6

WRONG_ACCESS_TO_ARCHIVE = 7

OTHERS = 8.

IF SY-SUBRC = 0.

LOOP AT T_LINES.

IF T_LINES-TDLINE NE ''.

CONCATENATE S_LINE T_LINES-TDLINE INTO S_LINE.

ENDIF.

ENDLOOP.

open_po-LTEXT = S_LINE.

ENDIF.

https://mp.weixin.qq.com/s/mX_V6VoZEUt09RGseGyCfA