[Home] [Help]
161: * Step 2. Create interest ap_invoices line
162: * Step 3. Create ap_invoice_relationships line
163: * Step 4. Create ap_invoice_lines line
164: * Step 5. Create ap_invoice_distributions line
165: * Step 6. Create ap_payment_schedules line
166: * Step 7. Create ap_invoice_payemnts line (Call ap_pay_invoice_pkg.ap_pay_
167: insert_invoice_payments)
168:
169: +=============================================================================+
453: P_last_update_login,
454: p_accounting_event_id);
455: ---------------------------------------------------------------------------
456: -- Step 6: Case for Pay : for Pay interest invoice only
457: -- Call ap_int_inv_insert_ap_pay_sche : Insert AP_PAYMENT_SCHEDULES
458: ---------------------------------------------------------------------------
459:
460: -- Bug 5139574
461: if P_payment_priority is not null then
697: P_party_id,
698: P_party_site_id,
699: P_payment_priority
700: FROM ap_invoices ai,
701: ap_payment_schedules ps
702: WHERE ai.invoice_id = P_invoice_id
703: AND ps.invoice_id = P_invoice_id
704: AND ps.payment_num = P_payment_num;
705:
1752: END ap_int_inv_insert_ap_inv_dist;
1753:
1754:
1755: /*==========================================================================
1756: Insert AP_PAYMENT_SCHEDULES
1757: *==========================================================================*/
1758:
1759: PROCEDURE ap_int_inv_insert_ap_pay_sche(
1760: P_int_invoice_id IN NUMBER,
1793: current_calling_sequence := 'ap_int_inv_insert_ap_pay_sche<-'||
1794: P_calling_sequence;
1795:
1796: IF (P_payment_mode = 'PAY') THEN
1797: debug_info := 'Insert into ap_payment_schedules';
1798:
1799: -- modified code as per bug 8557334 starts
1800:
1801: SELECT remit_to_supplier_name, remit_to_supplier_id,
1807: FROM AP_INVOICES_ALL
1808: WHERE INVOICE_ID = P_int_invoice_id;
1809:
1810:
1811: INSERT INTO AP_PAYMENT_SCHEDULES(
1812: INVOICE_ID,
1813: PAYMENT_NUM,
1814: LAST_UPDATE_DATE,
1815: LAST_UPDATED_BY,
1870: -- modified code as per bug 8557334 ends
1871:
1872: --Bug 4539462 DBI logging
1873: AP_DBI_PKG.Maintain_DBI_Summary
1874: (p_table_name => 'AP_PAYMENT_SCHEDULES',
1875: p_operation => 'I',
1876: p_key_value1 => P_int_invoice_id,
1877: p_key_value2 => 1,
1878: p_calling_sequence => current_calling_sequence);
1994: -----------------------------------------------------------------
1995: l_Debug_Info := 'Zero related payment schedules';
1996:
1997: --Bug 4539462 DBI logging
1998: UPDATE ap_payment_schedules_all APS
1999: SET APS.last_updated_by = P_Last_Updated_By,
2000: APS.gross_amount = 0,
2001: APS.inv_curr_gross_amount = 0,
2002: APS.last_update_date = sysdate,
2015: END IF;
2016:
2017: --Bug 4539462 DBI logging
2018: AP_DBI_PKG.Maintain_DBI_Summary
2019: (p_table_name => 'AP_PAYMENT_SCHEDULES',
2020: p_operation => 'U',
2021: p_key_value_list => l_dbi_key_value_list1,
2022: p_calling_sequence => l_curr_calling_sequence);
2023:
2345:
2346: debug_info := 'Get invoice_due_date';
2347: BEGIN
2348: SELECT due_date INTO C_due_date
2349: FROM ap_payment_schedules
2350: WHERE P_sys_auto_calc_int_flag = 'Y'
2351: AND P_auto_calculate_interest_flag = 'Y'
2352: AND trunc(P_check_date) > trunc(due_date)
2353: AND payment_num = P_payment_num
2408: -due_date), 30)))) -
2409: NVL(P_amount_remaining - least(nvl(P_discount_taken, 0),
2410: P_discount_available), 0)
2411: INTO C_interest_amount
2412: FROM ap_payment_schedules, ap_interest_periods
2413: WHERE P_sys_auto_calc_int_flag = 'Y'
2414: AND P_auto_calculate_interest_flag = 'Y'
2415: AND TRUNC(P_check_date) > TRUNC(due_date)
2416: AND payment_num = P_payment_num