BAPI_ACC_DOCUMENT_POST & generated document number

Question

Hi,
I am using BAPI function BAPI_ACC_DOCUMENT_POST to post financial documents in the system. My question is, how properly retrieve generated document number (BKPF-BELNR). We are using internal document number generation so the function generates document number. But, function itself, does not return generated document number. Currently, after commit I try to locate a record of generated document using reference key ... Isn't there any better way how to get generated document number?
Tkank you.

Answer 1

Yes, I found this code ... as I wrote, there is not problem if I set curtp = '10'. BUT, there is another problem, with different currencies. Then, when I try to post document in different currency that the currency of company code is, function raises error "Inconsistent currency information" ...
here is an example, how I fill tax information, as requested:
DATA:   docHeader     TYPE BAPIACHE09,
        accGL         LIKE BAPIACGL09 OCCURS 0 WITH HEADER LINE,
        accReceivable LIKE BAPIACAR09 OCCURS 0 WITH HEADER LINE,
        accAmnt       LIKE BAPIACCR09 OCCURS 0 WITH HEADER LINE,
        accTax        LIKE BAPIACTX09 OCCURS 0 WITH HEADER LINE,
        extension     LIKE BAPIACEXTC OCCURS 0 WITH HEADER LINE,
        tax_account   TYPE STRING,
        tax_code      TYPE STRING,
        tax_trans     TYPE STRING,
        tax_spec      LIKE ZIFPRMS-VALUE,
        itemno        TYPE N LENGTH 10.
* initialize document header
  docHeader-bus_act    = 'RFBU'.
  docHeader-username   = sy-uname.
  docHeader-header_txt = fin_data-text.
  docHeader-comp_code  = header-company_code.
  docHeader-doc_date   = header-document_date.
  docHeader-pstng_date = fin_data-posting_date.
  docHeader-ref_doc_no = header-id_sale.
  docHeader-doc_type = params-doc_type.
* process document items, in loop
  LOOP AT fin_items INTO fin_item.
* initialize AR (line 1)
     accReceivable-itemno_acc = itemno.
     accReceivable-customer   = cus_data-id_contact.
     accReceivable-comp_code = header-company_code.
     CONCATENATE fin_item-text ' (receivable)' INTO accReceivable-item_text.
     accReceivable-pmnttrms = params-payment_term.
     accReceivable-pmnt_block = params-payment_block.
     IF doc_type = 'APR'.
        accReceivable-sp_gl_ind = 'F'.
     ENDIF.
     APPEND accReceivable.
* initialize receivable amount
     accAmnt-itemno_acc = itemno.
     accAmnt-currency = fin_data-currency.
     accAmnt-curr_type = '10'.
     accAmnt-amt_doccur = fin_item-vat_base + fin_item-vat.
     IF doc_type(2) = 'CR'.
        accAmnt-amt_doccur = accAmnt-amt_doccur * ( -1 ).
     ENDIF.
     APPEND accAmnt.
     itemno = itemno + 1.
* do not continue when posting a down payment request
     CHECK doc_type < > 'APR'.
* initialize GL account line item
     accGL-itemno_acc = itemno.
     accGL-gl_account = params-doc_gl_account.
     CONCATENATE fin_item-text ' (revenue)' INTO accGL-item_text.
     accGL-pstng_date = fin_data-posting_date.
     accGL-tax_code = tax_code.
     accGL-doc_type = params-doc_type.
     accGL-costcenter = fin_item-cost_centre.
     APPEND accGL.
* initialize GL amount
     accAmnt-itemno_acc = itemno.
     accAmnt-currency = fin_data-currency.
     accAmnt-curr_type = '10'.
     accAmnt-amt_doccur = - ( fin_item-vat_base ).
     IF doc_type(2) = 'CR'.
        accAmnt-amt_doccur = accAmnt-amt_doccur * ( -1 ).
     ENDIF.
     APPEND accAmnt.
     itemno = itemno + 1.
* initialize TAX account line item
     IF STRLEN( tax_code ) > 0.
        accTax-itemno_acc = itemno.
        accTax-gl_account = tax_account.
        accTax-tax_code   = tax_code.
        accTax-cond_key   = 'MWAS'.
        APPEND accTax.
* initialize tax amount
        accAmnt-itemno_acc = itemno.
        accAmnt-currency = fin_data-currency.
        accAmnt-curr_type = '10'.
        accAmnt-amt_doccur = - ( fin_item-vat ).
        accAmnt-amt_base = - ( fin_item-vat_base ).
        IF doc_type(2) = 'CR'.
           accAmnt-amt_doccur = accAmnt-amt_doccur * ( -1 ).
           accAmnt-amt_base = accAmnt-amt_base * ( -1 ).
        ENDIF.
        APPEND accAmnt.
        itemno = itemno + 1.
     ENDIF.
  ENDLOOP.
* translate customer field to BAPI format
  CALL FUNCTION 'MAP2E_BAPICOBL_CI_TO_BAPIEXTC'
     TABLES    INTERNAL_CI_COBL      = cust_ext
               EXTENSION_CODINGBLOCK = extension.
* call BAPI function to create customer invoice
  CALL FUNCTION 'BAPI_ACC_DOCUMENT_POST'
     EXPORTING DOCUMENTHEADER = docHeader
     IMPORTING OBJ_TYPE = obj_type
               OBJ_KEY  = obj_key
               OBJ_SYS  = obj_sys
     TABLES    ACCOUNTGL = accGL
               ACCOUNTRECEIVABLE = accReceivable
               ACCOUNTTAX = accTax
               CURRENCYAMOUNT = accAmnt
               EXTENSION1 = extension
               RETURN = returnTab.
Edited by: Rastislav Mojzis on Jul 9, 2008 7:18 AM