Дебиторский счет в фактуре

STATICS ls_t001 TYPE t001.

DATA ls_vbrk TYPE vbrk.
DATA ls_vbrp TYPE vbrp.
DATA ls_tvfk TYPE tvfk.
DATA ls_komkcv TYPE komkcv.
DATA ls_kompcv TYPE kompcv.
DATA ls_c000 TYPE c000.

SELECT SINGLE *
INTO ls_vbrk
FROM vbrk
WHERE vbeln EQ im_vbeln.
CHECK sy-subrc EQ 0.
SELECT SINGLE *
INTO ls_vbrp
FROM vbrp
WHERE vbeln EQ im_vbeln
AND posnr EQ im_posnr.
CHECK sy-subrc EQ 0.
SELECT SINGLE *
INTO ls_tvfk
FROM tvfk
WHERE fkart EQ ls_vbrk-fkart.

CLEAR ls_komkcv.
MOVE-CORRESPONDING ls_vbrk TO ls_komkcv.
IF ls_t001-bukrs NE ls_vbrk-bukrs.
SELECT SINGLE *
INTO ls_t001
FROM t001
WHERE bukrs EQ ls_vbrk-bukrs.
ENDIF.
ls_komkcv-ktopl = ls_t001-ktopl.
ls_komkcv-kappl = ls_tvfk-kappl.
CLEAR ls_kompcv.
MOVE-CORRESPONDING ls_vbrp TO ls_kompcv.

CALL FUNCTION 'ACCOUNT_ALLOCATION_GENERAL'
EXPORTING
i_application = 'VB'
i_scheme = ls_tvfk-kalsmcb
i_header_communication = ls_komkcv
i_item_communication = ls_kompcv
IMPORTING
e_c000 = ls_c000.

re_saknr = ls_c000-sakn1.