以销售订单VA03为例,抬头文本处即可查看长文本具体信息,0001取表抬头,0002取表头注释1。
一、函数三个主要参数说明:
1.ID:文本类型
2.NAME:订单号(抬头)或订单号+项目号拼接(项目号)
3.OBJECT:对象名
二、读取
(一)抬头表文本
DATA:LT_TLINE TYPE STANDARD TABLE OF TLINE, LV_VBELN(70). LV_VBELN = ‘8500000070‘.“SO单号 CALL FUNCTION ‘READ_TEXT‘ EXPORTING ID = ‘0002‘ LANGUAGE = ‘1‘ NAME = LV_VBELN OBJECT = ‘VBBK‘ TABLES LINES = LT_TLINE EXCEPTIONS ID = 1 OBJECT = 2 OTHERS = 3. . IF SY-SUBRC <> 0. MESSAGE ‘未找到文本‘ TYPE ‘S‘ DISPLAY LIKE ‘E‘. ENDIF. LOOP AT LT_TLINE INTO DATA(WA_TLINE). WRITE WA_TLINE-TDLINE. ENDLOOP.
效果图:
(二)行项目文本
DATA:LT_TLINE TYPE STANDARD TABLE OF TLINE, LV_VBELN(70). CONCATENATE ‘8500000070‘ ‘000010‘ INTO LV_VBELN.”SO单号和ITEM号拼接作为NAME导入值 CALL FUNCTION ‘READ_TEXT‘ EXPORTING ID = ‘0001‘ LANGUAGE = ‘1‘ NAME = LV_VBELN OBJECT = ‘VBBP‘ TABLES LINES = LT_TLINE EXCEPTIONS ID = 1 OBJECT = 2 OTHERS = 3. . IF SY-SUBRC <> 0. MESSAGE ‘未找到文本‘ TYPE ‘S‘ DISPLAY LIKE ‘E‘. ENDIF. LOOP AT LT_TLINE INTO DATA(WA_TLINE). WRITE WA_TLINE-TDLINE. ENDLOOP.
效果图:
原文:https://www.cnblogs.com/ccyc/p/14107489.html