如下图所示,事务码ME23N查看一张具体的采购订单的内容:
在采购订单PO的抬头部分,有一个tab名为【文本】,这里面如图所示的抬头文本,里面的内容,我们要写abap代码提取出来,然后在alv中显示出来。
去哪里找?
我们双击右侧那个大框,如下所示
点击转到、表头
如何提取上述内容,我们需要调用名为READ_TEXT的FM
执行调用
上述内容,找到了前台事务码ME23N操作与READ_TEXT之间的关系。
下面,我们在report中调用READ_TEXT
DATA: RT_DATA LIKE TLINE OCCURS 0 WITH HEADER LINE. “返回值
DATA: T_EBELN TYPE TDOBNAME. "采购订单号(输入参数)
CLEAR RT_DATA.
REFRESH RT_DATA.
CALL FUNCTION 'READ_TEXT'
EXPORTING
CLIENT = SY-MANDT
ID = 'F01'
LANGUAGE = SY-LANGU
NAME = T_EBELN "采购订单编号
OBJECT = 'EKKO'
TABLES
LINES = RT_DATA
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.
调试
结果