SAP ABAP - BAPI_ACC_DOCUMENT_POST extension

  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.