单据的长文本读取
读取PR行项目的送货文本
首先查看文本属性数据,双击文本
goto-header
框中就是需要的信息
使用READ_TEXT函数读取文本信息
可以查看到Text Name 是PR单号和行号连接而成
语言ZH, 代码是1,EN,代码是'E‘
调用函数
"delivery text
CONCATENATE <fs>-zbanfn <fs>-zbnfpo INTO DATA(lv_name).
name_tmp = lv_name.
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = sy-mandt
id = 'B03'
language = '1'
name = name_tmp “定义一个name_tmp变量 TYPE thead-tdname.直接赋值会报类型不一致
object = 'EBAN'
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 EQ 0.
LOOP AT lines.
IF <fs>-zdelivery_txt = ''.
<fs>-zdelivery_txt = lines-tdline.
ELSE.
<fs>-zdelivery_txt = <fs>-zdelivery_txt && ',' && lines-tdline.
ENDIF.
ENDLOOP.
ENDIF.