50 lines
1.8 KiB
MySQL
50 lines
1.8 KiB
MySQL
|
CREATE OR REPLACE FUNCTION "adempiere"."paymenttermduedate" (in paymentterm_id numeric, in docdate timestamptz) RETURNS timestamptz 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: Get Due timestamp with time zone
|
||
|
|
* Description:
|
||
|
|
* Returns the due timestamp with time zone
|
||
|
|
* Test:
|
||
|
|
* select paymenttermDueDate(106, now()) from Test; => now()+30 days
|
||
|
|
************************************************************************/
|
||
|
|
DECLARE
|
||
|
|
Days NUMERIC := 0;
|
||
|
|
DueDate timestamp with time zone := TRUNC(DocDate);
|
||
|
|
--
|
||
|
|
FirstDay timestamp with time zone;
|
||
|
|
NoDays NUMERIC;
|
||
|
|
p RECORD;
|
||
|
|
BEGIN
|
||
|
|
FOR p IN
|
||
|
|
SELECT *
|
||
|
|
FROM C_PaymentTerm
|
||
|
|
WHERE C_PaymentTerm_ID = PaymentTerm_ID
|
||
|
|
LOOP -- for convineance only
|
||
|
|
-- Due 15th of following month
|
||
|
|
IF (p.IsDueFixed = 'Y') THEN
|
||
|
|
FirstDay := TRUNC(DocDate, 'MM');
|
||
|
|
NoDays := EXTRACT(epoch FROM TRUNC(DocDate) - FirstDay);
|
||
|
|
DueDate := FirstDay + (p.FixMonthDay-1); -- starting on 1st
|
||
|
|
DueDate := ADD_MONTHS(DueDate, p.FixMonthOffset);
|
||
|
|
IF (NoDays > p.FixMonthCutoff) THEN
|
||
|
|
DueDate := ADD_MONTHS(DueDate, 1);
|
||
|
|
END IF;
|
||
|
|
ELSE
|
||
|
|
DueDate := TRUNC(DocDate) + p.NetDays;
|
||
|
|
END IF;
|
||
|
|
END LOOP;
|
||
|
|
RETURN DueDate;
|
||
|
|
END;
|
||
|
|
$BODY$
|
||
|
|
LANGUAGE 'plpgsql'
|
||
|
|
;
|