532: l_attribute14,
533: l_attribute15,
534: l_attribute_category
535: FROM ap_invoices AIRP,
536: ap_payment_schedules APS
537: WHERE AIRP.invoice_id = P_Invoice_Payment_Info_Tab(i).invoice_id
538: AND APS.payment_num = P_Invoice_Payment_Info_Tab(i).payment_schedule_num
539: AND APS.checkrun_id = P_checkrun_id
540: AND APS.invoice_id = AIRP.invoice_id;
692: 0) * DECODE(SIGN(ps.gross_amount),-1,-1,1))
693: * (PS.AMOUNT_REMAINING / DECODE(PS.GROSS_AMOUNT,
694: 0, 1,
695: PS.GROSS_AMOUNT))))
696: FROM ap_payment_schedules_all PS,
697: ap_invoices_all ai,
698: ap_supplier_sites_all asi
699: WHERE ai.invoice_id = ps.invoice_id
700: AND ai.vendor_id = asi.vendor_id
701: AND ai.vendor_site_id = asi.vendor_site_id
702: AND ai.invoice_id = c_invoice_id
703: AND ps.payment_num = c_payment_num;
704:
705: l_discount_amount ap_payment_schedules_all.discount_amount_available%type;
706: Netting_Exception EXCEPTION;
707: l_debug_info FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
708: DBG_Loc VARCHAR2(50) := 'Get_Discount_For_Payment_Schedule';
709:
755: P_Payment_Num IN NUMBER,
756: P_Date IN DATE,
757: P_Netted_Amt IN NUMBER)
758: RETURN NUMBER IS
759: l_amount_remaining ap_payment_schedules_all.amount_remaining%type;
760: l_discount_amount ap_payment_schedules_all.discount_amount_available%type;
761: l_discount_on_netted_amt ap_payment_schedules_all.discount_amount_available%type;
762: l_inv_curr ap_invoices_all.invoice_currency_code%type;
763: l_debug_info FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
756: P_Date IN DATE,
757: P_Netted_Amt IN NUMBER)
758: RETURN NUMBER IS
759: l_amount_remaining ap_payment_schedules_all.amount_remaining%type;
760: l_discount_amount ap_payment_schedules_all.discount_amount_available%type;
761: l_discount_on_netted_amt ap_payment_schedules_all.discount_amount_available%type;
762: l_inv_curr ap_invoices_all.invoice_currency_code%type;
763: l_debug_info FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
764: DBG_Loc VARCHAR2(50) := 'Get_Discount_For_Netted_Amt';
757: P_Netted_Amt IN NUMBER)
758: RETURN NUMBER IS
759: l_amount_remaining ap_payment_schedules_all.amount_remaining%type;
760: l_discount_amount ap_payment_schedules_all.discount_amount_available%type;
761: l_discount_on_netted_amt ap_payment_schedules_all.discount_amount_available%type;
762: l_inv_curr ap_invoices_all.invoice_currency_code%type;
763: l_debug_info FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
764: DBG_Loc VARCHAR2(50) := 'Get_Discount_For_Netted_Amt';
765: Netting_Exception EXCEPTION;
776:
777: --Get Amount Remaining to be paid for the given Invoice and Payment Number
778: SELECT amount_remaining
779: INTO l_amount_remaining
780: FROM ap_payment_schedules_all
781: WHERE invoice_id = P_Invoice_Id
782: AND payment_num = P_Payment_Num;
783:
784: --Get the Discount Amount available on the payment