[Home] [Help]
240:
241: 33. 20-Aug-2009 Bgowrava for Bug#8716477, File Version 120.16.12000000.21, 120.26.12010000.13, 120.40
242: Issue: TDS CR MEMO and INVOICE NOT GENERATED FOR INVOICE HAVING MORE THAN 1000 LINES
243: Fix: The issue was occuring due to the length of the p_codepath exceeding the maximum length of 1996 and hence the procedure failing due to
244: numeric or value error. Hence commented the line where codepath was assigned with data without calling the funtion jai_general_pkg.plot_codepath.
245: also added exception details in the exception block of process_tds_at_inv_validate procedure.
246:
247: 34. 14-Oct-2009 Bgowrava for Bug# 8995604 , File version 120.16.12000000.22, 120.26.12010000.14, 120.41
248: Issue: CREDIT MEMO INCORRECTLY TRANSLATED FOR FOREIGN CURRENCY TDS INV
708: l_po_encum_flag VARCHAR2(1);
709:
710: begin
711:
712: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_ap_tds_generation_pkg.status_update_chk_validate', 'START'); /* 1 */
713:
714: get_org_id(p_invoice_id, lp_org_id);
715: l_po_encum_flag := 'N';
716: if lp_org_id is NOT NULL THEN
740:
741: fnd_file.put_line(FND_FILE.LOG, ' Value of validated A cnt '|| ln_validated_a_cnt);
742: fnd_file.put_line(FND_FILE.LOG, ' Value of validated T cnt '|| ln_validated_t_cnt);
743:
744: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
745:
746: if ln_total_count = (ln_validated_a_cnt + ln_validated_t_cnt) then
747: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
748:
743:
744: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
745:
746: if ln_total_count = (ln_validated_a_cnt + ln_validated_t_cnt) then
747: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
748:
749: p_is_invoice_validated := 'Y';
750: else
751: p_is_invoice_validated := 'N';
748:
749: p_is_invoice_validated := 'Y';
750: else
751: p_is_invoice_validated := 'N';
752: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
753: end if;
754:
755: if l_po_encum_flag = 'Y' and ln_validated_t_cnt > 0 then
756: p_is_invoice_validated := 'N';
753: end if;
754:
755: if l_po_encum_flag = 'Y' and ln_validated_t_cnt > 0 then
756: p_is_invoice_validated := 'N';
757: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
758: end if;
759:
760: -- if p_match_status_flag is not null then /*commented by mmurtuza for bug 16016037 */
761: /* Scenarios other than holds release */
764: close c_ap_holds_all;
765:
766: if nvl(ln_no_of_holds, 0) > 0 then
767: p_is_invoice_validated := 'N';
768: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
769: end if;
770:
771: -- end if; /*commented by mmurtuza for bug 16016037 */
772:
772:
773: fnd_file.put_line(FND_FILE.LOG, 'Status_update_chk_validate - Status of parent invoice '|| p_is_invoice_validated);
774:
775: << exit_from_procedure >>
776: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath, null, 'END'); /* 7 */
777: return;
778:
779: exception
780: when others then
1141:
1142:
1143: begin
1144:
1145: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_ap_tds_generation_pkg.process_tds_at_inv_validate', 'START'); /* 1 */
1146: open c_check_if_exists(p_invoice_id);
1147: fetch c_check_if_exists into ln_count;
1148: close c_check_if_exists;
1149:
1149:
1150: fnd_file.put_line(FND_FILE.LOG, '1. Check for tax count'|| ln_count);
1151:
1152: if nvl(ln_count, 0) = 0 then
1153: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
1154: fnd_file.put_line(FND_FILE.LOG, '2. TDS tax is not applicable');
1155: p_process_flag := 'X';
1156: p_process_message := ' TDS tax is not applicable';
1157: goto exit_from_procedure;
1156: p_process_message := ' TDS tax is not applicable';
1157: goto exit_from_procedure;
1158: end if;
1159:
1160: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
1161: open c_check_if_processed(p_invoice_id,'P');
1162: fetch c_check_if_processed into ln_cnt_already_processed;
1163: close c_check_if_processed;
1164:
1164:
1165: fnd_file.put_line(FND_FILE.LOG, '3. Check for processed already '|| ln_cnt_already_processed);
1166:
1167: if nvl(ln_cnt_already_processed, 0) > 0 then
1168: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
1169: p_process_flag := 'X';
1170: p_process_message := 'TDS invoices have already been processed for this invoice';
1171: goto exit_from_procedure;
1172: end if;
1172: end if;
1173:
1174:
1175: /* Update actual value from default value if actual is null for TDS section taxes only*/
1176: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
1177: update jai_ap_tds_inv_taxes
1178: set actual_tax_id = default_tax_id
1179: where nvl(consider_amt_for_tds, 'Y') = 'Y' -- Added by mmurtuza for bug12858951
1180: and invoice_id = p_invoice_id
1190: and invoice_id = p_invoice_id
1191: and section_type = lv_tds_section_type --rchandan for bug#4428980
1192: and nvl(user_deleted_tax_flag, 'N') = 'Y';
1193:
1194: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
1195:
1196: open c_gl_sets_of_books(p_set_of_books_id);
1197: fetch c_gl_sets_of_books into r_gl_sets_of_books;
1198: close c_gl_sets_of_books;
1198: close c_gl_sets_of_books;
1199:
1200: if r_gl_sets_of_books.currency_code <> p_invoice_currency_code then
1201: /* Foreign currency invoice */
1202: p_codepath := jai_general_pkg.plot_codepath(6.1, p_codepath); /* 6.1 */
1203: ln_exchange_rate := p_exchange_rate;
1204: end if;
1205:
1206: ln_exchange_rate := nvl(ln_exchange_rate, 1);
1230: fetch c_get_threshold into ln_threshold_hdr_id;
1231: close c_get_threshold;
1232:
1233: if nvl(ln_threshold_hdr_id, 0) = 0 then
1234: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /*10 */
1235: p_process_flag := 'E';
1236: p_process_message := 'Error - Threshold is not defined for the applicable TDS section :' ||
1237: r_ja_in_tax_codes.section_code ;
1238: goto exit_from_procedure;
1266:
1267: /* start Loop through and calculate taxes for taxes of all sections */
1268: for cur_rec in c_calculate_tax(p_invoice_id) loop
1269:
1270: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
1271:
1272: r_ja_in_tax_codes := null;
1273: open c_ja_in_tax_codes(nvl(cur_rec.actual_tax_id,cur_rec.default_tax_id)); --Added nvl by Xiao for Bug#7154864
1274: fetch c_ja_in_tax_codes into r_ja_in_tax_codes;
1289: end if;
1290: /*End-bug 10315928*/
1291:
1292: if trunc(r_ja_in_tax_codes.end_date) < p_accounting_date then --trunc(r_ja_in_tax_codes.sysdate) then --commented by Bgowrava for Bug#7389849
1293: p_codepath := jai_general_pkg.plot_codepath(7.1, p_codepath); /* 7.1 */
1294: p_process_flag := 'E';
1295: p_process_message := r_ja_in_tax_codes.tax_end_dated_message;
1296: goto exit_from_procedure;
1297: end if;
1390: /* End Loop through and calculate taxes */
1391:
1392:
1393: /* Get vendor_type_lookup_code */
1394: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath); /* 8 */
1395: open c_po_vendors(p_vendor_id);
1396: fetch c_po_vendors into lv_vendor_type_lookup_code;
1397: close c_po_vendors;
1398:
1420: /*Bug 12671504 - Replaced ln_prepayment_app_amt with ln_application_amount as it is the correct Prepayment applied amount
1421: ln_prepayment_app_amt is overwritten once for each Section Type. Hence the correct application amount is lost*/
1422: for cur_rec_section in c_for_each_tds_section(p_invoice_id, ln_exchange_rate,'TDS_SECTION', nvl(ln_application_amount,0)) LOOP --rchandan for bug#4428980--add by xiao for bug#6596019
1423:
1424: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath); /* 9 */
1425: ln_threshold_grp_id := 0;
1426: --ln_threshold_hdr_id := 0; --commented by xiao for bug#6596019
1427: ln_threshold_slab_id_before := null;
1428: ln_threshold_slab_id_after:= null;
1436:
1437: fnd_file.put_line(FND_FILE.LOG,' 9. Threshold hdr id-> '|| ln_threshold_hdr_id);
1438:
1439: /* if nvl(ln_threshold_hdr_id, 0) = 0 then
1440: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); -- 10
1441: fnd_file.put_line(FND_FILE.LOG, '10. Threshold is not defined for the
1442: applicable TDS section '||
1443: cur_rec_section.actual_section_code||
1444: '- Error');
1448: goto exit_from_procedure;
1449: end if; */ --commented by xiao for bug#6596019
1450:
1451: /* Get the threshold group id */
1452: p_codepath := jai_general_pkg.plot_codepath(11, p_codepath); /* 11 */
1453: open c_get_threshold_group(p_vendor_id, lv_tan_no, lv_pan_no, cur_rec_section.actual_section_code, ln_fin_year,'TDS_SECTION'); --rchandan for bug#4428980
1454: fetch c_get_threshold_group into ln_threshold_grp_id;
1455: close c_get_threshold_group;
1456:
1456:
1457: fnd_file.put_line(FND_FILE.LOG, '11. Threshold grp id ->'||ln_threshold_grp_id);
1458:
1459: /* Get the threshold group details */
1460: p_codepath := jai_general_pkg.plot_codepath(12, p_codepath); /* 12 */
1461: if nvl(ln_threshold_grp_id, 0) <> 0 then
1462: p_codepath := jai_general_pkg.plot_codepath(13, p_codepath); /* 13 */
1463:
1464: r_jai_ap_tds_thhold_grps := null;
1458:
1459: /* Get the threshold group details */
1460: p_codepath := jai_general_pkg.plot_codepath(12, p_codepath); /* 12 */
1461: if nvl(ln_threshold_grp_id, 0) <> 0 then
1462: p_codepath := jai_general_pkg.plot_codepath(13, p_codepath); /* 13 */
1463:
1464: r_jai_ap_tds_thhold_grps := null;
1465:
1466: open c_jai_ap_tds_thhold_grps(ln_threshold_grp_id);
1469:
1470: ln_total_invoice_amount := r_jai_ap_tds_thhold_grps.total_invoice_amount;
1471:
1472: else
1473: p_codepath := jai_general_pkg.plot_codepath(14, p_codepath); /* 14 */
1474:
1475: ln_total_invoice_amount := 0;
1476:
1477: end if;
1479: fnd_file.put_line(FND_FILE.LOG, '12. Total invoice amount -> '||
1480: ln_total_invoice_amount);
1481:
1482: /* Get the threshold position before this invoice impact */
1483: p_codepath := jai_general_pkg.plot_codepath(15, p_codepath); /* 15 */
1484:
1485: r_jai_ap_tds_thhold_slabs := null; /*Added by mmurtuza for bug 16435622*/
1486:
1487: open c_jai_ap_tds_thhold_slabs(ln_threshold_hdr_id , 'CUMULATIVE' , ln_total_invoice_amount);
1493: fnd_file.put_line(FND_FILE.LOG, '15. Threshold slab id before '||
1494: ln_threshold_slab_id_before);
1495:
1496: /* Get the threshold position after this invoice impact */
1497: p_codepath := jai_general_pkg.plot_codepath(16, p_codepath); /* 16 */
1498: /* FP Bug 6345725 - Removed the assignments for p_codepath without ja_in_general_pkg*/
1499: r_jai_ap_tds_thhold_slabs := null;
1500: open c_jai_ap_tds_thhold_slabs
1501: (ln_threshold_hdr_id , 'CUMULATIVE' , ln_total_invoice_amount + cur_rec_section.invoice_amount);
1520:
1521: fnd_file.put_line(FND_FILE.LOG, '16. Threshold slab id after ->'||
1522: ln_threshold_slab_id_after);
1523: --p_codepath := p_codepath || to_char(ln_threshold_slab_id_after) || '**'; --commented by Bgowrava for Bug#8716477
1524: p_codepath := jai_general_pkg.plot_codepath(17, p_codepath); /* 17 */
1525: if ln_threshold_slab_id_after <> 0 then
1526: /* Threshold has reached */
1527: p_codepath := jai_general_pkg.plot_codepath(18, p_codepath); /* 18 */
1528: lv_generate_all_invoices := 'Y';
1523: --p_codepath := p_codepath || to_char(ln_threshold_slab_id_after) || '**'; --commented by Bgowrava for Bug#8716477
1524: p_codepath := jai_general_pkg.plot_codepath(17, p_codepath); /* 17 */
1525: if ln_threshold_slab_id_after <> 0 then
1526: /* Threshold has reached */
1527: p_codepath := jai_general_pkg.plot_codepath(18, p_codepath); /* 18 */
1528: lv_generate_all_invoices := 'Y';
1529: else
1530: lv_generate_all_invoices := 'N';
1531: p_codepath := jai_general_pkg.plot_codepath(19, p_codepath); /* 19 */
1527: p_codepath := jai_general_pkg.plot_codepath(18, p_codepath); /* 18 */
1528: lv_generate_all_invoices := 'Y';
1529: else
1530: lv_generate_all_invoices := 'N';
1531: p_codepath := jai_general_pkg.plot_codepath(19, p_codepath); /* 19 */
1532: end if; /* if ln_threshold_slab_id_after <> 0 */
1533:
1534: fnd_file.put_line(FND_FILE.LOG, '19. Generate invoices -> ' ||
1535: lv_generate_all_invoices);
1547: /* Loop and generate invoices */
1548:
1549: if nvl(ln_threshold_grp_id, 0) = 0 then
1550:
1551: p_codepath := jai_general_pkg.plot_codepath(19.1, p_codepath); /* 19.1 */
1552:
1553: fnd_file.put_line(FND_FILE.LOG, '19.1 Call maintain thhold grps ');
1554:
1555: jai_ap_tds_generation_pkg.maintain_thhold_grps
1577: fnd_file.put_line(FND_FILE.LOG, '19.1 Process message '|| p_process_message);
1578:
1579: else
1580:
1581: p_codepath := jai_general_pkg.plot_codepath(19.2, p_codepath); /* 19.2 */
1582:
1583: jai_ap_tds_generation_pkg.maintain_thhold_grps
1584: (
1585: p_threshold_grp_id => ln_threshold_grp_id,
1598: end if;
1599:
1600: --Added by Sanjikum for Bug#5131075(4722011)
1601: IF p_process_flag = 'E' THEN
1602: p_codepath := jai_general_pkg.plot_codepath(19.3, p_codepath); /* 19.3 */
1603: goto exit_from_procedure;
1604: END IF;
1605:
1606: /* Generate TDS invoices by taxes under the section */
1609: c_get_taxes_to_generate_tds
1610: (p_invoice_id , cur_rec_section.actual_section_code, lv_generate_all_invoices,
1611: ln_exchange_rate, ln_threshold_slab_id_single,'TDS_SECTION', nvl(ln_application_amount,0)) LOOP --rchandan for bug#4428980
1612:
1613: p_codepath := jai_general_pkg.plot_codepath(20, p_codepath); /* 20 */
1614:
1615: /*START, Bgowrava for Bug# 8254510*/
1616: ln_tds_tax_amount := cur_rec.tax_amount;
1617: if ln_threshold_slab_id_before <> ln_threshold_slab_id_after then
1666:
1667: if p_process_flag = 'E' then
1668: fnd_file.put_line(FND_FILE.LOG, '20 Process flag '|| p_process_flag);
1669: fnd_file.put_line(FND_FILE.LOG, '20 Process message '|| p_process_message);
1670: p_codepath := jai_general_pkg.plot_codepath(21, p_codepath); /* 21 */
1671: goto exit_from_procedure;
1672: end if;
1673:
1674: p_codepath := jai_general_pkg.plot_codepath(22, p_codepath); /* 22 */
1670: p_codepath := jai_general_pkg.plot_codepath(21, p_codepath); /* 21 */
1671: goto exit_from_procedure;
1672: end if;
1673:
1674: p_codepath := jai_general_pkg.plot_codepath(22, p_codepath); /* 22 */
1675:
1676: if ln_start_threshold_trx_id is null then
1677: ln_start_threshold_trx_id := ln_threshold_trx_id;
1678: end if;
1695:
1696: /* bug 7280925. Added by Lakshmi Gopalsami
1697: * changed from ln_tmp_tds_amt to ln_tax_amount
1698: */
1699: p_codepath := jai_general_pkg.plot_codepath(23, p_codepath); /* 23 */
1700:
1701: jai_ap_tds_generation_pkg.maintain_thhold_grps
1702: (
1703: p_threshold_grp_id => ln_threshold_grp_id,
1716: fnd_file.put_line(FND_FILE.LOG, '23 Process message '|| p_process_message);
1717:
1718: --Added by Sanjikum for Bug#5131075(4722011)
1719: IF p_process_flag = 'E' THEN
1720: p_codepath := jai_general_pkg.plot_codepath(23.1, p_codepath); /* 23.1 */
1721: goto exit_from_procedure;
1722: END IF;
1723:
1724:
1741:
1742: ln_no_of_tds_inv_generated := ln_no_of_tds_inv_generated + 2;
1743: /* TDS invoices are always generated in pair */
1744:
1745: p_codepath := jai_general_pkg.plot_codepath(24, p_codepath); /* 24 */
1746: end loop;
1747: /* Loop and generate invoices */
1748:
1749: p_codepath := jai_general_pkg.plot_codepath(25, p_codepath); /* 25 */
1745: p_codepath := jai_general_pkg.plot_codepath(24, p_codepath); /* 24 */
1746: end loop;
1747: /* Loop and generate invoices */
1748:
1749: p_codepath := jai_general_pkg.plot_codepath(25, p_codepath); /* 25 */
1750: update jai_ap_tds_inv_taxes
1751: set threshold_grp_id = ln_threshold_grp_id,
1752: threshold_hdr_id = ln_threshold_hdr_id,
1753: threshold_slab_id = ln_threshold_slab_id_after,
1758: and actual_section_code = cur_rec_section.actual_section_code;
1759:
1760: if ln_threshold_slab_id_before <> ln_threshold_slab_id_after then
1761: /* Transition in threshold has happened */
1762: p_codepath := jai_general_pkg.plot_codepath(26, p_codepath); /* 26 */
1763:
1764: --4407184
1765: lv_slab_transition_tds_event := 'THRESHOLD TRANSITION(from slab id -' || ln_threshold_slab_id_before ||
1766: 'to slab id - ' || ln_threshold_slab_id_after || ')';
1787: if p_process_flag = 'E' then
1788: fnd_file.put_line(FND_FILE.LOG, '27 Process flag '|| p_process_flag);
1789: fnd_file.put_line(FND_FILE.LOG, '27 Process message '|| p_process_message);
1790:
1791: p_codepath := jai_general_pkg.plot_codepath(27, p_codepath); /* 27 */
1792: goto exit_from_procedure;
1793: end if;
1794: ln_no_of_tds_inv_generated := ln_no_of_tds_inv_generated + 2;
1795: p_codepath := jai_general_pkg.plot_codepath(28, p_codepath); /* 28 */
1791: p_codepath := jai_general_pkg.plot_codepath(27, p_codepath); /* 27 */
1792: goto exit_from_procedure;
1793: end if;
1794: ln_no_of_tds_inv_generated := ln_no_of_tds_inv_generated + 2;
1795: p_codepath := jai_general_pkg.plot_codepath(28, p_codepath); /* 28 */
1796: end if;
1797:
1798: p_codepath := jai_general_pkg.plot_codepath(29, p_codepath); /* 29 */
1799: end loop;
1794: ln_no_of_tds_inv_generated := ln_no_of_tds_inv_generated + 2;
1795: p_codepath := jai_general_pkg.plot_codepath(28, p_codepath); /* 28 */
1796: end if;
1797:
1798: p_codepath := jai_general_pkg.plot_codepath(29, p_codepath); /* 29 */
1799: end loop;
1800:
1801: /* End Loop through for each tds section and process */
1802:
1799: end loop;
1800:
1801: /* End Loop through for each tds section and process */
1802:
1803: p_codepath := jai_general_pkg.plot_codepath(30, p_codepath); /* 30 */
1804: /* Check if any non-TDS Section taxes are applicable and generate invoices if required. */
1805: for cur_non_tds_rec in c_get_non_tds_section_tax(p_invoice_id, ln_exchange_rate,'TDS_SECTION') LOOP --rchandan for bug#4428980
1806:
1807: p_codepath := jai_general_pkg.plot_codepath(31, p_codepath); /* 31 */
1803: p_codepath := jai_general_pkg.plot_codepath(30, p_codepath); /* 30 */
1804: /* Check if any non-TDS Section taxes are applicable and generate invoices if required. */
1805: for cur_non_tds_rec in c_get_non_tds_section_tax(p_invoice_id, ln_exchange_rate,'TDS_SECTION') LOOP --rchandan for bug#4428980
1806:
1807: p_codepath := jai_general_pkg.plot_codepath(31, p_codepath); /* 31 */
1808: ln_threshold_trx_id := null;
1809: lv_tds_invoice_num := null;
1810: lv_tds_cm_num := null;
1811: p_process_flag := null;
1837: if p_process_flag = 'E' then
1838: fnd_file.put_line(FND_FILE.LOG, '31 Process flag '|| p_process_flag);
1839: fnd_file.put_line(FND_FILE.LOG, '31 Process message '|| p_process_message);
1840:
1841: p_codepath := jai_general_pkg.plot_codepath(32, p_codepath); /* 32 */
1842: goto exit_from_procedure;
1843: end if;
1844:
1845: p_codepath := jai_general_pkg.plot_codepath(33, p_codepath); /* 33 */
1841: p_codepath := jai_general_pkg.plot_codepath(32, p_codepath); /* 32 */
1842: goto exit_from_procedure;
1843: end if;
1844:
1845: p_codepath := jai_general_pkg.plot_codepath(33, p_codepath); /* 33 */
1846:
1847: if ln_start_threshold_trx_id is null then
1848: p_codepath := jai_general_pkg.plot_codepath(34, p_codepath); /* 34 */
1849: ln_start_threshold_trx_id := ln_threshold_trx_id;
1844:
1845: p_codepath := jai_general_pkg.plot_codepath(33, p_codepath); /* 33 */
1846:
1847: if ln_start_threshold_trx_id is null then
1848: p_codepath := jai_general_pkg.plot_codepath(34, p_codepath); /* 34 */
1849: ln_start_threshold_trx_id := ln_threshold_trx_id;
1850: end if;
1851:
1852: fnd_file.put_line(FND_FILE.LOG, '34. Start thhold trx id '|| ln_start_threshold_trx_id);
1862:
1863: end loop; /* cur_non_tds_rec */
1864:
1865:
1866: p_codepath := jai_general_pkg.plot_codepath(35, p_codepath); /* 35 */
1867:
1868:
1869: /* If the process is called from batch do not fire import request */
1870:
1872:
1873: if p_call_from <> 'BATCH' then
1874: /* Not Called from Batch */
1875:
1876: p_codepath := jai_general_pkg.plot_codepath(36, p_codepath); /* 36 */
1877:
1878: if ln_start_threshold_trx_id is not null then
1879:
1880: fnd_file.put_line(FND_FILE.LOG, '36 start thhold trx id '||
1879:
1880: fnd_file.put_line(FND_FILE.LOG, '36 start thhold trx id '||
1881: ln_start_threshold_trx_id);
1882:
1883: p_codepath := jai_general_pkg.plot_codepath(37, p_codepath); /* 37 */
1884: import_and_approve
1885: (
1886: p_invoice_id => p_invoice_id,
1887: p_start_thhold_trx_id => ln_start_threshold_trx_id,
1894: fnd_file.put_line(FND_FILE.LOG, '37 Process message '|| p_process_message);
1895:
1896: --Added by Sanjikum for Bug#5131075(4722011)
1897: IF p_process_flag = 'E' THEN
1898: p_codepath := jai_general_pkg.plot_codepath(37.1, p_codepath); /* 37.1 */
1899: goto exit_from_procedure;
1900: END IF;
1901:
1902: end if; /* if ln_no_of_tds_inv_generated > 0 then */
1903:
1904: end if; /* p_call_from <> 'BATCH' then */
1905:
1906: <
1907: p_codepath := jai_general_pkg.plot_codepath(100, p_codepath); /* 100 */
1908: return;
1909:
1910: exception
1911: when others then
3861:
3862:
3863: begin
3864:
3865: p_codepath := jai_general_pkg.plot_codepath(1, p_codepath, 'jai_ap_tds_generation_pkg.maintain_thhold_grps', 'START'); /* 1 */
3866:
3867:
3868: /* Validate the input */
3869: ln_threshold_grp_id := nvl(p_threshold_grp_id, 0);
3869: ln_threshold_grp_id := nvl(p_threshold_grp_id, 0);
3870:
3871: if ln_threshold_grp_id = 0 then
3872:
3873: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /*2*/
3874:
3875: if p_vendor_id is null then
3876: p_process_flag := 'E';
3877: P_process_message := 'Vendor must be specified as threshold group identifier is null(jai_ap_tds_generation_pkg.maintain_thhold_grps) ';
3909: end if;
3910:
3911: end if; /* Validate the input */
3912:
3913: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /*3*/
3914:
3915: if ln_threshold_grp_id = 0 then
3916:
3917: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
3913: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /*3*/
3914:
3915: if ln_threshold_grp_id = 0 then
3916:
3917: p_codepath := jai_general_pkg.plot_codepath(4, p_codepath); /* 4 */
3918: /* Threshold has not been given as an input, check if exists */
3919: open c_get_threshold_grp_id
3920: (p_vendor_id, p_org_tan_num, p_vendor_pan_num, p_section_type, p_section_code, p_fin_year);
3921: fetch c_get_threshold_grp_id into ln_threshold_grp_id;
3922: close c_get_threshold_grp_id;
3923:
3924: if nvl(ln_threshold_grp_id, 0) = 0 then
3925:
3926: p_codepath := jai_general_pkg.plot_codepath(5, p_codepath); /* 5 */
3927:
3928: insert into jai_ap_tds_thhold_grps
3929: (
3930: threshold_grp_id ,
3960: p_threshold_grp_id := ln_threshold_grp_id;
3961:
3962: end if; /* ln_threshold_grp_id does not exist */
3963:
3964: p_codepath := jai_general_pkg.plot_codepath(6, p_codepath); /* 6 */
3965:
3966: end if; /* ln_threshold_grp_id is not given as an input */
3967:
3968: /* Get the old value of teh threshold group */
3965:
3966: end if; /* ln_threshold_grp_id is not given as an input */
3967:
3968: /* Get the old value of teh threshold group */
3969: p_codepath := jai_general_pkg.plot_codepath(7, p_codepath); /* 7 */
3970: open c_jai_ap_tds_thhold_grps(ln_threshold_grp_id);
3971: fetch c_jai_ap_tds_thhold_grps into r_jai_ap_tds_thhold_grps;
3972: close c_jai_ap_tds_thhold_grps;
3973:
4016: END IF;
4017: END IF;
4018: -- End if ;
4019:
4020: p_codepath := jai_general_pkg.plot_codepath(8, p_codepath); /* 8 */
4021: update jai_ap_tds_thhold_grps
4022: set
4023: total_invoice_amount = nvl(total_invoice_amount, 0) + nvl(p_trx_invoice_amount, 0),
4024: total_invoice_cancel_amount = nvl(total_invoice_cancel_amount, 0) + nvl(p_trx_invoice_cancel_amount, 0),
4051: /*Bug 5751783*/
4052: ln_calc_new_tax_paid := r_jai_ap_tds_thhold_grps.total_calc_tax_paid;
4053:
4054: /* Insert into the audite table */
4055: p_codepath := jai_general_pkg.plot_codepath(9, p_codepath); /* 9 */
4056: insert into jai_ap_tds_thgrp_audits
4057: (
4058: threshold_grp_audit_id ,
4059: threshold_grp_id ,
4133: ln_calc_trx_tax_paid ,
4134: ln_calc_new_tax_paid
4135: )
4136: returning threshold_grp_audit_id into p_threshold_grp_audit_id;
4137: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /* 10 */
4138: <
4139:
4140: p_codepath := jai_general_pkg.plot_codepath(100, p_codepath, null, 'END'); /* 1 */
4141: return;
4136: returning threshold_grp_audit_id into p_threshold_grp_audit_id;
4137: p_codepath := jai_general_pkg.plot_codepath(10, p_codepath); /* 10 */
4138: <
4139:
4140: p_codepath := jai_general_pkg.plot_codepath(100, p_codepath, null, 'END'); /* 1 */
4141: return;
4142:
4143: exception
4144: when others then