[Home] [Help]
167: Begin
168:
169: SELECT count(*)
170: INTO p_num_po_dists
171: FROM po_distributions
172: WHERE line_location_id = P_line_location_id;
173:
174: If (p_num_po_dists = 1 ) Then
175: SELECT po_distribution_id
173:
174: If (p_num_po_dists = 1 ) Then
175: SELECT po_distribution_id
176: INTO p_po_distribution_id
177: FROM po_distributions
178: WHERE line_location_id = P_line_location_id;
179: Else
180: p_po_distribution_id := null;
181: End if;
465: AND line_number = p_invoice_line_number;
466:
467: l_invoice_line_rec ap_invoice_lines%ROWTYPE;
468: l_match_mode VARCHAR2(8);
469: l_index po_distributions_all.po_distribution_id%TYPE;
470: l_dist_ccid ap_invoice_distributions_all.dist_code_combination_id%TYPE;
471: l_corr_inv_dist_id ap_invoice_distributions_all.invoice_distribution_id%TYPE;
472: l_dist_tab ap_matching_pkg.dist_tab_type;
473: l_othr_chrg_tab ap_othr_chrg_match_pkg.othr_chrg_match_tabtype;
533: --Bugfix:4699604
534: BEGIN
535: SELECT code_combination_id
536: INTO l_dist_tab(l_index).dist_ccid
537: FROM po_distributions_ap_v
538: WHERE po_distribution_id = l_invoice_line_rec.po_distribution_id;
539: EXCEPTION WHEN OTHERS THEN
540: NULL;
541: END;
1041: l_total_dist_amt_applied NUMBER;
1042: l_po_distribution_id NUMBER;
1043:
1044: TYPE dist_record_type is RECORD
1045: (po_distribution_id PO_DISTRIBUTIONS.po_distribution_id%TYPE, --Index Column
1046: total_dist_qty_invoiced AP_INVOICE_DISTRIBUTIONS.quantity_invoiced%TYPE,
1047: total_dist_qty_applied AP_INVOICE_DISTRIBUTIONS.quantity_invoiced%TYPE,
1048: total_dist_amt_invoiced AP_INVOICE_DISTRIBUTIONS.amount%TYPE,
1049: total_dist_amt_applied AP_INVOICE_DISTRIBUTIONS.amount%TYPE,
1077: decode(pll.matching_basis,'QUANTITY',sum(nvl(aid.quantity_invoiced,0))),
1078: decode(pll.matching_basis,'AMOUNT',sum(nvl(aid.amount,0))),
1079: pll.matching_basis
1080: from ap_invoice_distributions aid,
1081: po_distributions_all pd,
1082: po_line_locations pll
1083: where pll.line_location_id = p_po_line_location_id
1084: and pll.shipment_type <> 'PREPAYMENT'
1085: and aid.po_distribution_id = pd.po_distribution_id
1148:
1149: CLOSE C_Po_Dists_Financed;
1150:
1151:
1152: l_debug_info := 'Update Po_Distributions';
1153: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1154: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1155: END IF;
1156:
1159: IF (l_dist_tab.exists(i)) THEN
1160:
1161: IF (l_matching_basis = 'QUANTITY') THEN
1162:
1163: UPDATE po_distributions pod
1164: SET quantity_financed = l_dist_tab(i).total_dist_qty_invoiced,
1165: quantity_recouped = l_dist_tab(i).total_dist_qty_applied,
1166: quantity_billed = nvl(quantity_billed,0) - (l_dist_tab(i).total_dist_qty_invoiced -
1167: l_dist_tab(i).total_dist_qty_applied)
1174: nvl(l_dist_tab(i).total_dist_qty_applied,0);
1175:
1176: ELSIF (l_matching_basis = 'AMOUNT') THEN
1177:
1178: UPDATE po_distributions pod
1179: SET amount_financed = l_total_dist_amt_invoiced,
1180: amount_recouped = l_total_dist_amt_applied,
1181: amount_billed = nvl(amount_billed,0) - (l_dist_tab(i).total_dist_amt_invoiced -
1182: l_dist_tab(i).total_dist_amt_applied)
1756: l_invoice_type_lookup_code AP_INVOICES.INVOICE_TYPE_LOOKUP_CODE%TYPE;
1757: l_unit_meas_lookup_code AP_INVOICE_LINES.UNIT_MEAS_LOOKUP_CODE%TYPE;
1758: l_retained_amount AP_INVOICE_LINES.RETAINED_AMOUNT%TYPE;
1759: l_match_type AP_INVOICE_LINES.MATCH_TYPE%TYPE;
1760: l_po_distribution_id PO_DISTRIBUTIONS.PO_DISTRIBUTION_ID%TYPE;
1761: l_match_mode VARCHAR2(30);
1762:
1763: l_ordered_po_qty NUMBER;
1764: l_cancelled_po_qty NUMBER;
2250:
2251: l_po_line_location_id PO_LINE_LOCATIONS.LINE_LOCATION_ID%TYPE;
2252: l_rcv_transaction_id RCV_TRANSACTIONS.TRANSACTION_ID%TYPE;
2253: l_matching_basis PO_LINE_LOCATIONS.MATCHING_BASIS%TYPE;
2254: l_po_distribution_id PO_DISTRIBUTIONS.PO_DISTRIBUTION_ID%TYPE;
2255:
2256: l_ordered_qty NUMBER;
2257: l_cancelled_qty NUMBER;
2258: l_received_qty NUMBER;