READ_TEXT获取 采购订单行项目-项目文本

DATA TMP_NAME TYPE THEAD-TDNAME.

DATA TMP_EBELN TYPE MATNR.

DATA TMP_EBELP TYPE EBELP.

DATA LINES LIKE TLINE OCCURS 0 WITH HEADER LINE.

DATA TMP10 TYPE CHAR10.

DATA TMP5 TYPE CHAR5.

***带出采购订单行项目-项目文本

CLEAR: TMP10,TMP5,TMP_NAME,LINES,GW_ITEM-GXTXT.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' "采购订单号补前导0

EXPORTING

INPUT = GW_ITEM-EBELN "采购订单号

IMPORTING

OUTPUT = TMP10.

* BREAK-POINT.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' "行项目号补前导0

EXPORTING

INPUT = GW_ITEM-EBELP“ 采购订单行项目号

IMPORTING

OUTPUT = TMP5.

CONCATENATE TMP10 TMP5 INTO TMP_NAME.

CALL FUNCTION 'READ_TEXT'

EXPORTING

CLIENT = SY-MANDT

ID = 'F01'

LANGUAGE = SY-LANGU

NAME = TMP_NAME

OBJECT = 'EKPO'

TABLES

LINES = 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.

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

LOOP AT LINES.

CONCATENATE GW_ITEM-GXTXT LINES-TDLINE INTO GW_ITEM-GXTXT.

ENDLOOP.