3ewsd 发表于 2015-9-18 08:48:28

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

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输入日期和刚刚的时间,然后查看在这个表里刚刚产生的这些数据,依据此项就可以找到对应的参数了,这个方法非常实用
  二、第二种前台查看,进入长文本编辑界面以后(记得是双击长文本编辑器进入),点击菜单转到—->表头,里面出现的就是对应的那些参数值,如下图:
http://scnblogs.techweb.com.cn/winson/files/2012/05/e69caae591bde5908d3.jpg
http://scnblogs.techweb.com.cn/winson/files/2012/05/e69caae591bde5908d11.jpg
  如果是要用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
  这在用法上就大同小异了。在此不多赘述。
页: [1]
查看完整版本: SAP ABAP中读取项目文本的方法