读取抬头/行项目文本

最新推荐文章于 2024-09-17 15:02:08 发布

Javen Gong

最新推荐文章于 2024-09-17 15:02:08 发布

阅读量38

点赞数

分类专栏： ABAP 文章标签：开发语言

本文链接：https://blog.csdn.net/G_HAO_Fan/article/details/134496180

版权

ABAP 专栏收录该内容

2 篇文章 0 订阅

订阅专栏

1.定义部分

  DATA LT_DATA    LIKE TLINE OCCURS 0 WITH HEADER LINE.  "返回值
  DATA  LV_BANFN   TYPE TDOBNAME.

2.抬头文本

LOOP AT GT_EBAN ASSIGNING <FS_EBAN> .
    LV_BANFN = <FS_EBAN>-BANFN .
    CALL FUNCTION 'READ_TEXT'
      EXPORTING
       CLIENT                        = SY-MANDT
        ID                            = 'B01'
        LANGUAGE                      = SY-LANGU
        NAME                          = LV_BANFN "申请订单编号
        OBJECT                        = 'EBANH'
*       ARCHIVE_HANDLE                = 0
*       LOCAL_CAT                     = ' '
*     IMPORTING
*       HEADER                        =
*       OLD_LINE_COUNTER              =
      TABLES
        LINES                         = LT_DATA
     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.
       LOOP AT LT_DATA.
        CHECK LT_DATA-TDLINE IS NOT INITIAL .
        <FS_EBAN>-ZTTEXT  = <FS_EBAN>-ZTTEXT && LT_DATA-TDLINE .
      ENDLOOP.
* Implement suitable error handling here
    ENDIF.

3.行项目文本

* 行项目文本
    CLEAR LT_DATA .
    CLEAR LV_BANFN .
    LV_BANFN = <FS_EBAN>-BANFN && <FS_EBAN>-BNFPO .
    CALL FUNCTION 'READ_TEXT'
      EXPORTING
        CLIENT                  = SY-MANDT
        ID                      = 'B01'
        LANGUAGE                = SY-LANGU
        NAME                    = LV_BANFN
        OBJECT                  = 'EBAN'
*       ARCHIVE_HANDLE          = 0
*       LOCAL_CAT               = ' '
*     IMPORTING
*       HEADER                  =
*       OLD_LINE_COUNTER        =
      TABLES
        LINES                   = LT_DATA
      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
      LOOP AT LT_DATA.
        CHECK LT_DATA-TDLINE IS NOT INITIAL .
        <FS_EBAN>-LTXZ01  = <FS_EBAN>-LTXZ01 && LT_DATA-TDLINE .
      ENDLOOP.

    ENDIF.
ENDLOOP .