Index: AX/Uitgaand/PM/VrijgegProduct/impl/VoorraadInstellingCalculator.cls.xml
===================================================================
diff -u -r42859 -r42976
--- AX/Uitgaand/PM/VrijgegProduct/impl/VoorraadInstellingCalculator.cls.xml	(.../VoorraadInstellingCalculator.cls.xml)	(revision 42859)
+++ AX/Uitgaand/PM/VrijgegProduct/impl/VoorraadInstellingCalculator.cls.xml	(.../VoorraadInstellingCalculator.cls.xml)	(revision 42976)
@@ -6,10 +6,14 @@
 
 <Property name="PRNr">
 <Type>%String</Type>
+<Private>1</Private>
 </Property>
 
 <Property name="ServiceGraad">
 <Type>%Decimal</Type>
+<InitialExpression>2</InitialExpression>
+<Private>1</Private>
+<ReadOnly>1</ReadOnly>
 </Property>
 
 <Property name="GGWeekVerkoop">
@@ -39,20 +43,13 @@
 
 <Method name="test">
 <Description>
-d ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).test(562188)
-d ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).test(6818) ; minipress</Description>
+d ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).test(1259381)
+d ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).test(1259381) ; minipress</Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>PRNr:%String</FormalSpec>
-<ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
-	Set:'$G(PRNr) PRNr=$$SELECT^PRODUKT6()
-	Q:'PRNr
-	W @F11,@F1
-	Set BL = ..%New()
-	
-	Set VI=BL.Calculate(PRNr) 
-	Do DumpObject^%apiOBJ(VI)
-	Do DumpObject^%apiOBJ(BL)
+	Set bl = ..%New()
+	Set VI = bl.Calculate(PRNr) Do DumpObject^%apiOBJ(bl), DumpObject^%apiOBJ(VI)
 ]]></Implementation>
 </Method>
 
@@ -62,7 +59,6 @@
 <Implementation><![CDATA[
 	Set ..VoorraadInstelling = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstelling).%New()
 	Set ..PRNr = PRNr
-	Set ..ServiceGraad = 2
 
 	Set ..GGWeekVerkoop=$P($$$ProductGet(..PRNr,$$$GGWeekVerkoop),"#")
 	Set ..VoorraadInstelling.JaarVerkoop = ..AfrondingTotBeduidendeCijfers(..GGWeekVerkoop*48,3)
@@ -72,7 +68,6 @@
 	Set ..PalletAantal = $$$ProductGet(..PRNr,$$$PalletQty)
 	Set ..VoorraadInstelling.BestelVeelvoud = $$$ProductGet(..PRNr,$$$GrootVerpakking)
 	Set ..VoorraadInstelling.BestelMinimum = $$$ProductGet(..PRNr,$$$MinimumBestelHoeveelheid)
-	Set:..VoorraadInstelling.BestelVeelvoud>..VoorraadInstelling.BestelMinimum ..VoorraadInstelling.BestelVeelvoud=..VoorraadInstelling.BestelMinimum
 	
 	If $$$ProductGet(..PRNr,$$$StockType)  ; stock of beperkt
 	{
@@ -91,7 +86,7 @@
 			;Set ..VoorraadInstelling.BestelMinimum = ..BerekendBestelQty
 
 		}
-		ElseIf (..BerekendBestelQty '< ..PalletAantal) && (..PalletAantal > 0)	
+		ElseIf (..BerekendBestelQty > ..PalletAantal) && (..PalletAantal > 0)	
 		{
 			Set ..VoorraadInstelling.BestelVeelvoud = ..PalletAantal
 			Set ..VoorraadInstelling.BestelMinimum = ..BerekendBestelQty