SAP长文本读取

比眉伴天荒 2022-04-03 09:51 559阅读 0赞

长文本涉及到两个表格：

STXH（抬头)，STXL(行项目）中。

1 读取方法  READ\_TEXT ，结果放在一个表中，循环读出

2 难点： 参数查找

方法： 先维护一个，然后在底表 STXH中 按时间找到那一条，然后就可以知道参数了。

3 容易遗漏的语言问题

3.1  先从 stxh 读取语言

3.2  CONVERSION\_EXIT\_ISOLA\_INPUT 转换为 READ\_TEXT 需要的 language参数

读取函数

CALL FUNCTION 'READ\_TEXT'  
          EXPORTING  
            client                  = sy-mandt  
            id                      = lv\_id  
            language                = lv\_langu  
            name                    = lv\_name  
            object                  = 'VBBP'  
\*           ARCHIVE\_HANDLE          = 0  
\*           LOCAL\_CAT               = ' '  
\*   IMPORTING  
\*           HEADER                  =  
\*           OLD\_LINE\_COUNTER        =  
          TABLES  
            lines                   = lt\_tline  
          EXCEPTIONS  
            id                      = 1  
            language                = 2  
            name                    = 3  
            not\_found               = 4  
            object                  = 5  
            reference\_check         = 6  
            wrong\_access\_to\_archive = 7  
            OTHERS                  = 8.  
        IF sy-subrc <> 0.  
\* Implement suitable error handling here  
        ENDIF.  
  
        LOOP AT lt\_tline .  
          IF gs\_out\_item-bz1 IS INITIAL.  
            gs\_out\_item-bz1 = lt\_tline-tdline.  
          ELSE.  
            CONCATENATE gs\_out\_item-bz1 lt\_tline-tdline INTO gs\_out\_item-bz1.  
          ENDIF.  
        ENDLOOP.

查找函数参数

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70][]

容易遗漏的语言问题

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 1][]

CLEAR:  lv\_tdspras.  
      SELECT SINGLE  tdspras INTO lv\_tdspras  
        FROM stxh  
        WHERE tdname = gs\_out-vbeln  AND   tdobject = 'VBBK' .  
  
      CALL FUNCTION 'CONVERSION\_EXIT\_ISOLA\_INPUT'  
        EXPORTING  
          input            = lv\_tdspras  
        IMPORTING  
          output           = lv\_langu  
        EXCEPTIONS  
          unknown\_language = 1  
          OTHERS           = 2.  
      IF sy-subrc <> 0.  
      ENDIF.

[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70]: /images/20220403/7d0caf1a65744e50a06f6196d37b92ba.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 1]: /images/20220403/5ac2814622704de2925d53e56c85f37a.png