233: l_inv_payment_curr po_vendor_sites.payment_currency_code%TYPE;
234: l_batch_id ap_batches.batch_id%TYPE;
235: l_rts_txn_date rcv_transactions.transaction_date%TYPE;
236: l_rcv_quantity_billed rcv_transactions.quantity_billed%TYPE;
237: l_invoice_id ap_invoices.invoice_id%TYPE;
238: l_amount ap_invoices.invoice_amount%TYPE;
239: l_terms_date DATE;
240: l_pay_curr_invoice_amount ap_invoices.pay_curr_invoice_amount%TYPE;
241: l_pay_cross_rate ap_invoices.payment_cross_rate%TYPE;
234: l_batch_id ap_batches.batch_id%TYPE;
235: l_rts_txn_date rcv_transactions.transaction_date%TYPE;
236: l_rcv_quantity_billed rcv_transactions.quantity_billed%TYPE;
237: l_invoice_id ap_invoices.invoice_id%TYPE;
238: l_amount ap_invoices.invoice_amount%TYPE;
239: l_terms_date DATE;
240: l_pay_curr_invoice_amount ap_invoices.pay_curr_invoice_amount%TYPE;
241: l_pay_cross_rate ap_invoices.payment_cross_rate%TYPE;
242: l_item_description po_lines.item_description%TYPE;
236: l_rcv_quantity_billed rcv_transactions.quantity_billed%TYPE;
237: l_invoice_id ap_invoices.invoice_id%TYPE;
238: l_amount ap_invoices.invoice_amount%TYPE;
239: l_terms_date DATE;
240: l_pay_curr_invoice_amount ap_invoices.pay_curr_invoice_amount%TYPE;
241: l_pay_cross_rate ap_invoices.payment_cross_rate%TYPE;
242: l_item_description po_lines.item_description%TYPE;
243:
244: debug_info VARCHAR2(2000);
237: l_invoice_id ap_invoices.invoice_id%TYPE;
238: l_amount ap_invoices.invoice_amount%TYPE;
239: l_terms_date DATE;
240: l_pay_curr_invoice_amount ap_invoices.pay_curr_invoice_amount%TYPE;
241: l_pay_cross_rate ap_invoices.payment_cross_rate%TYPE;
242: l_item_description po_lines.item_description%TYPE;
243:
244: debug_info VARCHAR2(2000);
245: curr_calling_sequence VARCHAR2(2000);
260: l_po_uom PO_LINES_ALL.UNIT_MEAS_LOOKUP_CODE%TYPE;
261: l_dist_tab AP_MATCHING_PKG.DIST_TAB_TYPE;
262: l_error_code VARCHAR2(4000);
263: l_success BOOLEAN;
264: l_invoice_amount AP_INVOICES_ALL.INVOICE_AMOUNT%TYPE;
265: l_po_ccid NUMBER; --bugfix:5395955
266: l_remit_to_supplier_name ap_invoices_all.remit_to_supplier_name%TYPE; --Start 7758980
267: l_remit_to_supplier_id ap_invoices_all.remit_to_supplier_id%TYPE;
268: l_remit_to_supplier_site ap_invoices_all.remit_to_supplier_site%TYPE;
262: l_error_code VARCHAR2(4000);
263: l_success BOOLEAN;
264: l_invoice_amount AP_INVOICES_ALL.INVOICE_AMOUNT%TYPE;
265: l_po_ccid NUMBER; --bugfix:5395955
266: l_remit_to_supplier_name ap_invoices_all.remit_to_supplier_name%TYPE; --Start 7758980
267: l_remit_to_supplier_id ap_invoices_all.remit_to_supplier_id%TYPE;
268: l_remit_to_supplier_site ap_invoices_all.remit_to_supplier_site%TYPE;
269: l_remit_to_supplier_site_id ap_invoices_all.remit_to_supplier_site_id%TYPE;
270: l_relationship_id ap_invoices_all.relationship_id%TYPE;
263: l_success BOOLEAN;
264: l_invoice_amount AP_INVOICES_ALL.INVOICE_AMOUNT%TYPE;
265: l_po_ccid NUMBER; --bugfix:5395955
266: l_remit_to_supplier_name ap_invoices_all.remit_to_supplier_name%TYPE; --Start 7758980
267: l_remit_to_supplier_id ap_invoices_all.remit_to_supplier_id%TYPE;
268: l_remit_to_supplier_site ap_invoices_all.remit_to_supplier_site%TYPE;
269: l_remit_to_supplier_site_id ap_invoices_all.remit_to_supplier_site_id%TYPE;
270: l_relationship_id ap_invoices_all.relationship_id%TYPE;
271: l_remit_party_id ap_invoices_all.party_id%TYPE;
264: l_invoice_amount AP_INVOICES_ALL.INVOICE_AMOUNT%TYPE;
265: l_po_ccid NUMBER; --bugfix:5395955
266: l_remit_to_supplier_name ap_invoices_all.remit_to_supplier_name%TYPE; --Start 7758980
267: l_remit_to_supplier_id ap_invoices_all.remit_to_supplier_id%TYPE;
268: l_remit_to_supplier_site ap_invoices_all.remit_to_supplier_site%TYPE;
269: l_remit_to_supplier_site_id ap_invoices_all.remit_to_supplier_site_id%TYPE;
270: l_relationship_id ap_invoices_all.relationship_id%TYPE;
271: l_remit_party_id ap_invoices_all.party_id%TYPE;
272: l_remit_party_site_id ap_invoices_all.party_site_id%TYPE; --End 7758980
265: l_po_ccid NUMBER; --bugfix:5395955
266: l_remit_to_supplier_name ap_invoices_all.remit_to_supplier_name%TYPE; --Start 7758980
267: l_remit_to_supplier_id ap_invoices_all.remit_to_supplier_id%TYPE;
268: l_remit_to_supplier_site ap_invoices_all.remit_to_supplier_site%TYPE;
269: l_remit_to_supplier_site_id ap_invoices_all.remit_to_supplier_site_id%TYPE;
270: l_relationship_id ap_invoices_all.relationship_id%TYPE;
271: l_remit_party_id ap_invoices_all.party_id%TYPE;
272: l_remit_party_site_id ap_invoices_all.party_site_id%TYPE; --End 7758980
273:
266: l_remit_to_supplier_name ap_invoices_all.remit_to_supplier_name%TYPE; --Start 7758980
267: l_remit_to_supplier_id ap_invoices_all.remit_to_supplier_id%TYPE;
268: l_remit_to_supplier_site ap_invoices_all.remit_to_supplier_site%TYPE;
269: l_remit_to_supplier_site_id ap_invoices_all.remit_to_supplier_site_id%TYPE;
270: l_relationship_id ap_invoices_all.relationship_id%TYPE;
271: l_remit_party_id ap_invoices_all.party_id%TYPE;
272: l_remit_party_site_id ap_invoices_all.party_site_id%TYPE; --End 7758980
273:
274: -- Start 9267199
267: l_remit_to_supplier_id ap_invoices_all.remit_to_supplier_id%TYPE;
268: l_remit_to_supplier_site ap_invoices_all.remit_to_supplier_site%TYPE;
269: l_remit_to_supplier_site_id ap_invoices_all.remit_to_supplier_site_id%TYPE;
270: l_relationship_id ap_invoices_all.relationship_id%TYPE;
271: l_remit_party_id ap_invoices_all.party_id%TYPE;
272: l_remit_party_site_id ap_invoices_all.party_site_id%TYPE; --End 7758980
273:
274: -- Start 9267199
275: l_default_pay_site_id ap_supplier_sites.vendor_site_id%type;
268: l_remit_to_supplier_site ap_invoices_all.remit_to_supplier_site%TYPE;
269: l_remit_to_supplier_site_id ap_invoices_all.remit_to_supplier_site_id%TYPE;
270: l_relationship_id ap_invoices_all.relationship_id%TYPE;
271: l_remit_party_id ap_invoices_all.party_id%TYPE;
272: l_remit_party_site_id ap_invoices_all.party_site_id%TYPE; --End 7758980
273:
274: -- Start 9267199
275: l_default_pay_site_id ap_supplier_sites.vendor_site_id%type;
276: l_valid_pay_site_flag VARCHAR2(1);
552:
553: -- Bug 8774769: Added back NVL condition which was part of bug 8345877
554: -- and overriden by 8593333 due to triple checkin enabling.
555:
556: ap_invoices_pkg.get_payment_attributes(
557: p_le_id =>l_le_id,
558: p_org_id =>l_org_id,
559: p_payee_party_id => nvl(l_remit_party_id, l_party_id), --Start 7758980
560: p_payee_party_site_id => nvl(l_remit_party_site_id, l_party_site_id),
742: debug_info := 'Recalculate pay curr inv amount ';
743:
744: SELECT invoice_amount
745: INTO l_invoice_amount
746: FROM ap_invoices
747: WHERE invoice_id = l_invoice_id;
748:
749: /* Procced in re-calculation only when tax is calculated.
750: where in the invoice amount would have changed.
1185: ) IS
1186: l_gl_period VARCHAR2(15);
1187: l_gl_date DATE;
1188: l_inv_gl_date DATE;
1189: l_invoice_num ap_invoices.invoice_num%TYPE;
1190: l_terms_date DATE;
1191: l_inv_desc ap_invoices.description%TYPE;
1192: l_seq_num_profile VARCHAR2(25);
1193: l_db_seq_name fnd_document_sequences.db_sequence_name%TYPE;
1187: l_gl_date DATE;
1188: l_inv_gl_date DATE;
1189: l_invoice_num ap_invoices.invoice_num%TYPE;
1190: l_terms_date DATE;
1191: l_inv_desc ap_invoices.description%TYPE;
1192: l_seq_num_profile VARCHAR2(25);
1193: l_db_seq_name fnd_document_sequences.db_sequence_name%TYPE;
1194: l_db_seq_id fnd_document_sequences.doc_sequence_id%TYPE;
1195: l_doc_seq_value NUMBER;
1192: l_seq_num_profile VARCHAR2(25);
1193: l_db_seq_name fnd_document_sequences.db_sequence_name%TYPE;
1194: l_db_seq_id fnd_document_sequences.doc_sequence_id%TYPE;
1195: l_doc_seq_value NUMBER;
1196: l_invoice_amount ap_invoices.invoice_amount%TYPE;
1197: l_pay_cross_rate ap_invoices.payment_cross_rate%TYPE;
1198: l_pay_curr_invoice_amount ap_invoices.pay_curr_invoice_amount%TYPE;
1199: l_pay_cross_rate_type ap_invoices.payment_cross_rate_type%TYPE;
1200: l_pay_cross_rate_date DATE;
1193: l_db_seq_name fnd_document_sequences.db_sequence_name%TYPE;
1194: l_db_seq_id fnd_document_sequences.doc_sequence_id%TYPE;
1195: l_doc_seq_value NUMBER;
1196: l_invoice_amount ap_invoices.invoice_amount%TYPE;
1197: l_pay_cross_rate ap_invoices.payment_cross_rate%TYPE;
1198: l_pay_curr_invoice_amount ap_invoices.pay_curr_invoice_amount%TYPE;
1199: l_pay_cross_rate_type ap_invoices.payment_cross_rate_type%TYPE;
1200: l_pay_cross_rate_date DATE;
1201: l_valid_pay_site VARCHAR2(25);
1194: l_db_seq_id fnd_document_sequences.doc_sequence_id%TYPE;
1195: l_doc_seq_value NUMBER;
1196: l_invoice_amount ap_invoices.invoice_amount%TYPE;
1197: l_pay_cross_rate ap_invoices.payment_cross_rate%TYPE;
1198: l_pay_curr_invoice_amount ap_invoices.pay_curr_invoice_amount%TYPE;
1199: l_pay_cross_rate_type ap_invoices.payment_cross_rate_type%TYPE;
1200: l_pay_cross_rate_date DATE;
1201: l_valid_pay_site VARCHAR2(25);
1202: l_inv_base_amt ap_invoices.base_amount%TYPE;
1195: l_doc_seq_value NUMBER;
1196: l_invoice_amount ap_invoices.invoice_amount%TYPE;
1197: l_pay_cross_rate ap_invoices.payment_cross_rate%TYPE;
1198: l_pay_curr_invoice_amount ap_invoices.pay_curr_invoice_amount%TYPE;
1199: l_pay_cross_rate_type ap_invoices.payment_cross_rate_type%TYPE;
1200: l_pay_cross_rate_date DATE;
1201: l_valid_pay_site VARCHAR2(25);
1202: l_inv_base_amt ap_invoices.base_amount%TYPE;
1203: l_invoice_id ap_invoices.invoice_id%TYPE;
1198: l_pay_curr_invoice_amount ap_invoices.pay_curr_invoice_amount%TYPE;
1199: l_pay_cross_rate_type ap_invoices.payment_cross_rate_type%TYPE;
1200: l_pay_cross_rate_date DATE;
1201: l_valid_pay_site VARCHAR2(25);
1202: l_inv_base_amt ap_invoices.base_amount%TYPE;
1203: l_invoice_id ap_invoices.invoice_id%TYPE;
1204: l_alter_pay_site_id NUMBER;
1205: --Modified for bug#9267199
1206: l_vendor_site_id ap_supplier_Sites.vendor_site_id%type := p_vendor_site_id;
1199: l_pay_cross_rate_type ap_invoices.payment_cross_rate_type%TYPE;
1200: l_pay_cross_rate_date DATE;
1201: l_valid_pay_site VARCHAR2(25);
1202: l_inv_base_amt ap_invoices.base_amount%TYPE;
1203: l_invoice_id ap_invoices.invoice_id%TYPE;
1204: l_alter_pay_site_id NUMBER;
1205: --Modified for bug#9267199
1206: l_vendor_site_id ap_supplier_Sites.vendor_site_id%type := p_vendor_site_id;
1207: l_rts_txn_le_date DATE; --Bug 3492081
1210:
1211: l_inv_le_date DATE;
1212: l_sys_le_date DATE;
1213:
1214: l_org_id ap_invoices.org_id%TYPE;
1215: l_api_name CONSTANT VARCHAR2(200) := 'Create_Invoice_Header';
1216:
1217:
1218:
1348:
1349: -- Bug 1330397
1350: -- Added a hyphen for the invoice number between receipt_num and the sequence
1351:
1352: SELECT p_receipt_num||'-'||AP_INVOICES_S1.nextval
1353: INTO l_invoice_num
1354: FROM dual;
1355:
1356: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1639: debug_info);
1640: END IF;
1641:
1642:
1643: SELECT ap_invoices_s.nextval INTO l_invoice_id FROM dual;
1644:
1645: debug_info := 'Inserting row in ap_invoices';
1646: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1647: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
1641:
1642:
1643: SELECT ap_invoices_s.nextval INTO l_invoice_id FROM dual;
1644:
1645: debug_info := 'Inserting row in ap_invoices';
1646: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1647: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
1648: debug_info);
1649: END IF;
1647: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
1648: debug_info);
1649: END IF;
1650:
1651: INSERT INTO ap_invoices_all (
1652: org_id,
1653: invoice_id,
1654: last_update_date,
1655: last_updated_by,
1829: l_calling_sequence varchar2(2000);
1830: l_success boolean;
1831:
1832: --Bug#12644273
1833: l_exc_rate ap_invoices_all.exchange_rate%type;
1834:
1835: BEGIN
1836:
1837: l_calling_sequence := p_calling_sequence ||' <- Create_dm_Tax';
1854:
1855: --Introduced SELECT for bug#12644273
1856: SELECT exchange_rate
1857: INTO l_exc_rate
1858: FROM ap_invoices_all
1859: WHERE invoice_id= p_invoice_id;
1860:
1861: IF (l_lines_total <> p_invoice_amount and nvl(l_lines_total,0) <> 0) THEN
1862:
1862:
1863: --Removed base_amount assignment from here and introduced
1864: --in next UPDATE for bug#12644273
1865:
1866: UPDATE ap_invoices
1867: SET invoice_amount = l_lines_total
1868: WHERE invoice_id = p_invoice_id;
1869:
1870: --Introduced below code for bug#12644273
1869:
1870: --Introduced below code for bug#12644273
1871: IF (l_exc_rate is NOT NULL) THEN
1872:
1873: UPDATE ap_invoices
1874: SET base_amount = l_lines_total_base_amount
1875: WHERE invoice_id = p_invoice_id;
1876:
1877: END IF;