[Home] [Help]
41: AND line_type_lookup_code = 'AWT';
42:
43: SELECT nvl(SUM(gross_amount),1)
44: INTO l_schedules_sum
45: FROM ap_payment_schedules_all
46: WHERE invoice_id = p_invoice_id;
47:
48: SELECT gross_amount
49: INTO l_gross_amount
46: WHERE invoice_id = p_invoice_id;
47:
48: SELECT gross_amount
49: INTO l_gross_amount
50: FROM ap_payment_schedules_all
51: WHERE invoice_id = p_invoice_id
52: AND payment_num = p_payment_num;
53:
54: l_prorated_awt_gross_amt :=
654:
655:
656: l_debug_info := 'update payment schedules';
657:
658: update ap_payment_schedules_all
659: set checkrun_id = null
660: where checkrun_id = p_checkrun_id;
661:
662:
748: l_remove_invoices(i).org_id);
749:
750:
751:
752: update ap_payment_schedules_all
753: set checkrun_id = null
754: where invoice_id = l_remove_invoices(i).invoice_id
755: and payment_num = l_remove_invoices(i).payment_num
756: and checkrun_id = p_checkrun_id;
1357: --Bug 543942 added NVL in the above scenario
1358: from ap_selected_invoices_all asi,
1359: ap_invoices ai, --Bug6040657. Changed from ap_invoices_all to ap_invoices
1360: ap_inv_selection_criteria_all aisc,
1361: ap_payment_schedules_all aps,
1362: fv_tpp_assignments_v fv, --5017076
1363: iby_payment_methods_vl ipm -- Bug 5357689
1364: where asi.invoice_id = ai.invoice_id
1365: and aps.invoice_id = asi.invoice_id
2962: --End 8217641
2963: ' FROM ap_supplier_sites_all sites, '||
2964: ' ap_suppliers suppliers, '||
2965: ' ap_invoices ai, '|| /* inv, '||Commented for bug#9182499 --Bug6040657. Changed from ap_invoices_all to ap_invoices */
2966: ' ap_payment_schedules_all ps, '||
2967: ' ap_system_parameters_all asp, '||
2968: ' hz_parties hzp, '||
2969: ' hz_party_sites hzps, '||-- Bug 5620285
2970: ' hz_locations hzl '||-- Bug 5620285
3382: --End 8217641
3383: LIMIT 1000;
3384:
3385:
3386: l_debug_info := 'Update ap_payment_schedules_all: encumbrances are on';
3387: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3388: fnd_file.put_line(FND_FILE.LOG,l_debug_info);
3389: END IF;
3390:
3393: END IF;
3394:
3395:
3396: FORALL i IN sel_inv_list.invoice_id_l.FIRST .. sel_inv_list.invoice_id_l.LAST
3397: UPDATE Ap_Payment_Schedules_All
3398: SET checkrun_id = sel_inv_list.checkrun_id_l(i)
3399: WHERE invoice_id = sel_inv_list.invoice_id_l(i)
3400: AND payment_num = sel_inv_list.payment_num_l(i)
3401: AND checkrun_id IS NULL --bug 6788730
3509: --bug 6788730 Changed this to SELECT
3510: VALUES /* Bug 13321621 Changed back to insert by values */
3511: (
3512: /* Commented for bug 13321621 */
3513: --SELECT /*+ INDEX(AP_PAYMENT_SCHEDULES_ALL,AP_PAYMENT_SCHEDULES_U1) */
3514: sel_inv_list.checkrun_name_l(i)
3515: ,sel_inv_list.checkrun_id_l(i)
3516: ,sel_inv_list.invoice_id_l(i)
3517: ,sel_inv_list.payment_num_l(i)
3602: --End 8217641
3603: ,'N'
3604: --bug12349626
3605: /* Commented for bug 13321621
3606: FROM Ap_Payment_Schedules_All
3607: WHERE invoice_id = sel_inv_list.invoice_id_l(i)
3608: AND payment_num = sel_inv_list.payment_num_l(i)
3609: AND checkrun_id = sel_inv_list.checkrun_id_l(i)
3610: */
3785: --End 8217641
3786: ' FROM ap_supplier_sites_all sites, '||
3787: ' ap_suppliers suppliers, '||
3788: ' ap_invoices ai, '|| /* inv, '|| Commented for bug#9182499 GSCC Error File.Sql.6 --Bug6040657. Changed from ap_invoices_all to ap_invoices */
3789: ' ap_payment_schedules_all ps, '||
3790: ' ap_system_parameters_all asp, '||
3791: ' hz_parties hzp, '||
3792: ' hz_party_sites hzps, '|| -- Bug 5620285
3793: ' hz_locations hzl '|| -- Bug 5620285
4199: ,sel_inv_list.remit_to_supplier_site_id_l
4200: --End 8217641
4201: LIMIT 1000;
4202:
4203: l_debug_info := 'Update ap_payment_schedules_all: encumbrances are off';
4204: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4205: fnd_file.put_line(FND_FILE.LOG,l_debug_info);
4206: END IF;
4207:
4210: END IF;
4211:
4212:
4213: FORALL i IN sel_inv_list.invoice_id_l.FIRST .. sel_inv_list.invoice_id_l.LAST
4214: UPDATE Ap_Payment_Schedules_All
4215: SET checkrun_id = sel_inv_list.checkrun_id_l(i)
4216: WHERE invoice_id = sel_inv_list.invoice_id_l(i)
4217: AND payment_num = sel_inv_list.payment_num_l(i)
4218: AND checkrun_id IS NULL --bug 6788730
4327: --
4328: VALUES /* Bug 13321621 Changed back to insert by values */
4329: (
4330: /* Commented for bug 13321621 */
4331: --SELECT /*+ INDEX(AP_PAYMENT_SCHEDULES_ALL,AP_PAYMENT_SCHEDULES_U1) */
4332: sel_inv_list.checkrun_name_l(i)
4333: ,sel_inv_list.checkrun_id_l(i)
4334: ,sel_inv_list.invoice_id_l(i)
4335: ,sel_inv_list.payment_num_l(i)
4420: --End 8217641
4421: ,'N'
4422: --bug12349626
4423: /* Commented for bug 13321621
4424: FROM Ap_Payment_Schedules_All
4425: WHERE invoice_id = sel_inv_list.invoice_id_l(i)
4426: AND payment_num = sel_inv_list.payment_num_l(i)
4427: AND checkrun_id = sel_inv_list.checkrun_id_l(i)
4428: */
4453: END IF;
4454:
4455:
4456: -- Bug 5646890. Added l_checkrun_id condition for performance reason
4457: UPDATE Ap_Payment_Schedules_All aps
4458: SET checkrun_id = null
4459: WHERE checkrun_id = l_checkrun_id
4460: AND NOT EXISTS (SELECT /*+HASH_AJ */ 'no row in asi'
4461: FROM ap_selected_invoices_all asi
4720: 0) * DECODE(SIGN(ps.gross_amount),-1,-1,1))
4721: * (PS.AMOUNT_REMAINING / DECODE(PS.GROSS_AMOUNT,
4722: 0, 1,
4723: prorated_awt_gross_amt(ps.invoice_id, ps.payment_num) )))))
4724: FROM ap_payment_schedules_all PS,
4725: ap_invoices ai --Bug6040657. Changed from ap_invoices_all to ap_invoices
4726: WHERE PS.invoice_id = asi.invoice_id
4727: AND PS.payment_num = asi.payment_num
4728: and ai.invoice_id = ps.invoice_id)
6227:
6228:
6229: l_debug_info := 'update payment schedules';
6230:
6231: update ap_payment_schedules_all
6232: set checkrun_id = null
6233: where checkrun_id = p_checkrun_id;
6234:
6235: update ap_inv_selection_criteria_all