Fix BUG ID 1621407 - Diff between pl/sql and sqlj in DueDays

_Project-ID-ADempiere/sqls_3.1.2/011_PAYMENTTERMDUEDAYS.sql

@@ -0,0 +1,110 @@
+CREATE OR REPLACE FUNCTION paymentTermDueDays
+(
+	PaymentTerm_ID	IN	NUMBER,
+	DocDate			IN	DATE,
+	PayDate			IN	DATE
+)
+RETURN NUMBER
+/*************************************************************************
+ * 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.
+ *************************************************************************
+ * $Id: C_PaymentTerm_DueDays.sql,v 1.1 2006/04/21 17:51:58 jjanke Exp $
+ ***
+ * Title:	Get Due Days
+ * Description:
+ *	Returns the days due (positive) or the days till due (negative)
+ *	Grace days are not considered!
+ *	If record is not found it assumes due immediately
+ *
+ *	Test:	SELECT paymentTermDueDays(103, '01-DEC-2000', '15-DEC-2000') FROM DUAL
+ *
+ * Contributor(s): Carlos Ruiz - globalqss - match with SQLJ version
+ ************************************************************************/
+AS
+ 	Days				NUMBER := 0;
+	DueDate				DATE := NULL;
+	calDueDate			DATE;
+	FixMonthOffset		C_PaymentTerm.FixMonthOffset%TYPE;
+	MaxDayCut			NUMBER;
+	MaxDay				NUMBER;
+	v_PayDate			DATE;
+	--
+	CURSOR Cur_PT	IS
+		SELECT	*
+		FROM	C_PaymentTerm
+		WHERE	C_PaymentTerm_ID = PaymentTerm_ID;
+	FirstDay			DATE;
+	NoDays				NUMBER;
+BEGIN
+
+    IF PaymentTerm_ID = 0 OR DocDate IS NULL THEN
+	    RETURN 0;
+	END IF;
+
+    v_PayDate := PayDate;
+	IF v_PayDate IS NULL THEN
+	    v_PayDate := TRUNC(SYSDATE);
+	END IF;
+
+	FOR p IN Cur_PT LOOP	--	for convineance only
+	--	DBMS_OUTPUT.PUT_LINE(p.Name || ' - Doc = ' || TO_CHAR(DocDate));
+		--	Due 15th of following month
+		IF (p.IsDueFixed = 'Y') THEN
+		--	DBMS_OUTPUT.PUT_LINE(p.Name || ' - Day = ' || p.FixMonthDay);
+			FirstDay := TRUNC(DocDate, 'MM');
+			NoDays := 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;
+			
+			calDueDate := TRUNC(DocDate);
+			MaxDayCut := TO_NUMBER (TO_CHAR (LAST_DAY (calDueDate), 'dd'));
+			IF p.FixMonthCutoff > MaxDayCut THEN
+			    calDueDate := LAST_DAY(TRUNC(calDueDate));
+			ELSE
+			    -- set day fixmonthcutoff on duedate
+			    calDueDate := TO_DATE (   SUBSTR (TO_CHAR (TRUNC (calDueDate), 'yyyymmdd'), 1, 6)
+				                || LPAD (TO_CHAR (p.FixMonthCutoff), 2, '0'),
+								                'yyyymmdd'
+								);
+			END IF;
+			FixMonthOffset := p.FixMonthOffset;
+			IF DocDate > calDueDate THEN
+			    FixMonthOffset := FixMonthOffset + 1;
+			END IF;
+			calDueDate := ADD_MONTHS(calDueDate, FixMonthOffset);
+			MaxDay := TO_NUMBER (TO_CHAR (LAST_DAY (calDueDate), 'dd'));
+			IF    (p.FixMonthDay > MaxDay)    --	32 -> 28
+			   OR (p.FixMonthDay >= 30 AND MaxDay > p.FixMonthDay) THEN  	--	30 -> 31
+			    calDueDate := TO_DATE (   SUBSTR (TO_CHAR (TRUNC (calDueDate), 'yyyymmdd'), 1, 6)
+				                || LPAD (TO_CHAR (MaxDay), 2, '0'),
+								                'yyyymmdd'
+								);				
+			ELSE
+			    calDueDate := TO_DATE (   SUBSTR (TO_CHAR (TRUNC (calDueDate), 'yyyymmdd'), 1, 6)
+				                || LPAD (TO_CHAR (p.FixMonthDay), 2, '0'),
+								                'yyyymmdd'
+								);				
+			END IF;
+			DueDate := calDueDate; 
+		ELSE
+		--	DBMS_OUTPUT.PUT_LINE('Net = ' || p.NetDays);
+			DueDate := TRUNC(DocDate) + p.NetDays;
+		END IF;
+	END LOOP;
+--	DBMS_OUTPUT.PUT_LINE('Due = ' || TO_CHAR(DueDate) || ', Pay = ' || TO_CHAR(v_PayDate));
+
+    IF DueDate IS NULL THEN
+	    RETURN 0;
+	END IF;
+
+	Days := TRUNC(v_PayDate) - DueDate;
+	RETURN Days;
+END paymentTermDueDays;
+/