[Home] [Help]
30:
31: -- TYPE txnCurType IS REF CURSOR;
32: TYPE pymt_sch_rec IS RECORD
33: (invoice_id ap_invoices_all.invoice_id%TYPE,
34: min_payment_num ap_payment_schedules_all.payment_num%TYPE,
35: max_payment_num ap_payment_schedules_all.payment_num%TYPE);
36:
37: TYPE pymt_sch_tab IS TABLE OF pymt_sch_rec INDEX BY BINARY_INTEGER;
38:
31: -- TYPE txnCurType IS REF CURSOR;
32: TYPE pymt_sch_rec IS RECORD
33: (invoice_id ap_invoices_all.invoice_id%TYPE,
34: min_payment_num ap_payment_schedules_all.payment_num%TYPE,
35: max_payment_num ap_payment_schedules_all.payment_num%TYPE);
36:
37: TYPE pymt_sch_tab IS TABLE OF pymt_sch_rec INDEX BY BINARY_INTEGER;
38:
39: TYPE txnRecType IS RECORD
540: /* Build the from clause */
541: l_inv_from_clause :=
542: ' FROM ap_invoices_all api,
543: fun_net_suppliers_all fns,
544: ap_payment_schedules_all aps';
545: fun_net_util.Log_String(g_state_level,l_path,'FROM : '||l_inv_from_clause);
546:
547: /* Build where clause */
548: /* Do not select invoices that are on hold */
752: INTO l_checkrun_id
753: from FUN_NET_BATCHES_ALL
754: WHERE batch_id = p_batch_id;
755: -- Bug:8234111.
756: -- Update AP Payment Schedules with the Checkrun id
757: FOR i in 1..p_schd_tab.COUNT LOOP
758: UPDATE AP_PAYMENT_SCHEDULES aps
759: SET checkrun_id = l_checkrun_id
760: WHERE aps.invoice_id = p_schd_tab(i).invoice_id
754: WHERE batch_id = p_batch_id;
755: -- Bug:8234111.
756: -- Update AP Payment Schedules with the Checkrun id
757: FOR i in 1..p_schd_tab.COUNT LOOP
758: UPDATE AP_PAYMENT_SCHEDULES aps
759: SET checkrun_id = l_checkrun_id
760: WHERE aps.invoice_id = p_schd_tab(i).invoice_id
761: AND amount_remaining <> 0
762: AND TRUNC(due_date) <= NVL(p_trx_due_date,TRUNC(due_date))
770: EXCEPTION
771:
772: WHEN OTHERS THEN
773:
774: fun_net_util.Log_String(g_state_level,l_path,'Failure in locking ap payment schedules');
775: x_return_status := FND_API.G_FALSE;
776: END lock_ap_pymt_schedules;
777:
778: PROCEDURE insert_transactions(p_inv_cur VARCHAR2,p_currency_code VARCHAR2, p_appln VARCHAR2) IS
783: inv_rec InvCurTyp;
784:
785: TYPE amt_type IS TABLE OF fun_net_batches_all.total_netted_amt%TYPE INDEX BY BINARY_INTEGER;
786: TYPE trx_type IS TABLE OF fun_net_ar_txns_all.customer_trx_id%TYPE INDEX BY BINARY_INTEGER;
787: TYPE payment_num IS TABLE OF ap_payment_schedules_all.payment_num%TYPE INDEX BY BINARY_INTEGER;
788: TYPE inv_rank IS TABLE OF fun_net_ap_invs_all.ap_txn_rank%TYPE INDEX BY BINARY_INTEGER;
789: TYPE exchange_rate IS TABLE OF ap_invoices_all.exchange_rate%TYPE INDEX BY BINARY_INTEGER;
790: TYPE precision_tab IS TABLE OF fnd_currencies.precision%TYPE INDEX BY BINARY_INTEGER;
791: --l_invoice_id fun_net_ap_invs_all.invoice_id%TYPE;
2425: FROM fun_net_batches_all
2426: WHERE batch_id = p_batch_id ;
2427:
2428:
2429: UPDATE AP_PAYMENT_SCHEDULES_ALL
2430: SET checkrun_id = NULL
2431: WHERE checkrun_id =l_checkrun_id
2432: AND org_id = l_org_id;
2433: IF SQL%FOUND THEN
2576: l_vendor_name po_vendors.vendor_name%TYPE;
2577: l_vendor_site_code po_vendor_sites_all.vendor_site_code%TYPE;
2578: l_check_id ap_checks.check_id%TYPE;
2579: l_old_invoice ap_invoices.invoice_id%TYPE;
2580: amt_remaining ap_payment_schedules.amount_remaining%TYPE;
2581: l_bank_num ce_banks_v.bank_number%TYPE;
2582: l_return_status VARCHAR2(1);
2583: m integer;
2584: l_path VARCHAR2(100);
2752: ap_payment_info_tab
2753: FROM
2754: ap_invoices inv,
2755: fun_net_ap_invs finv,
2756: ap_payment_schedules apps
2757: WHERE finv.invoice_id = inv.invoice_id
2758: AND apps.invoice_id = inv.invoice_id
2759: AND apps.checkrun_id = g_batch_details.checkrun_id
2760: AND finv.batch_id = g_batch_details.batch_id
2776:
2777: /* Calculate the Amount to be netted per Payment Schedule */
2778: SELECT amount_remaining
2779: BULK COLLECT INTO amtDueTab
2780: FROM ap_payment_schedules apps,
2781: ap_invoices inv
2782: WHERE apps.invoice_id = inv.invoice_id
2783: AND apps.checkrun_id = g_batch_details.checkrun_id
2784: AND inv.vendor_id = vendor_list(i)