ABAP获取发票的抬头文本

  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.