Fix ID: [2478307] -CurrencyRound pgsql function not working in 353 seed

https://sourceforge.net/tracker2/index.php?func=detail&aid=2478307&group_id=176962&atid=879332
** Another function missing in 342 postgresql seed CurrencyRound

migration/353a-trunk/oracle/398_currencyround.sql

@@ -0,0 +1 @@
+-- just for postgresql

migration/353a-trunk/postgresql/398_currencyround.sql

@@ -0,0 +1,60 @@
+CREATE OR REPLACE FUNCTION currencyRound(
+	p_Amount	NUMERIC,
+	p_CurTo_ID	NUMERIC,
+	p_Costing	VARCHAR		--	Default 'N'
+) 
+
+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:	Round amount for Traget Currency
+ * Description:
+ *		Round Amount using Costing or Standard Precision
+ *		Returns unmodified amount if currency not found
+ * Test:
+ *		SELECT currencyRound(currencyConvert(100,116,100,null,null),100,null) FROM AD_System => 64.72 
+ ************************************************************************/
+	
+	
+DECLARE
+	v_StdPrecision		NUMERIC;
+	v_CostPrecision		NUMERIC;
+
+BEGIN
+	--	Nothing to convert
+	IF (p_Amount IS NULL OR p_CurTo_ID IS NULL) THEN
+		RETURN p_Amount;
+	END IF;
+
+	--	Ger Precision
+	SELECT	MAX(StdPrecision), MAX(CostingPrecision)
+	  INTO	v_StdPrecision, v_CostPrecision
+	FROM	C_Currency
+	  WHERE	C_Currency_ID = p_CurTo_ID;
+	--	Currency Not Found
+	IF (v_StdPrecision IS NULL) THEN
+		RETURN p_Amount;
+	END IF;
+
+	IF (p_Costing = 'Y') THEN
+		RETURN ROUND (p_Amount, v_CostPrecision);
+	END IF;
+
+	RETURN ROUND (p_Amount, v_StdPrecision);
+	
+END;
+
+$body$ LANGUAGE plpgsql;
+
+
+