Index: AX/Uitgaand/PM/VrijgegProduct/impl/VoorraadInstellingCalculator.cls.xml
===================================================================
diff -u -r46425 -r46485
--- AX/Uitgaand/PM/VrijgegProduct/impl/VoorraadInstellingCalculator.cls.xml	(.../VoorraadInstellingCalculator.cls.xml)	(revision 46425)
+++ AX/Uitgaand/PM/VrijgegProduct/impl/VoorraadInstellingCalculator.cls.xml	(.../VoorraadInstellingCalculator.cls.xml)	(revision 46485)
@@ -11,11 +11,18 @@
 
 <Property name="ServiceGraad">
 <Type>%Decimal</Type>
-<InitialExpression>2.2</InitialExpression>
+<InitialExpression>2.5</InitialExpression>
 <Private>1</Private>
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Property name="Bufferweken">
+<Type>%Integer</Type>
+<InitialExpression>3</InitialExpression>
+<Private>1</Private>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Property name="GGWeekVerkoop">
 <Type>%Decimal</Type>
 <Private>1</Private>
@@ -46,6 +53,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="CalcVeiligheidVoorraad">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="SoprConvertor">
 <Type>AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor</Type>
 <Private>1</Private>
@@ -58,11 +70,12 @@
 
 <Method name="test">
 <Description>
-d ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).test(3292)
+d ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).test(254150)
 d ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).test(1259381) ; minipress</Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>PRNr:%String</FormalSpec>
 <Implementation><![CDATA[
+	Write PRNr," ",$$$PRGet($$$KortTekst),!
 	Set bl = ..%New()
 	Set VI = bl.Calculate(PRNr) Do DumpObject^%apiOBJ(bl), DumpObject^%apiOBJ(VI)
 ]]></Implementation>
@@ -145,7 +158,14 @@
 
 <Method name="BerekenBestelQty">
 <Private>1</Private>
-<Implementation><![CDATA[	Quit ..AankoopStatistiek()
+<Implementation><![CDATA[
+	#dim BestelAantal as %Decimal =..AankoopStatistiek()
+	#dim MinBestelHoeveelheid as %Decimal =$$$ProductGet(..PRNr,$$$MinimumBestelHoeveelheid)
+	If ($S(BestelAantal<MinBestelHoeveelheid:MinBestelHoeveelheid-BestelAantal,1:BestelAantal-MinBestelHoeveelheid)<(MinBestelHoeveelheid*.2))||(BestelAantal<MinBestelHoeveelheid)
+	{
+		Set BestelAantal=MinBestelHoeveelheid
+	}
+	Quit BestelAantal
 ]]></Implementation>
 </Method>
 
@@ -210,12 +230,37 @@
 <Private>1</Private>
 <ReturnType>%Decimal</ReturnType>
 <Implementation><![CDATA[
-	#dim VeiligheidsVoorraad As %Decimal = ..ServiceGraad * ((..VoorraadInstelling.LeveringsDagen + ..VoorraadInstelling.ExtraLeveringsDagen)/5**.5) * ..StandaardAfwijking
+	#dim VeiligheidsVoorraad As %Decimal = ..VeiligheidsVoorraadMetStdAfwijking()
+	Set ..CalcVeiligheidVoorraad="StdAfwijking"
+	#dim VeiligheidsVoorraadMetBufferweken As %Decimal = ..GGWeekVerkoop*..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
+		If VeiligheidsVoorraad<VeiligheidsVoorraadKleineAfname
+		{
+			Set VeiligheidsVoorraad = VeiligheidsVoorraadKleineAfname
+			Set ..CalcVeiligheidVoorraad="KleineAfname"
+		}
+	}
 	Set VeiligheidsVoorraad = ..AfrondingTotBeduidendeCijfers(VeiligheidsVoorraad,2)
 	Quit VeiligheidsVoorraad
 ]]></Implementation>
 </Method>
 
+<Method name="VeiligheidsVoorraadMetStdAfwijking">
+<Private>1</Private>
+<ReturnType>%Decimal</ReturnType>
+<Implementation><![CDATA[
+	#dim VeiligheidsVoorraad As %Decimal = ..ServiceGraad * ((..VoorraadInstelling.LeveringsDagen + ..VoorraadInstelling.ExtraLeveringsDagen)/5**.5) * ..StandaardAfwijking
+	Quit VeiligheidsVoorraad
+]]></Implementation>
+</Method>
+
 <Method name="BerekenLevertermijn">
 <Private>1</Private>
 <Implementation><![CDATA[