topic FI Document Post in Application Development and Automation Discussions

FI Document Post

Former Member — Mon, 04 Oct 2010 06:37:02 GMT

Hi,

A FI document is posted against a customer. Now I want to copy the details of same document and post it to another customer and post one more document for the original customer with the debit indicator.

Do we have any FM or BAPI for this ..

Please help me.. I am stuck in the issue...

Thanks & Rgds,

Sameer..

Re: FI Document Post

jyotheswar_p2 — Mon, 04 Oct 2010 06:39:45 GMT

Use 'BAPI_ACC_DOCUMENT_POST'.Please read the documentation for the business type to be passed.

Re: FI Document Post

Former Member — Tue, 05 Oct 2010 10:57:51 GMT


 CALL FUNCTION 'BAPI_ACC_DOCUMENT_POST'
      EXPORTING
        documentheader = documentheader
      TABLES
        accountgl      = accountgl
        currencyamount = currencyamount
        return         = return
        extension1     = extension1
      EXCEPTIONS
        OTHERS         = 1.
    IF sy-subrc <> 0.
      MESSAGE e999(re) WITH 'Problem occured'.
    ELSE.

Re: FI Document Post

RaymondGiuseppi — Tue, 05 Oct 2010 11:09:53 GMT

Use [BAPI_ACC_DOCUMENT_POST|http://www.sdn.sap.com/irj/scn/advancedsearch?query=bapi_acc_document_post#sdn_content_category_value_wiki] to post to the new customer and [BAPI_ACC_DOCUMENT_REV_POST|http://www.sdn.sap.com/irj/scn/advancedsearch?query=bapi_acc_document_post#sdn_content_category_value_wiki] for the old one.

Regards,

Raymond

Re: FI Document Post

Former Member — Thu, 07 Oct 2010 07:30:31 GMT

Example:


 DATA:
  obj_type LIKE bapiache02-obj_type,
  obj_key LIKE bapiache02-obj_key,
  obj_sys LIKE bapiache02-obj_sys,
*  documentheader LIKE bapiache08,
  documentheader LIKE bapiache09,
*  accountgl LIKE bapiacgl08 OCCURS 0 WITH HEADER LINE,
*  currencyamount LIKE bapiaccr08 OCCURS 0 WITH HEADER LINE,
*  extension1 LIKE bapiextc   OCCURS 0 WITH HEADER LINE,
  return LIKE bapiret2 OCCURS 0 WITH HEADER LINE,
  accountgl LIKE bapiacgl09  OCCURS 0 WITH HEADER LINE,
  currencyamount LIKE bapiaccr09 OCCURS 0 WITH HEADER LINE,
  extension1 LIKE bapiacextc   OCCURS 0 WITH HEADER LINE,
  t_edidd LIKE edidd OCCURS 0 WITH HEADER LINE,
  bapi_retn_info LIKE bapiret2 OCCURS 0 WITH HEADER LINE.

  DATA: error_flag.
  DATA: gs_wait TYPE bapita-wait,
  wa_comm_return TYPE bapiret2.
  DATA : zline LIKE bapiacgl09-itemno_acc.
  LOOP AT itab.

    IF itab-shkzg = 'H'.
      CONCATENATE itab-mblnr itab-mjahr INTO documentheader-header_txt.
      documentheader-username = sy-uname.
      documentheader-comp_code = '1000'.
      documentheader-doc_date = itab-bldat.
      documentheader-pstng_date = itab-budat.
      documentheader-doc_type = 'SA'.
      documentheader-ref_doc_no = itab-xblnr.
***line item 1
      accountgl-itemno_acc = '2'.
      accountgl-gl_account = '0000232900'.
      accountgl-comp_code = '1000'.
      accountgl-pstng_date = itab-budat.
      accountgl-doc_type = 'SA'.
      accountgl-profit_ctr = itab-prctr.
      accountgl-alloc_nmbr = itab-zuonr.
      accountgl-po_number  = itab-ebeln.
      accountgl-po_item = itab-ebelp.
*    accountgL-DE_CRE_IND = 'S'.
      APPEND accountgl.

      currencyamount-itemno_acc = '2'.
      currencyamount-currency = 'USD'.
      currencyamount-amt_doccur = itab-grval.
      APPEND currencyamount.
*    zline = zline + 1.
***line itme 2
      accountgl-itemno_acc = '1'.
      accountgl-gl_account = '0000261000'.
      accountgl-comp_code = '1000'.
      accountgl-pstng_date = itab-budat.
      accountgl-doc_type = 'SA'.
      accountgl-profit_ctr = itab-prctr.
      accountgl-alloc_nmbr = itab-zuonr.
*    accountgl-po_number  = itab-ebeln.
      accountgl-po_item = itab-ebelp.
*    accountgL-DE_CRE_IND = 'H'.
      APPEND accountgl.
      currencyamount-itemno_acc = '1'.
      currencyamount-currency = 'USD'.
      itab-grval = itab-grval * -1.
      currencyamount-amt_doccur = itab-grval.
      APPEND currencyamount.
    ELSE.

      documentheader-username = sy-uname.
      CONCATENATE itab-mblnr itab-mjahr INTO documentheader-header_txt.
      documentheader-comp_code = '1000'.
      documentheader-doc_date = itab-bldat.
      documentheader-pstng_date = itab-budat.
      documentheader-doc_type = 'SA'.
      documentheader-ref_doc_no = itab-xblnr.
***line item 1
      accountgl-itemno_acc = '1'.
      accountgl-gl_account = '0000261000'.
      accountgl-comp_code = '1000'.
      accountgl-pstng_date = itab-budat.
      accountgl-doc_type = 'SA'.
      accountgl-profit_ctr = itab-prctr.
      accountgl-alloc_nmbr = itab-zuonr.
*    accountgL-DE_CRE_IND = 'S'.
      APPEND accountgl.

      currencyamount-itemno_acc = '1'.
      currencyamount-currency = 'USD'.
      currencyamount-amt_doccur = itab-grval.
      APPEND currencyamount.
*    zsched_line = zsched_line + 1.
***line itme 2
      accountgl-itemno_acc = '2'.
      accountgl-gl_account = '0000232900'.
      accountgl-comp_code = '1000'.
      accountgl-pstng_date = itab-budat.
      accountgl-doc_type = 'SA'.
      accountgl-profit_ctr = itab-prctr.
      accountgl-alloc_nmbr = itab-zuonr.
      accountgl-po_number  = itab-ebeln.
      accountgl-po_item = itab-ebelp.
*    accountgL-DE_CRE_IND = 'H'.
      APPEND accountgl.

      currencyamount-itemno_acc = '2'.
      currencyamount-currency = 'USD'.
      itab-grval = itab-grval * -1.
      currencyamount-amt_doccur = itab-grval.
      APPEND currencyamount.
    ENDIF.

Edited by: Krupaji on Oct 7, 2010 9:30 AM

Re: FI Document Post

Former Member — Thu, 07 Oct 2010 07:31:31 GMT

Continue...........


  CALL FUNCTION 'BAPI_ACC_DOCUMENT_POST'
      EXPORTING
        documentheader = documentheader
      TABLES
        accountgl      = accountgl
        currencyamount = currencyamount
        return         = return
        extension1     = extension1
      EXCEPTIONS
        OTHERS         = 1.
    IF sy-subrc <> 0.
      MESSAGE e999(re) WITH 'Problem occured'.
    ELSE.
      .
      LOOP AT return.
        IF NOT return IS INITIAL.
          CLEAR bapi_retn_info.
          MOVE-CORRESPONDING return TO bapi_retn_info.
          IF return-type = 'A' OR return-type = 'E'.
            error_flag = 'X'.
          ENDIF.
          APPEND bapi_retn_info.
        ENDIF.
      ENDLOOP.
      IF error_flag = 'X'.
        MESSAGE e999(re) WITH 'Problem occured'.
        ROLLBACK WORK.
      ELSE.
        CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
          EXPORTING
            wait   = gs_wait
          IMPORTING
            return = wa_comm_return.
        WRITE :/ return-message+0(30),return-message+36(10).
      ENDIF.
    ENDIF.
    REFRESH: currencyamount,accountgl,return,extension1.
    CLEAR: currencyamount,accountgl,documentheader,return,extension1.
  ENDLOOP.