- SAP Managed Tags
Hi ,
it is important ACCOUNTTAX table. if your taxcode is provide taxamount with out zero. .you can use below code. in lt_tax has different item(position) number than currency amount.
position number is important here. split item one two items. position 5 is tax.
This gl_account is coming from calculate_tax method..
you must only give tax_code if really calculated .
DATA : ls_dochead TYPE bapiache09,
lt_curr TYPE STANDARD TABLE OF bapiaccr09,
ls_curr TYPE bapiaccr09,
lt_acgl TYPE STANDARD TABLE OF bapiacgl09,
ls_acgl TYPE bapiacgl09,
ls_zaccit TYPE zaccextension2,
lt_ext2 TYPE STANDARD TABLE OF bapiparex,
ls_ext2 TYPE bapiparex,
lt_tax TYPE STANDARD TABLE OF bapiactx09,
ls_tax TYPE bapiactx09.
DATA : lv_line TYPE i.
"ls_dochead-obj_type = 'BKPF'.
ls_dochead-username = sy-uname.
ls_dochead-header_txt = af_sgtxt.
ls_dochead-comp_code = af_bukrs.
ls_dochead-fisc_year = af_budat(4).
ls_dochead-fis_period = af_budat+4(2).
ls_dochead-doc_date = af_budat.
ls_dochead-pstng_date = af_bldat.
ls_dochead-trans_date = af_bldat.
ls_dochead-doc_type = 'SA'.
ls_dochead-ref_doc_no = af_xblnr.
lv_line = lines( at_data ).
LOOP AT at_data INTO DATA(ls_data).
ls_acgl-itemno_acc = sy-tabix .
ls_acgl-gl_account = |{ ls_data-hkont ALPHA = IN }|.
ls_acgl-item_text = ls_data-sgtxt.
ls_acgl-ref_key_1 = ls_data-ref_key_1.
ls_acgl-doc_type = 'SA'.
ls_acgl-comp_code = af_bukrs.
ls_acgl-func_area_long = ls_data-func_area.
ls_acgl-fis_period = af_budat+4(2).
ls_acgl-fisc_year = af_budat(4).
ls_acgl-pstng_date = ls_dochead-pstng_date.
ls_acgl-value_date = ls_dochead-pstng_date.
ls_acgl-costcenter = |{ ls_data-kostl ALPHA = IN }|..
ls_acgl-profit_ctr = ls_data-prctr.
ls_acgl-orderid = |{ ls_data-orderid ALPHA = IN }|.
ls_acgl-sales_ord = |{ ls_data-sales_ord ALPHA = IN }|.
ls_acgl-s_ord_item = |{ ls_data-s_ord_item ALPHA = IN }|.
ls_acgl-wbs_element = ls_data-wbs_element.
ls_acgl-tax_code = ls_data-tax_code.
ls_acgl-taxjurcode = ls_data-taxjurcode.
ls_acgl-segment = ls_data-segment.
ls_curr-itemno_acc = ls_acgl-itemno_acc.
ls_curr-currency = af_waers.
CASE ls_data-shkzg.
WHEN 'H'.
ls_curr-amt_doccur = ls_data-amt_doccur * -1.
WHEN 'S'.
DATA : lv_wrbtr TYPE wrbtr .
lv_wrbtr = ls_data-amt_doccur .
DATA(ls_ctax) = calculate_tax(
EXPORTING
i_wrbtr = lv_wrbtr
i_mwskz = ls_data-tax_code " Tax on sales/purchases code
).
IF ls_ctax-kawrt NE lv_wrbtr.
ls_curr-amt_doccur = ls_ctax-kawrt.
ls_curr-amt_base = ls_data-amt_doccur.
ls_tax-itemno_acc = ls_acgl-itemno_acc + lv_line.
ls_tax-gl_account = ls_ctax-hkont.
ls_tax-tax_code = ls_data-tax_code.
ELSE.
ls_curr-amt_doccur = ls_data-amt_doccur .
ENDIF.
ENDCASE.
IF ls_data-gac NE space.
ls_zaccit-posnr = ls_acgl-itemno_acc .
ls_zaccit-zzgac = ls_data-gac.
ls_ext2-structure = 'ZACCEXTENSION2'.
ls_ext2-valuepart1 = ls_zaccit.
APPEND ls_ext2 TO lt_ext2.
ENDIF.
APPEND ls_acgl TO lt_acgl.
APPEND ls_curr TO lt_curr.
IF ls_tax-itemno_acc IS NOT INITIAL.
APPEND ls_tax TO lt_tax.
ls_curr-amt_doccur = ls_ctax-wmwst.
ls_curr-itemno_acc = ls_acgl-itemno_acc + lv_line .
APPEND ls_curr TO lt_curr.
ENDIF.
CLEAR : ls_tax , ls_curr , ls_ext2, ls_acgl.
ENDLOOP.
CALL FUNCTION 'BAPI_ACC_DOCUMENT_CHECK'
EXPORTING
documentheader = ls_dochead
* CUSTOMERCPD =
* CONTRACTHEADER =
tables
ACCOUNTGL = lt_acgl
* ACCOUNTRECEIVABLE =
* ACCOUNTPAYABLE =
ACCOUNTTAX = lt_tax
CURRENCYAMOUNT = lt_curr
* CRITERIA =
* VALUEFIELD =
* EXTENSION1 =
return = et_messages
* PAYMENTCARD =
* CONTRACTITEM =
EXTENSION2 = lt_ext2
* REALESTATE =
* ACCOUNTWT =
.
*value( I_WRBTR ) TYPE WRBTR Amount in Document Currency
*value( I_MWSKZ ) TYPE MWSKZ Tax on sales/purchases code
*value( E_TAX ) TYPE RTAX1U15 Tax Rate and Tax Amount for a Tax Code
method CALCULATE_TAX.
DATA : LT_MWDAT TYPE STANDARD TABLE OF RTAX1U15.
CALL FUNCTION 'CALCULATE_TAX_FROM_GROSSAMOUNT'
EXPORTING
i_bukrs = af_bukrs
i_mwskz = I_MWSKZ
* I_TXJCD = ' '
i_waers = af_waers
i_wrbtr = I_WRBTR
TABLES
T_MWDAT = LT_MWDAT
EXCEPTIONS
BUKRS_NOT_FOUND = 1
COUNTRY_NOT_FOUND = 2
MWSKZ_NOT_DEFINED = 3
MWSKZ_NOT_VALID = 4
ACCOUNT_NOT_FOUND = 5
DIFFERENT_DISCOUNT_BASE = 6
DIFFERENT_TAX_BASE = 7
TXJCD_NOT_VALID = 8
NOT_FOUND = 9
KTOSL_NOT_FOUND = 10
KALSM_NOT_FOUND = 11
PARAMETER_ERROR = 12
KNUMH_NOT_FOUND = 13
KSCHL_NOT_FOUND = 14
UNKNOWN_ERROR = 15
OTHERS = 16
.
IF sy-subrc = 0.
READ TABLE LT_MWDAT INTO E_TAX INDEX 1.
ENDIF.
endmethod.
Best wishes
Erol ÇAĞLAR
Bluesky
