Balance in local currency error in BAPI_ACC_DOCUMENT_POST

Question

Hi,
When I call BAPI_ACC_DOCUMENT_POST, I take below error from bapi return message,
the code related filling bapi header,item and currency also is below.Is tehere any body can help me to solve my problem.
Thanks,
form fill_header .
  "Header
  t_doc_header-comp_code  = 'NETS'.
  t_doc_header-header_txt = 'CS stok'.
  t_doc_header-fisc_year  = gv_year.
  t_doc_header-fis_period = gv_month.
  t_doc_header-doc_date   = sy-datum.  "?
  t_doc_header-pstng_date = sy-datum.  "?
  t_doc_header-bus_act    = 'RFBU'.
  t_doc_header-username   = sy-uname.
  t_doc_header-doc_type   = 'SA'.
  append t_doc_header.
t_doc_header-ac_doc_no  = ''.
t_doc_header-acc_principle = ''.
t_doc_header-neg_postng    = ''.
endform.                    " fill_header
form fill_item using p_no .
  "item
t_accountgl_item-ac_doc_no  = ''. "Accounting Document Number
t_accountgl_item-doc_type   = ''. "Document type
  t_accountgl_item-comp_code  = 'NETS'.   "Company Code
  t_accountgl_item-plant      = '1300'.   "Plant
  t_accountgl_item-fisc_year  = gv_year.  "Fiscal Year
  t_accountgl_item-fis_period = gv_month. "Fiscal month
  if p_no = '1'.
    t_accountgl_item-itemno_acc = '1'.
    t_accountgl_item-gl_account = '1522000111'.
    t_accountgl_item-item_text  = 'CS Vuk Item-1'.
    t_accountgl_item-pstng_date = gv_last_day.
    append t_accountgl_item.
  elseif p_no ='2'.
    t_accountgl_item-itemno_acc = '2'. "Accounting Document Line Item Number
    t_accountgl_item-gl_account = '6220000111'. "General Ledger Account
    t_accountgl_item-item_text  = 'CS Vuk Item-2'.
    t_accountgl_item-pstng_date =  gv_first_day_for_next_month.
    append t_accountgl_item.
  endif.
endform.                    " fill_item_1
form fill_currency using p_no p_fark .
  data: miktar1 type ckmlcr-salk3,
        miktar2 type ckmlcr-salk3.
  "currency
t_currencyamount-exch_rate   = ''.       "Exchange rate
  t_currencyamount-curr_type   = '10'.     "Currency type and valuation view
  t_currencyamount-currency    = 'TRY'.
  miktar1 = p_fark.
  miktar2 = - p_fark.
  if p_no = '1'.
    t_currencyamount-itemno_acc  = 1.
    t_currencyamount-amt_doccur  =  miktar1. "Amount in document currency
    append t_currencyamount.
    t_currencyamount-itemno_acc  = 2.
    t_currencyamount-amt_doccur  =  miktar2.
    append t_currencyamount.
  elseif p_no = '2'.
    t_currencyamount-itemno_acc  = 1.
    t_currencyamount-amt_doccur  =  miktar2.
    append t_currencyamount.
    t_currencyamount-itemno_acc  = 2.
    t_currencyamount-amt_doccur  =  miktar1.
    append t_currencyamount.
  endif.
  append t_currencyamount.
endform.                    " fill_currency
form call_bapi_post .
  call function 'BAPI_ACC_DOCUMENT_POST'
    exporting
      documentheader            =    t_doc_header
     importing
       obj_type                =  gv_obj_type
       obj_key                 =  gv_obj_key
       obj_sys                 =  gv_obj_sys
    tables
        accountgl               =  t_accountgl_item
      ACCOUNTRECEIVABLE       =
      ACCOUNTPAYABLE          =
      ACCOUNTTAX              =
      currencyamount            =  t_currencyamount
      CRITERIA                =
      VALUEFIELD              =
      EXTENSION1              =
      return                    =  t_return.
  gs_doc =  gv_obj_key.
  perform check_error tables t_return.
  perform call_bapi_trans.
endform.                    " execute_bapi

Answer 1

check below code....
FUNCTION ZF_BAPI_ACC_GL_POSTING.
""Local interface:
*"  IMPORTING
*"     VALUE(SIMULATE) TYPE  CHAR1 OPTIONAL
*"     VALUE(FILEPATH) LIKE  RLGRAP-FILENAME OPTIONAL
*"  TABLES
*"      DATA_RECORD STRUCTURE  ZFGL_ACCOUNT_POSTING
*"      RETURN STRUCTURE  BAPIRET2
This is a common function module is to simulate & post a GL document
using input file. If file got  more than 999 items for the combination
of company code, Currency & accounting base, the function module will
post first 998 Items of the above combination & balances the GL
document with 999 item having GL account 0000299998. First line item
of  the subsequent document would be similar to 999th item of the
previous *document.
Read all input records into an internal table.
  clear: IT_DATA,
         IT_DATA[],
         w_simulate,
         flg_err,
         IT_US_DATA,
         RETURN,
         RETURN[],
         it_return,
         it_return[],
         IT_US_DATA[].
  w_simulate = simulate.
  w_filepath = filepath.
  DATA: L_index LIKE SY-TABIX,
        L_NEWBS LIKE RF05A-NEWBS.
  loop at DATA_RECORD.
    move-corresponding data_record to it_data.
    move :  data_record-SAKNR to it_data-newKO,
            data_record-MWSKZ to it_data-VAL2.
Function module to convert NEWKO
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
      EXPORTING
        INPUT  = IT_DATA-NEWKO
      IMPORTING
        OUTPUT = IT_DATA-NEWKO.
Function module to convert KOSTL
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
      EXPORTING
        INPUT  = IT_DATA-KOSTL
      IMPORTING
        OUTPUT = IT_DATA-KOSTL.
    append it_data.
    clear it_data.
  endloop.
If no data is passed in an input table
  if  it_data[] is initial.
    PERFORM UPLOAD_DATA.
    IF SY-SUBRC = 0 .
      PERFORM INSERT_IT_DATA.
    ENDIF.
  endif.
The below logic written for US payroll. As the US Payroll file is not
standard file and do not have the credit and debit amount balanced.
The logic below would take care the debit/credit amount balances
  read table it_data index 1.
  if it_data-zzdatsrc = '3311'.
    loop at it_data.
      if it_data-newbs = '40'.
        L_NEWBS = '50'.
        PERFORM CREATE_GL_ITEMS USING L_NEWBS
                                      v_gen
                                      IT_DATA-BUKRS.
        CLEAR L_NEWBS.
      else.
        L_NEWBS = '40'.
        PERFORM CREATE_GL_ITEMS USING L_NEWBS
                                      v_gen
                                      IT_DATA-BUKRS.
        CLEAR L_NEWBS.
      endif.
    endloop.
The below logic written for P-card. As the US P-Card file is not
standard file and do not have the credit and debit amount balanced,
the logic below would take care the debit/credit amount balances
  elseif it_data-zzdatsrc = '3312'.
    sort it_data by   BUKRS
                      WAERS
                      ZZACCBAS
                      seq_num
                      NEWKO.
    loop at it_data.
      if it_data-newbs = '40'.
        IT_US_DATA-WRBTR = IT_US_DATA-WRBTR + IT_DATA-WRBTR.
      else.
        IT_US_DATA-WRBTR = IT_US_DATA-WRBTR - IT_DATA-WRBTR.
      endif.
      at end of NEWKO.
        if it_us_data-wrbtr = 0.
          clear: it_us_data,
                 L_NEWBS.
          continue.
        elseif it_us_data-wrbtr > 0.
          L_NEWBS = '40'.
        else.
          L_NEWBS = '50'.
        endif.
        move-corresponding it_data to it_us_data.
        clear: it_us_data-newko,
               it_us_data-newbs,
               it_us_data-kostl,
               IT_us_data-sgtxt,
               it_us_data-wrbtr.
        MOVE: v_pcard_ac TO IT_US_DATA-NEWKO,
              L_NEWBS TO IT_US_DATA-NEWBS,
              IT_DATA-WRBTR to IT_US_DATA-WRBTR,
              '3312' TO IT_US_DATA-ZZDATSRC,
              'GGA' TO IT_US_DATA-ZZACCBAS.
        append it_us_data.
        clear: it_us_data,
               L_NEWBS.
      endat.
    endloop.
    LOOP AT IT_US_DATA.
      MOVE-CORRESPONDING IT_US_DATA TO IT_DATA.
      APPEND IT_DATA.
      CLEAR IT_DATA.
    ENDLOOP.
  endif.
Populate  Sequence number
  loop at it_data.
    it_data-seq_num  = sy-tabix.
    modify it_data index sy-tabix transporting seq_num.
  endloop.
Sort table
  sort it_data by bukrs waers budat zzACCBAS seq_num.
Populate reconciliation account for 999th record
  v_rec_account = '0000299998'.
Process input data
  loop at it_data.
    L_INDEX = SY-TABIX.
Populate document heade for every combination of
company code & currency code
    At new ZZACCBAS.
      READ TABLE IT_DATA INDEX L_INDEX.
      CLEAR: it_documentheader[],
             it_documentheader,
             it_accountgl[],
             it_accountgl,
             it_currencyamount[],
             it_currencyamount,
             W_COUNT,
             W_TL_AMNT,
             w_seq,
             flg_eod.
      perform populate_header.
    endat.
    W_COUNT = W_COUNT + 1.
    IF IT_DATA-NEWBS = '40'.
      W_TL_AMNT = W_TL_AMNT - IT_DATA-WRBTR.
    ELSEIF IT_DATA-NEWBS = '50'.
      W_TL_AMNT = W_TL_AMNT + IT_DATA-WRBTR.
    ENDIF.
    perform populate_items.
    if flg_err = 'X'.
      exit.
    endif.
    AT END OF ZZACCBAS.
Call BAPI to check input data.
      perform call_posting_bapi.
      loop at it_return where type = 'S' or type = 'E' or type ='A'.
        move-corresponding it_return to return.
        append return.
        clear return.
      endloop.
      flg_EOD    =  'X'.
      CLEAR: W_TL_AMNT,
              W_COUNT,
              it_documentheader[],
              it_documentheader,
              it_accountgl[],
              it_accountgl,
              it_currencyamount[],
              it_currencyamount.
    ENDAT.
*Creating the reconcillation record
    if flg_EOD <> 'X'.
      IF W_COUNT EQ 998.
        IF W_TL_AMNT <> 0.
          W_COUNT = W_COUNT + 1.
          IF W_TL_AMNT LT 0.
            IT_DATA-NEWBS = '50'.
            it_data-newko =  v_rec_account.
            W_WRBTR = ABS( W_TL_AMNT ).
            IT_DATA-WRBTR = W_WRBTR.
            flg_fi = 'X'.
            w_seq = w_seq + 1 .
            perform populate_items.
            if flg_err = 'X'.
              exit.
            endif.
            perform call_posting_bapi.
          loop at it_return where type = 'S' or type = 'E' or type ='A'.
              move-corresponding it_return to return.
              append return.
              clear return.
            endloop.
            cleAR:it_accountgl[],
                  it_accountgl,
                  it_currencyamount[],
                  it_currencyamount.
            W_COUNT = 1.
            IT_DATA-NEWBS = '40'.
            it_data-newko =  v_rec_account.
            W_WRBTR = ABS( W_TL_AMNT ).
            IT_DATA-WRBTR = W_WRBTR.
            flg_fi = 'X'.
            perform populate_items.
            if flg_err = 'X'.
              exit.
            endif.
          ELSE.
            IT_DATA-NEWBS = '40'.
            it_data-newko =  v_rec_account.
            W_WRBTR = ABS( W_TL_AMNT ).
            IT_DATA-WRBTR = W_WRBTR.
            flg_fi = 'X'.
            perform populate_items.
            if flg_err = 'X'.
              exit.
            endif.
            perform call_posting_bapi.
          loop at it_return where type = 'S' or type = 'E' or type ='A'.
              move-corresponding it_return to return.
              append return.
              clear return.
            endloop.
            cleAR:it_accountgl[],
                  it_accountgl,
                  it_currencyamount[],
                  it_currencyamount.
            W_COUNT = 1.
            IT_DATA-NEWBS = '50'.
            it_data-newko =  v_rec_account.
            W_WRBTR = ABS( W_TL_AMNT ).
            IT_DATA-WRBTR = W_WRBTR.
            flg_fi = 'X'.
            perform populate_items.
            if flg_err = 'X'.
              exit.
            endif.
          ENDIF.
        endif.
      endif.
    endif.
  endloop.
  IF FLG_ERR = 'X'.
    loop at it_return where type = 'E' or type ='A'.
      move-corresponding it_return to return.
      append return.
      clear return.
    endloop.
  ENDIF.
ENDFUNCTION.