451: IF g_org_id IS NULL THEN
452:
453: SELECT org_id
454: INTO g_org_id
455: FROM AP_Invoices
456: WHERE Invoice_ID = InvoiceId;
457:
458: END IF;
459:
1092: */
1093:
1094: -- PL/SQL Main Block Constants AND Variables:
1095:
1096: currency_code ap_invoices.invoice_currency_code%TYPE;
1097: payment_currency_code ap_invoices.payment_currency_code%TYPE;
1098: payment_cross_rate ap_invoices.payment_cross_rate%TYPE;
1099: FUNCTIONal_currency ap_system_parameters.base_currency_code%TYPE;
1100: invoice_exchange_rate ap_invoices.exchange_rate%TYPE;
1093:
1094: -- PL/SQL Main Block Constants AND Variables:
1095:
1096: currency_code ap_invoices.invoice_currency_code%TYPE;
1097: payment_currency_code ap_invoices.payment_currency_code%TYPE;
1098: payment_cross_rate ap_invoices.payment_cross_rate%TYPE;
1099: FUNCTIONal_currency ap_system_parameters.base_currency_code%TYPE;
1100: invoice_exchange_rate ap_invoices.exchange_rate%TYPE;
1101: invoice_number ap_invoices.invoice_num%TYPE;
1094: -- PL/SQL Main Block Constants AND Variables:
1095:
1096: currency_code ap_invoices.invoice_currency_code%TYPE;
1097: payment_currency_code ap_invoices.payment_currency_code%TYPE;
1098: payment_cross_rate ap_invoices.payment_cross_rate%TYPE;
1099: FUNCTIONal_currency ap_system_parameters.base_currency_code%TYPE;
1100: invoice_exchange_rate ap_invoices.exchange_rate%TYPE;
1101: invoice_number ap_invoices.invoice_num%TYPE;
1102: supplier_id ap_invoices.vendor_id%TYPE;
1096: currency_code ap_invoices.invoice_currency_code%TYPE;
1097: payment_currency_code ap_invoices.payment_currency_code%TYPE;
1098: payment_cross_rate ap_invoices.payment_cross_rate%TYPE;
1099: FUNCTIONal_currency ap_system_parameters.base_currency_code%TYPE;
1100: invoice_exchange_rate ap_invoices.exchange_rate%TYPE;
1101: invoice_number ap_invoices.invoice_num%TYPE;
1102: supplier_id ap_invoices.vendor_id%TYPE;
1103: supplier_site_id ap_invoices.vendor_site_id%TYPE;
1104: NUMBER_of_awt_groups integer := 0;
1097: payment_currency_code ap_invoices.payment_currency_code%TYPE;
1098: payment_cross_rate ap_invoices.payment_cross_rate%TYPE;
1099: FUNCTIONal_currency ap_system_parameters.base_currency_code%TYPE;
1100: invoice_exchange_rate ap_invoices.exchange_rate%TYPE;
1101: invoice_number ap_invoices.invoice_num%TYPE;
1102: supplier_id ap_invoices.vendor_id%TYPE;
1103: supplier_site_id ap_invoices.vendor_site_id%TYPE;
1104: NUMBER_of_awt_groups integer := 0;
1105: gl_period_name ap_invoice_distributions.period_name%TYPE;
1098: payment_cross_rate ap_invoices.payment_cross_rate%TYPE;
1099: FUNCTIONal_currency ap_system_parameters.base_currency_code%TYPE;
1100: invoice_exchange_rate ap_invoices.exchange_rate%TYPE;
1101: invoice_number ap_invoices.invoice_num%TYPE;
1102: supplier_id ap_invoices.vendor_id%TYPE;
1103: supplier_site_id ap_invoices.vendor_site_id%TYPE;
1104: NUMBER_of_awt_groups integer := 0;
1105: gl_period_name ap_invoice_distributions.period_name%TYPE;
1106: gl_awt_date DATE;
1099: FUNCTIONal_currency ap_system_parameters.base_currency_code%TYPE;
1100: invoice_exchange_rate ap_invoices.exchange_rate%TYPE;
1101: invoice_number ap_invoices.invoice_num%TYPE;
1102: supplier_id ap_invoices.vendor_id%TYPE;
1103: supplier_site_id ap_invoices.vendor_site_id%TYPE;
1104: NUMBER_of_awt_groups integer := 0;
1105: gl_period_name ap_invoice_distributions.period_name%TYPE;
1106: gl_awt_date DATE;
1107:
2136: invoice_number,
2137: supplier_id,
2138: supplier_site_id,
2139: g_org_id /* Bug 3700128. MOAC Project */
2140: FROM ap_invoices_all
2141: WHERE invoice_id = P_Invoice_Id;
2142:
2143: -- Get base currency code:
2144:
2189: rec_group_amounts c_group_amounts%ROWTYPE;
2190:
2191: DBG_Loc VARCHAR2(30) := 'Get_Groups';
2192: i binary_integer := 0;
2193: total_invoice_amount ap_invoices.invoice_amount%TYPE;
2194: total_vat_amount NUMBER := 0;
2195: gross_exempt_amount NUMBER := 0;
2196: gross_amount_on_all_awt_groups NUMBER := 0;
2197: gross_amount_allbutlast_group NUMBER := 0;
2233: BEGIN
2234: SELECT glps.period_name
2235: INTO tab_max_gl_period(i)
2236: FROM gl_period_statuses glps,
2237: ap_invoices_all ai
2238: WHERE glps.application_id = 200
2239: AND nvl(glps.adjustment_period_flag, 'N') <>'Y'
2240: AND (
2241: (GLPS.closing_status IN ('O', 'F'))