*&---------------------------------------------------------------------*
*&  Include           ZXVVFU04                                         *
*&---------------------------------------------------------------------*
*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*"       IMPORTING
*"             VALUE(XACCIT) LIKE  ACCIT STRUCTURE  ACCIT
*"             VALUE(XKOMV) LIKE  KOMV STRUCTURE  KOMV
*"             VALUE(VBRK) LIKE  VBRK STRUCTURE  VBRK
*"             VALUE(XVBRP) LIKE  VBRPVB STRUCTURE  VBRPVB
*"       EXPORTING
*"             VALUE(XACCIT) LIKE  ACCIT STRUCTURE  ACCIT
*"----------------------------------------------------------------------
tables: lips.
data: xuepos like lips-uepos,
     xvbeln like lips-vbeln.
 
if xvbrp-uepos is not initial.
if xvbrp-pstyv = 'ZTNP' or xvbrp-pstyv = 'ZTNC'.
 
   select single * from lips where vbeln = xvbrp-vgbel
                             and   posnr = xvbrp-vgpos.
   if sy-subrc = 0.
     move lips-uepos to xuepos.
     move lips-vbeln to xvbeln.
     select single * from lips where posnr = xuepos
                               and   vbeln = xvbeln.
     if sy-subrc = 0.
       XACCIT-MATNR = LIPS-MATNR.
       XACCIT-FKIMG = 0.
       XACCIT-FKLMG = 0.
       XACCIT-NTGEW = 0.
       XACCIT-BRGEW = 0.
       XACCIT-VOLUM = 0.
     endif.
     clear xuepos.
     clear xvbeln.
     clear lips.
   endif.
endif.
endif.
 
*** Transfer Billing Document Number to FI Document text line item
XACCIT-SGTXT = VBRK-VBELN.