IDOC_OUTPUT_INVOIC zusätzliche Positionstexte

Code: Alles auswählen.

 IF int_edidd-segnam = 'E1EDK14'.
*   Wenn noch kein Eintrag existiert
    LOOP AT int_edidd TRANSPORTING NO FIELDS WHERE segnam  = 'E1EDKT1'
                                               AND sdata CS '007'.
      EXIT.
    ENDLOOP.

    IF sy-subrc <> 0.
*   Richtige Zeile zum einfügen bestimmen
      g_index_save = g_index = LINES( int_edidd ).

*   Textheader
      CLEAR gs_e1edkt1.
      gs_e1edkt1-tdid         = '007'.
      gs_e1edkt1-tsspras      = 'E'.
      gs_e1edkt1-tsspras_iso  = 'EN'.

      int_edidd-segnam = 'E1EDKT1'.
      int_edidd-sdata = gs_e1edkt1.
      int_edidd-hlevel = 2.
      INSERT int_edidd INTO int_edidd[] INDEX g_index.
      g_index = g_index + 1.

*   1. Textline
      IF dvbdkr-lland <> dvbdkr-aland AND dvbdkr-lland <> 'ES'.
        CLEAR gs_e1edkt2.
        gs_e1edkt2-tdline       = '1. Textline'.
        gs_e1edkt2-tdformat     = '*'.
        int_edidd-segnam = 'E1EDKT2'.
        int_edidd-sdata = gs_e1edkt2.
        int_edidd-psgnum = g_index_save.
        int_edidd-hlevel = 3.
        INSERT int_edidd INTO int_edidd[] INDEX g_index.
        g_index = g_index + 1.
      ENDIF.

*   2. Textline
      CLEAR gs_e1edkt2.
      gs_e1edkt2-tdline       = '2. Textline'.
      gs_e1edkt2-tdformat     = '*'.
      int_edidd-segnam = 'E1EDKT2'.
      int_edidd-sdata = gs_e1edkt2.
      int_edidd-psgnum = g_index_save.
      int_edidd-hlevel = 3.
      INSERT int_edidd INTO int_edidd[] INDEX g_index.
      g_index = g_index + 1.
    ENDIF.