[Home] [Help]
4896:
4897:
4898: /* BUG 14498596 Start - Moved Withholding Tax logic before grouping of invoices */
4899:
4900: l_debug_info := 'Calling ap_withholding_pkg';
4901: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4902: fnd_file.put_line(FND_FILE.LOG,l_debug_info);
4903: END IF;
4904:
4906: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
4907: END IF;
4908:
4909:
4910: AP_WITHHOLDING_PKG.AP_WITHHOLD_AUTOSELECT(
4911: l_payment_process_request_name,
4912: FND_GLOBAL.USER_ID,
4913: FND_GLOBAL.LOGIN_ID,
4914: FND_GLOBAL.PROG_APPL_ID,
4993: AND payment_num =rec_dont_pay_invoices.payment_num
4994: AND checkrun_id = rec_dont_pay_invoices.checkrun_id
4995: AND nvl(rec_dont_pay_invoices.withholding_amount,0) = 0;
4996:
4997: AP_WITHHOLDING_PKG.Ap_Undo_Temp_Withholding
4998: (P_Invoice_Id => rec_dont_pay_invoices.invoice_id
4999: ,P_VENDor_Id => rec_dont_pay_invoices.vendor_id
5000: ,P_Payment_Num => rec_dont_pay_invoices.payment_num
5001: ,P_Checkrun_Name => rec_dont_pay_invoices.checkrun_name
5501:
5502:
5503:
5504:
5505: --undo awt, this is essentially the same code as in ap_withholding_pkg
5506:
5507: OPEN c_all_sel_invs;
5508:
5509: LOOP
5522: AND payment_num = rec_all_sel_invs.payment_num
5523: AND checkrun_id = rec_all_sel_invs.checkrun_id
5524: AND nvl(rec_all_sel_invs.withholding_amount,0) = 0;
5525:
5526: AP_WITHHOLDING_PKG.Ap_Undo_Temp_Withholding
5527: (P_Invoice_Id => rec_all_sel_invs.invoice_id
5528: ,P_VENDor_Id => rec_all_sel_invs.vendor_id
5529: ,P_Payment_Num => rec_all_sel_invs.payment_num
5530: ,P_Checkrun_Name => l_Checkrun_Name
5562: l_check_date,
5563: l_current_calling_sequence);
5564:
5565: -- Bug 9255192 Exchange rate updation should occur before calculating awt
5566: -- Moved the following code before AP_WITHHOLDING_PKG.AP_WITHHOLD_AUTOSELECT
5567: -- Code flow should be same as mentioned in Procedure Select_Invoices
5568:
5569: l_debug_info := 'Recalculate: Updating Exchage rate info';
5570: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5684:
5685: /* BUG 14498596 Start - Moved Withholding Tax logic before grouping of invoices */
5686:
5687: --redo awt
5688: AP_WITHHOLDING_PKG.AP_WITHHOLD_AUTOSELECT(
5689: l_checkrun_name,
5690: FND_GLOBAL.USER_ID,
5691: FND_GLOBAL.LOGIN_ID,
5692: FND_GLOBAL.PROG_APPL_ID,
5756: AND payment_num =rec_dont_pay_invoices.payment_num
5757: AND checkrun_id = rec_dont_pay_invoices.checkrun_id
5758: AND nvl(rec_dont_pay_invoices.withholding_amount,0) = 0;
5759:
5760: AP_WITHHOLDING_PKG.Ap_Undo_Temp_Withholding
5761: (P_Invoice_Id => rec_dont_pay_invoices.invoice_id
5762: ,P_VENDor_Id => rec_dont_pay_invoices.vendor_id
5763: ,P_Payment_Num => rec_dont_pay_invoices.payment_num
5764: ,P_Checkrun_Name => rec_dont_pay_invoices.checkrun_name
6208: where checkrun_id = p_checkrun_id;
6209:
6210: l_debug_info := 'undo awt';
6211:
6212: AP_WITHHOLDING_PKG.AP_WITHHOLD_CANCEL(l_checkrun_name,
6213: FND_GLOBAL.USER_ID,
6214: FND_GLOBAL.LOGIN_ID, -- Bug 5478602
6215: FND_GLOBAL.PROG_APPL_ID,
6216: FND_GLOBAL.CONC_PROGRAM_ID,
6471: from ap_invoice_payments_all p
6472: where p.invoice_id = si2.invoice_id),0)));
6473:
6474: /*
6475: undo awt for invoices to be removed, this is essentially the same code as in ap_withholding_pkg
6476: Since this procedure is called after awt is calculated and before
6477: remove_invoices we have to handle temp awt undo here._
6478: */
6479: OPEN c_invs_to_remove_with_awt;
6484: EXIT WHEN c_invs_to_remove_with_awt%NOTFOUND;
6485: DECLARE
6486: undo_output VARCHAR2(2000);
6487: BEGIN
6488: AP_WITHHOLDING_PKG.Ap_Undo_Temp_Withholding
6489: (P_Invoice_Id => rec_invs_to_remove_with_awt.invoice_id
6490: ,P_vendor_Id => rec_invs_to_remove_with_awt.vendor_id
6491: ,P_Payment_Num => rec_invs_to_remove_with_awt.payment_num
6492: ,P_Checkrun_Name => p_checkrun_name