[Home] [Help]
287: original_tax_amount --eric added for bug 6957519/6958938/6968839
288: , modified_tax_amount
289: , tax_id
290: FROM
291: jai_retro_tax_changes
292: WHERE line_change_id = pn_line_change_id;
293:
294: ln_tot_org_nr_tax_amt NUMBER :=0; --eric added for bug 6957519/6958938/6968839 on Apr 10,2008
295: ln_tot_modif_nr_tax_amt NUMBER :=0; --eric added for bug 6957519/6958938/6968839 on Apr 10,2008
422: original_tax_amount
423: , modified_tax_amount
424: , tax_id
425: FROM
426: jai_retro_tax_changes
427: WHERE line_change_id = pn_line_change_id
428: AND tax_type IN ( JAI_CONSTANTS.tax_type_excise
429: , JAI_CONSTANTS.tax_type_exc_additional
430: , JAI_CONSTANTS.tax_type_exc_other
439: original_tax_amount
440: , modified_tax_amount
441: , tax_id
442: FROM
443: jai_retro_tax_changes jrtc
444: WHERE EXISTS( SELECT
445: 'X'
446: FROM
447: JAI_RGM_DEFINITIONS jr
571: , nvl(jrtc.currency_code, jai_rcv_trx_processing_pkg.gv_func_curr) currency
572: , nvl(decode(pv_breakup_type, 'RG23D', 100, jtc.mod_cr_percentage), 0) mod_cr_percentage
573: , nvl(jtc.rounding_factor, 0) rnd
574: FROM
575: jai_retro_tax_changes jrtc
576: , jai_cmn_taxes_all jtc
577: , jai_retro_line_changes jrlc
578: WHERE jrlc.doc_line_id = pn_shipment_line_id
579: AND jrtc.line_change_id = jrlc.line_change_id
1430: WHERE shipment_line_id = pn_shipment_line_id
1431: AND transaction_type = 'DELIVER';
1432:
1433: ln_tax_diff_tot NUMBER;
1434: lv_currency Jai_Retro_Tax_Changes.Currency_Code%TYPE;
1435: ln_curr_conv_rate Rcv_Transactions.Currency_Conversion_Rate%TYPE;
1436: ln_organization_id Rcv_Transactions.Organization_Id%TYPE;
1437: ln_recv_acct_id Rcv_Parameters.Receiving_Account_Id%TYPE;
1438: ln_ap_accrual_acc Mtl_Parameters.Ap_Accrual_Account%TYPE;
1476: FND_FILE.PUT_LINE(fnd_file.log,'ln_curr_conv_rate '|| ln_curr_conv_rate);
1477: FND_FILE.PUT_LINE(fnd_file.log,'ln_organization_id '|| ln_organization_id);
1478: END IF; --l_proc_level>=l_dbg_level
1479:
1480: --Get the total tax difference from jai_retro_tax_changes for the shipment_line_id
1481: -- Get the difference in INR. Multiply with currency_conversion_rate of rcv_transactions
1482: -- if the tax is in Non INR currency
1483: SELECT
1484: SUM((modified_tax_amount - original_tax_amount) * DECODE(currency_code,'INR',1, ln_curr_conv_rate)) tax_diff_tot
1484: SUM((modified_tax_amount - original_tax_amount) * DECODE(currency_code,'INR',1, ln_curr_conv_rate)) tax_diff_tot
1485: INTO
1486: ln_tax_diff_tot
1487: FROM
1488: Jai_Retro_Tax_Changes
1489: WHERE line_change_id = pn_line_change_id ;/*rchandan. removed sub query and replaced with pn_line_change_id*/
1490:
1491: IF (ln_proc_level >= ln_dbg_level)
1492: THEN
1827: WHERE rcv_rgm_line_id = pn_rcv_rgm_line_id
1828: AND tax_id = NVL(pn_tax_id,tax_id)
1829: AND claimed_amount IS NOT NULL;
1830:
1831: CURSOR jai_retro_tax_changes_cur
1832: IS
1833: SELECT
1834: *
1835: FROM
1832: IS
1833: SELECT
1834: *
1835: FROM
1836: jai_retro_tax_changes jrtc
1837: WHERE EXISTS ( SELECT
1838: 'X'
1839: FROM
1840: JAI_RGM_DEFINITIONS jr
1928: --Initialise ln_tot_instl_amt to zero. This is used to calculate the total installment amount difference
1929: ln_tot_clm_instl_amt :=0 ;
1930: ln_tot_instl_amt :=0 ;
1931:
1932: --LOOP through jai_retro_tax_changes where recoverable_flag is 'Y' and tax_type is one of tax types attached to VAT regime
1933: FOR jai_retor_tax_changes_rec IN jai_retro_tax_changes_cur
1934: LOOP
1935: -- calculate the recoverable portion of the difference in modified and original tax_amount
1936: -- Use mod_cr_percentage from jai_cmn_taxes_all
1929: ln_tot_clm_instl_amt :=0 ;
1930: ln_tot_instl_amt :=0 ;
1931:
1932: --LOOP through jai_retro_tax_changes where recoverable_flag is 'Y' and tax_type is one of tax types attached to VAT regime
1933: FOR jai_retor_tax_changes_rec IN jai_retro_tax_changes_cur
1934: LOOP
1935: -- calculate the recoverable portion of the difference in modified and original tax_amount
1936: -- Use mod_cr_percentage from jai_cmn_taxes_all
1937: ln_new_re_tax_amt := Get_Recoverable_Amount ( pn_tax_id => jai_retor_tax_changes_rec.tax_id
1988:
1989: ln_tot_clm_instl_amt := ln_tot_clm_instl_amt + ln_tax_claimed_diff_amount; -- Total change amount claimed for this receipt
1990:
1991: ln_tot_instl_amt := ln_tot_instl_amt + ln_diff_re_tax_amt; -- Total change in installment amounts
1992: END LOOP; -- (jai_retor_tax_changes_rec IN jai_retro_tax_changes_cur)
1993:
1994: IF ln_tot_instl_amt <> 0
1995: THEN
1996: --Update jai_rcv_rgm_lines to increment recoverable_amount
2103: END IF;
2104:
2105: lv_reference_10 := 'India Local Retroactive VAT Claim Entries For Receipt:'||lv_receipt_number;
2106: lv_reference_23 := 'JAI_RETRO_PRC_PKG.DO_VAT_CLAIM';
2107: lv_reference_24 := 'JAI_RETRO_TAX_CHANGES';
2108: lv_reference_25 := 'transaction_id';
2109: lv_reference_26 := pn_transaction_id;
2110:
2111: --Call the following procedure to debit the recovery account
2957: END IF; --l_proc_level>=l_dbg_level
2958:
2959: FOR jai_rcv_line_taxes_rec IN get_jai_rcv_line_taxes_cur (rcv_transactions_rec.transaction_id)
2960: LOOP
2961: -- Insert into jai_retro_tax_changes
2962: INSERT INTO jai_retro_tax_changes
2963: ( tax_change_id
2964: , line_change_id
2965: , tax_line_no
2958:
2959: FOR jai_rcv_line_taxes_rec IN get_jai_rcv_line_taxes_cur (rcv_transactions_rec.transaction_id)
2960: LOOP
2961: -- Insert into jai_retro_tax_changes
2962: INSERT INTO jai_retro_tax_changes
2963: ( tax_change_id
2964: , line_change_id
2965: , tax_line_no
2966: , tax_id
2979: , last_updated_by
2980: , object_version_number
2981: )
2982: VALUES
2983: ( jai_retro_tax_changes_s.nextval --=> jai_retro_tax_changes_s.nextval
2984: , ln_retro_line_changes_id --=> from jai_retro_line_changes
2985: , jai_rcv_line_taxes_rec.tax_line_no --=> from jai_rcv_line_taxes
2986: , jai_rcv_line_taxes_rec.tax_id --=> from jai_rcv_line_taxes
2987: , jai_rcv_line_taxes_rec.tax_name --=> from jai_rcv_line_taxes
3002: END LOOP;-- (jai_rcv_line_taxes_rec IN get_jai_rcv_line_taxes_cur)
3003:
3004: IF (ln_proc_level >= ln_dbg_level)
3005: THEN
3006: FND_FILE.PUT_LINE(fnd_file.log, ' Table jai_retro_tax_changes inserted ');
3007: END IF; --l_proc_level>=l_dbg_level
3008:
3009: --calc_new_line_amount
3010: ln_recv_line_amount := jai_retro_line_change_rec.modified_unit_price
3118:
3119: -- print the new total tax amount of the receipt
3120: Fnd_File.Put_Line(FND_FILE.LOG,' New total tax amount of the receipt '||jai_rcv_lines_rec.receipt_num||' IS :' ||ln_recv_tax_amount);
3121:
3122: -- After recalculating the tax ,updat the modified_tax_amount of jai_retro_tax_changes table
3123: FOR jai_rcv_line_taxes_rec IN get_jai_rcv_line_taxes_cur (rcv_transactions_rec.transaction_id)
3124: LOOP
3125: -- Update the new tax amount in modified_tax_amount column of jai_retro_tax_changes
3126: UPDATE
3121:
3122: -- After recalculating the tax ,updat the modified_tax_amount of jai_retro_tax_changes table
3123: FOR jai_rcv_line_taxes_rec IN get_jai_rcv_line_taxes_cur (rcv_transactions_rec.transaction_id)
3124: LOOP
3125: -- Update the new tax amount in modified_tax_amount column of jai_retro_tax_changes
3126: UPDATE
3127: jai_retro_tax_changes jrtc
3128: SET
3129: modified_tax_amount = ( SELECT tax_amount
3123: FOR jai_rcv_line_taxes_rec IN get_jai_rcv_line_taxes_cur (rcv_transactions_rec.transaction_id)
3124: LOOP
3125: -- Update the new tax amount in modified_tax_amount column of jai_retro_tax_changes
3126: UPDATE
3127: jai_retro_tax_changes jrtc
3128: SET
3129: modified_tax_amount = ( SELECT tax_amount
3130: FROM jai_rcv_line_taxes jrlt
3131: WHERE jrlt.shipment_header_id = jai_rcv_lines_rec.shipment_header_id
3136: AND tax_line_no = jai_rcv_line_taxes_rec.tax_line_no
3137: AND tax_id = jai_rcv_line_taxes_rec.tax_id ;
3138: END LOOP; --jai_rcv_line_taxes_rec IN get_jai_rcv_line_taxes_cur
3139:
3140: Fnd_File.Put_Line(FND_FILE.LOG,' New tax has been updated to the table jai_retro_tax_changes ');
3141:
3142: Get_Vat_CenVat_Amount
3143: ( pn_line_change_id => ln_retro_line_changes_id
3144: , xn_re_vat_amount => ln_re_vat_amount
3626: FOR tax_rec IN cur_loc_line_taxes
3627: LOOP
3628: BEGIN
3629: SELECT
3630: JAI_RETRO_TAX_CHANGES_S.NEXTVAL
3631: INTO
3632: ln_retro_tax_changes_id
3633: FROM dual;
3634: EXCEPTION
3649: lv_third_party_flag := 'Y';
3650: END IF;
3651:
3652: BEGIN
3653: INSERT INTO JAI_RETRO_TAX_CHANGES
3654: ( TAX_CHANGE_ID
3655: , LINE_CHANGE_ID
3656: , TAX_LINE_NO
3657: , TAX_ID
3736: pv_process_flag := 'SS';
3737: pv_process_message := '';
3738:
3739: UPDATE
3740: JAI_RETRO_TAX_CHANGES
3741: SET
3742: modified_tax_amount = pn_tax_amt
3743: , last_update_date = SYSDATE
3744: , last_updated_by = fnd_global.user_id