首页 > 其他 > 详细

函数Read_Text读取长文本信息

时间:2020-12-09 15:17:37      阅读:44      评论: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 版权所有
打开技术之扣,分享程序人生!