业务场景:比如一个ALV上的EBELN采购订单,我想知道在ME23N时候,这个采购订单号对应的文本是什么内容。
第一个文本框内容获取:
双击上个截图第一个文本区域
第2个文本框内容获取方法一样:
这个可以看到文本对象是表EKPO
下面就用文本2做一下举例:
`loop at lt_ekpo into ls_ekpo .
data lv_name type thead-tdname.
data: gt_lins type table of tline,
gs_lins type tline,
c_text type string,
u_space type string.
concatenate ls_ekpo-ebeln ls_ekpo-ebelp into lv_name.
call function 'READ_TEXT'
exporting
client = sy-mandt
id = 'F01'
language = '1'
name = lv_name “图片里的450000000000010是根据ebeln+ebelp拼接得到
object = 'EKPO'
* ARCHIVE_HANDLE = 0
* LOCAL_CAT = ' '
* IMPORTING
* HEADER =
* OLD_LINE_COUNTER =
tables
lines = gt_lins.
* 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.
* Implement suitable error handling here
endif.
clear c_text.
loop at gt_lins into gs_lins.
concatenate c_text gs_lins-tdline into c_text. "separated by u_space ."解决回车事件 separated by 代表拼接字符串中加的分隔符
* c_text = c_text && gs_lins-tdline.
clear gs_lins.
endloop.
condense c_text no-gaps."重新整合分配的字符串
endloop.
`