[Home] [Help]
668: /*========================================================================
669: | PRIVATE PROCEDURE copy_tax_trx_data
670: |
671: | DESCRIPTION
672: | This procedure copies the quote objects tax data into OKL_TAX_TRX_DETAILS
673: | table
674: |
675: | CALLED FROM
676: | process_quote_tax()
792:
793: -- Populate the tax data into eBtax global session table
794: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
795: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_PROCESS_SALES_TAX_PVT.copy_tax_trx_data.',
796: 'INSERT INTO OKL_TAX_TRX_DETAILS');
797: END IF;
798:
799: l_tax_lines_tbl.DELETE;
800: FOR l_get_tax_data_rec IN l_get_tax_data_csr(cp_trx_id => p_trx_id,
905: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_PROCESS_SALES_TAX_PVT.calculate_tax.',
906: 'l_tax_lines_tbl.COUNT '||l_tax_lines_tbl.COUNT);
907: END IF;
908:
909: ---- Insert into okl_tax_trx_details begin -----
910: BEGIN
911: IF l_tax_lines_tbl.COUNT > 0 THEN
912: FORALL indx in l_tax_lines_tbl.FIRST..l_tax_lines_tbl.LAST
913: -- SAVE EXCEPTIONS
910: BEGIN
911: IF l_tax_lines_tbl.COUNT > 0 THEN
912: FORALL indx in l_tax_lines_tbl.FIRST..l_tax_lines_tbl.LAST
913: -- SAVE EXCEPTIONS
914: INSERT INTO okl_tax_trx_details VALUES l_tax_lines_tbl(indx);
915: END IF;
916: EXCEPTION
917: WHEN OTHERS THEN
918: IF SQL%BULK_EXCEPTIONS.COUNT > 0 THEN
920: OKL_API.set_message(
921: p_app_name => 'OKL',
922: p_msg_name => 'OKL_TX_TRX_INS_ERR',
923: p_token1 => 'TABLE_NAME',
924: p_token1_value => 'okl_tax_trx_details',
925: p_token2 => 'ERROR_CODE',
926: p_token2_value => SQLERRM(SQL%BULK_EXCEPTIONS(i).ERROR_CODE),
927: p_token3 => 'ITERATION',
928: p_token3_value => SQL%BULK_EXCEPTIONS(i).ERROR_INDEX);
929: END LOOP;
930: RAISE OKL_API.G_EXCEPTION_ERROR;
931: END IF;
932: END;
933: ---- Insert into okl_tax_trx_details end -----
934:
935: IF (G_DEBUG_LEVEL_PROCEDURE >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
936: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_PROCESS_SALES_TAX_PVT.copy_tax_trx_data ','End(-)');
937: END IF;
2371: precision,
2372: currency_conversion_type,
2373: currency_conversion_rate,
2374: currency_conversion_date
2375: FROM okl_tax_trx_details
2376: WHERE trx_id = p_trx_id
2377: AND trx_line_id = p_trx_line_id
2378: AND application_id = p_application_id
2379: AND trx_level_type = p_trx_level_type
8125: | 08-APR-05 SECHAWLA Created
8126: | 22-APR-08 SECHAWLA 6975983 Do not error out if there is no tax in eBTax for
8127: | the Billed stream elements. Create taxable line
8128: | in okl_tax_sources. There won't be aby tax lines
8129: | in okl_tax_trx_details.
8130: |
8131: *=======================================================================*/
8132: PROCEDURE process_tax_schedule_tax(
8133: p_api_version IN NUMBER,
8323:
8324: -- get the tax lines corresponding to billing tax source ID
8325: CURSOR l_taxtrxdetails_csr(cp_txs_id IN NUMBER) IS
8326: SELECT *
8327: FROM okl_tax_trx_details
8328: WHERE txs_id = cp_txs_id;
8329:
8330: -- Get the vendor for asset/service/fee line
8331: CURSOR l_partyroles_csr(cp_line_id IN NUMBER) IS
8986: ---- Insert into okl_tax_sources end -----
8987:
8988: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
8989: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_PROCESS_SALES_TAX_PVT.process_tax_schedule_tax.',
8990: 'before Insert into okl_tax_trx_details ');
8991: END IF;
8992:
8993: ---- Insert into okl_tax_trx_details begin -----
8994: BEGIN
8989: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_PROCESS_SALES_TAX_PVT.process_tax_schedule_tax.',
8990: 'before Insert into okl_tax_trx_details ');
8991: END IF;
8992:
8993: ---- Insert into okl_tax_trx_details begin -----
8994: BEGIN
8995: IF l_tax_trx_details_tbl.COUNT > 0 THEN
8996: FORALL indx IN l_tax_trx_details_tbl.FIRST..l_tax_trx_details_tbl.LAST
8997: -- SAVE EXCEPTIONS
8994: BEGIN
8995: IF l_tax_trx_details_tbl.COUNT > 0 THEN
8996: FORALL indx IN l_tax_trx_details_tbl.FIRST..l_tax_trx_details_tbl.LAST
8997: -- SAVE EXCEPTIONS
8998: INSERT INTO okl_tax_trx_details VALUES l_tax_trx_details_tbl(indx);
8999: END IF;
9000: EXCEPTION
9001: WHEN OTHERS THEN
9002: IF SQL%BULK_EXCEPTIONS.COUNT > 0 THEN
9003: FOR i IN 1..SQL%BULK_EXCEPTIONS.COUNT LOOP
9004: OKL_API.set_message(p_app_name => 'OKL',
9005: p_msg_name => 'OKL_TX_TRX_INS_ERR',
9006: p_token1 => 'TABLE_NAME',
9007: p_token1_value => 'OKL_TAX_TRX_DETAILS',
9008: p_token2 => 'ERROR_CODE',
9009: p_token2_value => SQLERRM(-SQL%BULK_EXCEPTIONS(i).ERROR_CODE),
9010: p_token3 => 'ITERATION',
9011: p_token3_value => SQL%BULK_EXCEPTIONS(i).ERROR_INDEX);
9013: RAISE OKL_API.G_EXCEPTION_ERROR;
9014: END IF;
9015: END;
9016:
9017: ---- Insert into okl_tax_trx_details end -----
9018:
9019: -- At this point tax sources and tax trx details have been created for the already billed
9020: -- and taxed stream elements under transaction type 'Tax Schedule'
9021:
9960:
9961: -- get the previous tax trx details
9962: CURSOR l_prevtaxtrxdet_csr(cp_txs_id IN NUMBER) IS
9963: SELECT ID
9964: FROM okl_tax_trx_details
9965: WHERE txs_id = cp_txs_id;
9966:
9967: -- get the tax eligible quote lines
9968: CURSOR l_txlquotelines_csr(cp_qte_id IN NUMBER) IS
10154: -- delete from both the tables.
10155: BEGIN
10156: IF l_prevtaxtrxdet_tbl.COUNT > 0 THEN
10157: FORALL i IN l_prevtaxtrxdet_tbl.FIRST..l_prevtaxtrxdet_tbl.LAST
10158: DELETE FROM OKL_TAX_TRX_DETAILS WHERE id = l_prevtaxtrxdet_tbl(i);
10159: END IF;
10160: EXCEPTION
10161: WHEN OTHERS THEN
10162: IF SQL%BULK_EXCEPTIONS.COUNT > 0 THEN
10164: OKL_API.set_message(
10165: p_app_name => 'OKL',
10166: p_msg_name => 'OKL_TX_TRX_DEL_ERR',
10167: p_token1 => 'TABLE_NAME',
10168: p_token1_value => 'OKL_TAX_TRX_DETAILS',
10169: p_token2 => 'ERROR_CODE',
10170: p_token2_value => SQLERRM(-SQL%BULK_EXCEPTIONS(i).ERROR_CODE),
10171: p_token3 => 'ITERATION',
10172: p_token3_value => SQL%BULK_EXCEPTIONS(i).ERROR_INDEX);
10176: END;
10177:
10178: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
10179: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_PROCESS_SALES_TAX_PVT.process_quote_tax.',
10180: 'Deleted from okl_tax_trx_details... ');
10181: END IF;
10182:
10183: BEGIN
10184: FORALL i IN l_prevtaxsrc_tbl.FIRST..l_prevtaxsrc_tbl.LAST
12201:
12202: -- get the tax lines corresponding to previous upfront tax source ID
12203: CURSOR l_taxtrxdetails_csr(cp_txs_id IN NUMBER) IS
12204: SELECT *
12205: FROM okl_tax_trx_details
12206: WHERE txs_id = cp_txs_id;
12207:
12208: -- get the contract id
12209: CURSOR l_okcklines_csr(cp_kle_id IN NUMBER) IS
15718:
15719: -- Get the previous tax trx details
15720: CURSOR l_prevtaxtrxdet_csr(cp_txs_id IN NUMBER) IS
15721: SELECT ID
15722: FROM okl_tax_trx_details
15723: WHERE txs_id = cp_txs_id;
15724:
15725: -- Get all the assets of the sales quote
15726: CURSOR l_quoteassets_csr(cp_quote_id IN NUMBER) IS
16017: -- Delete from both the tables.
16018: BEGIN
16019: IF l_prevtaxtrxdet_tbl.COUNT > 0 THEN
16020: FORALL i IN l_prevtaxtrxdet_tbl.FIRST..l_prevtaxtrxdet_tbl.LAST
16021: DELETE FROM OKL_TAX_TRX_DETAILS WHERE id = l_prevtaxtrxdet_tbl(i);
16022:
16023: END IF;
16024: EXCEPTION
16025: WHEN OTHERS THEN
16027: FOR i IN 1..SQL%BULK_EXCEPTIONS.COUNT LOOP
16028: OKL_API.set_message( p_app_name => 'OKL',
16029: p_msg_name => 'OKL_TX_TRX_DEL_ERR',
16030: p_token1 => 'TABLE_NAME',
16031: p_token1_value => 'OKL_TAX_TRX_DETAILS',
16032: p_token2 => 'ERROR_CODE',
16033: p_token2_value => SQLERRM(-SQL%BULK_EXCEPTIONS(i).ERROR_CODE),
16034: p_token3 => 'ITERATION',
16035: p_token3_value => SQL%BULK_EXCEPTIONS(i).ERROR_INDEX);