75 lines
2.5 KiB
SQL
75 lines
2.5 KiB
SQL
CREATE OR REPLACE FUNCTION invoiceDiscount
|
|
(
|
|
p_C_Invoice_ID IN NUMBER,
|
|
p_PayDate IN DATE,
|
|
p_C_InvoicePaySchedule_ID IN NUMBER
|
|
)
|
|
RETURN NUMBER
|
|
/*************************************************************************
|
|
* The contents of this file are subject to the Adempiere License. You may
|
|
* obtain a copy of the License at http://www.adempiere.org/license.html
|
|
* Software is on an "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either
|
|
* express or implied. See the License for details. Code: Adempiere ERP+CRM
|
|
* Copyright (C) 1999-2001 Jorg Janke, ComPiere, Inc. All Rights Reserved.
|
|
*************************************************************************
|
|
* $Id: C_Invoice_Discount.sql,v 1.1 2006/04/21 17:51:58 jjanke Exp $
|
|
***
|
|
* Title: Calculate Payment Discount Amount
|
|
* Description:
|
|
* - Calculate discountable amount (i.e. with or without tax)
|
|
* - Calculate and return payment discount
|
|
************************************************************************/
|
|
AS
|
|
v_Amount NUMBER;
|
|
v_IsDiscountLineAmt CHAR(1);
|
|
v_GrandTotal NUMBER;
|
|
v_TotalLines NUMBER;
|
|
v_C_PaymentTerm_ID NUMBER(10);
|
|
v_DocDate DATE;
|
|
v_PayDate DATE := SysDate;
|
|
v_IsPayScheduleValid CHAR(1);
|
|
|
|
BEGIN
|
|
SELECT ci.IsDiscountLineAmt, i.GrandTotal, i.TotalLines,
|
|
i.C_PaymentTerm_ID, i.DateInvoiced, i.IsPayScheduleValid
|
|
INTO v_IsDiscountLineAmt, v_GrandTotal, v_TotalLines,
|
|
v_C_PaymentTerm_ID, v_DocDate, v_IsPayScheduleValid
|
|
FROM AD_ClientInfo ci, C_Invoice i
|
|
WHERE ci.AD_Client_ID=i.AD_Client_ID
|
|
AND i.C_Invoice_ID=p_C_Invoice_ID;
|
|
-- What Amount is the Discount Base?
|
|
IF (v_IsDiscountLineAmt = 'Y') THEN
|
|
v_Amount := v_TotalLines;
|
|
ELSE
|
|
v_Amount := v_GrandTotal;
|
|
END IF;
|
|
|
|
-- Anything to discount?
|
|
IF (v_Amount = 0) THEN
|
|
RETURN 0;
|
|
END IF;
|
|
IF (p_PayDate IS NOT NULL) THEN
|
|
v_PayDate := p_PayDate;
|
|
END IF;
|
|
|
|
-- Valid Payment Schedule
|
|
IF (v_IsPayScheduleValid='Y' AND p_C_InvoicePaySchedule_ID > 0) THEN
|
|
SELECT COALESCE(MAX(DiscountAmt),0)
|
|
INTO v_Amount
|
|
FROM C_InvoicePaySchedule
|
|
WHERE C_InvoicePaySchedule_ID=p_C_InvoicePaySchedule_ID
|
|
AND DiscountDate <= v_PayDate;
|
|
--
|
|
RETURN v_Amount;
|
|
END IF;
|
|
|
|
-- return discount amount
|
|
RETURN paymentTermDiscount (v_Amount, 0, v_C_PaymentTerm_ID, v_DocDate, p_PayDate);
|
|
|
|
-- Most likely if invoice not found
|
|
EXCEPTION
|
|
WHEN OTHERS THEN
|
|
RETURN NULL;
|
|
END invoiceDiscount;
|
|
/
|