[Home] [Help]
21: g_idx BINARY_INTEGER;
22: -- TYPE txnCurType IS REF CURSOR;
23: TYPE pymt_sch_rec IS RECORD
24: (invoice_id ap_invoices_all.invoice_id%TYPE,
25: min_payment_num ap_payment_schedules_all.payment_num%TYPE,
26: max_payment_num ap_payment_schedules_all.payment_num%TYPE);
27: TYPE pymt_sch_tab IS TABLE OF pymt_sch_rec INDEX BY BINARY_INTEGER;
28: TYPE txnRecType IS RECORD
29: (
22: -- TYPE txnCurType IS REF CURSOR;
23: TYPE pymt_sch_rec IS RECORD
24: (invoice_id ap_invoices_all.invoice_id%TYPE,
25: min_payment_num ap_payment_schedules_all.payment_num%TYPE,
26: max_payment_num ap_payment_schedules_all.payment_num%TYPE);
27: TYPE pymt_sch_tab IS TABLE OF pymt_sch_rec INDEX BY BINARY_INTEGER;
28: TYPE txnRecType IS RECORD
29: (
30: customer_trx_id ra_customer_trx.customer_trx_id%TYPE,
174: l_invoice_currency_code AP_INVOICES_ALL.INVOICE_CURRENCY_CODE%TYPE;
175: l_path VARCHAR2(100);
176: BEGIN
177: l_path := g_path||'get_ap_discount';
178: l_sql_stmt:='select PAYMENT_NUM,AMOUNT_REMAINING FROM ap_payment_schedules_all WHERE invoice_id=:v_invoice_id ';
179: l_applieddisc := 0;
180: l_amt_to_net := p_amt_to_net;
181: fun_net_util.Log_String(g_state_level,l_path,'l_amt_to_net :'|| l_amt_to_net);
182: SELECT FNA.net_currency_rule_code, FNB.batch_currency, FNB.exchange_rate_type, FNB.settlement_date
739: /* Build the from clause */
740: l_inv_from_clause :=
741: ' FROM ap_invoices_all api,
742: fun_net_suppliers_all fns,
743: ap_payment_schedules_all aps';
744: fun_net_util.Log_String(g_state_level,l_path,'FROM : '||l_inv_from_clause);
745: /* Build where clause */
746: /* Do not select invoices that are on hold */
747: /* Select invoices that have been approved */
1006: INTO l_checkrun_id
1007: from FUN_NET_BATCHES_ALL
1008: WHERE batch_id = p_batch_id;
1009: -- Bug:8234111.
1010: -- Update AP Payment Schedules with the Checkrun id
1011: FOR i in 1..p_schd_tab.COUNT LOOP
1012: UPDATE AP_PAYMENT_SCHEDULES aps
1013: SET checkrun_id = l_checkrun_id
1014: WHERE aps.invoice_id = p_schd_tab(i).invoice_id
1008: WHERE batch_id = p_batch_id;
1009: -- Bug:8234111.
1010: -- Update AP Payment Schedules with the Checkrun id
1011: FOR i in 1..p_schd_tab.COUNT LOOP
1012: UPDATE AP_PAYMENT_SCHEDULES aps
1013: SET checkrun_id = l_checkrun_id
1014: WHERE aps.invoice_id = p_schd_tab(i).invoice_id
1015: AND amount_remaining <> 0
1016: AND ((get_esd_flag(g_batch_details.batch_id)='Y' AND ( (TRUNC(aps.due_date) <= TRUNC(p_trx_due_date)) or (TRUNC(aps.discount_date) >= TRUNC(p_trx_due_date))
1024: END LOOP;
1025: fun_net_util.Log_String(g_state_level,l_path,'Payment schedules updated');
1026: EXCEPTION
1027: WHEN OTHERS THEN
1028: fun_net_util.Log_String(g_state_level,l_path,'Failure in locking ap payment schedules');
1029: x_return_status := FND_API.G_FALSE;
1030: END lock_ap_pymt_schedules;
1031: PROCEDURE insert_transactions(p_inv_cur VARCHAR2,p_currency_code VARCHAR2, p_appln VARCHAR2) IS
1032: l_batch_exists VARCHAR2(1);
1034: TYPE InvCurTyp IS REF CURSOR;
1035: inv_rec InvCurTyp;
1036: TYPE amt_type IS TABLE OF fun_net_batches_all.total_netted_amt%TYPE INDEX BY BINARY_INTEGER;
1037: TYPE trx_type IS TABLE OF fun_net_ar_txns_all.customer_trx_id%TYPE INDEX BY BINARY_INTEGER;
1038: TYPE payment_num IS TABLE OF ap_payment_schedules_all.payment_num%TYPE INDEX BY BINARY_INTEGER;
1039: TYPE inv_rank IS TABLE OF fun_net_ap_invs_all.ap_txn_rank%TYPE INDEX BY BINARY_INTEGER;
1040: TYPE exchange_rate IS TABLE OF ap_invoices_all.exchange_rate%TYPE INDEX BY BINARY_INTEGER;
1041: TYPE precision_tab IS TABLE OF fnd_currencies.precision%TYPE INDEX BY BINARY_INTEGER;
1042: --l_invoice_id fun_net_ap_invs_all.invoice_id%TYPE;
1718: l_inv_curr_net_amt(i) := l_amt_to_net;
1719: END IF;
1720: /* PRORATING THE DISCOUNT FOR PARTIALLY NETTED TRANSACTIONS IN AP/AR */
1721: IF p_appln = 'AP' THEN
1722: l_sql_stmt:='select PAYMENT_NUM,AMOUNT_REMAINING FROM ap_payment_schedules_all WHERE invoice_id=:v_invoice_id ';
1723: l_applieddisc(i):=0;
1724: OPEN pmt_rec FOR l_sql_stmt USING l_trx_id(i);
1725: FETCH pmt_rec BULK COLLECT INTO l_pmtno,l_amt_remaining;
1726: FOR j IN 1..l_pmtno.COUNT
3131: SELECT checkrun_id , org_id
3132: INTO l_checkrun_id , l_org_id
3133: FROM fun_net_batches_all
3134: WHERE batch_id = p_batch_id ;
3135: UPDATE AP_PAYMENT_SCHEDULES_ALL
3136: SET checkrun_id = NULL
3137: WHERE checkrun_id =l_checkrun_id
3138: AND org_id = l_org_id;
3139: IF SQL%FOUND THEN
3258: l_vendor_name po_vendors.vendor_name%TYPE;
3259: l_vendor_site_code po_vendor_sites_all.vendor_site_code%TYPE;
3260: l_check_id ap_checks.check_id%TYPE;
3261: l_old_invoice ap_invoices.invoice_id%TYPE;
3262: amt_remaining ap_payment_schedules.amount_remaining%TYPE;
3263: l_bank_num ce_banks_v.bank_number%TYPE;
3264: -- Bug: 8537760
3265: l_amt_to_net fun_net_ap_invs.netted_amt%TYPE;
3266: l_applieddisc NUMBER;
3405: ap_payment_info_tab
3406: FROM
3407: ap_invoices inv,
3408: fun_net_ap_invs finv,
3409: ap_payment_schedules apps
3410: WHERE finv.invoice_id = inv.invoice_id
3411: AND apps.invoice_id = inv.invoice_id
3412: AND apps.checkrun_id = g_batch_details.checkrun_id
3413: AND finv.batch_id = g_batch_details.batch_id
3431: BULK COLLECT INTO amtDueTab
3432: FROM
3433: ap_invoices inv,
3434: fun_net_ap_invs finv,
3435: ap_payment_schedules apps
3436: WHERE finv.invoice_id = inv.invoice_id
3437: AND apps.invoice_id = inv.invoice_id
3438: AND apps.checkrun_id = g_batch_details.checkrun_id
3439: AND finv.batch_id = g_batch_details.batch_id