[Home] [Help]
102: -- 120.24 12-DEC-2006 PMADDULA Bug 5674047 - In Procedure JEITPSSR,
103: -- added a new column assessable_value to
104: -- the cursor 'c_italian_vat' in JEITPSSR procedure.
105: -- Populated the column 'jg_ingo_n11' of table
106: -- jg_zz_vat_trx_gt with the value obtained.
107: -- This is to display correct taxable amount
108: -- when the tax type code of the transaction
109: -- is eitther 'Custom Bill' or 'Self Invoice'.
110: -- 120.26 20-DEC-2006 RJREDDY Bug 5718147: Changed the c_belgian_vat cursor query in JEBEVA06 procedure,
119: -- 120.38 17-FEB-2009 RAHULKUM BUG:8237932 Modified the JEITPSSR_AMOUNT_TO_PAY.Added three new cursorsc_get_last_process_date ,c_get_balance,c_get_flag to replace c_get_details.
120: -- 120.39 18-FEB-2009 RAHULKUM BUG:8237932 Modified the JEITPSSR_AMOUNT_TO_PAY.Added raise_application_error to terminate the program in case of exception.
121: -- 120.40 20-FEB-2009 RAHULKUM BUG:8237932 Added TRUNC function for date in c_get_balance cursor.
122: -- 120.41 12-FEB-2009 RAHULKUM BUG:8237932 Modified the JEITPSSR_AMOUNT_TO_PAY_UPDATE.
123: -- 120.42 07-APR-2009 RAHULKUM BUG:8347134 Modified the JEITPSSR.Added two new cursors c_get_last_process_date ,c_get_balance.Update the jg_zz_vat_trx_gt
124: -- 120.43 12-JUN-2009 RAHULKUM BUG:8587526 Modified the JEITPSSR.
125: -- 120.31.12010000.15 23-Jun-2009 SPASUPUN Bug 8501251 : Modified procedure jebeva06
126: -- to exclude multiple occurance of taxable informaiton. This issue was
127: -- there for AP transactions due to REC and Non-Rec lines concept.
400: FND_FILE.PUT_LINE(FND_FILE.LOG,'error in getting currency precision');
401: END;
402:
403:
404: INSERT INTO jg_zz_vat_trx_gt
405: (
406: jg_info_n1
407: ,jg_info_v1
408: ,jg_info_v2
989:
990: IF l_box_amount_grouped(i).taxable_amount IS NOT NULL OR
991: l_box_amount_grouped(i).tax_amount IS NOT NULL THEN
992:
993: INSERT INTO jg_zz_vat_trx_gt
994: (
995: jg_info_n1
996: , jg_info_v1
997: , jg_info_v2
1031: END IF;
1032:
1033: END LOOP;
1034:
1035: SELECT count(*) into l_count from jg_zz_vat_trx_gt ;
1036: IF p_debug_flag = 'Y' THEN
1037: fnd_file.put_line(fnd_file.log,'Number of records inserted into jg_zz_vat_trx_gt table: ' || l_count );
1038: fnd_file.put_line(fnd_file.log,'Completed procedure jg_zz_summary_all_pkg.jgbeva06');
1039: END IF;
1033: END LOOP;
1034:
1035: SELECT count(*) into l_count from jg_zz_vat_trx_gt ;
1036: IF p_debug_flag = 'Y' THEN
1037: fnd_file.put_line(fnd_file.log,'Number of records inserted into jg_zz_vat_trx_gt table: ' || l_count );
1038: fnd_file.put_line(fnd_file.log,'Completed procedure jg_zz_summary_all_pkg.jgbeva06');
1039: END IF;
1040: EXCEPTION
1041: WHEN OTHERS THEN
1213: fnd_file.put_line(fnd_file.log,'-----------------------------------');
1214: END IF;
1215:
1216: IF v_box_amounts.EXISTS(i) and i <= 1000 THEN
1217: INSERT INTO jg_zz_vat_trx_gt ( jg_info_n1
1218: ,jg_info_n2
1219: ,jg_info_n3
1220: ,jg_info_n4
1221: ,jg_info_v1
1227: v_box_amounts(i).tot_box_num,
1228: v_box_amounts(i).box_type
1229: );
1230: ELSIF v_box_amounts.EXISTS(i) and i > 1000 THEN --This must be a tax box
1231: INSERT INTO jg_zz_vat_trx_gt ( jg_info_n1
1232: ,jg_info_n2
1233: ,jg_info_n3
1234: ,jg_info_n5
1235: ,jg_info_v1
1244: END IF;
1245: END LOOP;
1246: END IF;
1247:
1248: select count(*) into l_count from jg_zz_vat_trx_gt ;
1249: IF p_debug_flag = 'Y' THEN
1250: fnd_file.put_line(fnd_file.log,'Number of records inserted into jg_zz_vat_trx_gt table :' || l_count );
1251: END IF ;
1252: EXCEPTION
1246: END IF;
1247:
1248: select count(*) into l_count from jg_zz_vat_trx_gt ;
1249: IF p_debug_flag = 'Y' THEN
1250: fnd_file.put_line(fnd_file.log,'Number of records inserted into jg_zz_vat_trx_gt table :' || l_count );
1251: END IF ;
1252: EXCEPTION
1253: WHEN OTHERS THEN
1254: fnd_file.put_line(fnd_file.log,'Error in Procedure jg_zz_summary_all_pkg.jeptavat: ' || SUBSTR(SQLERRM,1,200));
1397: IF l_data_found = 'Y' THEN
1398: FOR i in v_box_amounts.FIRST .. v_box_amounts.LAST LOOP
1399:
1400: IF v_box_amounts.EXISTS(i) THEN
1401: INSERT INTO jg_zz_vat_trx_gt(
1402: jg_info_n1,
1403: jg_info_n2,
1404: jg_info_n3,
1405: jg_info_n4,
1415: END IF;
1416: END LOOP;
1417: END IF;
1418:
1419: SELECT count(*) into l_count from jg_zz_vat_trx_gt ;
1420: IF p_debug_flag = 'Y' THEN
1421: fnd_file.put_line(fnd_file.log,'Number of records inserted into jg_zz_vat_trx_gt table: ' || l_count );
1422: END IF ;
1423:
1417: END IF;
1418:
1419: SELECT count(*) into l_count from jg_zz_vat_trx_gt ;
1420: IF p_debug_flag = 'Y' THEN
1421: fnd_file.put_line(fnd_file.log,'Number of records inserted into jg_zz_vat_trx_gt table: ' || l_count );
1422: END IF ;
1423:
1424: EXCEPTION
1425: WHEN OTHERS THEN
1531: l_count NUMBER := 0 ;
1532: BEGIN
1533:
1534: FOR l_it_vat IN c_italian_vat LOOP
1535: INSERT INTO jg_zz_vat_trx_gt
1536: (
1537: jg_info_v1
1538: ,jg_info_v2
1539: ,jg_info_n1
1613: OPEN c_get_balance(LAST_PROCESS_DATE);
1614: FETCH c_get_balance INTO CARRY_OVER;
1615: CLOSE c_get_balance;
1616:
1617: UPDATE jg_zz_vat_trx_gt
1618: SET jg_info_n10 = CARRY_OVER;
1619: --BUG8347134 end
1620:
1621: SELECT count(*) into l_count from jg_zz_vat_trx_gt ;
1617: UPDATE jg_zz_vat_trx_gt
1618: SET jg_info_n10 = CARRY_OVER;
1619: --BUG8347134 end
1620:
1621: SELECT count(*) into l_count from jg_zz_vat_trx_gt ;
1622: IF p_debug_flag = 'Y' THEN
1623: fnd_file.put_line(fnd_file.log,'Number of records inserted into jg_zz_vat_trx_gt table: ' || l_count );
1624: END IF ;
1625:
1619: --BUG8347134 end
1620:
1621: SELECT count(*) into l_count from jg_zz_vat_trx_gt ;
1622: IF p_debug_flag = 'Y' THEN
1623: fnd_file.put_line(fnd_file.log,'Number of records inserted into jg_zz_vat_trx_gt table: ' || l_count );
1624: END IF ;
1625:
1626: EXCEPTION
1627: WHEN OTHERS THEN
2197: AND JLMT.PERIOD_NAME = p_period
2198: AND ROWNUM = 1;
2199:
2200: FOR l_ap_invoices IN q_ap_invoices LOOP
2201: INSERT INTO jg_zz_vat_trx_gt
2202: ( -- Data mapping used by ALL CURSORS:
2203: -- ================================
2204: jg_info_v1 -- First position in template
2205: ,jg_info_v2 -- Tax Registration Id
2242: no_of_invs := no_of_invs + 1;
2243: END LOOP;
2244:
2245: FOR l_rshimon_imports IN q_rshimon_imports LOOP
2246: INSERT INTO jg_zz_vat_trx_gt
2247: (
2248: jg_info_v1
2249: ,jg_info_v2
2250: ,jg_info_v3
2282: no_of_imports := no_of_imports + 1;
2283: END LOOP;
2284:
2285: FOR l_petty_cash_summary IN q_petty_cash_summary LOOP
2286: INSERT INTO jg_zz_vat_trx_gt
2287: (
2288: jg_info_v1
2289: ,jg_info_v2
2290: ,jg_info_v3
2322: no_of_pettycash := no_of_pettycash + 1;
2323: END LOOP;
2324:
2325: FOR l_ar_transactions IN q_ar_transactions LOOP
2326: INSERT INTO jg_zz_vat_trx_gt
2327: (
2328: jg_info_v1
2329: ,jg_info_v2
2330: ,jg_info_v3
2367: no_of_trxs := no_of_trxs + 1;
2368: END LOOP;
2369:
2370: FOR l_std_trx_registered_cust IN q_std_trx_registered_cust LOOP
2371: INSERT INTO jg_zz_vat_trx_gt
2372: (
2373: jg_info_v1
2374: ,jg_info_v2
2375: ,jg_info_v3
2407: no_of_regis_trxs := no_of_regis_trxs + 1;
2408: END LOOP;
2409:
2410: FOR l_std_trx_unknown_cust IN q_std_trx_unknown_cust LOOP
2411: INSERT INTO jg_zz_vat_trx_gt
2412: (
2413: jg_info_v1
2414: ,jg_info_v2
2415: ,jg_info_v3
2447: no_of_unknown_trxs := no_of_unknown_trxs + 1;
2448: END LOOP;
2449:
2450: FOR l_std_trxs_summary IN q_std_trxs_summary LOOP
2451: INSERT INTO jg_zz_vat_trx_gt
2452: (
2453: jg_info_v1
2454: ,jg_info_v2
2455: ,jg_info_v3
2488: END LOOP;
2489:
2490: -- Last insert to store number of each type of trx created in above cursors
2491:
2492: INSERT INTO jg_zz_vat_trx_gt
2493: (
2494: jg_info_n1
2495: ,jg_info_n2
2496: ,jg_info_n3
2780: AND ROWNUM = 1;
2781: Bug:8237932*/
2782:
2783: CURSOR c_get_period_start_date IS
2784: SELECT jg_info_d2 FROM jg_zz_vat_trx_gt WHERE jg_info_v30 = 'H';
2785:
2786: /*Added three new cursors:
2787: c_get_last_process_date ,c_get_balance,c_get_flag*/
2788: --Bug:8237932