Index: AX/Uitgaand/PM/VrijgegProduct/impl/VoorraadInstellingCalculator.cls.xml
===================================================================
diff -u -r42330 -r42795
--- AX/Uitgaand/PM/VrijgegProduct/impl/VoorraadInstellingCalculator.cls.xml	(.../VoorraadInstellingCalculator.cls.xml)	(revision 42330)
+++ AX/Uitgaand/PM/VrijgegProduct/impl/VoorraadInstellingCalculator.cls.xml	(.../VoorraadInstellingCalculator.cls.xml)	(revision 42795)
@@ -6,39 +6,30 @@
 
 <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">
 <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">
@@ -48,11 +39,20 @@
 
 <Method name="test">
 <Description>
-d ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).test(3551)
+d ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).test(562188)
 d ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).test(6818) ; minipress</Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>PRNr:%String</FormalSpec>
-<Implementation><![CDATA[	Set VI = ..%New().Calculate(PRNr) Do DumpObject^%apiOBJ(VI)
+<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)
 ]]></Implementation>
 </Method>
 
@@ -62,6 +62,7 @@
 <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)
@@ -71,6 +72,7 @@
 	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
 	{
@@ -89,7 +91,7 @@
 			Set ..VoorraadInstelling.BestelMinimum = ..BerekendBestelQty
 
 		}
-		ElseIf (..BerekendBestelQty > ..PalletAantal) && (..PalletAantal > 0)	
+		ElseIf (..BerekendBestelQty '< ..PalletAantal) && (..PalletAantal > 0)	
 		{
 			Set ..VoorraadInstelling.BestelVeelvoud = ..PalletAantal
 			Set ..VoorraadInstelling.BestelMinimum = ..BerekendBestelQty