SAP ABAP中读取项目文本的方法

3ewsd

SAP ABAP中读取项目文本的方法
　　首先，SAP中所有的项目文本都存在两张数据表中
STXH 抬头项目文本 透明表
STXL 明细项目文本 透明表
在STXH和STXL中可以找到需要的文本对象。
然后通过Read_Text函数来读取文本内容。
以读取Billing抬头文本为例。
1，先配置Billing抬头，建一个项目文本，ID：F001。
2，然后建立一张Billing，取得Billing号码，Billing抬头数据在VBRK数据表中。
3，建立一个Demo程序读取抬头项目文本。
REPORT ZZXLTEST005 .
TABLES: VBRK.
DATA: TEXTNAME(70) TYPE C.
DATA: T_READ LIKE TABLE OF TLINE WITH HEADER LINE.
SELECTION-SCREEN BEGIN OF BLOCK BLOC1 WITH FRAME TITLE TEXT-001.
  PARAMETERS: PVBELN LIKE VBRK-VBELN.
SELECTION-SCREEN END OF BLOCK BLOC1.
START-OF-SELECTION.
TEXTNAME = PVBELN.
*VBBK是从STXH中找到的。
PERFORM FRM_READ_TEXT USING 'F001' TEXTNAME 'VBBK'.
    IF SY-SUBRC = 0.
      READ TABLE T_READ INDEX 1.
      WRITE T_READ-TDLINE.
    ENDIF.
END-OF-SELECTION.
FORM FRM_READ_TEXT USING FID TEXTN OBJN.
  CALL FUNCTION 'READ_TEXT'
       EXPORTING
            ID                      = FID
            LANGUAGE                = SY-LANGU
            NAME                    = TEXTN
            OBJECT                  = OBJN
       TABLES
            LINES                   = T_READ
       EXCEPTIONS
            ID                      = 1
            LANGUAGE                = 2
            NAME                    = 3
            NOT_FOUND               = 4
            OBJECT                  = 5
            REFERENCE_CHECK         = 6
            WRONG_ACCESS_TO_ARCHIVE = 7
            OTHERS                  = 8.
ENDFORM.
　　
　　除此READ_TEXT之外，还有：
　　READ_TEXT_INLINE
　　主要是找到他的：OBJECTNAME, TEXT OBJECT, TEXT ID
　　http://www.itpub.net/thread-811046-1-1.html
SAP长文本的读取和创建
　　http://scnblogs.techweb.com.cn/winson/archives/78.html
　　在SAP系统里面很多地方都用到了长文本，这些长文本的值以其他字符的形式存在表STXL和STXH里面，不能直接去这两个表里面去取值，而是要通过函数READ_TEXT去取，很多新手不了解的地方可能就是怎么取到READ_TEXT函数里面的那些参数值，我这边介绍两种方法，通过这两种方法都可以找到那几个参数：
　　一、第一种利用跟踪查询，不是用ST05跟踪，而是去表里面跟踪查询，比如你刚刚创建了一个销售订单的长文本，这时候你可以去表STXH输入日期和刚刚的时间，然后查看在这个表里刚刚产生的这些数据，依据此项就可以找到对应的参数了，这个方法非常实用
　　二、第二种前台查看，进入长文本编辑界面以后（记得是双击长文本编辑器进入），点击菜单转到—->表头，里面出现的就是对应的那些参数值，如下图：


　　如果是要用ABAP代码创建文本用函数CREATE_TEXT,修改文本用SAVE_TEXT
　　贴上用过的几个代码：
　　创建抬头文本
call function ‘CREATE_TEXT’
    exporting
      fid       = ‘0001′
      flanguage = ‘1′
      fname     = s_deliv_numb
      fobject   = ‘VBBK’
    tables
      flines    = it_texts.
　　refresh it_texts.
　　创建行项目文本
call function ‘CREATE_TEXT’
      exporting
        fid       = wa_thead-tdid
        flanguage = ‘1′
        fname     = wa_thead-tdname
        fobject   = ‘VBBP’
      tables
        flines    = it_texts.
读取抬头文本
      call function ‘READ_TEXT’
        exporting
*         CLIENT                        = SY-MANDT
          id                            = ‘0001′
          language                      = ‘1′
          name                          = name
          object                        = ‘VBBK’
        tables
          lines                         = lines[]
                .
　　参数的值如果是抬头文本可以到表STXH查看,如果是项目文本可以到STXL查看
　　读取行项目文本
call function ‘READ_TEXT’
        exporting
*         CLIENT                        = SY-MANDT
          id                            = ‘0001′
          language                      = ‘1′
          name                          = name
          object                        = ‘VBBP’
        tables
          lines                         = lines[]
CALL FUNCTION ‘SAVE_TEXT’
          EXPORTING
           CLIENT                = SY-MANDT
            HEADER                = HEADER
            SAVEMODE_DIRECT      = ‘X’
          TABLES
            LINES                 = LINES
                  .
　　
　　
　　http://blog.sina.com.cn/s/blog_53b2e1f70100znfn.html
　　
　　用途：常常会用到类似于说明或者备注这样的信息，这些信息就是长文本信息。long text.
　　查看：比如销售订单中（SO） 的表单头和表单行项目都可以进行长文本的备注。查看途径： VA02-->输入订单号-->goto--->header--->texts-->show detail (一个放大镜的图标）-->goto --->header.到texts这一步就可以看到备注信息，在最后一步可以看到备注的头信息。Item的备注页可以通过类似的途径来查看，不再赘述。
　　
　　那么这些长文本信息存在什么地方呢？通过对表的查看，发现SO对应的表VBAP,VBAK,不管是header信息还是Item信息里面都没有存储相关的数据。事实上，SAP系统把所有的长文本信息都存在了STXH 和 STXL 这两张表里面。
　　STXH ：STXD SAPscript text file header,长文本的头数据
　　STXL ：STXD SAPscript text file lines，长文本的明细数据。是一张簇表。
　　
　　通过上面的信息查看，我们在表里面也可以找到数据的数据库存储信息。
　　
　　对于STXH ，我们可以发现他的关键字有：
　　TDOBJECT 对象 很多情况下市表名，但不全是。
TDNAME   名称很多情况下是表单编号&明细号
TDID   ID  这个就是ID，
TDSPRAS 语言。
　　而这些信息都可以在查看的时候看到。
　　也就是说通过这些信息我们就可以定位到我们所需要的长文本信息。
　　
　　那在程序中，我们怎么来取这些数呢？直接取么？我们可以看到 STXL-CLUSTD是类似乱码的东西。怎么成这样的，不清楚，簇表的长字段都是这个鸟样子。那如果我们来解析，完了。
　　在程序中，对于长字段，可能的操作大多数是读取。
　　在这个时候我们就用： FUNCTION: READ_TEXT。
　　CALL FUNCTION 'READ_TEXT'
  EXPORTING
   CLIENT                        = SY-MANDT
    id                            = ID
    language                      = LANGU
    name                          = NAME
    object                        = OBJECT
*   ARCHIVE_HANDLE                = 0
*   LOCAL_CAT                     = ' '
*  IMPORTING
*   HEADER                        = HEADER
  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
         .
　　
　　上面的几个传入的参数都是上面讲过的。
　　对于传出参数：
　　LINES则是以一个内表的形式保存了long text，每行数据最多存72个字符。也就是说长文本中的数据被以72个一段的形式分割成了很多段，保存在内标中。这样不管长文本再长，我们都可以顺利地读取出来。并进行处理。
　　对于长文本的修改和删除，还有其他的功能模块与之对应。
　　SAVE_TEXT
　　DELETE_TEXT
　　这在用法上就大同小异了。在此不多赘述。