[Home] [Help]
697: END IF;
698:
699: l_line_amt_net_retainage := x_amount + nvl(l_retained_amount,0);
700:
701: l_max_amount_to_recoup := ap_utilities_pkg.ap_round_currency(
702: (x_amount * g_recoupment_rate / 100) ,g_invoice_currency_code);
703:
704: IF (l_line_amt_net_retainage < l_max_amount_to_recoup) THEN
705: l_amount_to_recoup := l_line_amt_net_retainage;
915: AND ai.invoice_currency_code = fc.currency_code (+);
916:
917:
918: IF (x_match_amount IS NOT NULL AND g_invoice_currency_code <> g_base_currency_code) THEN
919: g_line_base_amount := ap_utilities_pkg.ap_round_currency(
920: x_match_amount * g_exchange_rate,
921: g_base_currency_code);
922: END IF;
923:
965: FROM ap_invoice_lines ail
966: WHERE ail.invoice_id = x_invoice_id;
967:
968: /* Bug 5572876 */
969: g_asset_book_type_code := Ap_Utilities_Pkg.Ledger_Asset_Book
970: (g_set_of_books_id);
971:
972: /*
973: BEGIN
1000: --get_current_gl_date will return NULL if the date passed to it doesn't fall in a
1001: --open period.
1002: -- Bug 4460697. Passed the g_org_id as some cases
1003: -- mo_global.get_current_org_id does not work
1004: g_period_name := AP_UTILITIES_PKG.get_current_gl_date(g_accounting_date,
1005: g_org_id);
1006:
1007: IF (g_period_name IS NULL) THEN
1008:
1012:
1013: -- 7463095 Used l_accounting_date instead of g_accounting_date. Using
1014: --same variable for in/out parmeters causing to make in parameters
1015: -- as Null
1016: ap_utilities_pkg.get_open_gl_date(p_date => g_accounting_date,
1017: p_period_name => g_period_name,
1018: p_gl_date => l_accounting_date,
1019: p_org_id => g_org_id);
1020:
1481:
1482: --Populate Base Amount
1483: --Need to populate the base amount for foreign currency invoices only.
1484: IF (g_exchange_rate IS NOT NULL) THEN
1485: l_base_amount := ap_utilities_pkg.ap_round_currency(
1486: x_dist_tab(i).amount * g_exchange_rate,
1487: g_base_currency_code);
1488: x_dist_tab(i).base_amount := l_base_amount;
1489:
1517: g_overlay_dist_code_concat IS NOT NULL) THEN
1518:
1519: l_dist_ccid := nvl(x_dist_tab(i).dist_ccid,x_dist_tab(i).po_ccid);
1520:
1521: IF (AP_UTILITIES_PKG.overlay_segments(
1522: g_balancing_segment,
1523: g_cost_center_segment,
1524: g_account_segment,
1525: g_overlay_dist_code_concat,
2018: NULL, --def_acctg_number_of_periods
2019: NULL, --def_acctg_period_type
2020: G_SET_OF_BOOKS_ID, --set_of_books_id
2021: X_AMOUNT, --amount
2022: AP_UTILITIES_PKG.Ap_Round_Currency(
2023: NVL(X_AMOUNT, 0) * G_EXCHANGE_RATE,
2024: G_BASE_CURRENCY_CODE), --base_amount
2025: NULL, --rounding_amount
2026: X_QUANTITY_INVOICED, --quantity_invoiced
2424: NULL, --def_acctg_number_of_periods
2425: NULL, --def_acctg_period_type
2426: AIL.SET_OF_BOOKS_ID, --set_of_books_id
2427: X_AMOUNT, --amount
2428: AP_UTILITIES_PKG.Ap_Round_Currency(
2429: NVL(X_AMOUNT, 0) * G_EXCHANGE_RATE,
2430: G_BASE_CURRENCY_CODE), --base_amount
2431: NULL, --rounding_amount
2432: NULL, --quantity_invoiced
3512: END IF;
3513:
3514: l_line_amt_net_retainage := x_correction_amount + nvl(l_retained_amount,0);
3515:
3516: l_max_amount_to_recoup := ap_utilities_pkg.ap_round_currency(
3517: (x_correction_amount * g_recoupment_rate / 100) ,g_invoice_currency_code);
3518:
3519: IF (l_line_amt_net_retainage < l_max_amount_to_recoup) THEN
3520: l_amount_to_recoup := l_line_amt_net_retainage;
3876: --Populating the base_amount column, after proration related rounding
3877: --has been done if it is a foreign currency invoice.
3878:
3879: IF (g_exchange_rate IS NOT NULL) THEN
3880: x_corr_dist_tab(i).base_amount := ap_utilities_pkg.ap_round_currency(
3881: x_corr_dist_tab(i).amount * g_exchange_rate,
3882: g_base_currency_code);
3883:
3884: l_sum_dist_base_amount := l_sum_dist_base_amount + x_corr_dist_tab(i).base_amount ;
4354: NULL, --def_acctg_number_of_periods
4355: NULL, --def_acctg_period_type
4356: g_set_of_books_id, --set_of_books_id
4357: x_amount, --amount
4358: AP_UTILITIES_PKG.Ap_Round_Currency(
4359: NVL(X_AMOUNT, 0) * G_EXCHANGE_RATE,
4360: G_BASE_CURRENCY_CODE), --base_amount
4361: NULL, --rounding_amount
4362: x_quantity, --quantity_invoiced
5062: nvl(pll.amount_billed,0)
5063: )
5064: - nvl(pll.amount_cancelled,0)
5065: ),
5066: ap_utilities_pkg.ap_round_currency(
5067: (pll.quantity - decode(pll.shipment_type,'PREPAYMENT',
5068: nvl(pll.quantity_financed,0),
5069: nvl(pll.quantity_billed,0)
5070: )
5907: --Calculate base_amounts and rounding for foriegn currency invoices
5908: IF (g_exchange_rate IS NOT NULL) THEN
5909:
5910: --bug#9802729 Commented and introduced below FOR LOOP
5911: /* l_invoice_base_amount := ap_utilities_pkg.ap_round_currency(
5912: x_match_amount * g_exchange_rate,
5913: g_base_currency_code); */
5914:
5915: --Populate base_amount column for foriegn currency invoice.
5924: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
5925: END IF; /*bug10630400 end*/
5926:
5927: IF X_Shipment_Table.exists(i) then /*bug10630400 - begin*/
5928: l_base_amount := ap_utilities_pkg.ap_round_currency(
5929: x_shipment_table(i).amount * g_exchange_rate,
5930: g_base_currency_code);
5931:
5932: x_shipment_table(i).base_amount := l_base_amount;
5938:
5939: END LOOP;
5940:
5941: --bug#9802729. Commented above and introduced here with l_sum_line_amount
5942: l_invoice_base_amount := ap_utilities_pkg.ap_round_currency(
5943: l_sum_line_amount * g_exchange_rate,
5944: g_base_currency_code);
5945:
5946: --Perform rounding