[Home] [Help]
1866: l_error_code VARCHAR2(4000);
1867: l_invoice_type_lookup_code AP_INVOICES_ALL.INVOICE_TYPE_LOOKUP_CODE%TYPE;
1868: l_payment_status_flag AP_INVOICES_ALL.PAYMENT_STATUS_FLAG%TYPE;
1869: l_invoice_amount AP_INVOICES_ALL.INVOICE_AMOUNT%TYPE;
1870: l_included_tax_amount AP_INVOICE_LINES_ALL.INCLUDED_TAX_AMOUNT%TYPE;
1871: l_tax_distribution_count NUMBER;
1872:
1873: --Contract Payments
1874: l_prepay_dist_info AP_PREPAY_PKG.prepay_dist_tab_type;
1962: CURSOR c_charge_lines(c_invoice_id number,
1963: c_item_line_number number) Is
1964: SELECT ail.*
1965: FROM ap_allocation_rule_lines arl
1966: ,ap_invoice_lines_all ail
1967: WHERE arl.invoice_id = c_invoice_id
1968: AND arl.to_invoice_line_number = c_item_line_number
1969: AND arl.invoice_id = ail.invoice_id
1970: AND arl.chrg_invoice_line_number = ail.line_number
1974: from ap_invoice_distributions_all aid
1975: where aid.invoice_id = ail.invoice_id
1976: and aid.invoice_line_number = ail.line_number);
1977:
1978: l_chrg_line_rec ap_invoice_lines_all%rowtype;
1979:
1980: -- Bug 5396138 Start
1981: cursor c_recouped_shipment IS
1982: select pll.line_location_id
1987: 'AMOUNT_CORRECTION', 0,
1988: 'ITEM_TO_SERVICE_PO', 0,
1989: 'ITEM_TO_SERVICE_RECEIPT', 0,
1990: NVL(AID.corrected_quantity, 0) + NVL(AID.quantity_invoiced,0))) quantity
1991: from ap_invoice_lines_all ail
1992: ,ap_invoice_distributions_all aid
1993: ,po_distributions_all pod
1994: ,po_line_locations_all pll
1995: where ail.invoice_id = p_line_rec.invoice_id
2021: l_payment_currency_code ap_invoices_all.payment_currency_code%TYPE;
2022: l_amount_remaining number;
2023:
2024: TYPE r_line_number_arr IS TABLE OF ap_invoice_distributions.distribution_line_number%TYPE; /*Bug 9841966*/
2025: TYPE r_ppay_incl_arr IS TABLE OF ap_invoice_lines_all.invoice_includes_prepay_flag%TYPE; /*Bug 9841966*/
2026:
2027: --bugfix:5697764
2028: l_tax_line_number r_line_number_arr; --number; /*Bug 9841966: Commented old datatype and changed it to pl/sql array*/
2029: l_unapplied_tax_amount number;
2030: l_unapplied_tax_amt_pay_curr number;
2031: l_invoice_currency_code ap_invoices_all.invoice_currency_code%type;
2032: l_payment_cross_rate_date ap_invoices_all.payment_cross_rate_date%type;
2033: l_payment_cross_rate_type ap_invoices_all.payment_cross_rate_type%type;
2034: l_prepay_included r_ppay_incl_arr;--ap_invoice_lines_all.invoice_includes_prepay_flag%type; /*Bug 9841966: Commented old datatype and changed it to pl/sql array*/
2035:
2036: --bug 8361741
2037: l_itm_dist_count NUMBER;
2038: l_invoice_rec AP_APPROVAL_PKG.Invoice_Rec;
2656: ELSE
2657:
2658: SELECT COUNT(1)
2659: INTO l_manual_tax_lines
2660: FROM ap_invoice_lines_all ail
2661: WHERE invoice_id = P_line_rec.invoice_id
2662: AND line_type_lookup_code = 'TAX'
2663: AND summary_tax_line_id IS NULL;
2664:
2771: l_debug_info := 'Reset generate distributions flag on related charge lines';
2772: Print (l_api_name, l_debug_info);
2773: ----------------------------------------------------------------------------
2774:
2775: update ap_invoice_lines_all ail
2776: set generate_dists = 'Y'
2777: where ail.invoice_id = p_line_rec.invoice_id
2778: and exists (select arl.chrg_invoice_line_number
2779: from ap_allocation_rule_lines arl
4102: IF p_line_rec.line_type_lookup_code = 'RETAINAGE RELEASE' AND
4103: p_line_rec.retained_invoice_id IS NOT NULL AND
4104: p_line_rec.retained_line_number IS NOT NULL THEN
4105:
4106: UPDATE ap_invoice_lines_all
4107: SET retained_amount_remaining = nvl(retained_amount_remaining, 0) + p_line_rec.amount
4108: WHERE invoice_id = p_line_rec.retained_invoice_id
4109: AND line_number = p_line_rec.retained_line_number;
4110:
5082:
5083: END Discard_Inv_line;
5084:
5085: FUNCTION Reverse_Charge_Distributions
5086: (p_inv_line_rec IN AP_INVOICE_LINES_ALL%rowtype,
5087: p_calling_mode IN VARCHAR2,
5088: x_error_code OUT NOCOPY VARCHAR2,
5089: x_debug_info OUT NOCOPY VARCHAR2,
5090: p_calling_sequence IN VARCHAR2) RETURN BOOLEAN IS