All About ABAP Technique > Indonesia > ABAP Tutorial > ABAP Workbench Tools > Enhancement > Customer Exits > Contoh Customer Exits > Project ZSDWS001 > Funtions Exits > EXIT_SAPLV60B

*&---------------------------------------------------------------------*
*& 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.