函数Read_Text读取长文本信息

以销售订单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.

效果图：