87 lines
2.7 KiB
PL/PgSQL
87 lines
2.7 KiB
PL/PgSQL
CREATE OR REPLACE FUNCTION invoiceDiscount
|
|
(
|
|
p_C_Invoice_ID NUMERIC,
|
|
p_paydate timestamp with time zone,
|
|
p_C_InvoicePaySchedule_ID NUMERIC
|
|
)
|
|
RETURNS numeric AS $body$
|
|
/*************************************************************************
|
|
* The contents of this file are subject to the Compiere License. You may
|
|
* obtain a copy of the License at http://www.compiere.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: Compiere ERP+CRM
|
|
* Copyright (C) 1999-2001 Jorg Janke, ComPiere, Inc. All Rights Reserved.
|
|
*
|
|
* converted to postgreSQL by Karsten Thiemann (Schaeffer AG),
|
|
* kthiemann@adempiere.org
|
|
*************************************************************************
|
|
***
|
|
* Title: Calculate Payment Discount Amount
|
|
* Description:
|
|
* - Calculate discountable amount (i.e. with or without tax)
|
|
* - Calculate and return payment discount
|
|
* Test:
|
|
* select invoiceDiscount(109, now(), 103) from ad_system; => 0
|
|
************************************************************************/
|
|
DECLARE
|
|
v_Amount NUMERIC;
|
|
v_IsDiscountLineAmt CHAR(1);
|
|
v_GrandTotal NUMERIC;
|
|
v_TotalLines NUMERIC;
|
|
v_C_PaymentTerm_ID NUMERIC(10);
|
|
v_C_Currency_ID NUMERIC(10);
|
|
v_DocDate timestamp with time zone;
|
|
v_PayDate timestamp with time zone := now();
|
|
v_IsPayScheduleValid CHAR(1);
|
|
|
|
BEGIN
|
|
SELECT ci.IsDiscountLineAmt, i.GrandTotal, i.TotalLines,
|
|
i.C_PaymentTerm_ID, i.DateInvoiced, i.IsPayScheduleValid, C_Currency_ID
|
|
INTO v_IsDiscountLineAmt, v_GrandTotal, v_TotalLines,
|
|
v_C_PaymentTerm_ID, v_DocDate, v_IsPayScheduleValid, v_C_Currency_ID
|
|
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, v_C_Currency_ID, v_C_PaymentTerm_ID, v_DocDate, p_PayDate);
|
|
|
|
-- Most likely if invoice not found
|
|
EXCEPTION
|
|
WHEN OTHERS THEN
|
|
RETURN NULL;
|
|
END;
|
|
|
|
$body$ LANGUAGE plpgsql;
|
|
|
|
|
|
SELECT register_migration_script('201405301104_IDEMPIERE-1856.sql') FROM dual
|
|
;
|
|
|