Index: AX/Uitgaand/PM/VrijgegProduct/impl/VoorraadInstellingCalculator.cls.xml
===================================================================
diff -u -r44207 -r46425
--- AX/Uitgaand/PM/VrijgegProduct/impl/VoorraadInstellingCalculator.cls.xml	(.../VoorraadInstellingCalculator.cls.xml)	(revision 44207)
+++ AX/Uitgaand/PM/VrijgegProduct/impl/VoorraadInstellingCalculator.cls.xml	(.../VoorraadInstellingCalculator.cls.xml)	(revision 46425)
@@ -11,7 +11,7 @@
 
 <Property name="ServiceGraad">
 <Type>%Decimal</Type>
-<InitialExpression>2</InitialExpression>
+<InitialExpression>2.2</InitialExpression>
 <Private>1</Private>
 <ReadOnly>1</ReadOnly>
 </Property>
@@ -58,7 +58,7 @@
 
 <Method name="test">
 <Description>
-d ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).test(1259381)
+d ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).test(3292)
 d ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).test(1259381) ; minipress</Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>PRNr:%String</FormalSpec>
@@ -97,21 +97,26 @@
 	If $$$ProductGet(..PRNr,$$$StockType)  ; stock of beperkt
 	{
 		Set ..VoorraadInstelling.VeiligheidsVoorraad = ..VeiligheidsVoorraad()
+		If $$$ProductGet(..PRNr,$$$ScanType)?1.N  ; Geen simulatie maar limiet
+		{
+			Set:..VoorraadInstelling.VeiligheidsVoorraad<$$$ProductGet(..PRNr,$$$ScanType) ..VoorraadInstelling.VeiligheidsVoorraad=$$$ProductGet(..PRNr,$$$ScanType)
+		}
+		
 		Set ..BerekendBestelQty = ..BerekenBestelQty()
 		If +$$$ProductGet(..PRNr,$$$ScanType) > 0
 		{
 			Set ..Calc = "L"
 			Set ..VoorraadInstelling.VeiligheidsVoorraad = +$$$ProductGet(..PRNr,$$$ScanType)
 			Set ..VoorraadInstelling.JaarVerkoop = 0
 		}
-		ElseIf ..BerekendBestelQty < ..VoorraadInstelling.BestelMinimum
+		ElseIf (..BerekendBestelQty < ..VoorraadInstelling.BestelMinimum) && ($$$ProductGet(..PRNr,$$$ScanType)'="L")
 		{
 			; volgens definitie van de leverancier
 			Set ..Calc = 1
 			;Set ..VoorraadInstelling.BestelMinimum = ..BerekendBestelQty
 
 		}
-		ElseIf (..BerekendBestelQty > ..PalletAantal) && (..PalletAantal > 0)	
+		ElseIf (..BerekendBestelQty '< ..PalletAantal) && (..PalletAantal > 0)	
 		{
 			#dim LeverancierNummer As %String = $$$ProductGet(..PRNr,$$$LeveranciersNr)
 			#dim IsBlum As %Boolean = (LeverancierNummer = "5005")
@@ -205,7 +210,7 @@
 <Private>1</Private>
 <ReturnType>%Decimal</ReturnType>
 <Implementation><![CDATA[
-	#dim VeiligheidsVoorraad As %Decimal = ..ServiceGraad * ((..VoorraadInstelling.LeveringsDagen + ..VoorraadInstelling.ExtraLeveringsDagen)**.5) * ..StandaardAfwijking
+	#dim VeiligheidsVoorraad As %Decimal = ..ServiceGraad * ((..VoorraadInstelling.LeveringsDagen + ..VoorraadInstelling.ExtraLeveringsDagen)/5**.5) * ..StandaardAfwijking
 	Set VeiligheidsVoorraad = ..AfrondingTotBeduidendeCijfers(VeiligheidsVoorraad,2)
 	Quit VeiligheidsVoorraad
 ]]></Implementation>
@@ -218,6 +223,7 @@
 	#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)
+	If $$$ProductGet(..PRNr,$$$ScanType)="L" Set LeveringsDagen=4
 	If +LeveringsDagen = 0 Set BLID = ""
 	If +LeveringsDagen = 0 Set LeveringsDagen = $$$ProductGet(..PRNr,$$$LeveringsTermijn) * 5
 	Set ..VoorraadInstelling.LeveringsDagen = LeveringsDagen+$S(BLID="":0,1:2)