[Home] [Help]
782: l_invoice_amount_remaining NUMBER;
783: l_prepay_amount_remaining NUMBER;
784:
785: BEGIN
786: -- Get the Invoice Amount Remaining for the standard invoice.
787: -- This is the unpaid amount. Since we are importing the invoice
788: -- there is no posibility of partial payment of the invoice, so
789: -- there is no need to verify the payment_status flag.
790:
1431: IS
1432:
1433: l_base_currency_code ap_system_parameters_all.base_currency_code%TYPE;
1434:
1435: -- Standard Invoice Related Variables
1436: l_std_inv_batch_id ap_invoices_all.batch_id%TYPE;
1437: l_std_inv_curr_code ap_invoices_all.invoice_currency_code%TYPE;
1438: l_std_inv_xrate ap_invoices_all.exchange_rate%TYPE;
1439: l_std_inv_xdate ap_invoices_all.exchange_date%TYPE;
1684:
1685: CLOSE C_SYS_PARAMS;
1686:
1687: -- ==========================================================
1688: -- Step 1: Get Required Information from the STANDARD INVOICE
1689: -- ==========================================================
1690:
1691: l_debug_info := 'Get Required Information from the STANDARD INVOICE';
1692: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1687: -- ==========================================================
1688: -- Step 1: Get Required Information from the STANDARD INVOICE
1689: -- ==========================================================
1690:
1691: l_debug_info := 'Get Required Information from the STANDARD INVOICE';
1692: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1693: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1694: END IF;
1695:
1798: -- Step 5: Round the Apply Amount
1799: -- ==========================================================
1800: /*Bug 14213367: Added input parameters to the debug info*/
1801: l_debug_info := 'Round the Apply Amount '||l_apply_amount||
1802: ' with standard invoice currency code '||l_std_inv_curr_code;
1803: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1804: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1805: END IF;
1806: l_apply_amount := AP_Utilities_PKG.AP_Round_Currency (
1817: -- Step 6: Get Line Level Apply Base Amount
1818: -- This base amount will be the base amount of the
1819: -- PREPAY line that will be created as a result of
1820: -- this application. This base amount will be
1821: -- calculated using the Standard Invoice XRATE.
1822: -- ==========================================================
1823: /*Bug 14213367: Added parameters to the debug info*/
1824: l_debug_info := 'Get Line Level Apply Base Amount.l_base_currency_code: '||
1825: l_base_currency_code|| ',l_std_inv_xdate: '||l_std_inv_xdate;
1963: /*Bug 14213367:end */
1964:
1965: -- ==========================================================
1966: -- Step 8: Get Next Line Number for the PREPAY Line from the
1967: -- STANDARD Invoice if performing 'Prepayment Application'
1968: -- not for 'Recoupment'.
1969: -- ==========================================================
1970:
1971: l_debug_info := 'Get Next Line Number for the PREPAY Line from the '||
1968: -- not for 'Recoupment'.
1969: -- ==========================================================
1970:
1971: l_debug_info := 'Get Next Line Number for the PREPAY Line from the '||
1972: 'STANDARD Invoice';
1973: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1974: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1975: END IF;
1976:
2131: -- ==========================================================
2132:
2133: -- ==========================================================
2134: -- Step 13.1: Get maximum distribution line number from
2135: -- the standard invoice.
2136: -- ==========================================================
2137:
2138: l_debug_info := 'Get maximum distribution line number from '||
2139: 'the standard invoice';
2135: -- the standard invoice.
2136: -- ==========================================================
2137:
2138: l_debug_info := 'Get maximum distribution line number from '||
2139: 'the standard invoice';
2140: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2141: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2142: END IF;
2143:
2348: --Proration for both exclusive and inclusive tax cases, since
2349: --for recoupment regardless of how the tax was calculated on the
2350: --parent Item line on the Prepayment invoice, when recouping
2351: --the Prepay dists as well as tax tied to those distributions will
2352: --be part of the same ITEM line on the Standard invoice which is recouping.
2353:
2354: l_prepay_dist_info(l_loop_counter).PREPAY_APPLY_AMOUNT :=
2355: AP_Utilities_PKG.AP_Round_Currency (
2356: (l_prepay_dist_info(l_loop_counter).PPAY_AMOUNT_REMAINING/
2433: l_prepay_dist_info(l_loop_variable).PREPAY_DIST_LINE_NUMBER :=
2434: l_max_dist_number + l_dist_line_counter;
2435: l_dist_line_counter := l_dist_line_counter+1;
2436:
2437: -- Get the Base Amount at the Standard Invoice Exchange Rate
2438:
2439: IF (l_std_inv_curr_code <> l_base_currency_code) THEN
2440: IF l_std_inv_xrate_type = 'User' THEN
2441: l_prepay_dist_info(l_loop_variable).PREPAY_BASE_AMOUNT :=
2707:
2708: -- ===========================================================
2709: -- Step 16: Update line amount total if there is a diff of tax
2710: -- rate or tax recovery rate and the calculation point
2711: -- is the Standard Invoice. This is valid only in the
2712: -- inclusive case.
2713: -- ===========================================================
2714: l_debug_info := 'Update parent PREPAY line amount if required';
2715: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2995:
2996: --COMMENT!!!!!!This comment is for who is going to modify latter on the
2997: -- final application rounding. The l_apply_amount at this moment includes
2998: -- any tax difference etax has returned in the case the calculation
2999: -- point for the tax is the standard invoice.
3000: -- IF (l_apply_amount = l_ppay_ln_amount_remaining) THEN
3001: -- l_final_application := 'Y';
3002: -- END IF;
3003: