Problem with tax calculate tax in BAPI_ACC_DOCUMENT_POST

Question

Hi ,
I am using BAPI_ACC_DOCUMENT_POST to  post financial details to G/L accounts .
The BAPi has created the acoounting document with the data I have passed,but I am
unable to calculate tax(i.e.When i click Calculate tax check box in FB01 ,a tax line item gets created,)
but the same is not happening when i use the BAPI.
Can any one throw light on the data that needs to be passed to the TABLE ACCOUNTTAX and how the
corresponding changes that needs to be done to TABLE CURRENCYAMOUNT inorder to create this new line item.
i have also had a look at the OSS notes but still am facing issue .
Pl help!!I

Answer 1

Hi
This is my code to fill ACCOUNTTAX:
LOOP AT GL_ITEM INTO W_GL_ITEM .
    ITEMNO_ACC = ITEMNO_ACC + 1.
    IF W_GL_ITEM-VAT = SPACE.
      ACCOUNTGL-ITEMNO_ACC = ITEMNO_ACC.
      ACCOUNTGL-GL_ACCOUNT = W_GL_ITEM-HKONT.
      ACCOUNTGL-BUS_AREA   = W_GL_ITEM-GSBER.
      ACCOUNTGL-TAX_CODE   = W_GL_ITEM-MWSKZ.
      ACCOUNTGL-PROFIT_CTR = W_GL_ITEM-PRCTR.
      ACCOUNTGL-COSTCENTER = W_GL_ITEM-KOSTL.
      ACCOUNTGL-REF_KEY_2  = W_GL_ITEM-XREF2.
      ACCOUNTGL-REF_KEY_3  = W_GL_ITEM-XREF3.
      APPEND ACCOUNTGL.
      PERFORM FILL_AMOUNT USING W_GL_ITEM-WRBTR 0.
      CLEAR ZSDFI_BAPI_EXTENSION.
      ZSDFI_BAPI_EXTENSION-ITEMNO_ACC = ITEMNO_ACC.
      ZSDFI_BAPI_EXTENSION-ZLIFNR     = W_GL_ITEM-ZLIFNR.
      ZSDFI_BAPI_EXTENSION-CANALE     = W_GL_ITEM-ZJ_3AKVGR6.
      MOVE ZSDFI_BAPI_EXTENSION TO EXTENSIONS.
      APPEND EXTENSIONS.
    ELSE.
      ACCOUNTTAX-ITEMNO_ACC = ITEMNO_ACC.
      ACCOUNTTAX-TAX_CODE   = W_GL_ITEM-MWSKZ.
      ACCOUNTTAX-ACCT_KEY   = W_GL_ITEM-KOSTL.
      ACCOUNTTAX-COND_KEY   = W_GL_ITEM-KSCHL.
      ACCOUNTTAX-TAXJURCODE = W_GL_ITEM-TXJCD.
      ACCOUNTTAX-TAXJURCODE_DEEP  = W_GL_ITEM-TXJCD_DEEP.
      ACCOUNTTAX-TAXJURCODE_LEVEL = W_GL_ITEM-TXJLV.
      APPEND ACCOUNTTAX.
      PERFORM FILL_AMOUNT USING W_GL_ITEM-WRBTR W_GL_ITEM-BASE.
    ENDIF.
  ENDLOOP.
FORM FILL_AMOUNT USING    P_AMOUNT P_BASE.
  CURRENCYAMOUNT-ITEMNO_ACC = ITEMNO_ACC.
  CURRENCYAMOUNT-CURR_TYPE  = '00'.
  CURRENCYAMOUNT-CURRENCY   = T001-WAERS.
  CURRENCYAMOUNT-AMT_DOCCUR = - P_AMOUNT.
  CURRENCYAMOUNT-AMT_BASE   = - P_BASE.
  APPEND CURRENCYAMOUNT.
ENDFORM.                    " FILL_AMOUNT
The tax data are picked by fm CALCULATE_TAX_FROM_NET_AMOUNT
REFRESH T_MWDAT.
      CALL FUNCTION 'CALCULATE_TAX_FROM_NET_AMOUNT'
           EXPORTING
                I_BUKRS           = BUK_TO
                I_MWSKZ           = T_BASE-MWSKZ_OUT
                I_WAERS           = _BKPF-WAERS
                I_WRBTR           = T_BASE-WRBTR
           TABLES
                T_MWDAT           = T_MWDAT
           EXCEPTIONS
                BUKRS_NOT_FOUND   = 1
                COUNTRY_NOT_FOUND = 2
                MWSKZ_NOT_DEFINED = 3
                MWSKZ_NOT_VALID   = 4
                KTOSL_NOT_FOUND   = 5
                KALSM_NOT_FOUND   = 6
                PARAMETER_ERROR   = 7
                KNUMH_NOT_FOUND   = 8
                KSCHL_NOT_FOUND   = 9
                UNKNOWN_ERROR     = 10
                ACCOUNT_NOT_FOUND = 11
                TXJCD_NOT_VALID   = 12
                OTHERS            = 13.
      IF SY-SUBRC <> 0.
        MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
                WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ELSE.
        LOOP AT T_MWDAT.
          CLEAR W_GL_ITEM.
          W_GL_ITEM-HKONT   = T_MWDAT-HKONT.
          W_GL_ITEM-MWSKZ   = T_BASE-MWSKZ_OUT.
          IF T_BASE-KBETR = T_MWDAT-KBETR.
            W_GL_ITEM-WRBTR   = T_BASE-FWSTE.
          ELSE.
            W_GL_ITEM-WRBTR   = T_MWDAT-WMWST.
          ENDIF.
          W_GL_ITEM-VAT   = 'X'.
          W_GL_ITEM-KTOSL = T_MWDAT-KTOSL.
          W_GL_ITEM-TXJCD = T_MWDAT-TXJCD.
          W_GL_ITEM-KSCHL = T_MWDAT-KSCHL.
          W_GL_ITEM-TXJCD_DEEP = T_MWDAT-TXJCD_DEEP.
          W_GL_ITEM-TXJLV = T_MWDAT-TXJLV.
          W_GL_ITEM-BASE  = T_BASE-WRBTR.
I hope it can help you
Max