Index: vhTest/Fake/AX/Uitgaand/PM/VrijgegProduct/impl/VoorraadInstellingCalculator.cls.xml
===================================================================
diff -u -r42541 -r43634
--- vhTest/Fake/AX/Uitgaand/PM/VrijgegProduct/impl/VoorraadInstellingCalculator.cls.xml	(.../VoorraadInstellingCalculator.cls.xml)	(revision 42541)
+++ vhTest/Fake/AX/Uitgaand/PM/VrijgegProduct/impl/VoorraadInstellingCalculator.cls.xml	(.../VoorraadInstellingCalculator.cls.xml)	(revision 43634)
@@ -16,11 +16,15 @@
 
 <Method name="Afronding">
 <FormalSpec>Getal:%Decimal,Nauwkeurigheid:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Decimal</ReturnType>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="AfrondingTotBeduidendeCijfers">
 <FormalSpec>Getal:%Decimal,MinBeduidendeCijfers:%Integer,AfrondenBeduidendeCijfers:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Decimal</ReturnType>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
Index: vhTest/Mock/AX/Uitgaand/PM/VrijgegProduct/impl/VoorraadInstellingCalculator.cls.xml
===================================================================
diff -u -r42873 -r43634
--- vhTest/Mock/AX/Uitgaand/PM/VrijgegProduct/impl/VoorraadInstellingCalculator.cls.xml	(.../VoorraadInstellingCalculator.cls.xml)	(revision 42873)
+++ vhTest/Mock/AX/Uitgaand/PM/VrijgegProduct/impl/VoorraadInstellingCalculator.cls.xml	(.../VoorraadInstellingCalculator.cls.xml)	(revision 43634)
@@ -8,40 +8,12 @@
 <Super>AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
 
-<Method name="Afronding">
-<FormalSpec>Getal:%Decimal,Nauwkeurigheid:%Integer</FormalSpec>
-<Implementation><![CDATA[	do ..VerwerkMethodCall("Afronding",Getal,Nauwkeurigheid)
-]]></Implementation>
-</Method>
-
-<Method name="AfrondingTotBeduidendeCijfers">
-<FormalSpec>Getal:%Decimal,MinBeduidendeCijfers:%Integer,AfrondenBeduidendeCijfers:%Integer</FormalSpec>
-<Implementation><![CDATA[	do ..VerwerkMethodCall("AfrondingTotBeduidendeCijfers",Getal,MinBeduidendeCijfers,AfrondenBeduidendeCijfers)
-]]></Implementation>
-</Method>
-
-<Method name="BerekenBestelQty">
-<Implementation><![CDATA[	do ..VerwerkMethodCall("BerekenBestelQty")
-]]></Implementation>
-</Method>
-
-<Method name="BerekenLevertermijn">
-<Implementation><![CDATA[	do ..VerwerkMethodCall("BerekenLevertermijn")
-]]></Implementation>
-</Method>
-
 <Method name="Calculate">
 <FormalSpec>PRNr:%String</FormalSpec>
 <ReturnType>AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstelling</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("Calculate",PRNr)
 ]]></Implementation>
 </Method>
-
-<Method name="VeiligheidsVoorraad">
-<ReturnType>%Decimal</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("VeiligheidsVoorraad")
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: AX/Uitgaand/PM/VrijgegProduct/impl/VoorraadInstellingCalculator.cls.xml
===================================================================
diff -u -r42976 -r43634
--- AX/Uitgaand/PM/VrijgegProduct/impl/VoorraadInstellingCalculator.cls.xml	(.../VoorraadInstellingCalculator.cls.xml)	(revision 42976)
+++ AX/Uitgaand/PM/VrijgegProduct/impl/VoorraadInstellingCalculator.cls.xml	(.../VoorraadInstellingCalculator.cls.xml)	(revision 43634)
@@ -18,22 +18,27 @@
 
 <Property name="GGWeekVerkoop">
 <Type>%Decimal</Type>
+<Private>1</Private>
 </Property>
 
 <Property name="StandaardAfwijking">
 <Type>%Decimal</Type>
+<Private>1</Private>
 </Property>
 
 <Property name="PalletAantal">
 <Type>%Decimal</Type>
+<Private>1</Private>
 </Property>
 
 <Property name="BerekendBestelQty">
 <Type>%Decimal</Type>
+<Private>1</Private>
 </Property>
 
 <Property name="Calc">
 <Type>%String</Type>
+<Private>1</Private>
 </Property>
 
 <Property name="VoorraadInstelling">
@@ -88,7 +93,11 @@
 		}
 		ElseIf (..BerekendBestelQty > ..PalletAantal) && (..PalletAantal > 0)	
 		{
-			Set ..VoorraadInstelling.BestelVeelvoud = ..PalletAantal
+			#dim LeverancierNummer As %String = $$$ProductGet(..PRNr,$$$LeveranciersNr)
+			#dim IsBlum As %Boolean = (LeverancierNummer = "5005")
+			If IsBlum {
+				Set ..VoorraadInstelling.BestelVeelvoud = ..PalletAantal
+			}
 			Set ..VoorraadInstelling.BestelMinimum = ..BerekendBestelQty
 			Set ..Calc = 2
 		}
@@ -110,43 +119,51 @@
 </Method>
 
 <Method name="BerekenBestelQty">
+<Private>1</Private>
 <Implementation><![CDATA[	Quit ..AankoopStatistiek()
 ]]></Implementation>
 </Method>
 
 <Method name="AankoopStatistiek">
 <Private>1</Private>
+<ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
- Set Begin = $H-150
- Set Key=""
- For  Set Key=$O(^PRHIST(..PRNr,Key),-1) Quit:Key=""  Do  Quit:Key=""
- . Set Rec=^PRHIST(..PRNr,Key)
- . If +$P(Rec,"\")<Begin Set Key="" Quit
- . If ($P(Rec,"\",5)'="M")&&($P(Rec,"\",5)'="W")&&($P(Rec,"\",5)'="K") Quit
- . If ($P(Rec,"\",4)'="I") Quit
- . Set Aantal=+$J($P(Rec,"\",2),0,0)
- . Quit:Aantal<0
- . Set arHist(Aantal)=$g(arHist(Aantal))+1
- ;k %arHist m %arHist=arHist zw %arHist
- If $D(arHist) Do
- . Set Aantal=""
- . For  Set Aantal=$O(arHist(Aantal)) Quit:Aantal=""  Do
- . . Set arSort(arHist(Aantal),Aantal)=""
- 
- . Set MaxVoorkomen=$O(arSort(""),-1) ; hoogst aantal voorkomen
- . Set MaxAantal=$O(arSort(MaxVoorkomen,"")) ; kleinste aantal
- . ;k %arSort m %arSort=arSort zw %arSort
+	#dim Aantal,arHist,arSort,MaxAantal,MaxVoorkomen As %Integer
+	#dim Begin As %Date
+	#dim Key,Rec As %String
+	Set Begin = $H-150
+	Set Key=""
+	For  Set Key=$O(^PRHIST(..PRNr,Key),-1) Quit:Key=""  Do  Quit:Key=""
+	. Set Rec=^PRHIST(..PRNr,Key)
+	. If +$P(Rec,"\")<Begin Set Key="" Quit
+	. If ($P(Rec,"\",5)'="M")&&($P(Rec,"\",5)'="W")&&($P(Rec,"\",5)'="K") Quit
+	. If ($P(Rec,"\",4)'="I") Quit
+	. Set Aantal=+$J($P(Rec,"\",2),0,0)
+	. Quit:Aantal<0
+	. Set arHist(Aantal)=$g(arHist(Aantal))+1
+	;k %arHist m %arHist=arHist zw %arHist
+	If $D(arHist) Do
+	. Set Aantal=""
+	. For  Set Aantal=$O(arHist(Aantal)) Quit:Aantal=""  Do
+	. . Set arSort(arHist(Aantal),Aantal)=""
 
- Else  Do
- . Set MaxAantal=""
+	. Set MaxVoorkomen=$O(arSort(""),-1) ; hoogst aantal voorkomen
+	. Set MaxAantal=$O(arSort(MaxVoorkomen,"")) ; kleinste aantal
+	. ;k %arSort m %arSort=arSort zw %arSort
 
- Quit MaxAantal
+	Else  Do
+	. Set MaxAantal=""
+
+	Quit MaxAantal
 ]]></Implementation>
 </Method>
 
 <Method name="AfrondingTotBeduidendeCijfers">
 <FormalSpec>Getal:%Decimal,MinBeduidendeCijfers:%Integer,AfrondenBeduidendeCijfers:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Decimal</ReturnType>
 <Implementation><![CDATA[
+	#dim BeduidendeCijfers As %Integer
 	Set:($G(AfrondenBeduidendeCijfers) = "")||(AfrondenBeduidendeCijfers > MinBeduidendeCijfers) AfrondenBeduidendeCijfers = MinBeduidendeCijfers
 	Set Getal = +$J(Getal,0,0)
 	Set BeduidendeCijfers = $L(Getal)
@@ -158,11 +175,14 @@
 
 <Method name="Afronding">
 <FormalSpec>Getal:%Decimal,Nauwkeurigheid:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Decimal</ReturnType>
 <Implementation><![CDATA[	Quit +$J(Getal / (10**Nauwkeurigheid),0,0) * (10**Nauwkeurigheid)
 ]]></Implementation>
 </Method>
 
 <Method name="VeiligheidsVoorraad">
+<Private>1</Private>
 <ReturnType>%Decimal</ReturnType>
 <Implementation><![CDATA[
 	#dim VeiligheidsVoorraad As %Decimal = ..ServiceGraad * ((..VoorraadInstelling.LeveringsDagen + ..VoorraadInstelling.ExtraLeveringsDagen)**.5) * ..StandaardAfwijking
@@ -172,7 +192,9 @@
 </Method>
 
 <Method name="BerekenLevertermijn">
+<Private>1</Private>
 <Implementation><![CDATA[
+	#dim IsBlum As %Boolean
 	#dim BLID As %String = $$GetBlumID^BLPROD(..PRNr)
 	Set IsBlum = $$$ProductGet(..PRNr,$$$LeveranciersNr)=$$$LevBlum
 	#dim LeveringsDagen As %Integer = $S(BLID'="":$P($G(^BLProd("D",BLID)),"\",10),1:0)