ABAP获取发票的抬头文本

最新推荐文章于 2025-08-19 17:12:07 发布

原创最新推荐文章于 2025-08-19 17:12:07 发布 · 1.2k 阅读

0 ·

CC 4.0 BY-SA版权

技术总结同时被 2 个专栏收录

80 篇文章

订阅专栏

ABAP基础

51 篇文章

订阅专栏

本文介绍了一种使用ABAP编程语言从特定对象中读取文本数据，并根据不同标识符将数据分配到相应字段的方法。通过创建数据结构，调用READ_TEXT函数模块，以及循环处理数据，实现了对文本信息的有效管理和利用。

  DATA TDID        TYPE TABLE OF TDID WITH HEADER LINE .
  DATA TLINE       TYPE TABLE OF TLINE WITH HEADER LINE .
  DATA TDNAME      TYPE TDOBNAME .

   CLEAR TDID .
    CLEAR TDID[] .
    TDID = 'Z001'.
    APPEND TDID .
    TDID = 'Z002'.
    APPEND TDID .
    TDID = 'Z003'.
    APPEND TDID .
    TDID = 'Z004'.
    APPEND TDID .
    TDID = 'Z005'.
    APPEND TDID .
    TDID = 'Z006'.
    APPEND TDID .
    TDID = '0002'.
    APPEND TDID .

    TDNAME = GT_DATA_A-VBELN .
    LOOP AT TDID.
      CLEAR TLINE .
      CLEAR TLINE[] .

      CALL FUNCTION 'READ_TEXT'
        EXPORTING
          OBJECT          = 'VBBK'
          NAME            = TDNAME
          ID              = TDID
          LANGUAGE        = 'E'
        TABLES
          LINES           = TLINE
        EXCEPTIONS
          OBJECT          = 1
          ID              = 2
          LANGUAGE        = 3
          NAME            = 4
          NOT_FOUND       = 5
          REFERENCE_CHECK = 6.

      CASE TDID.
        WHEN 'Z001'.
          LOOP AT TLINE.
            GT_DATA_A-TDLINE1 = GT_DATA_A-TDLINE1 && TLINE-TDLINE .
          ENDLOOP.
        WHEN 'Z002'.
          LOOP AT TLINE.
            GT_DATA_A-TDLINE2 = GT_DATA_A-TDLINE2 && TLINE-TDLINE .
          ENDLOOP.
        WHEN 'Z003'.
          LOOP AT TLINE.
            GT_DATA_A-TDLINE3 = GT_DATA_A-TDLINE3 && TLINE-TDLINE .
          ENDLOOP.
        WHEN 'Z004'.
          LOOP AT TLINE.
            GT_DATA_A-TDLINE4 = GT_DATA_A-TDLINE4 && TLINE-TDLINE .
          ENDLOOP.
        WHEN 'Z005'.
          LOOP AT TLINE.
            GT_DATA_A-TDLINE5 = GT_DATA_A-TDLINE5 && TLINE-TDLINE .
          ENDLOOP.
        WHEN 'Z006'.
          LOOP AT TLINE.
            GT_DATA_A-TDLINE6 = GT_DATA_A-TDLINE6 && TLINE-TDLINE .
          ENDLOOP.
        WHEN '0002'.
          LOOP AT TLINE.
            GT_DATA_A-TDLINE7 = GT_DATA_A-TDLINE7 && TLINE-TDLINE .
          ENDLOOP.
        WHEN OTHERS.
      ENDCASE.

    ENDLOOP.