SAP READ_TEXT函数的用法

最新推荐文章于 2024-01-08 17:15:42 发布
最新推荐文章于 2024-01-08 17:15:42 发布
阅读量350 收藏 1
点赞数
原文链接：http://www.cnblogs.com/aBaoRong/archive/2012/03/31/2426314.html
版权

*訂單表頭內文(JOHNSON)
    VBELNTEXT = INTAB-VBELN .
    CALL FUNCTION 'READ_TEXT'
  EXPORTING
*           CLIENT                  = SY-MANDT
     ID                      = '0001'
     LANGUAGE                = 'E'
     NAME                    =  VBELNTEXT
     OBJECT                  = 'VBBK'
*         ARCHIVE_HANDLE          = 0
IMPORTING
     HEADER                  = HTEXT
TABLES
     LINES                   = LTEXT
EXCEPTIONS
     ID                      = 1
     LANGUAGE                = 2
     NAME                    = 3
     NOT_FOUND               = 4
     OBJECT                  = 5
     REFERENCE_CHECK         = 6
     WRONG_ACCESS_TO_ARCHIVE = 7
     OTHERS                  = 8.
    LOOP AT LTEXT.
      IF LTEXT-TDLINE NE ''.
        CONDENSE LTEXT-TDLINE.
        CONCATENATE INTAB-VBELNTEXT LTEXT-TDLINE   INTO INTAB-VBELNTEXT SEPARATED BY ' ' .
      ENDIF.
    ENDLOOP.
    CLEAR HTEXT .
    CLEAR DTEXT .
    CLEAR LTEXT .

    REFRESH DTEXT .
    REFRESH LTEXT .

*訂單表頭內文
    VBELNTEXT = INTAB-VBELN .
    CALL FUNCTION 'READ_TEXT'
  EXPORTING
*           CLIENT                  = SY-MANDT
     ID                      = 'Z008'
     LANGUAGE                = 'E'
     NAME                    =  VBELNTEXT
     OBJECT                  = 'VBBK'
*         ARCHIVE_HANDLE          = 0
IMPORTING
     HEADER                  = HTEXT
TABLES
     LINES                   = LTEXT
EXCEPTIONS
     ID                      = 1
     LANGUAGE                = 2
     NAME                    = 3
     NOT_FOUND               = 4
     OBJECT                  = 5
     REFERENCE_CHECK         = 6
     WRONG_ACCESS_TO_ARCHIVE = 7
     OTHERS                  = 8.
    LOOP AT LTEXT.
      IF LTEXT-TDLINE NE ''.
        CONDENSE LTEXT-TDLINE.
        CONCATENATE INTAB-VBELNTEXT2 LTEXT-TDLINE  INTO INTAB-VBELNTEXT2 SEPARATED BY ' ' .
      ENDIF.
    ENDLOOP.
    CLEAR HTEXT .
    CLEAR DTEXT .
    CLEAR LTEXT .

    REFRESH DTEXT .
    REFRESH LTEXT .


*厰務備註
    VBELNTEXT = INTAB-VBELN .
    CALL FUNCTION 'READ_TEXT'
  EXPORTING
*           CLIENT                  = SY-MANDT
     ID                      = '0003'
     LANGUAGE                = 'E'
     NAME                    =  VBELNTEXT
     OBJECT                  = 'VBBK'
*         ARCHIVE_HANDLE          = 0
IMPORTING
     HEADER                  = HTEXT
TABLES
     LINES                   = LTEXT
EXCEPTIONS
     ID                      = 1
     LANGUAGE                = 2
     NAME                    = 3
     NOT_FOUND               = 4
     OBJECT                  = 5
     REFERENCE_CHECK         = 6
     WRONG_ACCESS_TO_ARCHIVE = 7
     OTHERS                  = 8.
    LOOP AT LTEXT.
      IF LTEXT-TDLINE NE ''.
        CONDENSE LTEXT-TDLINE.
        CONCATENATE INTAB-VBELNTEXT5 LTEXT-TDLINE  INTO INTAB-VBELNTEXT5 SEPARATED BY ' ' .
      ENDIF.
    ENDLOOP.
    CLEAR HTEXT .
    CLEAR DTEXT .
    CLEAR LTEXT .

    REFRESH DTEXT .
    REFRESH LTEXT .


*訂單ITEM內文
    CONCATENATE INTAB-VBELN INTAB-POSNR INTO VBELNTEXT .
    CALL FUNCTION 'READ_TEXT'
  EXPORTING
*           CLIENT                  = SY-MANDT
     ID                      = '0001'
     LANGUAGE                = 'E'
     NAME                    =  VBELNTEXT
     OBJECT                  = 'VBBP'
*         ARCHIVE_HANDLE          = 0
IMPORTING
     HEADER                  = HTEXT
TABLES
     LINES                   = LTEXT
EXCEPTIONS
     ID                      = 1
     LANGUAGE                = 2
     NAME                    = 3
     NOT_FOUND               = 4
     OBJECT                  = 5
     REFERENCE_CHECK         = 6
     WRONG_ACCESS_TO_ARCHIVE = 7
     OTHERS                  = 8.
    LOOP AT LTEXT.
      IF LTEXT-TDLINE NE ''.
        CONDENSE LTEXT-TDLINE.
        CONCATENATE INTAB-VBELNTEXT1 LTEXT-TDLINE  INTO INTAB-VBELNTEXT1 SEPARATED BY ' ' .
      ENDIF.
    ENDLOOP.
    CLEAR HTEXT .
    CLEAR DTEXT .
    CLEAR LTEXT .

    REFRESH DTEXT .
    REFRESH LTEXT .

*採購單内文
    CONCATENATE INTAB-VBELN INTAB-POSNR INTO VBELNTEXT .
    CALL FUNCTION 'READ_TEXT'
  EXPORTING
*           CLIENT                  = SY-MANDT
     ID                      = '0005'
     LANGUAGE                = 'E'
     NAME                    =  VBELNTEXT
     OBJECT                  = 'VBBP'
*         ARCHIVE_HANDLE          = 0
IMPORTING
     HEADER                  = HTEXT
TABLES
     LINES                   = LTEXT
EXCEPTIONS
     ID                      = 1
     LANGUAGE                = 2
     NAME                    = 3
     NOT_FOUND               = 4
     OBJECT                  = 5
     REFERENCE_CHECK         = 6
     WRONG_ACCESS_TO_ARCHIVE = 7
     OTHERS                  = 8.
    LOOP AT LTEXT.
      IF LTEXT-TDLINE NE ''.
        CONDENSE LTEXT-TDLINE.
        CONCATENATE INTAB-VBELNTEXT3 LTEXT-TDLINE  INTO INTAB-VBELNTEXT3 SEPARATED BY ' ' .
      ENDIF.
    ENDLOOP.
    CLEAR HTEXT .
    CLEAR DTEXT .
    CLEAR LTEXT .

    REFRESH DTEXT .
    REFRESH LTEXT .

*客戶原始交期
    CONCATENATE INTAB-VBELN INTAB-POSNR INTO VBELNTEXT .
    CALL FUNCTION 'READ_TEXT'
  EXPORTING
*           CLIENT                  = SY-MANDT
     ID                      = 'Z019'
     LANGUAGE                = 'E'
     NAME                    =  VBELNTEXT
     OBJECT                  = 'VBBP'
*         ARCHIVE_HANDLE          = 0
IMPORTING
     HEADER                  = HTEXT
TABLES
     LINES                   = LTEXT
EXCEPTIONS
     ID                      = 1
     LANGUAGE                = 2
     NAME                    = 3
     NOT_FOUND               = 4
     OBJECT                  = 5
     REFERENCE_CHECK         = 6
     WRONG_ACCESS_TO_ARCHIVE = 7
     OTHERS                  = 8.
    LOOP AT LTEXT.
      IF LTEXT-TDLINE NE ''.

        CONDENSE LTEXT-TDLINE.
        CONCATENATE INTAB-VBELNTEXT7 LTEXT-TDLINE  INTO INTAB-VBELNTEXT7 SEPARATED BY ' ' .
      ENDIF.
    ENDLOOP.

    CONDENSE  INTAB-VBELNTEXT7 .
    IF INTAB-VBELNTEXT7 NE '' .
      IF STRLEN( INTAB-VBELNTEXT7 ) EQ 8.
        CONCATENATE  INTAB-VBELNTEXT7+0(4)  INTAB-VBELNTEXT7+4(2)  INTAB-VBELNTEXT7+6(2) INTO   INTAB-VBELNTEXT7  SEPARATED BY  '/'.
      ELSE.
        INTAB-VBELNTEXT7  = '不符合日期格式YYYYMMDD'.
      ENDIF .
      MOVE 'Y' TO  INTAB-WITHRDAT .
    ENDIF .
    CLEAR HTEXT .
    CLEAR DTEXT .
    CLEAR LTEXT .

    REFRESH DTEXT .
    REFRESH LTEXT .

    IF INTAB-VBELNTEXT7 = '' .
      MOVE INTAB-VBELN TO VBELNTEXT .
      CALL FUNCTION 'READ_TEXT'
    EXPORTING
*           CLIENT                  = SY-MANDT
       ID                      = 'Z036'
       LANGUAGE                = 'E'
       NAME                    =  VBELNTEXT
       OBJECT                  = 'VBBK'
*         ARCHIVE_HANDLE          = 0
  IMPORTING
       HEADER                  = HTEXT
  TABLES
       LINES                   = LTEXT
  EXCEPTIONS
       ID                      = 1
       LANGUAGE                = 2
       NAME                    = 3
       NOT_FOUND               = 4
       OBJECT                  = 5
       REFERENCE_CHECK         = 6
       WRONG_ACCESS_TO_ARCHIVE = 7
       OTHERS                  = 8.
      LOOP AT LTEXT.
        IF LTEXT-TDLINE NE ''.
          CONDENSE LTEXT-TDLINE.
          CONCATENATE INTAB-VBELNTEXT7 LTEXT-TDLINE  INTO INTAB-VBELNTEXT7 SEPARATED BY ' ' .
        ENDIF.
      ENDLOOP.
      CONDENSE  INTAB-VBELNTEXT7 .
      IF INTAB-VBELNTEXT7 NE '' .
        IF STRLEN( INTAB-VBELNTEXT7 ) EQ 8.
          CONCATENATE  INTAB-VBELNTEXT7+0(4)  INTAB-VBELNTEXT7+4(2)  INTAB-VBELNTEXT7+6(2) INTO   INTAB-VBELNTEXT7  SEPARATED BY  '/'.
        ELSE.
          INTAB-VBELNTEXT7  = '不符合日期格式YYYYMMDD'.
        ENDIF .
        MOVE 'Y' TO  INTAB-WITHRDAT .
      ENDIF .


      CLEAR HTEXT .
      CLEAR DTEXT .
      CLEAR LTEXT .

      REFRESH DTEXT .
      REFRESH LTEXT .

      IF INTAB-VBELNTEXT7 = '' .
        CONCATENATE INTAB-EDATU+0(4) INTAB-EDATU+4(2) INTAB-EDATU+6(2) INTO  INTAB-VBELNTEXT7  SEPARATED BY  '/'.
        MOVE 'N' TO INTAB-WITHRDAT .
      ENDIF .
    ENDIF .

 

*業務下單給工廠日期
    CONCATENATE INTAB-VBELN INTAB-POSNR INTO VBELNTEXT .
    CALL FUNCTION 'READ_TEXT'
  EXPORTING
*           CLIENT                  = SY-MANDT
     ID                      = 'Z020'
     LANGUAGE                = 'E'
     NAME                    =  VBELNTEXT
     OBJECT                  = 'VBBP'
*         ARCHIVE_HANDLE          = 0
IMPORTING
     HEADER                  = HTEXT
TABLES
     LINES                   = LTEXT
EXCEPTIONS
     ID                      = 1
     LANGUAGE                = 2
     NAME                    = 3
     NOT_FOUND               = 4
     OBJECT                  = 5
     REFERENCE_CHECK         = 6
     WRONG_ACCESS_TO_ARCHIVE = 7
     OTHERS                  = 8.
    LOOP AT LTEXT.
      IF LTEXT-TDLINE NE ''.
        CONDENSE LTEXT-TDLINE.
        CONCATENATE INTAB-VBELNTEXT6 LTEXT-TDLINE  INTO INTAB-VBELNTEXT6 SEPARATED BY ' ' .
      ENDIF.
    ENDLOOP.
    CLEAR HTEXT .
    CLEAR DTEXT .
    CLEAR LTEXT .

    REFRESH DTEXT .
    REFRESH LTEXT .

    IF INTAB-VBELNTEXT6 = '' .
*業務下單給工廠日期  (表頭)
      VBELNTEXT  = INTAB-VBELN  .
      CALL FUNCTION 'READ_TEXT'
    EXPORTING
*           CLIENT                  = SY-MANDT
       ID                      = 'Z035'
       LANGUAGE                = 'E'
       NAME                    =  VBELNTEXT
       OBJECT                  = 'VBBK'
*         ARCHIVE_HANDLE          = 0
  IMPORTING
       HEADER                  = HTEXT
  TABLES
       LINES                   = LTEXT
  EXCEPTIONS
       ID                      = 1
       LANGUAGE                = 2
       NAME                    = 3
       NOT_FOUND               = 4
       OBJECT                  = 5
       REFERENCE_CHECK         = 6
       WRONG_ACCESS_TO_ARCHIVE = 7
       OTHERS                  = 8.
      LOOP AT LTEXT.
        IF LTEXT-TDLINE NE ''.
          CONDENSE LTEXT-TDLINE.
          CONCATENATE INTAB-VBELNTEXT6 LTEXT-TDLINE  INTO INTAB-VBELNTEXT6 SEPARATED BY ' ' .
        ENDIF.
      ENDLOOP.
      CLEAR HTEXT .
      CLEAR DTEXT .
      CLEAR LTEXT .

      REFRESH DTEXT .
      REFRESH LTEXT .
    ENDIF .

转载于:https://www.cnblogs.com/aBaoRong/archive/2012/03/31/2426314.html

baiwk2015
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
SAP 读取销售/发票长文本(Read_text)的使用方法
RichardYang2020的博客
03-31 3324
1, 简介 SAP中有很多地方用到了长文本,这些长文本保存在表STXL和STXH里面,STXH保存抬头长文本,STXL保存行项目的.需要通过函数READ_TEXT去读取长文本. 2, 查看销售订单长文本 可以在VA03中看到销售订单的抬头和行项目长文本: 抬头长文本: 行项目: 长文本log中的object 和 ID在调用函数Read_text时用到 3, 例子代码 以读取销售行项目长文本为例: 读取上图中销售订单60000649行项目200的delivery text的长文本 ABAP DATA:
SAP READ_TEXT 用法
stellaqaz的博客
11-13 481
SAP PP READ-TEXT 获取工单长文本用法
SAP 物料读取基本数据文本与检验文本READ_TEXT
N2012_8的博客
01-08 701
使用函数 READ_TEXT。1. 读取基本数据文本。
读取SAP长内文数据: READ_TEXT
cl3038556的博客
09-18 271
Normal 0 7.8 磅 0 2 false false false ...
ABAP:函数READ_TEXT函数的使用方法
月阴荒的博客
11-10 675
READ_TEXT
sap.rar_SAP_SAP C#_SAP开发_SAP软件_软件
09-20
SAP公司的erp软件相关c++的软件开发包
SAP SCR LEGACY TEXT EDITOR GUI8.00
01-11
使用SAP SCR LEGACY TEXT EDITOR GUI8.00，开发者可以更加方便地进行以下操作： 1. **代码编辑与格式化**：编辑器提供了代码自动格式化，帮助保持代码整洁，遵循最佳实践。 2. **语法高亮**：对ABAP关键字、函数...
SAP_GUI 760 Patch12
09-23
SAP_GUI 760版，最新Patch，29.07.2021发布
SAP_HANA_CLIENT_32bit.zip
08-28
【标题】"SAP HANA CLIENT 32bit.zip" 是一个包含 SAP HANA 客户端32位版本的压缩文件。这个客户端是用于连接到 SAP HANA 数据库的软件，它允许用户通过ODBC（开放数据库连接）等接口进行数据访问、查询和管理。 ...
vb.rar_SAP2000_sap2000 vb_计算分析
09-24
SAP2000提供了丰富的API函数库，允许开发者使用各种编程语言，如VB，来实现对模型的读写、加载工况的设定、分析计算、结果提取等功能。 "vb.txt"文件很可能是包含了具体的VB代码示例，用于演示如何与SAP2000 API...
读文本文件程序-Read Text By VB
05-16
读文本文件程序，每次读一个字符。-Read Text By VB
SAP中ABAP读取采购订单项目文本及抬头文本
yujiaji的博客
03-06 4777
REPORTz0907. DATAtmp_nameTYPEthead-tdname. DATAtmp_ebelnTYPEmatnr. DATAtmp_ebelpTYPEebelp. DATAlinesLIKEtlineOCCURS0WITHHEADERLINE. DATAtmp10TYPEchar10. ...
read_text使用
zhangzaig的专栏
08-08 881
Read_Text函数的使用方法 在SAP系统中，有时候会有大段文本内容需要保存，例如：销售发货（VL03N），在单据的概览中 ，有一个［文本］项，在此处可以填写单据的大段文本描述，那么该内容保存在哪里呢？ 第一反应是找对应表的字段，那么你可能要失望了。在SAP系统中，可以供我们使用的数据库字段最大长度是255个文本字符（注：此处可能不正确），对于很长的文本肯定是不能直接保存到某个表的字段
READ_TEXT读取物料描述长文本（超过40位）
weixin_44671002的博客
09-22 1225
DATA:pi_id TYPE thead-tdid, pi_name TYPE thead-tdname, pi_object TYPE thead-tdobject, pi_langu TYPE thead-tdspras, lv_str(233) TYPE c. pi_id = 'GRUN'. pi_langu = 1. pi_object = 'MATERI...
[转]SAP ABAP中使用Read_Text函数读取项目文本的方法
weixin_30416871的博客
03-07 321
SAP ABAP中使用Read_Text函数读取项目文本的方法 使用Read_Text函数来读取文本内容。需要找到相关参数。 下面以采购订单为例: 双击文本，进入文本编辑器。 转到->表头。 显示出详细信息。 SE37中测试Read_Text ...
SAP的READ_TEXT读取长文本问题
qq_42954713的博客
03-04 358
参数查询 随便打开一个采购订单之后，双击一下这个框内 之后转到这个界面，点击上面的转到按钮 然后点击表头 要的参数都在这里 四个参数填入对呀的入参就能查询了 ID 是文本标识 name 是文本名 LANGUAGE 是语言 OBJECT是文本对象 ...
READ_TEXT
su-george的博客
04-11 125
SE37
ABAP：关于文本(Read_text,Save_text)
少年休闲海
10-19 3363
1 相关tCode ->Se75  列出相关文本对象 2 相关函数 read_text save_text create_text data: it_tlines like tline occurs 0 with header line,      call function 'CREATE_TEXT'        exporting          fid        =
有关READ_TEXT
囧囧有神的SAP顾问
10-01 157
关于READ_TEXT这个function总是很头疼。 如果知道想读什么text好办，直接前台跑T-CODE然后查看header信息就行了 （http://www.sapdevelopment.co.uk/sapscript/sapscript_texts.htm） （http://fuller.mit.edu/SAPWebDocs/LongComment.html） 可是如果知道了ID和...
sap abap 系统里长文本 long text 的设计和读取函数 read_text 详细讲解
最新发布
01-31
在SAP ABAP中，可以使用read_text函数来读取长文本。read_text函数的语法如下： CALL FUNCTION 'READ_TEXT' EXPORTING id = ‘文本对象ID’ language = SY-LANGU name = ‘文本对象名’ object = ‘对象类型’...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值