91 lines
3.0 KiB
MySQL
91 lines
3.0 KiB
MySQL
|
-- Aug 11, 2014 11:38:21 AM CEST
|
||
|
|
-- IDEMPIERE-2134 Issues found on Payment Selection process
|
||
|
|
UPDATE AD_Process_Para SET DefaultValue='N',Updated=TO_TIMESTAMP('2014-08-11 11:38:21','YYYY-MM-DD HH24:MI:SS'),UpdatedBy=100 WHERE AD_Process_Para_ID=184
|
||
|
|
;
|
||
|
|
|
||
|
|
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 STABLE;
|
||
|
|
|
||
|
|
SELECT register_migration_script('201408111139_IDEMPIERE-2134.sql') FROM dual
|
||
|
|
;
|
||
|
|
|