SAP ABAP - BAPI_ACC_DOCUMENT_POST extension
Updated: Aug 29, 2022
CLEAR : git_extension2[].
DATA : ls_extensions TYPE ZFI_ACC_DOC_EXTENSIONS.
clear: ls_extensions -posnr .
ls_extensions-xref1_hd = gv_group_number.
gwa_extension2-structure = 'ZFI_CMS_S_GROUP_NO'.
MOVE ls_extensions TO gwa_extension2+30 .
APPEND gwa_extension2 TO git_extension2.
CALL FUNCTION 'BAPI_ACC_DOCUMENT_POST'
EXPORTING
documentheader = gwa_documentheader
customercpd = gwa_customercpd
contractheader = gwa_contractheader
IMPORTING
obj_type = gv_obj_type
obj_key = gv_obj_key
obj_sys = gv_obj_sys
TABLES
accountgl = git_accountgl
accountreceivable = git_accountreceivable
accountpayable = git_accountpayable
accounttax = git_accounttax
currencyamount = git_currencyamount
criteria = git_criteria
valuefield = git_valuefield
extension1 = git_extension1
return = git_bapiret2
extension2 = git_extension2 .
se18 -> ACC DOCUMENT -> create
double click on method (CHANGE)
DATA:
ls_doc_ext TYPE zfi_acc_doc_extensions,
wa_extension TYPE bapiparex,
wa_accit TYPE accit.
LOOP AT c_extension2 INTO wa_extension where structure = 'ZFI_ACC_DOC_EXTENSIONS'.
ls_doc_ext = wa_extension-valuepart1 .
IF ls_doc_ext- posnr IS INITIAL.
LOOP AT c_accit INTO wa_accit .
wa_accit- xref1_hd = ls_doc_ext -xref1_hd.
MODIFY c_accit FROM wa_accit .
ENDLOOP .
ELSE.
LOOP AT c_accit INTO wa_accit WHERE posnr = ls_doc_ext-posnr .
wa_accit- xref1_hd = ls_doc_ext -xref1_hd.
MODIFY c_accit FROM wa_accit .
ENDLOOP .
ENDIF.
ENDLOOP.