[Home] [Help]
310: begin
311:
312: --ld_accounting_date := sysdate; --commented by Harshita for Bug#5131075(5193852)
313:
314: lv_codepath := jai_general_pkg.plot_codepath(1, lv_codepath, 'jai_ap_tds_cancellation_pkg.process_invoice', 'START'); /* 1 */
315: Fnd_File.put_line(Fnd_File.LOG, '**** Start of procedure jai_ap_tds_cancellation_pkg.process_invoice ****');
316:
317: /* Check if Invoice was created after the tds clean up patch */
318: jai_ap_tds_tax_defaultation.check_old_transaction
322: );
323:
324: if nvl(lv_new_transaction, 'N') = 'N' then
325: /* Invoice was created before application of TDS clean up, need to call the old procedure */
326: lv_codepath := jai_general_pkg.plot_codepath(1.0, lv_codepath); /* 1.0 */
327: Fnd_File.put_line(Fnd_File.LOG, '**** Transaction before application of TDS clean up Calling procedure ****');
328: Fnd_File.put_line(Fnd_File.LOG, ' Invoking OLD procedure jai_ap_tds_old_pkg.cancel_invoice');
329:
330: jai_ap_tds_old_pkg.cancel_invoice
347:
348:
349: --Removed the code from here by Lakshmi Gopalsami for Bug#5131075(5193852)
350:
351: lv_codepath := jai_general_pkg.plot_codepath(2, lv_codepath); /* 2 */
352:
353: /* Get all the TDS invoices that were generated at the time of the INVOICE VALIDATE */
354: for cur_rec in c_jai_ap_tds_thhold_trxs(p_invoice_id)
355: --Bug 7312295 - Removed INVOICE_VALIDATE event from c_jai_ap_tds_thhold_trxs. Modified the cursor to include Validate and Surcharge
418: THEN
419: -------------------------------------------------------------------------------
420: -- Added by Jia for FP Bug#7312295, End
421:
422: lv_codepath := jai_general_pkg.plot_codepath(3, lv_codepath); /* 3 */
423:
424: lv_tds_invoice_flag := null;
425: lv_tds_invoice_message := null;
426: lv_tds_credit_memo_flag := null;
450: end if;
451:
452: /* Check if the TDS invoice is paid, no processing is required if it is already paid. */
453: if r_ap_invoices_all.payment_status_flag <> 'N' then
454: lv_codepath := jai_general_pkg.plot_codepath(4, lv_codepath); /* 4 */
455: lv_tds_invoice_flag := 'X';
456: lv_tds_invoice_message := 'Invoice to TDS Authority is already paid.';
457: lv_tds_credit_memo_flag := 'X';
458: lv_tds_credit_memo_message := 'No processing as Invoice to TDS Authority is already paid';
460: end if;
461:
462: /* Check if the invoice to TDS authority is already canccelled,
463: if yes, no need to do the cancel processing of the invoice */
464: lv_codepath := jai_general_pkg.plot_codepath(5, lv_codepath); /* 5 */
465: if r_ap_invoices_all.cancelled_date is not null then
466: lv_codepath := jai_general_pkg.plot_codepath(6, lv_codepath); /* 6 */
467: lv_tds_invoice_flag := 'X';
468: lv_tds_invoice_message := ' Invoice to TDS Authority is already Cancelled.';
462: /* Check if the invoice to TDS authority is already canccelled,
463: if yes, no need to do the cancel processing of the invoice */
464: lv_codepath := jai_general_pkg.plot_codepath(5, lv_codepath); /* 5 */
465: if r_ap_invoices_all.cancelled_date is not null then
466: lv_codepath := jai_general_pkg.plot_codepath(6, lv_codepath); /* 6 */
467: lv_tds_invoice_flag := 'X';
468: lv_tds_invoice_message := ' Invoice to TDS Authority is already Cancelled.';
469: goto credit_memo_processing;
470: end if;
484: ln_out_original_prepay_amount := null;
485: ln_out_pay_curr_inv_amount := null;
486: lv_token := null;
487:
488: lv_codepath := jai_general_pkg.plot_codepath(7, lv_codepath); /* 7 */
489:
490: /* Start for Bug#5131075(5193852). Added by Lakshmi Gopalsami.
491: | Fetch the accounting date of TDS invoice distribution
492: | so that the same will be passed for reversal line which will get
497: (P_Date => ld_accounting_date,
498: P_Org_Id => r_ap_invoices_all.org_id);
499: if lv_open_period is null then
500:
501: lv_codepath := jai_general_pkg.plot_codepath(1.1, lv_codepath); /* 1.1 */
502:
503: ap_utilities_pkg.get_open_gl_date
504: (
505: p_date => ld_accounting_date, /* In date */
508: P_Org_Id => r_ap_invoices_all.org_id
509: );
510:
511: if lv_open_period is null then
512: lv_codepath := jai_general_pkg.plot_codepath(1.2, lv_codepath); /* 1.2 */
513: lv_process_flag := 'E';
514: lv_process_message := 'No open accounting Period after : ' || ld_accounting_date ;
515: goto exit_from_procedure;
516: end if;
560: P_Token => lv_token,
561: P_calling_sequence => 'India Localization - cancel TDS invoice'
562: );
563:
564: lv_codepath := jai_general_pkg.plot_codepath(8, lv_codepath); /* 8 */
565:
566: /* Bug4523064. Check whether any value is returned in lv_token.
567: IF it is not null display the error message. */
568:
592: /*What if ap_cancel_pkg.ap_cancel_single_invoice is not there ?? */
593: lv_tds_invoice_flag := 'Y';
594: lv_tds_invoice_message := 'Invoice to TDS Authority is Cancelled ';
595:
596: lv_codepath := jai_general_pkg.plot_codepath(9, lv_codepath); /* 9 */
597:
598:
599: << credit_memo_processing >>
600: /* Get the details of the Credit memo to the supplier for TDS */
623: /* Check if the Credit memo to the supplier for TDS already canccelled,
624: if yes, no need to cancel it again here */
625:
626: if r_ap_invoices_all.cancelled_date is not null then
627: lv_codepath := jai_general_pkg.plot_codepath(10, lv_codepath); /* 10 */
628: lv_tds_credit_memo_flag := 'X';
629: lv_tds_credit_memo_message := 'Credit memo to the supplier for TDS is already Cancelled.';
630: goto Continue_with_next_record;
631: end if;
633: /* Check if the Credit memo to the supplier for TDS is paid,
634: if yes a separate invoice needs to be generated, or else the same credit memo can be cancelled */
635:
636: if r_ap_invoices_all.payment_status_flag = 'N' then
637: lv_codepath := jai_general_pkg.plot_codepath(11, lv_codepath); /* 11 */
638: /* Credit memo not paid, can cancel the same */
639: lv_tds_credit_memo_flag := 'Y';
640: lv_tds_credit_memo_message := 'Cancelling Credit memo to the supplier for TDS as it is not paid ';
641:
652: ln_out_original_prepay_amount := null;
653: ln_out_pay_curr_inv_amount := null;
654: lv_token := NULL;
655:
656: lv_codepath := jai_general_pkg.plot_codepath(12, lv_codepath); /* 12 */
657:
658: /* Start for Bug#5131075(5193852). Added by Lakshmi Gopalsami.
659: | Fetch the accounting date of TDS invoice distribution
660: | so that the same will be passed for reversal line which will get
667:
668:
669: if lv_open_period is null then
670:
671: lv_codepath := jai_general_pkg.plot_codepath(1.1, lv_codepath); /* 1.1 */
672:
673: ap_utilities_pkg.get_open_gl_date
674: (
675: p_date => ld_accounting_date, /* In date */
678: P_Org_Id => r_ap_invoices_all.org_id
679: );
680:
681: if lv_open_period is null then
682: lv_codepath := jai_general_pkg.plot_codepath(1.2, lv_codepath); /* 1.2 */
683: lv_process_flag := 'E';
684: lv_process_message := 'No open accounting Period after : ' || ld_accounting_date ;
685: goto exit_from_procedure;
686: end if;
731: P_token => lv_token ,
732: P_calling_sequence => 'India Localization - cancel TDS invoice'
733: );
734:
735: lv_codepath := jai_general_pkg.plot_codepath(13, lv_codepath); /* 13 */
736:
737: /* Bug4523064. Check whether any value is returned in lv_token.
738: IF it is not null display the error message. */
739:
760:
761:
762: else
763: /* Credit memo has already been paid, have to generate a new invoice to nagate the effect */
764: lv_codepath := jai_general_pkg.plot_codepath(14, lv_codepath); /* 14 */
765: ln_threshold_trx_id := 0;
766: lv_invoice_to_tds_num := null;
767: lv_invoice_to_vendor_num := null;
768:
790: );
791:
792:
793: if lv_tds_credit_memo_flag = 'E' then
794: lv_codepath := jai_general_pkg.plot_codepath(15, lv_codepath); /* 15 */
795: goto Continue_with_next_record;
796: end if;
797:
798: lv_tds_credit_memo_flag := 'Y';
796: end if;
797:
798: lv_tds_credit_memo_flag := 'Y';
799: lv_tds_credit_memo_message := 'Generated Standard invoice to suppliet : ' ||lv_invoice_to_vendor_num;
800: lv_codepath := jai_general_pkg.plot_codepath(16, lv_codepath); /* 16 */
801:
802: if ln_start_threshold_trx_id is null then
803: ln_start_threshold_trx_id := ln_threshold_trx_id;
804: end if;
802: if ln_start_threshold_trx_id is null then
803: ln_start_threshold_trx_id := ln_threshold_trx_id;
804: end if;
805:
806: lv_codepath := jai_general_pkg.plot_codepath(17, lv_codepath); /* 17 */
807: /* Update the total tax amount for which Cancel invoice was raised */
808:
809:
810: end if; /* Credit memo to the supplier paid / not paid */
827:
828:
829: << Continue_with_next_record >>
830:
831: lv_codepath := jai_general_pkg.plot_codepath(18, lv_codepath); /* 18 */
832: /* Update threshold for the cancel invoice amount */
833:
834: ln_threshold_grp_id := cur_rec.threshold_grp_id;/*added by rchandan for bug#5131075(4947469)*/
835:
846: p_codepath => lv_codepath
847: );
848:
849: /* insert into JAI_AP_TDS_INV_CANCELS */
850: lv_codepath := jai_general_pkg.plot_codepath(19, lv_codepath); /* 19 */
851:
852: insert into jai_ap_tds_inv_cancels
853: (
854: tds_inv_cancel_id ,
955:
956: /* Process Cases where TDS invoice was not generated because of threshold not being reached. */
957:
958: /* Get the exchange rate of the invoice, may be required for taxable_amount in INR for foreign currency */
959: lv_codepath := jai_general_pkg.plot_codepath(20, lv_codepath); /* 20 */
960: open c_get_parent_inv_dtls(p_invoice_id);
961: fetch c_get_parent_inv_dtls into r_get_parent_inv_dtls;
962: close c_get_parent_inv_dtls;
963:
965: fetch c_gl_sets_of_books into r_gl_sets_of_books;
966: close c_gl_sets_of_books;
967:
968: if r_gl_sets_of_books.currency_code <> r_get_parent_inv_dtls.invoice_currency_code then
969: lv_codepath := jai_general_pkg.plot_codepath(21, lv_codepath); /* 21 */
970: /* Foreign currency invoice */
971: ln_exchange_rate := r_get_parent_inv_dtls.exchange_rate;
972: end if;
973:
970: /* Foreign currency invoice */
971: ln_exchange_rate := r_get_parent_inv_dtls.exchange_rate;
972: end if;
973:
974: lv_codepath := jai_general_pkg.plot_codepath(22, lv_codepath); /* 22 */
975: ln_exchange_rate := nvl(ln_exchange_rate, 1);
976: /*ETDS FVU3.1 Bug#11896260*/
977: /*To check the invoices for which the TDS has not been deducted as threshold is not breached and same threshold having crossed with another invoice and is paid.*/
978: for r_threshold_breach in c_threshold_breach(p_invoice_id)
1001: end if;
1002: /*End-ETDS FVU3.1 Bug 11896260*/
1003: for cur_rec in c_jai_ap_tds_inv_taxes(p_invoice_id,'TDS_SECTION')--rchandan for bug#4428980
1004: loop
1005: lv_codepath := jai_general_pkg.plot_codepath(23, lv_codepath); /* 23 */
1006: ln_threshold_grp_id := null;
1007: r_ja_in_tax_codes := null;
1008: ln_taxable_amount := null;
1009:
1011: fetch c_ja_in_tax_codes into r_ja_in_tax_codes;
1012: close c_ja_in_tax_codes;
1013:
1014: if r_ja_in_tax_codes.tax_rate <> 0 then
1015: lv_codepath := jai_general_pkg.plot_codepath(24, lv_codepath); /* 24 */
1016: ln_taxable_amount := cur_rec.tax_amount * (100/r_ja_in_tax_codes.tax_rate);
1017: ln_taxable_amount := round(ln_taxable_amount, 2);
1018: else
1019: /* 0 rated tax */
1016: ln_taxable_amount := cur_rec.tax_amount * (100/r_ja_in_tax_codes.tax_rate);
1017: ln_taxable_amount := round(ln_taxable_amount, 2);
1018: else
1019: /* 0 rated tax */
1020: lv_codepath := jai_general_pkg.plot_codepath(25, lv_codepath); /* 25 */
1021: ln_taxable_amount := cur_rec.taxable_amount * ln_exchange_rate;
1022: end if;
1023:
1024: --Start Added by Sanjikum for Bug#5131075(4718907)
1036: goto end_of_outer_loop;
1037: END IF;
1038: --End Added by Sanjikum for Bug#5131075(4718907)
1039:
1040: lv_codepath := jai_general_pkg.plot_codepath(26, lv_codepath); /* 26 */
1041: ln_threshold_grp_id := cur_rec.threshold_grp_id;
1042: jai_ap_tds_generation_pkg.maintain_thhold_grps
1043: (
1044: p_threshold_grp_id => ln_threshold_grp_id,
1088: fnd_global.user_id ,
1089: sysdate ,
1090: fnd_global.login_id
1091: );
1092: lv_codepath := jai_general_pkg.plot_codepath(27, lv_codepath); /* 27 */
1093:
1094: --Added by Sanjikum for Bug#5131075(4718907)
1095:
1096: jai_ap_tds_generation_pkg.get_tds_threshold_slab(
1136: end loop;
1137:
1138: << exit_from_procedure >>
1139:
1140: lv_codepath := jai_general_pkg.plot_codepath(100, lv_codepath, null, 'END'); /* 100 */
1141: Fnd_File.put_line(Fnd_File.LOG, lv_codepath);
1142: Fnd_File.put_line(Fnd_File.LOG, '**** END of procedure jai_ap_tds_cancellation_pkg.process_invoice ****');
1143:
1144: errbuf := lv_codepath;