Index: AX/Uitgaand/PM/VrijgegProduct/impl/VoorraadInstellingCalculator.cls.xml
===================================================================
diff -u -r46485 -r46493
--- AX/Uitgaand/PM/VrijgegProduct/impl/VoorraadInstellingCalculator.cls.xml	(.../VoorraadInstellingCalculator.cls.xml)	(revision 46485)
+++ AX/Uitgaand/PM/VrijgegProduct/impl/VoorraadInstellingCalculator.cls.xml	(.../VoorraadInstellingCalculator.cls.xml)	(revision 46493)
@@ -1,21 +1,40 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator">
-<IncludeCode>Prod.Product,BL.Derde.LevSpecifiek</IncludeCode>
+<IncludeCode>Prod.Product,BL.Derde.LevSpecifiek,BL.Derde.KlantSpecifiek</IncludeCode>
 <Super>TECH.RegisteredObject,TECH.Mockable</Super>
 
 <Property name="PRNr">
 <Type>%String</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="ServiceGraad">
+<Property name="ServiceGraadBeslag">
 <Type>%Decimal</Type>
-<InitialExpression>2.5</InitialExpression>
+<InitialExpression>2.2</InitialExpression>
 <Private>1</Private>
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Property name="ServiceGraadBeslagEnComponent">
+<Type>%Decimal</Type>
+<InitialExpression>2.4</InitialExpression>
+<Private>1</Private>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="ServiceGraadComponent">
+<Type>%Decimal</Type>
+<InitialExpression>2.6</InitialExpression>
+<Private>1</Private>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="GebruikBeslagComponent">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Bufferweken">
 <Type>%Integer</Type>
 <InitialExpression>3</InitialExpression>
@@ -48,6 +67,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="BeginDatumGebruik">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Calc">
 <Type>%String</Type>
 <Private>1</Private>
@@ -85,6 +109,7 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..SoprConvertor= ##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
+	Set ..BeginDatumGebruik="2017.01 "
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -252,11 +277,41 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefServiceGraad">
+<Implementation><![CDATA[
+	Set ..GebruikBeslagComponent=..GebruiktDoorHalux()
+	If ..GebruikBeslagComponent="COMPONENT"
+	{
+		Set ServiceGraad=..ServiceGraadComponent
+	}
+	ElseIf ..GebruikBeslagComponent="BESLAGCOMPONENT"
+	{
+		Set ServiceGraad=..ServiceGraadBeslagEnComponent
+	}
+	Else 
+	{
+		Set ServiceGraad=..ServiceGraadBeslag
+	}	
+	Quit ServiceGraad
+]]></Implementation>
+</Method>
+
+<Method name="GebruiktDoorHalux">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set JaarVerkoopHalux=$$PROD^STAT(..PRNr,$$$KlantHalux,..BeginDatumGebruik,"",1)
+	Set JaarVerkoop=$$PROD^STAT(..PRNr,0,..BeginDatumGebruik,"",1)
+	Quit:JaarVerkoopHalux<(JaarVerkoop*.05) "BESLAG"
+	Quit:JaarVerkoopHalux<(JaarVerkoop*.5) "BESLAGCOMPONENT"
+	Quit "COMPONENT"
+]]></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
+	#dim VeiligheidsVoorraad As %Decimal = ..GeefServiceGraad() * ((..VoorraadInstelling.LeveringsDagen + ..VoorraadInstelling.ExtraLeveringsDagen)/5**.5) * ..StandaardAfwijking
 	Quit VeiligheidsVoorraad
 ]]></Implementation>
 </Method>