首页 > 其他 > 详细

函数Read_Text读取长文本信息

时间:2020-12-09 15:17:37      阅读:51      评论:0      收藏:0      [点我收藏+]

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

效果图:

技术分享图片

 

函数Read_Text读取长文本信息

原文:https://www.cnblogs.com/ccyc/p/14107489.html

踩
(0)
赞
(0)
   
举报
评论 一句话评论(0)
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!