Index: DW/StockWaarde.cls.xml
===================================================================
diff -u -r46897 -r47061
--- DW/StockWaarde.cls.xml	(.../StockWaarde.cls.xml)	(revision 46897)
+++ DW/StockWaarde.cls.xml	(.../StockWaarde.cls.xml)	(revision 47061)
@@ -30,43 +30,43 @@
 </Property>
 
 <Property name="GemGewogenWeekVerkoop">
-<Type>%Float</Type>
+<Type>%Numeric</Type>
 <Collection/>
 <Relationship>0</Relationship>
 </Property>
 
 <Property name="GemGewogenWeekVerkoopWaarde">
-<Type>%Float</Type>
+<Type>%Numeric</Type>
 <Collection/>
 <Relationship>0</Relationship>
 </Property>
 
 <Property name="GemStock">
-<Type>%Float</Type>
+<Type>%Numeric</Type>
 <Collection/>
 <Relationship>0</Relationship>
 </Property>
 
 <Property name="GemStockWaarde">
-<Type>%Float</Type>
+<Type>%Numeric</Type>
 <Collection/>
 <Relationship>0</Relationship>
 </Property>
 
 <Property name="GemWeekVerkoop">
-<Type>%Float</Type>
+<Type>%Numeric</Type>
 <Collection/>
 <Relationship>0</Relationship>
 </Property>
 
 <Property name="GemWeekVerkoopWaarde">
-<Type>%Float</Type>
+<Type>%Numeric</Type>
 <Collection/>
 <Relationship>0</Relationship>
 </Property>
 
 <Property name="JaarVerkoop">
-<Type>%Float</Type>
+<Type>%Numeric</Type>
 <Collection/>
 <Relationship>0</Relationship>
 </Property>
@@ -76,19 +76,19 @@
 </Property>
 
 <Property name="JaarVerkoopWaarde">
-<Type>%Float</Type>
+<Type>%Numeric</Type>
 <Collection/>
 <Relationship>0</Relationship>
 </Property>
 
 <Property name="Levering">
-<Type>%Float</Type>
+<Type>%Numeric</Type>
 <Collection/>
 <Relationship>0</Relationship>
 </Property>
 
 <Property name="LeveringWaarde">
-<Type>%Float</Type>
+<Type>%Numeric</Type>
 <Collection/>
 <Relationship>0</Relationship>
 </Property>
@@ -106,13 +106,13 @@
 </Property>
 
 <Property name="Receptie">
-<Type>%Float</Type>
+<Type>%Numeric</Type>
 <Collection/>
 <Relationship>0</Relationship>
 </Property>
 
 <Property name="ReceptieWaarde">
-<Type>%Float</Type>
+<Type>%Numeric</Type>
 <Collection/>
 <Relationship>0</Relationship>
 </Property>
@@ -130,33 +130,33 @@
 </Property>
 
 <Property name="Stock">
-<Type>%Float</Type>
+<Type>%Numeric</Type>
 <Collection/>
 <Relationship>0</Relationship>
 </Property>
 
 <Property name="StockWaarde">
-<Type>%Float</Type>
+<Type>%Numeric</Type>
 <Collection/>
 <Relationship>0</Relationship>
 </Property>
 
 <Property name="HalfFabrWaarde">
-<Type>%Float</Type>
+<Type>%Numeric</Type>
 </Property>
 
 <Property name="HalfFabr">
-<Type>%Float</Type>
+<Type>%Numeric</Type>
 </Property>
 
 <Property name="WerkVloer">
-<Type>%Float</Type>
+<Type>%Numeric</Type>
 <Collection/>
 <Relationship>0</Relationship>
 </Property>
 
 <Property name="WerkVloerWaarde">
-<Type>%Float</Type>
+<Type>%Numeric</Type>
 <Collection/>
 <Relationship>0</Relationship>
 </Property>
@@ -183,7 +183,7 @@
 </Property>
 
 <Property name="AfwijkingGemiddelde">
-<Type>%Float</Type>
+<Type>%Numeric</Type>
 <Calculated>1</Calculated>
 <SqlComputeCode> Set {*}=##class(DW.StockWaarde).AfwijkingGemiddelde({Product})</SqlComputeCode>
 <SqlComputed>1</SqlComputed>
@@ -197,7 +197,7 @@
 </Property>
 
 <Property name="StandaardAfwijking">
-<Type>%Float</Type>
+<Type>%Numeric</Type>
 <Calculated>1</Calculated>
 <SqlComputeCode> Set {*}=##class(DW.StockWaarde).StandaardAfwijking({Product})</SqlComputeCode>
 <SqlComputed>1</SqlComputed>
@@ -224,7 +224,7 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>PRNr:%String,AantalWeken:%Integer=26,MinAantalWeken:%Integer=5,GroepeerPer2:%Boolean=0</FormalSpec>
 <ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Float</ReturnType>
+<ReturnType>%Numeric</ReturnType>
 <Implementation><![CDATA[
 	Do ..GenereerWeken(.arHist,AantalWeken)
 	Do ..GetWeekVerkoop(PRNr,.arHist)
@@ -274,7 +274,7 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>PRNr:%String,AantalWeken:%Integer=26,MinAantalWeken:%Integer=5,GroepeerPer2:%Boolean=0</FormalSpec>
 <ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Float</ReturnType>
+<ReturnType>%Numeric</ReturnType>
 <Implementation><![CDATA[
 	Do ..GenereerWeken(.arHist,AantalWeken)
 	Do ..GetWeekVerkoop(PRNr, .arHist)
@@ -291,7 +291,7 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>itProducts:TECH.Iterator,AantalWeken:%Integer=26,MinAantalWeken:%Integer=5,GroepeerPer2:%Boolean=0</FormalSpec>
 <ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Float</ReturnType>
+<ReturnType>%Numeric</ReturnType>
 <Implementation><![CDATA[
 	Do ..GenereerWeken(.arHist,AantalWeken)
 	While itProducts.HasNext()
@@ -309,6 +309,7 @@
 <FormalSpec><![CDATA[&arHist,MinAantalWeken:%Decimal]]></FormalSpec>
 <Implementation><![CDATA[
 	; Gemiddelde
+	#dim SomKwadraat,Som,Aantal,AantalStuks,IdxDate As %Numeric
 	Set SomKwadraat=0,Som=0,Aantal=0
 	Set IdxDate=$O(arHist(""))
 	While IdxDate'=""
@@ -339,7 +340,7 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>PRNr:%String,AantalWeken:%Integer=26,MinAantalWeken:%Integer=5,GroepeerPer2:%Boolean=0</FormalSpec>
 <ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Float</ReturnType>
+<ReturnType>%Numeric</ReturnType>
 <Implementation><![CDATA[
 	Do ..GenereerWeken(.arHist,AantalWeken)
 	Do ..GetWeekVerkoop(PRNr, .arHist)
@@ -352,7 +353,7 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>itProducts:TECH.Iterator,AantalWeken:%Integer=26,MinAantalWeken:%Integer=5,GroepeerPer2:%Boolean=0</FormalSpec>
 <ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Float</ReturnType>
+<ReturnType>%Numeric</ReturnType>
 <Implementation><![CDATA[
 	Do ..GenereerWeken(.arHist,AantalWeken)
 	While itProducts.HasNext()
@@ -498,7 +499,7 @@
 </Method>
 
 <Method name="AfwijkingGemiddeldeGet">
-<ReturnType>%Float</ReturnType>
+<ReturnType>%Numeric</ReturnType>
 <Implementation><![CDATA[	Quit ..AfwijkingGemiddelde(..Product)
 ]]></Implementation>
 </Method>
@@ -512,7 +513,7 @@
 <Method name="CalcWaarden">
 <CodeMode>code</CodeMode>
 <FormalSpec>CountType</FormalSpec>
-<ReturnType>%Float</ReturnType>
+<ReturnType>%Numeric</ReturnType>
 <Implementation><![CDATA[
  New CifPPL
  Set CifPPL=..CifPPL(PRNr)