[Home] [Help]
212: begin
213:
214: --ld_accounting_date := sysdate; --commented by Harshita for Bug#5131075(5193852)
215:
216: lv_codepath := jai_general_pkg.plot_codepath(1, lv_codepath, 'jai_ap_tds_cancellation_pkg.process_invoice', 'START'); /* 1 */
217: Fnd_File.put_line(Fnd_File.LOG, '**** Start of procedure jai_ap_tds_cancellation_pkg.process_invoice ****');
218:
219: /* Check if Invoice was created after the tds clean up patch */
220: jai_ap_tds_tax_defaultation.check_old_transaction
224: );
225:
226: if nvl(lv_new_transaction, 'N') = 'N' then
227: /* Invoice was created before application of TDS clean up, need to call the old procedure */
228: lv_codepath := jai_general_pkg.plot_codepath(1.0, lv_codepath); /* 1.0 */
229: Fnd_File.put_line(Fnd_File.LOG, '**** Transaction before application of TDS clean up Calling procedure ****');
230: Fnd_File.put_line(Fnd_File.LOG, ' Invoking OLD procedure jai_ap_tds_old_pkg.cancel_invoice');
231:
232: jai_ap_tds_old_pkg.cancel_invoice
249:
250:
251: --Removed the code from here by Lakshmi Gopalsami for Bug#5131075(5193852)
252:
253: lv_codepath := jai_general_pkg.plot_codepath(2, lv_codepath); /* 2 */
254:
255: /* Get all the TDS invoices that were generated at the time of the INVOICE VALIDATE */
256: for cur_rec in c_jai_ap_tds_thhold_trxs(p_invoice_id,'INVOICE VALIDATE')
257: loop
272: END IF;
273: --End Added by Sanjikum for Bug#5131075(4718907)
274:
275:
276: lv_codepath := jai_general_pkg.plot_codepath(3, lv_codepath); /* 3 */
277:
278: lv_tds_invoice_flag := null;
279: lv_tds_invoice_message := null;
280: lv_tds_credit_memo_flag := null;
298:
299:
300: /* Check if the TDS invoice is paid, no processing is required if it is already paid. */
301: if r_ap_invoices_all.payment_status_flag <> 'N' then
302: lv_codepath := jai_general_pkg.plot_codepath(4, lv_codepath); /* 4 */
303: lv_tds_invoice_flag := 'X';
304: lv_tds_invoice_message := 'Invoice to TDS Authority is already paid.';
305: lv_tds_credit_memo_flag := 'X';
306: lv_tds_credit_memo_message := 'No processing as Invoice to TDS Authority is already paid';
308: end if;
309:
310: /* Check if the invoice to TDS authority is already canccelled,
311: if yes, no need to do the cancel processing of the invoice */
312: lv_codepath := jai_general_pkg.plot_codepath(5, lv_codepath); /* 5 */
313: if r_ap_invoices_all.cancelled_date is not null then
314: lv_codepath := jai_general_pkg.plot_codepath(6, lv_codepath); /* 6 */
315: lv_tds_invoice_flag := 'X';
316: lv_tds_invoice_message := ' Invoice to TDS Authority is already Cancelled.';
310: /* Check if the invoice to TDS authority is already canccelled,
311: if yes, no need to do the cancel processing of the invoice */
312: lv_codepath := jai_general_pkg.plot_codepath(5, lv_codepath); /* 5 */
313: if r_ap_invoices_all.cancelled_date is not null then
314: lv_codepath := jai_general_pkg.plot_codepath(6, lv_codepath); /* 6 */
315: lv_tds_invoice_flag := 'X';
316: lv_tds_invoice_message := ' Invoice to TDS Authority is already Cancelled.';
317: goto credit_memo_processing;
318: end if;
332: ln_out_original_prepay_amount := null;
333: ln_out_pay_curr_inv_amount := null;
334: lv_token := null;
335:
336: lv_codepath := jai_general_pkg.plot_codepath(7, lv_codepath); /* 7 */
337:
338: /* Start for Bug#5131075(5193852). Added by Lakshmi Gopalsami.
339: | Fetch the accounting date of TDS invoice distribution
340: | so that the same will be passed for reversal line which will get
347:
348:
349: if lv_open_period is null then
350:
351: lv_codepath := jai_general_pkg.plot_codepath(1.1, lv_codepath); /* 1.1 */
352:
353: ap_utilities_pkg.get_open_gl_date
354: (
355: p_date => ld_accounting_date, /* In date */
359: );
360:
361:
362: if lv_open_period is null then
363: lv_codepath := jai_general_pkg.plot_codepath(1.2, lv_codepath); /* 1.2 */
364: lv_process_flag := 'E';
365: lv_process_message := 'No open accounting Period after : ' || ld_accounting_date ;
366: goto exit_from_procedure;
367: end if;
407: P_Token => lv_token,
408: P_calling_sequence => 'India Localization - cancel TDS invoice'
409: );
410:
411: lv_codepath := jai_general_pkg.plot_codepath(8, lv_codepath); /* 8 */
412:
413: /* Bug4523064. Check whether any value is returned in lv_token.
414: IF it is not null display the error message. */
415:
439: /*What if ap_cancel_pkg.ap_cancel_single_invoice is not there ?? */
440: lv_tds_invoice_flag := 'Y';
441: lv_tds_invoice_message := 'Invoice to TDS Authority is Cancelled ';
442:
443: lv_codepath := jai_general_pkg.plot_codepath(9, lv_codepath); /* 9 */
444:
445:
446: << credit_memo_processing >>
447: /* Get the details of the Credit memo to the supplier for TDS */
464: /* Check if the Credit memo to the supplier for TDS already canccelled,
465: if yes, no need to cancel it again here */
466:
467: if r_ap_invoices_all.cancelled_date is not null then
468: lv_codepath := jai_general_pkg.plot_codepath(10, lv_codepath); /* 10 */
469: lv_tds_credit_memo_flag := 'X';
470: lv_tds_credit_memo_message := 'Credit memo to the supplier for TDS is already Cancelled.';
471: goto Continue_with_next_record;
472: end if;
474: /* Check if the Credit memo to the supplier for TDS is paid,
475: if yes a separate invoice needs to be generated, or else the same credit memo can be cancelled */
476:
477: if r_ap_invoices_all.payment_status_flag = 'N' then
478: lv_codepath := jai_general_pkg.plot_codepath(11, lv_codepath); /* 11 */
479: /* Credit memo not paid, can cancel the same */
480: lv_tds_credit_memo_flag := 'Y';
481: lv_tds_credit_memo_message := 'Cancelling Credit memo to the supplier for TDS as it is not paid ';
482:
493: ln_out_original_prepay_amount := null;
494: ln_out_pay_curr_inv_amount := null;
495: lv_token := NULL;
496:
497: lv_codepath := jai_general_pkg.plot_codepath(12, lv_codepath); /* 12 */
498:
499: /* Start for Bug#5131075(5193852). Added by Lakshmi Gopalsami.
500: | Fetch the accounting date of TDS invoice distribution
501: | so that the same will be passed for reversal line which will get
508:
509:
510: if lv_open_period is null then
511:
512: lv_codepath := jai_general_pkg.plot_codepath(1.1, lv_codepath); /* 1.1 */
513:
514: ap_utilities_pkg.get_open_gl_date
515: (
516: p_date => ld_accounting_date, /* In date */
520: );
521:
522:
523: if lv_open_period is null then
524: lv_codepath := jai_general_pkg.plot_codepath(1.2, lv_codepath); /* 1.2 */
525: lv_process_flag := 'E';
526: lv_process_message := 'No open accounting Period after : ' || ld_accounting_date ;
527: goto exit_from_procedure;
528: end if;
568: P_token => lv_token ,
569: P_calling_sequence => 'India Localization - cancel TDS invoice'
570: );
571:
572: lv_codepath := jai_general_pkg.plot_codepath(13, lv_codepath); /* 13 */
573:
574: /* Bug4523064. Check whether any value is returned in lv_token.
575: IF it is not null display the error message. */
576:
597:
598:
599: else
600: /* Credit memo has already been paid, have to generate a new invoice to nagate the effect */
601: lv_codepath := jai_general_pkg.plot_codepath(14, lv_codepath); /* 14 */
602: ln_threshold_trx_id := 0;
603: lv_invoice_to_tds_num := null;
604: lv_invoice_to_vendor_num := null;
605:
626: );
627:
628:
629: if lv_tds_credit_memo_flag = 'E' then
630: lv_codepath := jai_general_pkg.plot_codepath(15, lv_codepath); /* 15 */
631: goto Continue_with_next_record;
632: end if;
633:
634: lv_tds_credit_memo_flag := 'Y';
632: end if;
633:
634: lv_tds_credit_memo_flag := 'Y';
635: lv_tds_credit_memo_message := 'Generated Standard invoice to suppliet : ' ||lv_invoice_to_vendor_num;
636: lv_codepath := jai_general_pkg.plot_codepath(16, lv_codepath); /* 16 */
637:
638: if ln_start_threshold_trx_id is null then
639: ln_start_threshold_trx_id := ln_threshold_trx_id;
640: end if;
638: if ln_start_threshold_trx_id is null then
639: ln_start_threshold_trx_id := ln_threshold_trx_id;
640: end if;
641:
642: lv_codepath := jai_general_pkg.plot_codepath(17, lv_codepath); /* 17 */
643: /* Update the total tax amount for which Cancel invoice was raised */
644:
645:
646: end if; /* Credit memo to the supplier paid / not paid */
663:
664:
665: << Continue_with_next_record >>
666:
667: lv_codepath := jai_general_pkg.plot_codepath(18, lv_codepath); /* 18 */
668: /* Update threshold for the cancel invoice amount */
669:
670: ln_threshold_grp_id := cur_rec.threshold_grp_id;/*added by rchandan for bug#5131075(4947469)*/
671:
681: p_codepath => lv_codepath
682: );
683:
684: /* insert into JAI_AP_TDS_INV_CANCELS */
685: lv_codepath := jai_general_pkg.plot_codepath(19, lv_codepath); /* 19 */
686:
687: insert into jai_ap_tds_inv_cancels
688: (
689: tds_inv_cancel_id ,
783:
784: /* Process Cases where TDS invoice was not generated because of threshold not being reached. */
785:
786: /* Get the exchange rate of the invoice, may be required for taxable_amount in INR for foreign currency */
787: lv_codepath := jai_general_pkg.plot_codepath(20, lv_codepath); /* 20 */
788: open c_get_parent_inv_dtls(p_invoice_id);
789: fetch c_get_parent_inv_dtls into r_get_parent_inv_dtls;
790: close c_get_parent_inv_dtls;
791:
793: fetch c_gl_sets_of_books into r_gl_sets_of_books;
794: close c_gl_sets_of_books;
795:
796: if r_gl_sets_of_books.currency_code <> r_get_parent_inv_dtls.invoice_currency_code then
797: lv_codepath := jai_general_pkg.plot_codepath(21, lv_codepath); /* 21 */
798: /* Foreign currency invoice */
799: ln_exchange_rate := r_get_parent_inv_dtls.exchange_rate;
800: end if;
801:
798: /* Foreign currency invoice */
799: ln_exchange_rate := r_get_parent_inv_dtls.exchange_rate;
800: end if;
801:
802: lv_codepath := jai_general_pkg.plot_codepath(22, lv_codepath); /* 22 */
803: ln_exchange_rate := nvl(ln_exchange_rate, 1);
804:
805: for cur_rec in c_jai_ap_tds_inv_taxes(p_invoice_id,'TDS_SECTION')--rchandan for bug#4428980
806: loop
803: ln_exchange_rate := nvl(ln_exchange_rate, 1);
804:
805: for cur_rec in c_jai_ap_tds_inv_taxes(p_invoice_id,'TDS_SECTION')--rchandan for bug#4428980
806: loop
807: lv_codepath := jai_general_pkg.plot_codepath(23, lv_codepath); /* 23 */
808: ln_threshold_grp_id := null;
809: r_ja_in_tax_codes := null;
810: ln_taxable_amount := null;
811:
813: fetch c_ja_in_tax_codes into r_ja_in_tax_codes;
814: close c_ja_in_tax_codes;
815:
816: if r_ja_in_tax_codes.tax_rate <> 0 then
817: lv_codepath := jai_general_pkg.plot_codepath(24, lv_codepath); /* 24 */
818: ln_taxable_amount := cur_rec.tax_amount * (100/r_ja_in_tax_codes.tax_rate);
819: ln_taxable_amount := round(ln_taxable_amount, 2);
820: else
821: /* 0 rated tax */
818: ln_taxable_amount := cur_rec.tax_amount * (100/r_ja_in_tax_codes.tax_rate);
819: ln_taxable_amount := round(ln_taxable_amount, 2);
820: else
821: /* 0 rated tax */
822: lv_codepath := jai_general_pkg.plot_codepath(25, lv_codepath); /* 25 */
823: ln_taxable_amount := cur_rec.taxable_amount * ln_exchange_rate;
824: end if;
825:
826: --Start Added by Sanjikum for Bug#5131075(4718907)
838: goto end_of_outer_loop;
839: END IF;
840: --End Added by Sanjikum for Bug#5131075(4718907)
841:
842: lv_codepath := jai_general_pkg.plot_codepath(26, lv_codepath); /* 26 */
843: ln_threshold_grp_id := cur_rec.threshold_grp_id;
844: jai_ap_tds_generation_pkg.maintain_thhold_grps
845: (
846: p_threshold_grp_id => ln_threshold_grp_id,
890: fnd_global.user_id ,
891: sysdate ,
892: fnd_global.login_id
893: );
894: lv_codepath := jai_general_pkg.plot_codepath(27, lv_codepath); /* 27 */
895:
896: --Added by Sanjikum for Bug#5131075(4718907)
897: jai_ap_tds_generation_pkg.get_tds_threshold_slab(
898: p_prepay_distribution_id => NULL,
938: end loop;
939:
940: << exit_from_procedure >>
941:
942: lv_codepath := jai_general_pkg.plot_codepath(100, lv_codepath, null, 'END'); /* 100 */
943: Fnd_File.put_line(Fnd_File.LOG, lv_codepath);
944: Fnd_File.put_line(Fnd_File.LOG, '**** END of procedure jai_ap_tds_cancellation_pkg.process_invoice ****');
945:
946: errbuf := lv_codepath;