[Home] [Help]
113: p_invoice_no => jai_rcv_rgm_claims_pkg.gv_invoice_no_dflt, --File.Sql.35 Cbabu
114: p_invoice_date => jai_rcv_rgm_claims_pkg.gd_invoice_date_dflt --File.Sql.35 Cbabu
115:
116: 2. Procedure call generate_schedule is changed:
117: p_override => jai_constants.no
118:
119: Dependency Due to this Bug:-
120: File jai_rcv_tax.plb (120.4) is changed as part of this Bug,
121: so this object is dependent on current Bug and object jai_rcv_tax.plb(120.4)
299: 115.4 4279050 4279050 jai_rcv_rgm_claims_s.sql 115.1 Sanjikum 07/04/2005
300: 115.4 4279050 4279050 ja_in_create_4279050.sql 115.0 Sanjikum 07/04/2005
301: --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
302: ****************************************************************************************************************************************************************************************/
303: p_process_status := jai_constants.successful;
304: p_process_message := NULL;
305:
306: OPEN c_trx(p_transaction_id);
307: FETCH c_trx INTO r_trx;
416:
417: p_location_id := ln_location_id;
418: EXCEPTION
419: WHEN OTHERS THEN
420: p_process_status := jai_constants.unexpected_error;
421: p_process_message := SUBSTR('jai_rcv_rgm_claims_pkg.get_location Error:'||SQLERRM,1,250);
422: END get_location;
423:
424: PROCEDURE generate_schedule(
471:
472: CURSOR cur_tax(cp_transaction_id IN rcv_transactions.transaction_id%TYPE,
473: cp_currency_conversion_rate IN JAI_RCV_TRANSACTIONS.currency_conversion_rate%TYPE)
474: IS
475: SELECT DECODE(a.currency, jai_constants.func_curr, a.tax_amount*(b.mod_cr_percentage/100),
476: a.tax_amount*cp_currency_conversion_rate*(b.mod_cr_percentage/100)) tax_amount --Removed Round condition by Bgowrava for Bug#8414075
477: /*DECODE(a.currency, jai_constants.func_curr, a.tax_amount, a.tax_amount*cp_currency_conversion_rate),
478: NVL(b.rounding_factor, 0) Commented by Nitin for Bug:# 6681800
479: ) tax_amount*/,
473: cp_currency_conversion_rate IN JAI_RCV_TRANSACTIONS.currency_conversion_rate%TYPE)
474: IS
475: SELECT DECODE(a.currency, jai_constants.func_curr, a.tax_amount*(b.mod_cr_percentage/100),
476: a.tax_amount*cp_currency_conversion_rate*(b.mod_cr_percentage/100)) tax_amount --Removed Round condition by Bgowrava for Bug#8414075
477: /*DECODE(a.currency, jai_constants.func_curr, a.tax_amount, a.tax_amount*cp_currency_conversion_rate),
478: NVL(b.rounding_factor, 0) Commented by Nitin for Bug:# 6681800
479: ) tax_amount*/,
480: a.tax_type,
481: a.tax_id,
484: JAI_CMN_TAXES_ALL b
485: WHERE a.transaction_id = cp_transaction_id
486: AND a.tax_type IN ( select tax_type
487: from jai_regime_tax_types_v
488: where regime_code = jai_constants.vat_regime
489: )
490: AND a.tax_id = b.tax_id
491: AND a.modvat_flag = 'Y'
492: --Added for Bug#4950914
531: ln_apportion_factor NUMBER;
532:
533: BEGIN
534:
535: p_process_status := jai_constants.successful;
536: p_process_message := NULL;
537:
538: IF p_override = 'Y' THEN
539: DELETE jai_rcv_rgm_claims
585: p_schedule_id => ln_schedule_id,
586: p_process_flag => lv_process_flag,
587: p_process_msg => lv_process_msg);
588:
589: IF lv_process_flag <> jai_constants.successful THEN
590:
591: --Added for Bug#4950914
592: DELETE jai_rgm_trm_schedules_t
593: WHERE schedule_id = ln_schedule_id;
612: DELETE jai_rgm_trm_schedules_t
613: WHERE schedule_id = ln_schedule_id;
614:
615: IF p_simulate_flag = 'Y' THEN
616: p_process_status := jai_constants.expected_error;
617: p_process_message := 'Duplicate Records in jai_rcv_rgm_claims';
618: --This message text is being compared for duplication check, so don't change this.
619: --Or search for the same text in this package and change it at all the places
620: RETURN;
677: SELECT jai_rcv_rgm_claims_s.NEXTVAL,
678: r_term.rcv_rgm_line_id,
679: rec_lines.shipment_header_id,
680: rec_lines.shipment_line_id,
681: jai_constants.vat_regime,
682: rec_txns.tax_transaction_id,
683: rec_txns.transaction_type,
684: rec_txns.transaction_id,
685: rec_txns.parent_transaction_type,
711: END LOOP;
712: END LOOP;
713: EXCEPTION
714: WHEN OTHERS THEN
715: p_process_status := jai_constants.unexpected_error;
716: p_process_message := SUBSTR(SQLERRM,1,200);
717: fnd_file.put_line(fnd_file.log, 'gone into error ');
718: END generate_schedule;
719:
750: CURSOR c_tax_amount (cp_shipment_line_id IN rcv_shipment_lines.shipment_line_id%TYPE)
751: IS
752: SELECT nvl(rtl.tax_amount, 0) tax_amount,
753: nvl(rtl.modvat_flag, 'N') modvat_flag,
754: nvl(rtl.currency, jai_constants.func_curr) currency,
755: nvl(jtc.rounding_factor, 0) rnd,
756: nvl(jtc.mod_cr_percentage, 0) modvat_percentage /*Added by Nitin for bug # 6681800*/
757: FROM JAI_RCV_LINE_TAXES rtl,
758: JAI_CMN_TAXES_ALL jtc
760: AND jtc.tax_id = rtl.tax_id
761: AND rtl.modvat_flag = 'Y'
762: AND jtc.tax_type IN (select tax_type
763: from jai_regime_tax_types_v
764: where regime_code = jai_constants.vat_regime);
765:
766: CURSOR c_shipment_lines(cp_shipment_header_id IN rcv_shipment_headers.shipment_header_id%TYPE,
767: cp_shipment_line_id IN rcv_shipment_lines.shipment_line_id%TYPE)
768: IS
807: IS
808: SELECT 1
809: FROM JAI_RCV_LINE_TAXES a , jai_regime_tax_types_v b
810: WHERE shipment_line_id = cp_shipment_line_id AND
811: b.regime_code= jai_constants.vat_regime
812: and b.tax_type = a.tax_type ;
813:
814: ln_vat_exists NUMBER ;
815:
833: END IF ;
834:
835: -- ended, Ramananda for bug # 4519719
836:
837: p_process_status := jai_constants.successful;
838: p_process_message := NULL;
839:
840: /* File.Sql.35 by Brathod */
841: ln_recoverable_amount := 0;
843: ln_dup_chk := 0;
844: lv_localpath := '';
845: /* End of File.Sql.35 by Brathod */
846:
847: OPEN c_regime(NULL, jai_constants.vat_regime);
848: FETCH c_regime INTO r_regime;
849: CLOSE c_regime;
850:
851: OPEN c_receipt_source_code(p_shipment_header_id, p_shipment_line_id);
881: ln_recoverable_amount := 0;
882:
883: FOR tax_rec IN c_tax_amount(rec_lines.shipment_line_id)
884: LOOP
885: IF tax_rec.currency <> jai_constants.func_curr THEN
886: ln_curr_conv := NVL(r_trx.currency_conversion_rate, 1);
887: ELSE
888: ln_curr_conv := 1;
889: END IF;
895: END IF;
896:
897: --In the Final Observation Change
898: if ln_recoverable_amount = 0 then
899: p_process_status := jai_constants.successful;
900: p_process_message := NULL;
901: RETURN;
902: end if;
903:
915: p_location_id => ln_location_id,
916: p_process_status => lv_process_flag,
917: p_process_message => lv_process_msg);
918:
919: IF lv_process_flag <> jai_constants.successful THEN
920: p_process_status := lv_process_flag;
921: p_process_message := 'Error in Line Number '||rec_lines.line_num||' - '||lv_process_msg;
922: RETURN;
923: END IF;
935: p_attribute_value => lv_item_class,
936: p_process_flag => lv_process_flag,
937: p_process_msg => lv_process_msg
938: );
939: IF lv_process_flag <> jai_constants.successful THEN
940: p_process_status := lv_process_flag;
941: p_process_message := 'Error in Line Number '||rec_lines.line_num||' - '||lv_process_msg;
942: RETURN;
943: END IF;
946: jai_cmn_rgm_terms_pkg.get_term_id(
947: p_regime_id => r_regime.regime_id,
948: p_item_id => rec_lines.inventory_item_id,
949: p_organization_id => r_base_trx.organization_id,
950: p_party_type => jai_constants.orgn_type_io,
951: p_location_id => ln_location_id,
952: p_term_id => ln_term_id,
953: p_process_flag => lv_process_flag,
954: p_process_msg => lv_process_msg
952: p_term_id => ln_term_id,
953: p_process_flag => lv_process_flag,
954: p_process_msg => lv_process_msg
955: );
956: IF lv_process_flag <> jai_constants.successful THEN
957: p_process_status := lv_process_flag;
958: p_process_message := 'Error in Line Number '||rec_lines.line_num||' - '||lv_process_msg;
959: RETURN;
960: END IF;
964: p_process_flag => lv_process_flag,
965: p_process_msg => lv_process_msg
966: );
967:
968: IF lv_process_flag <> jai_constants.successful THEN
969: p_process_status := lv_process_flag;
970: p_process_message := 'Error in Line Number '||rec_lines.line_num||' - '||lv_process_msg;
971: RETURN;
972: END IF;
973:
974: -- even if there is no VAT, then the data goes into this table
975: /*bduvarag Bug 5899383 start*/
976: lv_default_invoice_setup := jai_cmn_rgm_recording_pkg.get_rgm_attribute_value(
977: pv_regime_code => jai_constants.vat_regime,
978: pv_organization_type => jai_constants.orgn_type_io,
979: pn_organization_id => r_trx.organization_id,
980: pn_location_id => ln_location_id,
981: pv_registration_type => jai_constants.regn_type_others, --'OTHERS',
974: -- even if there is no VAT, then the data goes into this table
975: /*bduvarag Bug 5899383 start*/
976: lv_default_invoice_setup := jai_cmn_rgm_recording_pkg.get_rgm_attribute_value(
977: pv_regime_code => jai_constants.vat_regime,
978: pv_organization_type => jai_constants.orgn_type_io,
979: pn_organization_id => r_trx.organization_id,
980: pn_location_id => ln_location_id,
981: pv_registration_type => jai_constants.regn_type_others, --'OTHERS',
982: pv_attribute_type_code => NULL,
977: pv_regime_code => jai_constants.vat_regime,
978: pv_organization_type => jai_constants.orgn_type_io,
979: pn_organization_id => r_trx.organization_id,
980: pn_location_id => ln_location_id,
981: pv_registration_type => jai_constants.regn_type_others, --'OTHERS',
982: pv_attribute_type_code => NULL,
983: pv_attribute_code => 'DEFAULT_INVOICE_DETAILS' ); --'DEFAULT_INVOICE_DETAILS');
984:
985:
1062: ln_location_id,
1063: rec_lines.inventory_item_id,
1064: rec_lines.receipt_num,
1065: r_base_trx.transaction_date,
1066: jai_constants.vat_regime,
1067: lv_item_class,
1068: r_trx.transaction_id,
1069: ln_recoverable_amount,
1070: 0,
1087: END IF;
1088: END LOOP;
1089: EXCEPTION
1090: WHEN OTHERS THEN
1091: p_process_status := jai_constants.unexpected_error;
1092: p_process_message := SUBSTR(SQLERRM,1,200);
1093: END insert_rcv_lines;
1094:
1095: PROCEDURE update_rcv_lines(
1123: AND shipment_line_id = cp_shipment_line_id;
1124:
1125: r_total_amount c_total_amount%ROWTYPE;
1126: BEGIN
1127: p_process_status := jai_constants.successful;
1128: p_process_message := NULL;
1129:
1130: IF p_shipment_line_id IS NULL AND p_receipt_num IS NULL THEN
1131: p_process_status := jai_constants.expected_error;
1127: p_process_status := jai_constants.successful;
1128: p_process_message := NULL;
1129:
1130: IF p_shipment_line_id IS NULL AND p_receipt_num IS NULL THEN
1131: p_process_status := jai_constants.expected_error;
1132: p_process_message := 'Either of Shipment_line_id or receipt_num is mandatory';
1133: RETURN;
1134: END IF;
1135:
1163: END IF;
1164:
1165: EXCEPTION
1166: WHEN OTHERS THEN
1167: p_process_status := jai_constants.unexpected_error;
1168: p_process_message := SUBSTR(SQLERRM,1,200);
1169: END update_rcv_lines;
1170:
1171: PROCEDURE process_vat(
1205:
1206: /*CURSOR cur_total_tax(cp_transaction_id IN JAI_RCV_LINE_TAXES.transaction_id%TYPE,
1207: cp_currency_conversion_rate IN JAI_RCV_TRANSACTIONS.currency_conversion_rate%TYPE)
1208: IS
1209: SELECT SUM(DECODE(currency, jai_constants.func_curr, tax_amount, tax_amount*cp_currency_conversion_rate)) tax_amount
1210: FROM JAI_RCV_LINE_TAXES
1211: WHERE transaction_id = cp_transaction_id
1212: AND tax_type in (select tax_type
1213: from jai_regime_tax_types_v
1210: FROM JAI_RCV_LINE_TAXES
1211: WHERE transaction_id = cp_transaction_id
1212: AND tax_type in (select tax_type
1213: from jai_regime_tax_types_v
1214: where regime_code = jai_constants.vat_regime)
1215: AND NVL(modvat_flag,'N') = 'Y';*/
1216:
1217: CURSOR c_regime (cp_regime_id IN JAI_RGM_DEFINITIONS.regime_id%TYPE DEFAULT NULL,
1218: cp_regime_code IN JAI_RGM_DEFINITIONS.regime_code%TYPE DEFAULT NULL)
1296: /* End of File.Sql.35 by Brathod */
1297:
1298: ln_statement_id := 1;
1299:
1300: lv_simulate_flag := jai_constants.no; --File.Sql.35 Cbabu
1301: p_process_status := jai_constants.successful;
1302: p_process_message := NULL;
1303:
1304: lv_codepath := jai_general_pkg.plot_codepath(1, lv_codepath, 'rgm_claim_pkg.process_vat', 'START');
1297:
1298: ln_statement_id := 1;
1299:
1300: lv_simulate_flag := jai_constants.no; --File.Sql.35 Cbabu
1301: p_process_status := jai_constants.successful;
1302: p_process_message := NULL;
1303:
1304: lv_codepath := jai_general_pkg.plot_codepath(1, lv_codepath, 'rgm_claim_pkg.process_vat', 'START');
1305:
1308: CLOSE c_trx;
1309:
1310: --Start for Bug#4950914
1311: --means transacrion has already completed
1312: IF r_trx.process_vat_status = jai_constants.successful THEN
1313: RETURN;
1314: END IF;
1315:
1316: --this is just to check, if the transaction has already been processed by checking the records from
1325: p_term_id => NULL,
1326: p_tax_id => NULL,
1327: p_override => NULL
1328: );
1329: IF lv_process_status = jai_constants.expected_error AND
1330: lv_process_message = 'Duplicate Records in jai_rcv_rgm_claims' THEN
1331: --This process message is being passed from the procedure generate_schedule
1332: --So shouldn't be changed OR should be changed at all the places in the in this package
1333: RETURN;
1361: p_shipment_line_id => r_base_trx.shipment_line_id,
1362: p_transaction_id => r_trx.transaction_id,
1363: p_process_message => lv_process_message,
1364: p_process_status => lv_process_status,
1365: p_override => jai_constants.no --File.Sql.35 Added by Ramananda for bug#4530112
1366: );
1367:
1368: IF lv_process_status <> jai_constants.successful THEN
1369: p_process_status := lv_process_status;
1364: p_process_status => lv_process_status,
1365: p_override => jai_constants.no --File.Sql.35 Added by Ramananda for bug#4530112
1366: );
1367:
1368: IF lv_process_status <> jai_constants.successful THEN
1369: p_process_status := lv_process_status;
1370: p_process_message := lv_process_message;
1371: GOTO EXIT_POINT;
1372: END IF;
1393: p_invoice_no => jai_rcv_rgm_claims_pkg.gv_invoice_no_dflt, --File.Sql.35
1394: p_invoice_date => jai_rcv_rgm_claims_pkg.gd_invoice_date_dflt --File.Sql.35
1395: );
1396:
1397: IF lv_process_status <> jai_constants.successful THEN
1398: p_process_status := lv_process_status;
1399: p_process_message := lv_process_message;
1400: GOTO EXIT_POINT;
1401: END IF;
1404:
1405: END IF;
1406: --End Added by Ramananda for Bug #4530112
1407:
1408: OPEN c_regime(NULL, jai_constants.vat_regime);
1409: FETCH c_regime INTO r_regime;
1410: CLOSE c_regime;
1411: /* Bug 5243532. Added by Lakshmi Gopalsami
1412: * Removed the commented codes for cursr cur_txn
1425: ELSE
1426: lv_reference_10 := 'India Local VAT Entries for Receipt:'||r_trx.receipt_num||'. Transaction Type '||r_trx.transaction_type||' for the Organization code '||lv_organization_code;
1427: END IF;
1428:
1429: lv_currency_code := jai_constants.func_curr;
1430:
1431: IF gv_debug THEN
1432: fnd_file.put_line(fnd_file.log, 'r_base_trx.transaction_type:'||r_base_trx.transaction_type);
1433: END IF;
1443: --Populate the lines for quantity and Recoverable amount
1444: insert_rcv_lines(p_shipment_header_id => r_base_trx.shipment_header_id,
1445: p_shipment_line_id => r_base_trx.shipment_line_id,
1446: p_transaction_id => r_trx.transaction_id,
1447: p_regime_code => jai_constants.vat_regime,
1448: p_process_message => lv_process_message,
1449: p_process_status => lv_process_status,
1450: p_simulate_flag => lv_simulate_flag --File.Sql.35 Cbabu
1451: );
1453: IF gv_debug THEN
1454: fnd_file.put_line(fnd_file.log, '1.1 RECEIVE: After insert_rcv_lines:');
1455: END IF;
1456:
1457: IF lv_process_status <> jai_constants.successful THEN
1458: p_process_status := lv_process_status;
1459: p_process_message := lv_process_message;
1460: GOTO EXIT_POINT;
1461: END IF;
1468: p_shipment_line_id => r_base_trx.shipment_line_id,
1469: p_transaction_id => r_trx.transaction_id,
1470: p_process_message => lv_process_message,
1471: p_process_status => lv_process_status,
1472: p_override => jai_constants.no --File.Sql.35 Cbabu
1473: );
1474:
1475: IF lv_process_status <> jai_constants.successful THEN
1476: p_process_status := lv_process_status;
1471: p_process_status => lv_process_status,
1472: p_override => jai_constants.no --File.Sql.35 Cbabu
1473: );
1474:
1475: IF lv_process_status <> jai_constants.successful THEN
1476: p_process_status := lv_process_status;
1477: p_process_message := lv_process_message;
1478: GOTO EXIT_POINT;
1479: END IF;
1483: p_process_message => lv_process_message,
1484: p_process_status => lv_process_status
1485: );
1486:
1487: IF lv_process_status <> jai_constants.successful THEN
1488: p_process_status := lv_process_status;
1489: p_process_message := lv_process_message;
1490: GOTO EXIT_POINT;
1491: END IF;
1509: p_shipment_line_id => r_base_trx.shipment_line_id,
1510: p_transaction_id => r_trx.transaction_id,
1511: p_process_message => lv_process_message,
1512: p_process_status => lv_process_status,
1513: p_override => jai_constants.no --File.Sql.35 Cbabu
1514: );
1515:
1516: IF lv_process_status <> jai_constants.successful THEN
1517: p_process_status := lv_process_status;
1512: p_process_status => lv_process_status,
1513: p_override => jai_constants.no --File.Sql.35 Cbabu
1514: );
1515:
1516: IF lv_process_status <> jai_constants.successful THEN
1517: p_process_status := lv_process_status;
1518: p_process_message := lv_process_message;
1519: GOTO EXIT_POINT;
1520: END IF;
1546: p_invoice_date => r_trx.vat_invoice_date, --TRUNC(SYSDATE),
1547: p_process_status => lv_process_status,
1548: p_process_message => lv_process_message);
1549:
1550: IF lv_process_status <> jai_constants.successful THEN
1551: p_process_status := lv_process_status;
1552: p_process_message := lv_process_message;
1553: GOTO EXIT_POINT;
1554: END IF;
1567: p_invoice_no => jai_rcv_rgm_claims_pkg.gv_invoice_no_dflt, --File.Sql.35 Cbabu
1568: p_invoice_date => jai_rcv_rgm_claims_pkg.gd_invoice_date_dflt --File.Sql.35 Cbabu
1569: );
1570:
1571: IF lv_process_status <> jai_constants.successful THEN
1572: p_process_status := lv_process_status;
1573: p_process_message := lv_process_message;
1574: GOTO EXIT_POINT;
1575: END IF;
1595: p_shipment_line_id => r_base_trx.shipment_line_id,
1596: p_transaction_id => r_trx.transaction_id,
1597: p_process_message => lv_process_message,
1598: p_process_status => lv_process_status,
1599: p_override => jai_constants.no --File.Sql.35 Cbabu
1600: );
1601:
1602: IF lv_process_status <> jai_constants.successful THEN
1603: p_process_status := lv_process_status;
1598: p_process_status => lv_process_status,
1599: p_override => jai_constants.no --File.Sql.35 Cbabu
1600: );
1601:
1602: IF lv_process_status <> jai_constants.successful THEN
1603: p_process_status := lv_process_status;
1604: p_process_message := lv_process_message;
1605: GOTO EXIT_POINT;
1606: END IF;
1635: p_process_message => lv_process_message,
1636: p_process_status => lv_process_status
1637: );
1638:
1639: IF lv_process_status <> jai_constants.successful THEN
1640: p_process_status := lv_process_status;
1641: p_process_message := lv_process_message;
1642: GOTO EXIT_POINT;
1643: END IF;
1647: p_process_message => lv_process_message,
1648: p_process_status => lv_process_status
1649: );
1650:
1651: IF lv_process_status <> jai_constants.successful THEN
1652: p_process_status := lv_process_status;
1653: p_process_message := lv_process_message;
1654: GOTO EXIT_POINT;
1655: END IF;
1672: p_invoice_no => jai_rcv_rgm_claims_pkg.gv_invoice_no_dflt, --File.Sql.35 Cbabu
1673: p_invoice_date => jai_rcv_rgm_claims_pkg.gd_invoice_date_dflt --File.Sql.35 Cbabu
1674: );
1675:
1676: IF lv_process_status <> jai_constants.successful THEN
1677: p_process_status := lv_process_status;
1678: p_process_message := lv_process_message;
1679: GOTO EXIT_POINT;
1680: END IF;
1698: p_shipment_line_id => r_base_trx.shipment_line_id,
1699: p_transaction_id => r_trx.transaction_id,
1700: p_process_message => lv_process_message,
1701: p_process_status => lv_process_status,
1702: p_override => jai_constants.no --File.Sql.35 Cbabu
1703: );
1704:
1705: IF lv_process_status <> jai_constants.successful THEN
1706: p_process_status := lv_process_status;
1701: p_process_status => lv_process_status,
1702: p_override => jai_constants.no --File.Sql.35 Cbabu
1703: );
1704:
1705: IF lv_process_status <> jai_constants.successful THEN
1706: p_process_status := lv_process_status;
1707: p_process_message := lv_process_message;
1708: GOTO EXIT_POINT;
1709: END IF;
1741: p_invoice_date => TRUNC(SYSDATE),
1742: p_process_status => lv_process_status,
1743: p_process_message => lv_process_message);
1744:
1745: IF lv_process_status <> jai_constants.successful THEN
1746: p_process_status := lv_process_status;
1747: p_process_message := lv_process_message;
1748: GOTO EXIT_POINT;
1749: END IF;
1760: p_process_message => lv_process_message,
1761: p_process_status => lv_process_status
1762: );
1763:
1764: IF lv_process_status <> jai_constants.successful THEN
1765: p_process_status := lv_process_status;
1766: p_process_message := lv_process_message;
1767: GOTO EXIT_POINT;
1768: END IF;
1784: p_invoice_no => jai_rcv_rgm_claims_pkg.gv_invoice_no_dflt, --File.Sql.35 Cbabu
1785: p_invoice_date => jai_rcv_rgm_claims_pkg.gd_invoice_date_dflt --File.Sql.35 Cbabu
1786: );
1787:
1788: IF lv_process_status <> jai_constants.successful THEN
1789: p_process_status := lv_process_status;
1790: p_process_message := lv_process_message;
1791: GOTO EXIT_POINT;
1792: END IF;
1804: WHERE transaction_id = p_transaction_id;
1805:
1806: EXCEPTION
1807: WHEN OTHERS THEN
1808: p_process_status := jai_constants.unexpected_error;
1809: p_process_message := 'Stmt :'||ln_statement_id||' '||SUBSTR(SQLERRM,1,200);
1810: fnd_file.put_line(fnd_file.log, 'PROCESS_VAT ERROR:'||p_process_message);
1811:
1812: END process_vat;
1853: JAI_RGM_DEFINITIONS c
1854: WHERE a.regime_code = c.regime_code
1855: AND c.regime_id = cp_regime_id
1856: AND a.attribute_value = NVL(cp_regime_regno, a.attribute_value)
1857: AND a.attribute_type_code = jai_constants.rgm_attr_type_code_primary --'PRIMARY'
1858: AND a.attribute_code = jai_constants.attr_code_regn_no --'REGISTRATION_NO'
1859: AND a.organization_id = NVL(cp_organization_id, a.organization_id)
1860: AND a.location_id = NVL(cp_location_id, a.location_id)
1861: AND b.shipment_header_id = NVL(cp_shipment_header_id,b.shipment_header_id)
1854: WHERE a.regime_code = c.regime_code
1855: AND c.regime_id = cp_regime_id
1856: AND a.attribute_value = NVL(cp_regime_regno, a.attribute_value)
1857: AND a.attribute_type_code = jai_constants.rgm_attr_type_code_primary --'PRIMARY'
1858: AND a.attribute_code = jai_constants.attr_code_regn_no --'REGISTRATION_NO'
1859: AND a.organization_id = NVL(cp_organization_id, a.organization_id)
1860: AND a.location_id = NVL(cp_location_id, a.location_id)
1861: AND b.shipment_header_id = NVL(cp_shipment_header_id,b.shipment_header_id)
1862: AND b.shipment_line_id = NVL(cp_shipment_line_id, b.shipment_line_id)
1938: ld_excise_invoice_Date DATE;
1939: /*bduvarag Bug 5899383 End*/
1940: BEGIN
1941:
1942: p_process_status := jai_constants.successful;
1943: p_process_message := NULL;
1944:
1945: /* File.Sql.35 by Brathod */
1946: lv_account_nature := 'VAT CLAIM';
1999: WHERE transaction_id = r_vat_invoice.transaction_id;
2000: END IF;
2001: /*bduvarag Bug 5899383 start*/
2002: lv_default_invoice_setup := jai_cmn_rgm_recording_pkg.get_rgm_attribute_value(
2003: pv_regime_code => jai_constants.vat_regime,
2004: pv_organization_type => jai_constants.orgn_type_io,
2005: pn_organization_id => rec_claims.organization_id,
2006: pn_location_id => rec_claims.location_id,
2007: pv_registration_type => jai_constants.regn_type_others, --'OTHERS',
2000: END IF;
2001: /*bduvarag Bug 5899383 start*/
2002: lv_default_invoice_setup := jai_cmn_rgm_recording_pkg.get_rgm_attribute_value(
2003: pv_regime_code => jai_constants.vat_regime,
2004: pv_organization_type => jai_constants.orgn_type_io,
2005: pn_organization_id => rec_claims.organization_id,
2006: pn_location_id => rec_claims.location_id,
2007: pv_registration_type => jai_constants.regn_type_others, --'OTHERS',
2008: pv_attribute_type_code => NULL,
2003: pv_regime_code => jai_constants.vat_regime,
2004: pv_organization_type => jai_constants.orgn_type_io,
2005: pn_organization_id => rec_claims.organization_id,
2006: pn_location_id => rec_claims.location_id,
2007: pv_registration_type => jai_constants.regn_type_others, --'OTHERS',
2008: pv_attribute_type_code => NULL,
2009: pv_attribute_code => 'DEFAULT_INVOICE_DETAILS' ); --'DEFAULT_INVOICE_DETAILS');
2010: If upper(lv_default_invoice_setup) in ( 'Y', 'YES') then
2011:
2054: fnd_file.put_line(fnd_file.log, 'Before Start of Accounting');
2055: END IF;
2056:
2057: --Accounting
2058: lv_currency_code := jai_constants.func_curr;
2059:
2060: --for Balancing Accountid for register entry
2061: ln_interim_recovery_account :=
2062: jai_cmn_rgm_recording_pkg.get_account(
2060: --for Balancing Accountid for register entry
2061: ln_interim_recovery_account :=
2062: jai_cmn_rgm_recording_pkg.get_account(
2063: p_regime_id => r_regime.regime_id,
2064: p_organization_type => jai_constants.orgn_type_io,
2065: p_organization_id => rec_claims.organization_id,
2066: p_location_id => rec_claims.location_id,
2067: p_tax_type => rec_claims.tax_type,
2068: p_account_name => jai_constants.recovery_interim);
2064: p_organization_type => jai_constants.orgn_type_io,
2065: p_organization_id => rec_claims.organization_id,
2066: p_location_id => rec_claims.location_id,
2067: p_tax_type => rec_claims.tax_type,
2068: p_account_name => jai_constants.recovery_interim);
2069:
2070: IF ln_interim_recovery_account IS NULL THEN
2071: p_process_status := jai_constants.expected_error;
2072: p_process_message := 'Interim recovery Account not defined in VAT Setup';
2067: p_tax_type => rec_claims.tax_type,
2068: p_account_name => jai_constants.recovery_interim);
2069:
2070: IF ln_interim_recovery_account IS NULL THEN
2071: p_process_status := jai_constants.expected_error;
2072: p_process_message := 'Interim recovery Account not defined in VAT Setup';
2073: RETURN;
2074: END IF;
2075:
2075:
2076: ln_code_combination_id :=
2077: jai_cmn_rgm_recording_pkg.get_account(
2078: p_regime_id => r_regime.regime_id,
2079: p_organization_type => jai_constants.orgn_type_io,
2080: p_organization_id => rec_claims.organization_id,
2081: p_location_id => rec_claims.location_id,
2082: p_tax_type => rec_claims.tax_type,
2083: p_account_name => jai_constants.recovery);
2079: p_organization_type => jai_constants.orgn_type_io,
2080: p_organization_id => rec_claims.organization_id,
2081: p_location_id => rec_claims.location_id,
2082: p_tax_type => rec_claims.tax_type,
2083: p_account_name => jai_constants.recovery);
2084:
2085: IF ln_code_combination_id IS NULL THEN
2086: p_process_status := jai_constants.expected_error;
2087: p_process_message := 'Recovery Account not defined in VAT Setup';
2082: p_tax_type => rec_claims.tax_type,
2083: p_account_name => jai_constants.recovery);
2084:
2085: IF ln_code_combination_id IS NULL THEN
2086: p_process_status := jai_constants.expected_error;
2087: p_process_message := 'Recovery Account not defined in VAT Setup';
2088: RETURN;
2089: END IF;
2090:
2095: ln_entered_dr := ln_entered_cr*-1;
2096: ln_entered_cr := NULL;
2097: END IF;
2098:
2099: lv_account_name := jai_constants.recovery;
2100: /*
2101: IF p_called_from = 'RETURN TO VENDOR' THEN
2102: lv_source_trx_type := 'VAT CLAIM for RTV';
2103: ELSIF p_called_from = 'CORRECT OF RETURN TO VENDOR' THEN
2135: jai_cmn_rgm_recording_pkg.insert_vat_repository_entry(
2136: pn_repository_id => ln_repository_id,
2137: pn_regime_id => r_regime.regime_id,
2138: pv_tax_type => rec_claims.tax_type,
2139: pv_organization_type => jai_constants.orgn_type_io,
2140: pn_organization_id => rec_claims.organization_id,
2141: pn_location_id => rec_claims.location_id,
2142: pv_source => jai_constants.source_rcv,
2143: pv_source_trx_type => lv_source_trx_type,
2138: pv_tax_type => rec_claims.tax_type,
2139: pv_organization_type => jai_constants.orgn_type_io,
2140: pn_organization_id => rec_claims.organization_id,
2141: pn_location_id => rec_claims.location_id,
2142: pv_source => jai_constants.source_rcv,
2143: pv_source_trx_type => lv_source_trx_type,
2144: pv_source_table_name => TABLE_RCV_TRANSACTIONS, /* 'JAI_RCV_RGM_CLAIMS', Vijay */
2145: pn_source_id => nvl(r_vat_invoice.tax_transaction_id, r_vat_invoice.transaction_id), /* r_claim_schedule.claim_schedule_id, Vijay */
2146: pd_transaction_date => nvl(ld_accounting_date,trunc(sysdate)),--14061440
2178: fnd_file.put_line(fnd_file.log, 'lv_process_message'||lv_process_message);
2179: END IF;
2180:
2181:
2182: IF lv_process_status <> jai_constants.successful THEN
2183: p_process_status := lv_process_status;
2184: p_process_message := lv_process_message;
2185: RETURN;
2186: END IF;
2218: p_process_status => lv_process_status,
2219: p_reference_name => 'JAI_RCV_RGM_CLAIMS',
2220: p_reference_id => r_claim_schedule.claim_schedule_id);
2221:
2222: IF lv_process_status <> jai_constants.successful THEN
2223: p_process_status := lv_process_status;
2224: p_process_message := lv_process_message;
2225: RETURN;
2226: END IF;
2230: -- Cr Vat Interim
2231: ln_code_combination_id :=
2232: jai_cmn_rgm_recording_pkg.get_account(
2233: p_regime_id => r_regime.regime_id,
2234: p_organization_type => jai_constants.orgn_type_io,
2235: p_organization_id => rec_claims.organization_id,
2236: p_location_id => rec_claims.location_id,
2237: p_tax_type => rec_claims.tax_type,
2238: p_account_name => jai_constants.recovery_interim);
2234: p_organization_type => jai_constants.orgn_type_io,
2235: p_organization_id => rec_claims.organization_id,
2236: p_location_id => rec_claims.location_id,
2237: p_tax_type => rec_claims.tax_type,
2238: p_account_name => jai_constants.recovery_interim);
2239:
2240: IF ln_interim_recovery_account IS NULL THEN
2241: p_process_status := jai_constants.expected_error;
2242: p_process_message := 'Interim recovery Account not defined in VAT Setup';
2237: p_tax_type => rec_claims.tax_type,
2238: p_account_name => jai_constants.recovery_interim);
2239:
2240: IF ln_interim_recovery_account IS NULL THEN
2241: p_process_status := jai_constants.expected_error;
2242: p_process_message := 'Interim recovery Account not defined in VAT Setup';
2243: RETURN;
2244: END IF;
2245: */
2271: p_process_status => lv_process_status,
2272: p_reference_name => 'JAI_RCV_RGM_CLAIMS',
2273: p_reference_id => r_claim_schedule.claim_schedule_id);
2274:
2275: IF lv_process_status <> jai_constants.successful THEN
2276: p_process_status := lv_process_status;
2277: p_process_message := lv_process_message;
2278: RETURN;
2279: END IF;
2302: p_invoice_no => jai_rcv_rgm_claims_pkg.gv_invoice_no_dflt, --File.Sql.35 Cbabu
2303: p_invoice_date => jai_rcv_rgm_claims_pkg.gd_invoice_date_dflt --File.Sql.35 Cbabu
2304: );
2305:
2306: IF lv_process_status <> jai_constants.successful THEN
2307: p_process_status := lv_process_status;
2308: p_process_message := lv_process_message;
2309: RETURN;
2310: END IF;
2314: END LOOP;
2315:
2316: EXCEPTION
2317: WHEN OTHERS THEN
2318: p_process_status := jai_constants.unexpected_error;
2319: p_process_message := SUBSTR('jai_rcv_rgm_claims_pkg.process_claim Error:'||SQLERRM,1,200);
2320: END process_claim;
2321:
2322: /*PROCEDURE process_no_claim(
2376: JAI_RGM_DEFINITIONS c
2377: WHERE a.regime_code = c.regime_code
2378: AND c.regime_id = cp_regime_id
2379: AND a.attribute_value = NVL(cp_regime_regno, a.attribute_value)
2380: AND a.attribute_type_code = jai_constants.rgm_attr_type_code_primary --'PRIMARY'
2381: AND a.attribute_code = jai_constants.attr_code_regn_no --'REGISTRATION_NO'
2382: AND a.organization_id = NVL(cp_organization_id, a.organization_id)
2383: AND a.location_id = NVL(cp_location_id, a.location_id)
2384: AND b.shipment_header_id = NVL(cp_shipment_header_id,b.shipment_header_id)
2377: WHERE a.regime_code = c.regime_code
2378: AND c.regime_id = cp_regime_id
2379: AND a.attribute_value = NVL(cp_regime_regno, a.attribute_value)
2380: AND a.attribute_type_code = jai_constants.rgm_attr_type_code_primary --'PRIMARY'
2381: AND a.attribute_code = jai_constants.attr_code_regn_no --'REGISTRATION_NO'
2382: AND a.organization_id = NVL(cp_organization_id, a.organization_id)
2383: AND a.location_id = NVL(cp_location_id, a.location_id)
2384: AND b.shipment_header_id = NVL(cp_shipment_header_id,b.shipment_header_id)
2385: AND b.shipment_line_id = NVL(cp_shipment_line_id, b.shipment_line_id)
2393: CURSOR cur_tax(cp_transaction_id IN JAI_RCV_LINE_TAXES.transaction_id%TYPE,
2394: cp_currency_conversion_rate IN JAI_RCV_TRANSACTIONS.currency_conversion_rate%TYPE)
2395: IS
2396: SELECT jtl.tax_type,
2397: /*Added by Nitin for Bug # 6681800 */ SUM(DECODE(jtl.currency, jai_constants.func_curr, jtl.tax_amount*(rtl.mod_cr_percentage/100), jtl.tax_amount*(rtl.mod_cr_percentage/100)*cp_currency_conversion_rate)) tax_amount
2398: /*Commented by Nitin for bug :6681800 SUM(DECODE(currency, jai_constants.func_curr, tax_amount, tax_amount*cp_currency_conversion_rate)) tax_amount*/
2399: FROM JAI_RCV_LINE_TAXES jtl ,JAI_CMN_TAXES_ALL rtl /* Need to have join with JAI_CMN_TAXES_ALL*/
2400: WHERE jtl.transaction_id = cp_transaction_id
2401: AND jtl.tax_type in (select tax_type
2394: cp_currency_conversion_rate IN JAI_RCV_TRANSACTIONS.currency_conversion_rate%TYPE)
2395: IS
2396: SELECT jtl.tax_type,
2397: /*Added by Nitin for Bug # 6681800 */ SUM(DECODE(jtl.currency, jai_constants.func_curr, jtl.tax_amount*(rtl.mod_cr_percentage/100), jtl.tax_amount*(rtl.mod_cr_percentage/100)*cp_currency_conversion_rate)) tax_amount
2398: /*Commented by Nitin for bug :6681800 SUM(DECODE(currency, jai_constants.func_curr, tax_amount, tax_amount*cp_currency_conversion_rate)) tax_amount*/
2399: FROM JAI_RCV_LINE_TAXES jtl ,JAI_CMN_TAXES_ALL rtl /* Need to have join with JAI_CMN_TAXES_ALL*/
2400: WHERE jtl.transaction_id = cp_transaction_id
2401: AND jtl.tax_type in (select tax_type
2402: from jai_regime_tax_types_v
2399: FROM JAI_RCV_LINE_TAXES jtl ,JAI_CMN_TAXES_ALL rtl /* Need to have join with JAI_CMN_TAXES_ALL*/
2400: WHERE jtl.transaction_id = cp_transaction_id
2401: AND jtl.tax_type in (select tax_type
2402: from jai_regime_tax_types_v
2403: where regime_code = jai_constants.vat_regime)
2404: AND NVL(jtl.modvat_flag,'N') = 'Y'
2405: AND jtl.tax_id = rtl.tax_id -- Bug 7454592. Added by Lakshmi Gopalsami
2406: GROUP BY jtl.tax_type;
2407:
2407:
2408: CURSOR cur_total_tax(cp_transaction_id IN JAI_RCV_LINE_TAXES.transaction_id%TYPE,
2409: cp_currency_conversion_rate IN JAI_RCV_TRANSACTIONS.currency_conversion_rate%TYPE)
2410: IS
2411: SELECT SUM(ROUND(DECODE(a.currency, jai_constants.func_curr, /*Added by Nitin for bug # 6681800*/a.tax_amount*(b.mod_cr_percentage/100), a.tax_amount*(b.mod_cr_percentage/100)*cp_currency_conversion_rate),NVL(b.rounding_factor,1))) tax_amount
2412: FROM JAI_RCV_LINE_TAXES a,
2413: JAI_CMN_TAXES_ALL b
2414: WHERE a.transaction_id = cp_transaction_id
2415: AND a.tax_type in (select tax_type
2413: JAI_CMN_TAXES_ALL b
2414: WHERE a.transaction_id = cp_transaction_id
2415: AND a.tax_type in (select tax_type
2416: from jai_regime_tax_types_v
2417: where regime_code = jai_constants.vat_regime)
2418: AND a.tax_id = b.tax_id
2419: AND NVL(a.modvat_flag,'N') = 'Y';
2420:
2421: CURSOR c_receive_transaction(cp_shipment_header_id IN rcv_shipment_headers.shipment_header_id%TYPE,
2584: lv_reference_26 := 'transaction_id';
2585: lv_destination := 'G';
2586: /* End of File.Sql.35 by Brathod */
2587:
2588: p_process_status := jai_constants.successful;
2589: p_process_message := NULL;
2590:
2591:
2592: lv_codepath := jai_general_pkg.plot_codepath(1, lv_codepath, 'jai_rcv_rgm_claims_pkg.process_no_claim', 'START');
2590:
2591:
2592: lv_codepath := jai_general_pkg.plot_codepath(1, lv_codepath, 'jai_rcv_rgm_claims_pkg.process_no_claim', 'START');
2593:
2594: OPEN c_regime(NULL, jai_constants.vat_regime);
2595: FETCH c_regime INTO r_regime;
2596: CLOSE c_regime;
2597:
2598: /*FOR r_shipment_lines IN c_shipment_lines(p_shipment_header_id,
2647: ln_apportion_factor := jai_rcv_trx_processing_pkg.get_apportion_factor(r_receive_correct_txns.transaction_id);
2648:
2649: FOR rec_tax IN cur_tax(r_receive_transaction.transaction_id, r_receive_transaction.currency_conversion_rate)
2650: LOOP
2651: lv_currency_code := jai_constants.func_curr;
2652:
2653: --DR Inventory Receiving
2654: ln_code_combination_id := r_rcv_parameters.receiving_account_id;
2655:
2680: p_process_status => lv_process_status,
2681: p_reference_name => rec_tax.tax_type,
2682: p_reference_id => NULL);
2683:
2684: IF lv_process_status <> jai_constants.successful THEN
2685: p_process_status := lv_process_status;
2686: p_process_message := lv_process_message;
2687: RETURN;
2688: END IF;
2691: --CR VAT Interrim
2692: ln_code_combination_id :=
2693: jai_cmn_rgm_recording_pkg.get_account(
2694: p_regime_id => r_regime.regime_id,
2695: p_organization_type => jai_constants.orgn_type_io,
2696: p_organization_id => r_receive_transaction.organization_id,
2697: p_location_id => r_receive_transaction.location_id,
2698: p_tax_type => rec_tax.tax_type,
2699: p_account_name => jai_constants.recovery_interim);
2695: p_organization_type => jai_constants.orgn_type_io,
2696: p_organization_id => r_receive_transaction.organization_id,
2697: p_location_id => r_receive_transaction.location_id,
2698: p_tax_type => rec_tax.tax_type,
2699: p_account_name => jai_constants.recovery_interim);
2700:
2701: ln_entered_dr := NULL;
2702: ln_entered_cr := rec_tax.tax_amount*ln_apportion_factor * ln_available_qty_apportion;--Updated by Wenqiong for bug 14743050, add ln_available_qty_apportion.
2703:
2727: p_process_status => lv_process_status,
2728: p_reference_name => rec_tax.tax_type,
2729: p_reference_id => NULL);
2730:
2731: IF lv_process_status <> jai_constants.successful THEN
2732: p_process_status := lv_process_status;
2733: p_process_message := lv_process_message;
2734: RETURN;
2735: END IF;
2773: END IF;
2774:
2775: jai_rcv_deliver_rtr_pkg.process_transaction(
2776: p_transaction_id => r_deliver_rtr_txns.transaction_id,
2777: p_simulate => jai_constants.no,
2778: p_codepath => lv_code_path,
2779: p_process_message => lv_process_message,
2780: p_process_status => lv_process_status,
2781: p_process_special_source => jai_constants.vat_noclaim,
2777: p_simulate => jai_constants.no,
2778: p_codepath => lv_code_path,
2779: p_process_message => lv_process_message,
2780: p_process_status => lv_process_status,
2781: p_process_special_source => jai_constants.vat_noclaim,
2782: p_process_special_amount => nvl(ln_process_special_amount,0)); --Added nvl condition by Bgowrava for Bug#8414075
2783:
2784:
2785: IF lv_process_status = 'E' THEN
2782: p_process_special_amount => nvl(ln_process_special_amount,0)); --Added nvl condition by Bgowrava for Bug#8414075
2783:
2784:
2785: IF lv_process_status = 'E' THEN
2786: p_process_status := jai_constants.expected_error;
2787: p_process_message := lv_process_message;
2788: RETURN;
2789: END IF;
2790:
2818: AND jrtl.shipment_line_id = r_shipment_lines.shipment_line_id
2819: AND jrtl.modvat_flag = 'Y'
2820: AND jrtl.tax_type IN (SELECT tax_type
2821: FROM jai_regime_tax_types_v
2822: WHERE regime_code = jai_constants.vat_regime))
2823: AND LINE_TYPE_LOOKUP_CODE = 'MISCELLANEOUS' ; /*Added line_type_lookup_code condition for bug # 11659328 */
2824:
2825: END IF; /*Bug 11880460 modified the above select statement in sync with the code in 12.1 by abezgam*/
2826: END LOOP;
2834: WHERE shipment_header_id = r_shipment_lines.shipment_header_id
2835: AND shipment_line_id = r_shipment_lines.shipment_line_id
2836: AND tax_type IN (select tax_type
2837: from jai_regime_tax_types_v
2838: where regime_code = jai_constants.vat_regime)
2839: AND modvat_flag = 'Y';
2840:
2841: --To update the Status, so that It should not be considered for claiming
2842: UPDATE jai_rcv_rgm_lines
2878:
2879: lv_codepath := jai_general_pkg.plot_codepath(3, lv_codepath, 'jai_rcv_rgm_claims_pkg.process_no_claim', 'START');
2880: EXCEPTION
2881: WHEN OTHERS THEN
2882: p_process_status := jai_constants.unexpected_error;
2883: p_process_message := SUBSTR(SQLERRM,1,200);
2884: END process_no_claim;
2885:
2886: PROCEDURE process_batch(
2930: OPEN c_regime(p_regime_id, NULL);
2931: FETCH c_regime INTO r_regime;
2932: CLOSE c_regime;
2933:
2934: IF r_regime.regime_code <> jai_constants.vat_regime THEN
2935: errbuf := 'This program is for VAT Regime Only';
2936: retcode := jai_constants.request_error;
2937: RETURN;
2938: END IF;
2932: CLOSE c_regime;
2933:
2934: IF r_regime.regime_code <> jai_constants.vat_regime THEN
2935: errbuf := 'This program is for VAT Regime Only';
2936: retcode := jai_constants.request_error;
2937: RETURN;
2938: END IF;
2939:
2940: --commented the below for Bug#4950914
2939:
2940: --commented the below for Bug#4950914
2941: /*IF p_batch_id IS NULL AND p_shipment_header_id IS NULL AND p_shipment_line_id IS NULL THEN
2942: errbuf := 'Invalid Parameters Passed';
2943: retcode := jai_constants.request_error;
2944: RETURN;
2945: END IF;*/
2946:
2947: lv_codepath := jai_general_pkg.plot_codepath(2, lv_codepath);
2959: p_called_from => p_called_from,
2960: p_process_status => lv_process_status,
2961: p_process_message => lv_process_message);
2962:
2963: IF lv_process_status <> jai_constants.successful THEN
2964: retcode := jai_constants.request_error;
2965: errbuf := lv_process_message;
2966: RETURN;
2967: END IF;
2960: p_process_status => lv_process_status,
2961: p_process_message => lv_process_message);
2962:
2963: IF lv_process_status <> jai_constants.successful THEN
2964: retcode := jai_constants.request_error;
2965: errbuf := lv_process_message;
2966: RETURN;
2967: END IF;
2968:
2980: p_process_status => lv_process_status,
2981: p_process_message => lv_process_message);
2982:
2983:
2984: IF lv_process_status <> jai_constants.successful THEN
2985: retcode := jai_constants.request_error;
2986: errbuf := lv_process_message;
2987: RETURN;
2988: END IF;
2981: p_process_message => lv_process_message);
2982:
2983:
2984: IF lv_process_status <> jai_constants.successful THEN
2985: retcode := jai_constants.request_error;
2986: errbuf := lv_process_message;
2987: RETURN;
2988: END IF;
2989:
3122: lv_destination := 'G';
3123: /* End of File.Sql.35 by Brathod */
3124:
3125: ln_statement_id := 100;
3126: p_process_status := jai_constants.successful;
3127: p_process_message := NULL;
3128:
3129: OPEN c_regime(NULL, jai_constants.vat_regime);
3130: FETCH c_regime INTO r_regime;
3125: ln_statement_id := 100;
3126: p_process_status := jai_constants.successful;
3127: p_process_message := NULL;
3128:
3129: OPEN c_regime(NULL, jai_constants.vat_regime);
3130: FETCH c_regime INTO r_regime;
3131: CLOSE c_regime;
3132:
3133: OPEN c_min_installment_no(p_shipment_header_id, p_shipment_line_id, 'RECEIVE');
3138: OPEN c_trx(p_transaction_id);
3139: FETCH c_trx INTO r_trx;
3140: CLOSE c_trx;
3141:
3142: lv_currency_code := jai_constants.func_curr;
3143:
3144: ln_statement_id := 101;
3145: FOR rec_taxes IN c_total_vat_amount(p_transaction_id)
3146: LOOP
3161: ln_statement_id := 102.2;
3162: ln_rec_ccid :=
3163: jai_cmn_rgm_recording_pkg.get_account(
3164: p_regime_id => r_regime.regime_id,
3165: p_organization_type => jai_constants.orgn_type_io,
3166: p_organization_id => rec_taxes.organization_id,
3167: p_location_id => rec_taxes.location_id,
3168: p_tax_type => rec_taxes.tax_type,
3169: p_account_name => jai_constants.recovery);
3165: p_organization_type => jai_constants.orgn_type_io,
3166: p_organization_id => rec_taxes.organization_id,
3167: p_location_id => rec_taxes.location_id,
3168: p_tax_type => rec_taxes.tax_type,
3169: p_account_name => jai_constants.recovery);
3170:
3171: IF ln_rec_ccid IS NULL THEN
3172: p_process_status := jai_constants.expected_error;
3173: p_process_message := 'Recovery Account not defined in VAT Setup';
3168: p_tax_type => rec_taxes.tax_type,
3169: p_account_name => jai_constants.recovery);
3170:
3171: IF ln_rec_ccid IS NULL THEN
3172: p_process_status := jai_constants.expected_error;
3173: p_process_message := 'Recovery Account not defined in VAT Setup';
3174: RETURN;
3175: END IF;
3176:
3177: ln_statement_id := 102.3;
3178: ln_int_ccid :=
3179: jai_cmn_rgm_recording_pkg.get_account(
3180: p_regime_id => r_regime.regime_id,
3181: p_organization_type => jai_constants.orgn_type_io,
3182: p_organization_id => rec_taxes.organization_id,
3183: p_location_id => rec_taxes.location_id,
3184: p_tax_type => rec_taxes.tax_type,
3185: p_account_name => jai_constants.recovery_interim);
3181: p_organization_type => jai_constants.orgn_type_io,
3182: p_organization_id => rec_taxes.organization_id,
3183: p_location_id => rec_taxes.location_id,
3184: p_tax_type => rec_taxes.tax_type,
3185: p_account_name => jai_constants.recovery_interim);
3186:
3187: IF ln_int_ccid IS NULL THEN
3188: p_process_status := jai_constants.expected_error;
3189: p_process_message := 'Internal Recovery Account not defined in VAT Setup';
3184: p_tax_type => rec_taxes.tax_type,
3185: p_account_name => jai_constants.recovery_interim);
3186:
3187: IF ln_int_ccid IS NULL THEN
3188: p_process_status := jai_constants.expected_error;
3189: p_process_message := 'Internal Recovery Account not defined in VAT Setup';
3190: RETURN;
3191: END IF;
3192:
3194: ln_statement_id := 102.4;
3195: ln_lib_ccid :=
3196: jai_cmn_rgm_recording_pkg.get_account(
3197: p_regime_id => r_regime.regime_id,
3198: p_organization_type => jai_constants.orgn_type_io,
3199: p_organization_id => rec_taxes.organization_id,
3200: p_location_id => rec_taxes.location_id,
3201: p_tax_type => rec_taxes.tax_type,
3202: p_account_name => jai_constants.liability);
3198: p_organization_type => jai_constants.orgn_type_io,
3199: p_organization_id => rec_taxes.organization_id,
3200: p_location_id => rec_taxes.location_id,
3201: p_tax_type => rec_taxes.tax_type,
3202: p_account_name => jai_constants.liability);
3203:
3204: IF ln_lib_ccid IS NULL THEN
3205: p_process_status := jai_constants.expected_error;
3206: p_process_message := 'Liability Account not defined in VAT Setup';
3201: p_tax_type => rec_taxes.tax_type,
3202: p_account_name => jai_constants.liability);
3203:
3204: IF ln_lib_ccid IS NULL THEN
3205: p_process_status := jai_constants.expected_error;
3206: p_process_message := 'Liability Account not defined in VAT Setup';
3207: RETURN;
3208: END IF;
3209:
3238: p_process_status => lv_process_status,
3239: p_reference_name => rec_taxes.tax_type||'1',
3240: p_reference_id => NULL);
3241:
3242: IF lv_process_status <> jai_constants.successful THEN
3243: p_process_status := lv_process_status;
3244: p_process_message := lv_process_message;
3245: RETURN;
3246: END IF;
3274: p_process_status => lv_process_status,
3275: p_reference_name => rec_taxes.tax_type||'1',
3276: p_reference_id => NULL);
3277:
3278: IF lv_process_status <> jai_constants.successful THEN
3279: p_process_status := lv_process_status;
3280: p_process_message := lv_process_message;
3281: RETURN;
3282: END IF;
3311: p_process_status => lv_process_status,
3312: p_reference_name => rec_taxes.tax_type||'2',
3313: p_reference_id => NULL);
3314:
3315: IF lv_process_status <> jai_constants.successful THEN
3316: p_process_status := lv_process_status;
3317: p_process_message := lv_process_message;
3318: RETURN;
3319: END IF;
3349: p_process_status => lv_process_status,
3350: p_reference_name => rec_taxes.tax_type||'2',
3351: p_reference_id => NULL);
3352:
3353: IF lv_process_status <> jai_constants.successful THEN
3354: p_process_status := lv_process_status;
3355: p_process_message := lv_process_message;
3356: RETURN;
3357: END IF;
3373: jai_cmn_rgm_recording_pkg.insert_vat_repository_entry(
3374: pn_repository_id => ln_repository_id,
3375: pn_regime_id => r_regime.regime_id,
3376: pv_tax_type => rec_taxes.tax_type,
3377: pv_organization_type => jai_constants.orgn_type_io,
3378: pn_organization_id => rec_taxes.organization_id,
3379: pn_location_id => rec_taxes.location_id,
3380: pv_source => jai_constants.source_rcv,
3381: pv_source_trx_type => 'VAT CLAIM',
3376: pv_tax_type => rec_taxes.tax_type,
3377: pv_organization_type => jai_constants.orgn_type_io,
3378: pn_organization_id => rec_taxes.organization_id,
3379: pn_location_id => rec_taxes.location_id,
3380: pv_source => jai_constants.source_rcv,
3381: pv_source_trx_type => 'VAT CLAIM',
3382: pv_source_table_name => TABLE_RCV_TRANSACTIONS, /* 'JAI_RCV_RGM_CLAIMS', Vijay */
3383: pn_source_id => p_transaction_id, /* r_claim_schedule.claim_schedule_id, Vijay */
3384: pd_transaction_date => trunc(sysdate),
3381: pv_source_trx_type => 'VAT CLAIM',
3382: pv_source_table_name => TABLE_RCV_TRANSACTIONS, /* 'JAI_RCV_RGM_CLAIMS', Vijay */
3383: pn_source_id => p_transaction_id, /* r_claim_schedule.claim_schedule_id, Vijay */
3384: pd_transaction_date => trunc(sysdate),
3385: pv_account_name => jai_constants.recovery,
3386: -- pn_charge_account_id => ln_rec_ccid,
3387: --commented the above and added the below by vkaranam for Bug#9662961
3388: pn_charge_account_id => ln_lib_ccid,
3389: pn_balancing_account_id => ln_int_ccid,
3416: fnd_file.put_line(fnd_file.log, 'lv_process_status'||lv_process_status);
3417: fnd_file.put_line(fnd_file.log, 'lv_process_message'||lv_process_message);
3418: END IF;
3419:
3420: IF lv_process_status <> jai_constants.successful THEN
3421: p_process_status := lv_process_status;
3422: p_process_message := lv_process_message;
3423: RETURN;
3424: END IF;
3441: jai_cmn_rgm_recording_pkg.insert_vat_repository_entry(
3442: pn_repository_id => ln_repository_id,
3443: pn_regime_id => r_regime.regime_id,
3444: pv_tax_type => rec_taxes.tax_type,
3445: pv_organization_type => jai_constants.orgn_type_io,
3446: pn_organization_id => rec_taxes.organization_id,
3447: pn_location_id => rec_taxes.location_id,
3448: pv_source => jai_constants.source_rcv,
3449: pv_source_trx_type => 'VAT CLAIM for RTV',
3444: pv_tax_type => rec_taxes.tax_type,
3445: pv_organization_type => jai_constants.orgn_type_io,
3446: pn_organization_id => rec_taxes.organization_id,
3447: pn_location_id => rec_taxes.location_id,
3448: pv_source => jai_constants.source_rcv,
3449: pv_source_trx_type => 'VAT CLAIM for RTV',
3450: pv_source_table_name => TABLE_RCV_TRANSACTIONS, /* 'JAI_RCV_RGM_CLAIMS', Vijay */
3451: pn_source_id => nvl(r_trx.tax_transaction_id, p_transaction_id), /* r_claim_schedule.claim_schedule_id, Vijay*/
3452: pd_transaction_date => TRUNC(SYSDATE),
3449: pv_source_trx_type => 'VAT CLAIM for RTV',
3450: pv_source_table_name => TABLE_RCV_TRANSACTIONS, /* 'JAI_RCV_RGM_CLAIMS', Vijay */
3451: pn_source_id => nvl(r_trx.tax_transaction_id, p_transaction_id), /* r_claim_schedule.claim_schedule_id, Vijay*/
3452: pd_transaction_date => TRUNC(SYSDATE),
3453: pv_account_name => jai_constants.recovery,
3454: pn_charge_account_id => ln_rec_ccid,
3455: pn_balancing_account_id => ln_int_ccid,
3456: pn_credit_amount => ln_entered_cr,
3457: pn_debit_amount => ln_entered_dr,
3482: fnd_file.put_line(fnd_file.log, 'lv_process_status'||lv_process_status);
3483: fnd_file.put_line(fnd_file.log, 'lv_process_message'||lv_process_message);
3484: END IF;
3485:
3486: IF lv_process_status <> jai_constants.successful THEN
3487: p_process_status := lv_process_status;
3488: p_process_message := lv_process_message;
3489: RETURN;
3490: END IF;
3504: AND status = 'N';
3505:
3506: EXCEPTION
3507: WHEN OTHERS THEN
3508: p_process_status := jai_constants.unexpected_error;
3509: p_process_message := 'Stmt :'||ln_statement_id||' '||SUBSTR(SQLERRM,1,200);
3510: END do_rtv_accounting;
3511:
3512: PROCEDURE do_rma_accounting(
3518: CURSOR cur_tax(cp_transaction_id IN JAI_RCV_LINE_TAXES.transaction_id%TYPE,
3519: cp_currency_conversion_rate IN JAI_RCV_TRANSACTIONS.currency_conversion_rate%TYPE)
3520: IS
3521: SELECT a.tax_type,/*COL (b.mod_cr_percentage/100) added by Nitin for bug #6681800*/
3522: SUM(ROUND(DECODE(a.currency, jai_constants.func_curr, a.tax_amount*(b.mod_cr_percentage/100), a.tax_amount*(b.mod_cr_percentage/100)*cp_currency_conversion_rate),NVL(b.rounding_factor,0))) tax_amount
3523: FROM JAI_RCV_LINE_TAXES a,
3524: JAI_CMN_TAXES_ALL b
3525: WHERE a.transaction_id = cp_transaction_id
3526: AND a.tax_type in (select tax_type
3524: JAI_CMN_TAXES_ALL b
3525: WHERE a.transaction_id = cp_transaction_id
3526: AND a.tax_type in (select tax_type
3527: from jai_regime_tax_types_v
3528: where regime_code = jai_constants.vat_regime)
3529: AND NVL(a.modvat_flag,'N') = 'Y'
3530: AND a.tax_id = b.tax_id
3531: GROUP BY a.tax_type;
3532:
3600: lv_reference_26 := 'transaction_id';
3601: lv_destination := 'G';
3602: /* End of File.Sql.35 by Brathod */
3603:
3604: p_process_status := jai_constants.successful;
3605: p_process_message := NULL;
3606:
3607: OPEN c_trx(p_transaction_id);
3608: FETCH c_trx INTO r_trx;
3607: OPEN c_trx(p_transaction_id);
3608: FETCH c_trx INTO r_trx;
3609: CLOSE c_trx;
3610:
3611: OPEN c_regime(NULL, jai_constants.vat_regime);
3612: FETCH c_regime INTO r_regime;
3613: CLOSE c_regime;
3614:
3615: ld_accounting_date := trunc(r_trx.transaction_date);
3612: FETCH c_regime INTO r_regime;
3613: CLOSE c_regime;
3614:
3615: ld_accounting_date := trunc(r_trx.transaction_date);
3616: lv_currency_code := jai_constants.func_curr;
3617: lv_reference_10 := 'India Local VAT RMA Entries for Receipt:'||r_trx.receipt_num
3618: ||'. Transaction Type '||r_trx.transaction_type;
3619:
3620: if r_trx.transaction_type = 'CORRECT' then
3645: FETCH get_item_id INTO lv_item_id;
3646: CLOSE get_item_id;
3647:
3648: jai_inv_items_pkg.jai_get_attrib(
3649: p_regime_code => jai_constants.vat_regime,
3650: p_organization_id => r_trx.organization_id,
3651: p_inventory_item_id => lv_item_id,
3652: p_attribute_code => jai_constants.rgm_attr_item_recoverable,
3653: p_attribute_value => lv_vat_recoverable_for_item,
3648: jai_inv_items_pkg.jai_get_attrib(
3649: p_regime_code => jai_constants.vat_regime,
3650: p_organization_id => r_trx.organization_id,
3651: p_inventory_item_id => lv_item_id,
3652: p_attribute_code => jai_constants.rgm_attr_item_recoverable,
3653: p_attribute_value => lv_vat_recoverable_for_item,
3654: p_process_flag => lv_process_flag,
3655: p_process_msg => lv_process_msg
3656: );
3653: p_attribute_value => lv_vat_recoverable_for_item,
3654: p_process_flag => lv_process_flag,
3655: p_process_msg => lv_process_msg
3656: );
3657: IF lv_process_flag <> jai_constants.successful THEN
3658: p_process_status := lv_process_flag;
3659: p_process_message := 'Error Message:'||lv_process_msg;
3660: RETURN;
3661: END IF;
3659: p_process_message := 'Error Message:'||lv_process_msg;
3660: RETURN;
3661: END IF;
3662:
3663: IF lv_vat_recoverable_for_item <> jai_constants.yes THEN
3664: lv_account_name:= jai_constants.Liability;
3665: ELSE
3666: lv_account_name:= jai_constants.recovery_interim;
3667: END IF;
3660: RETURN;
3661: END IF;
3662:
3663: IF lv_vat_recoverable_for_item <> jai_constants.yes THEN
3664: lv_account_name:= jai_constants.Liability;
3665: ELSE
3666: lv_account_name:= jai_constants.recovery_interim;
3667: END IF;
3668: -- End bug#8302581
3662:
3663: IF lv_vat_recoverable_for_item <> jai_constants.yes THEN
3664: lv_account_name:= jai_constants.Liability;
3665: ELSE
3666: lv_account_name:= jai_constants.recovery_interim;
3667: END IF;
3668: -- End bug#8302581
3669: fnd_file.put_line(fnd_file.log, 'lv_account_name:'||lv_account_name||'jai_constants.recovery_interim:'|| jai_constants.recovery_interim);
3670: ln_debit_ccid :=
3665: ELSE
3666: lv_account_name:= jai_constants.recovery_interim;
3667: END IF;
3668: -- End bug#8302581
3669: fnd_file.put_line(fnd_file.log, 'lv_account_name:'||lv_account_name||'jai_constants.recovery_interim:'|| jai_constants.recovery_interim);
3670: ln_debit_ccid :=
3671: jai_cmn_rgm_recording_pkg.get_account(
3672: p_regime_id => r_regime.regime_id,
3673: p_organization_type => jai_constants.orgn_type_io,
3669: fnd_file.put_line(fnd_file.log, 'lv_account_name:'||lv_account_name||'jai_constants.recovery_interim:'|| jai_constants.recovery_interim);
3670: ln_debit_ccid :=
3671: jai_cmn_rgm_recording_pkg.get_account(
3672: p_regime_id => r_regime.regime_id,
3673: p_organization_type => jai_constants.orgn_type_io,
3674: p_organization_id => r_trx.organization_id,
3675: p_location_id => r_trx.location_id,
3676: p_tax_type => rec_tax.tax_type,
3677: p_account_name => lv_account_name);
3676: p_tax_type => rec_tax.tax_type,
3677: p_account_name => lv_account_name);
3678:
3679: IF ln_debit_ccid IS NULL THEN
3680: p_process_status := jai_constants.expected_error;
3681: p_process_message := 'Interim recovery Account not defined in VAT Setup';
3682: RETURN;
3683: END IF;
3684:
3711: p_process_status => lv_process_status,
3712: p_reference_name => rec_tax.tax_type,
3713: p_reference_id => NULL);
3714:
3715: IF lv_process_status <> jai_constants.successful THEN
3716: p_process_status := lv_process_status;
3717: p_process_message := lv_process_message;
3718: RETURN;
3719: END IF;
3721: --CR Interim Liability
3722: ln_credit_ccid :=
3723: jai_cmn_rgm_recording_pkg.get_account(
3724: p_regime_id => r_regime.regime_id,
3725: p_organization_type => jai_constants.orgn_type_io,
3726: p_organization_id => r_trx.organization_id,
3727: p_location_id => r_trx.location_id,
3728: p_tax_type => rec_tax.tax_type,
3729: p_account_name => jai_constants.liability_interim);
3725: p_organization_type => jai_constants.orgn_type_io,
3726: p_organization_id => r_trx.organization_id,
3727: p_location_id => r_trx.location_id,
3728: p_tax_type => rec_tax.tax_type,
3729: p_account_name => jai_constants.liability_interim);
3730:
3731: IF ln_credit_ccid IS NULL THEN
3732: p_process_status := jai_constants.expected_error;
3733: p_process_message := 'Interim Liability Account not defined in VAT Setup';
3728: p_tax_type => rec_tax.tax_type,
3729: p_account_name => jai_constants.liability_interim);
3730:
3731: IF ln_credit_ccid IS NULL THEN
3732: p_process_status := jai_constants.expected_error;
3733: p_process_message := 'Interim Liability Account not defined in VAT Setup';
3734: RETURN;
3735: END IF;
3736:
3762: p_process_status => lv_process_status,
3763: p_reference_name => rec_tax.tax_type,
3764: p_reference_id => NULL);
3765:
3766: IF lv_process_status <> jai_constants.successful THEN
3767: p_process_status := lv_process_status;
3768: p_process_message := lv_process_message;
3769: RETURN;
3770: END IF;
3770: END IF;
3771: END IF;
3772:
3773: --Added below code by JMEENA for bug#8302581
3774: IF lv_vat_recoverable_for_item <> jai_constants.yes THEN
3775: IF ln_entered_cr < 0 THEN
3776: ln_entered_cr:= NULL ;
3777: ln_entered_dr:= ln_entered_cr*-1;
3778: END IF;
3780: jai_cmn_rgm_recording_pkg.insert_vat_repository_entry(
3781: pn_repository_id => ln_repository_id,
3782: pn_regime_id => r_regime.regime_id,
3783: pv_tax_type => rec_tax.tax_type,
3784: pv_organization_type => jai_constants.orgn_type_io,
3785: pn_organization_id => r_trx.organization_id,
3786: pn_location_id => r_trx.location_id,
3787: pv_source => jai_constants.source_rcv,
3788: pv_source_trx_type => upper(lv_account_nature),
3783: pv_tax_type => rec_tax.tax_type,
3784: pv_organization_type => jai_constants.orgn_type_io,
3785: pn_organization_id => r_trx.organization_id,
3786: pn_location_id => r_trx.location_id,
3787: pv_source => jai_constants.source_rcv,
3788: pv_source_trx_type => upper(lv_account_nature),
3789: pv_source_table_name => upper(lv_reference_24),
3790: pn_source_id => r_trx.transaction_id ,
3791: pd_transaction_date => nvl(ld_accounting_date,trunc(sysdate)),--14061440
3788: pv_source_trx_type => upper(lv_account_nature),
3789: pv_source_table_name => upper(lv_reference_24),
3790: pn_source_id => r_trx.transaction_id ,
3791: pd_transaction_date => nvl(ld_accounting_date,trunc(sysdate)),--14061440
3792: pv_account_name => jai_constants.Liability,
3793: pn_charge_account_id => ln_debit_ccid,
3794: pn_balancing_account_id => ln_credit_ccid,
3795: pn_credit_amount => ln_entered_cr,
3796: pn_debit_amount => ln_entered_dr,
3815: ----------------------------------------------
3816: --Added by Bo Li for bug9305067 2010-4-14 END
3817: );/*Bug 11880460 Changed the parameters from pv_attribute% to pv_tax_reference% as per precedure definition in jai_cmn_rgm_recording_pkg*/
3818:
3819: IF lv_process_status <> jai_constants.successful THEN
3820: p_process_status := lv_process_status;
3821: p_process_message := lv_process_message;
3822: RETURN;
3823: END IF;
3829:
3830: END LOOP;
3831: EXCEPTION
3832: WHEN OTHERS THEN
3833: p_process_status := jai_constants.unexpected_error;
3834: p_process_message := SUBSTR(SQLERRM,1,200);
3835: END do_rma_accounting;
3836:
3837: END jai_rcv_rgm_claims_pkg;