Index: DW/StockWaarde.cls.xml
===================================================================
diff -u -r42287 -r46897
--- DW/StockWaarde.cls.xml	(.../StockWaarde.cls.xml)	(revision 42287)
+++ DW/StockWaarde.cls.xml	(.../StockWaarde.cls.xml)	(revision 46897)
@@ -271,27 +271,49 @@
 </Method>
 
 <Method name="StandaardAfwijking">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>PRNr:%String,AantalWeken:%Integer=26,MinAantalWeken:%Integer=5,GroepeerPer2:%Boolean=0</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[
+	Do ..GenereerWeken(.arHist,AantalWeken)
+	Do ..GetWeekVerkoop(PRNr, .arHist)
+	Do:GroepeerPer2 ..GroepeerPer2(.arHist)
+
+	Quit ..StandaardAfwijkingCalculatie(.arHist, MinAantalWeken)
+]]></Implementation>
+</Method>
+
+<Method name="StandaardAfwijkingMulti">
 <Description>
 w ##class(DW.StockWaarde).StandaardAfwijking(808099)
 Variantie, Deviation</Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>PRNr:%String,AantalWeken:%Integer=26,MinAantalWeken:%Integer=5,GroepeerPer2:%Boolean=0</FormalSpec>
+<FormalSpec>itProducts:TECH.Iterator,AantalWeken:%Integer=26,MinAantalWeken:%Integer=5,GroepeerPer2:%Boolean=0</FormalSpec>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Float</ReturnType>
 <Implementation><![CDATA[
 	Do ..GenereerWeken(.arHist,AantalWeken)
-	Do ..GetWeekVerkoop(PRNr,.arHist)
-	;k %x m %x=arHist zw %x w !!
+	While itProducts.HasNext()
+	{
+		Do ..GetWeekVerkoop(itProducts.Next(),.arHist)
+	}
 	Do:GroepeerPer2 ..GroepeerPer2(.arHist)
 
-	;k %x m %x=arHist zw %x
+	Quit ..StandaardAfwijkingCalculatie(.arHist, MinAantalWeken)
+]]></Implementation>
+</Method>
+
+<Method name="StandaardAfwijkingCalculatie">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[&arHist,MinAantalWeken:%Decimal]]></FormalSpec>
+<Implementation><![CDATA[
 	; Gemiddelde
 	Set SomKwadraat=0,Som=0,Aantal=0
 	Set IdxDate=$O(arHist(""))
 	While IdxDate'=""
 	{
 		Set AantalStuks=arHist(IdxDate)
-		;w IdxDate,";",AantalStuks,!
 		If (AantalStuks'="")||(Aantal)
 		{
 			Set SomKwadraat=SomKwadraat+(AantalStuks*AantalStuks) ; verkoop in historiek is negatief
@@ -313,6 +335,62 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Gemiddelde">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>PRNr:%String,AantalWeken:%Integer=26,MinAantalWeken:%Integer=5,GroepeerPer2:%Boolean=0</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[
+	Do ..GenereerWeken(.arHist,AantalWeken)
+	Do ..GetWeekVerkoop(PRNr, .arHist)
+	Do:GroepeerPer2 ..GroepeerPer2(.arHist)
+	Quit ..GemiddeldeCalculatie(.arHist, MinAantalWeken)
+]]></Implementation>
+</Method>
+
+<Method name="GemiddeldeMulti">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>itProducts:TECH.Iterator,AantalWeken:%Integer=26,MinAantalWeken:%Integer=5,GroepeerPer2:%Boolean=0</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[
+	Do ..GenereerWeken(.arHist,AantalWeken)
+	While itProducts.HasNext()
+	{
+		Do ..GetWeekVerkoop(itProducts.Next(),.arHist)
+	}
+	Do:GroepeerPer2 ..GroepeerPer2(.arHist)
+	Quit ..GemiddeldeCalculatie(.arHist, MinAantalWeken)
+]]></Implementation>
+</Method>
+
+<Method name="GemiddeldeCalculatie">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[&arHist,MinAantalWeken:%Decimal]]></FormalSpec>
+<Implementation><![CDATA[
+	; Gemiddelde
+	Set Som=0,Aantal=0
+	Set IdxDate=$O(arHist(""))
+	While IdxDate'=""
+	{
+		Set AantalStuks=arHist(IdxDate)
+		If (AantalStuks'="")||(Aantal)
+		{
+			Set Som=Som+AantalStuks ; verkoop in historiek is negatief
+		 	Set Aantal=Aantal+1 ; we beginnen pas te tellen als er de vorige weken verkoop is geweest
+		}
+		Set IdxDate=$O(arHist(IdxDate))
+	}
+	
+	If Aantal>MinAantalWeken,Som>0
+	{
+		Set Gemiddelde=Som/Aantal
+
+	}
+	Quit $G(Gemiddelde)
+]]></Implementation>
+</Method>
+
 <Method name="GetWeekVerkoop">
 <ClassMethod>1</ClassMethod>
 <FormalSpec><![CDATA[PRNr,&arHist]]></FormalSpec>
Index: AX/Uitgaand/PM/VrijgegProduct/impl/VoorraadInstellingCalculator.cls.xml
===================================================================
diff -u -r46523 -r46897
--- AX/Uitgaand/PM/VrijgegProduct/impl/VoorraadInstellingCalculator.cls.xml	(.../VoorraadInstellingCalculator.cls.xml)	(revision 46523)
+++ AX/Uitgaand/PM/VrijgegProduct/impl/VoorraadInstellingCalculator.cls.xml	(.../VoorraadInstellingCalculator.cls.xml)	(revision 46897)
@@ -37,7 +37,7 @@
 
 <Property name="Bufferweken">
 <Type>%Integer</Type>
-<InitialExpression>3</InitialExpression>
+<InitialExpression>0</InitialExpression>
 <Private>1</Private>
 <ReadOnly>1</ReadOnly>
 </Property>
@@ -47,6 +47,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Gemiddelde">
+<Type>%Decimal</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="StandaardAfwijking">
 <Type>%Decimal</Type>
 <Private>1</Private>
@@ -94,7 +99,7 @@
 
 <Method name="test">
 <Description>
-d ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).test(254150)
+d ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).test(1168370)
 d ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).test(1259381) ; minipress</Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>PRNr:%String</FormalSpec>
@@ -124,11 +129,14 @@
 	Set ..StatistiekPRNr=..SoprConvertor.GeefSOPRKindInCache(..PRNr)
 	Set:..StatistiekPRNr="" ..StatistiekPRNr=..PRNr
 
-	Set ..GGWeekVerkoop=$P($$$ProductGet(..PRNr,$$$GGWeekVerkoop),"#")
+	Set ..GGWeekVerkoop= ..AfrondingTotBeduidendeCijfers(..GGWeekVerkoop(),3)
+	
 	Set ..VoorraadInstelling.JaarVerkoop = ..AfrondingTotBeduidendeCijfers(..GGWeekVerkoop*48,3)
-	Set ..StandaardAfwijking = ##class(DW.StockWaarde).StandaardAfwijking(..StatistiekPRNr,26)
+	
+	Set ..StandaardAfwijking = ..AfrondingTotBeduidendeCijfers(..StandaardAfwijking(),3)
+	Set ..Gemiddelde = ..AfrondingTotBeduidendeCijfers(..Gemiddelde(),3)
 	Do ..BerekenLevertermijn()
-	Set ..VoorraadInstelling.VeiligheidsVoorraad = ..VeiligheidsVoorraad()
+	Set ..VoorraadInstelling.VeiligheidsVoorraad =  ..AfrondingTotBeduidendeCijfers(..VeiligheidsVoorraad(),3)
 	Set ..PalletAantal = $$$ProductGet(..PRNr,$$$PalletQty)
 	Set ..VoorraadInstelling.BestelVeelvoud = $$$ProductGet(..PRNr,$$$GrootVerpakking)
 	Set ..VoorraadInstelling.BestelMinimum = $$$ProductGet(..PRNr,$$$MinimumBestelHoeveelheid)
@@ -195,6 +203,54 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GGWeekVerkoop">
+<Implementation><![CDATA[
+	If ..SoprConvertor.IsSOPRInAX(..PRNr)
+	{
+		Set it=..SoprConvertor.GeefSOPRIterator(..PRNr)
+		Set Som=0
+		While it.HasNext()
+		{
+			Set PRNr=it.Next()
+		 	Set Som=Som+$P($$$ProductGet(PRNr,$$$GGWeekVerkoop),"#")
+		}
+	}
+	Else
+	{
+		Set Som=$P($$$ProductGet(..PRNr,$$$GGWeekVerkoop),"#")
+	}
+	Quit Som
+]]></Implementation>
+</Method>
+
+<Method name="Gemiddelde">
+<Implementation><![CDATA[
+	If ..SoprConvertor.IsSOPRInAX(..PRNr)
+	{
+		Set Som=##class(DW.StockWaarde).GemiddeldeMulti(..SoprConvertor.GeefSOPRIterator(..PRNr),26)
+	}
+	Else
+	{
+		Set Som=##class(DW.StockWaarde).Gemiddelde(..PRNr,26)
+	}
+	Quit Som
+]]></Implementation>
+</Method>
+
+<Method name="StandaardAfwijking">
+<Implementation><![CDATA[
+	If ..SoprConvertor.IsSOPRInAX(..PRNr)
+	{
+		Set Som=##class(DW.StockWaarde).StandaardAfwijkingMulti(..SoprConvertor.GeefSOPRIterator(..PRNr),26)
+	}
+	Else
+	{
+		Set Som=##class(DW.StockWaarde).StandaardAfwijking(..PRNr,26)
+	}
+	Quit Som
+]]></Implementation>
+</Method>
+
 <Method name="AankoopStatistiek">
 <Private>1</Private>
 <ReturnType>%Integer</ReturnType>
@@ -259,11 +315,11 @@
 	#dim VeiligheidsVoorraad As %Decimal = ..VeiligheidsVoorraadMetStdAfwijking()
 	Set ..CalcVeiligheidVoorraad="StdAfwijking"
 	#dim VeiligheidsVoorraadMetBufferweken As %Decimal = ..GGWeekVerkoop*..Bufferweken
-	If VeiligheidsVoorraad<VeiligheidsVoorraadMetBufferweken
-	{
-		Set VeiligheidsVoorraad = VeiligheidsVoorraadMetBufferweken
-		Set ..CalcVeiligheidVoorraad="Bufferweken"
-	}
+	;If VeiligheidsVoorraad<VeiligheidsVoorraadMetBufferweken
+	;{
+	;	Set VeiligheidsVoorraad = VeiligheidsVoorraadMetBufferweken
+	;	Set ..CalcVeiligheidVoorraad="Bufferweken"
+	;}
 	If $$$ProductGet(..PRNr,$$$MinimumBestelHoeveelheid)>(..VoorraadInstelling.JaarVerkoop/2)
 	{
 	 	#dim VeiligheidsVoorraadKleineAfname as %Decimal =$$$ProductGet(..PRNr,$$$MinimumBestelHoeveelheid)*.25