Index: vhUnitTest/AX/Uitgaand/PM/BehoeftePlanning/impl/BehoeftePlanningDixfConverter/Test.cls.xml
===================================================================
diff -u -r48106 -r48114
--- vhUnitTest/AX/Uitgaand/PM/BehoeftePlanning/impl/BehoeftePlanningDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 48106)
+++ vhUnitTest/AX/Uitgaand/PM/BehoeftePlanning/impl/BehoeftePlanningDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 48114)
@@ -18,8 +18,8 @@
 <Private>1</Private>
 </Property>
 
-<Property name="VoorraadInstellingCalculator">
-<Type>AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator</Type>
+<Property name="VeiligheidsVoorraadCalculator">
+<Type>AX.Uitgaand.PM.BehoeftePlanning.impl.VeiligheidsVoorraadCalculator</Type>
 <Private>1</Private>
 </Property>
 
@@ -35,7 +35,7 @@
 <Implementation><![CDATA[
 	Do ##super(aTestName)
 		
-	Set ..VoorraadInstellingCalculator = ##class(vhTest.Fake.AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).%New()
+	Set ..VeiligheidsVoorraadCalculator = ##class(vhTest.Fake.AX.Uitgaand.PM.BehoeftePlanning.impl.VeiligheidsVoorraadCalculator).%New()
 	Set ..Console = ##class(vhTest.Dummy.TECH.Console.Console).%New()
 	Set ..Utils = ##class(vhTest.Mock.AXimpl.Utils).%New()
 ]]></Implementation>
@@ -115,77 +115,27 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: MinInventOnhand is de VeiligheidsVoorraad volgens de VoorraadInstellingCalculator indien groter dan 0">
+<Method name="Test: Voor MinInventOnhand wordt de VeiligheidsVoorraadCalculator opgeroepen">
 <Implementation><![CDATA[
 	Set UtilsStub = ##class(vhTest.Mock.AXimpl.Utils).%New()
 	Do UtilsStub.IndienMethodCall("ConvertReqGroupId",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("ReqGroupId")
 	
-	Set VoorraadInstelling = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstelling).%New()
-	Set VoorraadInstelling.VeiligheidsVoorraad = 5
-	
-	Set ..VoorraadInstellingCalculator = ##class(vhTest.Mock.AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).%New()
-	Do ..VoorraadInstellingCalculator.IndienMethodCall("Calculate",..#ProductId).DanReturn(VoorraadInstelling)
-	
 	#dim AxProductBehoefte As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProductBehoefte()
 	
+	Set ..VeiligheidsVoorraadCalculator = ##class(vhTest.Mock.AX.Uitgaand.PM.BehoeftePlanning.impl.VeiligheidsVoorraadCalculator).%New()
+	Do ..VeiligheidsVoorraadCalculator.VerwachtMethodCall("GeefVeiligheidsVoorraad",AxProductBehoefte).DanReturn(5)
+	
 	Set ..Utils = UtilsStub
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
 	
 	#dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = ..GeefConverter().Convert(AxProductBehoefte,Vestiging)
 	
 	Do $$$AssertEquals(ConvertedProductBehoefte.MinInventOnhand,5)
+	Do ..VeiligheidsVoorraadCalculator.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: MinInventOnhand is ScanType indien groter dan 0 als de VeiligheidsVoorraad volgens de VoorraadInstellingCalculator NIET groter dan 0 is">
-<Implementation><![CDATA[
-	Set UtilsStub = ##class(vhTest.Mock.AXimpl.Utils).%New()
-	Do UtilsStub.IndienMethodCall("ConvertReqGroupId",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("ReqGroupId")
-	
-	Set VoorraadInstelling = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstelling).%New()
-	Set VoorraadInstelling.VeiligheidsVoorraad = 0
-	
-	Set ..VoorraadInstellingCalculator = ##class(vhTest.Mock.AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).%New()
-	Do ..VoorraadInstellingCalculator.IndienMethodCall("Calculate",..#ProductId).DanReturn(VoorraadInstelling)
-	
-	#dim AxProductBehoefte As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProductBehoefte()
-	Set AxProductBehoefte.Basis.ScanType = 7
-	
-	Set ..Utils = UtilsStub
-	
-	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
-	
-	#dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = ..GeefConverter().Convert(AxProductBehoefte,Vestiging)
-	
-	Do $$$AssertEquals(ConvertedProductBehoefte.MinInventOnhand,7)
-]]></Implementation>
-</Method>
-
-<Method name="Test: MinInventOnhand is leeg indien de VeiligheidsVoorraad volgens de VoorraadInstellingCalculator NIET groter dan 0 is en ScanType NIET groter dan 0 is">
-<Implementation><![CDATA[
-	Set UtilsStub = ##class(vhTest.Mock.AXimpl.Utils).%New()
-	Do UtilsStub.IndienMethodCall("ConvertReqGroupId",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("ReqGroupId")
-	
-	Set VoorraadInstelling = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstelling).%New()
-	Set VoorraadInstelling.VeiligheidsVoorraad = 0
-	
-	Set ..VoorraadInstellingCalculator = ##class(vhTest.Mock.AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).%New()
-	Do ..VoorraadInstellingCalculator.IndienMethodCall("Calculate",..#ProductId).DanReturn(VoorraadInstelling)
-	
-	#dim AxProductBehoefte As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProductBehoefte()
-	Set AxProductBehoefte.Basis.ScanType = 0
-	
-	Set ..Utils = UtilsStub
-	
-	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
-	
-	#dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = ..GeefConverter().Convert(AxProductBehoefte,Vestiging)
-	
-	Do $$$AssertEquals(ConvertedProductBehoefte.MinInventOnhand,"")
-]]></Implementation>
-</Method>
-
 <Method name="Test: Als MinInventOnhand leeg is dan wordt deze informatie weggeschreven in de console">
 <Implementation><![CDATA[
 	Set UtilsStub = ##class(vhTest.Mock.AXimpl.Utils).%New()
@@ -194,22 +144,20 @@
 	Set ConsoleMock = ##class(vhTest.Mock.TECH.Console.Console).%New()
 	Do ConsoleMock.VerwachtMethodCall("WriteLine",$$$ElkeWaarde).DanDoeNiks()
 	
-	Set VoorraadInstelling = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstelling).%New()
-	Set VoorraadInstelling.VeiligheidsVoorraad = 0
-	
-	Set ..VoorraadInstellingCalculator = ##class(vhTest.Mock.AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).%New()
-	Do ..VoorraadInstellingCalculator.IndienMethodCall("Calculate",..#ProductId).DanReturn(VoorraadInstelling)
-	
 	#dim AxProductBehoefte As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProductBehoefte()
-	Set AxProductBehoefte.Basis.ScanType = 0
 	
+	Set ..VeiligheidsVoorraadCalculator = ##class(vhTest.Mock.AX.Uitgaand.PM.BehoeftePlanning.impl.VeiligheidsVoorraadCalculator).%New()
+	Do ..VeiligheidsVoorraadCalculator.VerwachtMethodCall("GeefVeiligheidsVoorraad",AxProductBehoefte).DanReturn("")
+	
 	Set ..Utils = UtilsStub
 	Set ..Console = ConsoleMock
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
 	
 	#dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = ..GeefConverter().Convert(AxProductBehoefte,Vestiging)
 	
+	Do $$$AssertEquals(ConvertedProductBehoefte.MinInventOnhand,"")
+	Do ..VeiligheidsVoorraadCalculator.Verifieer()
 	Do ConsoleMock.Verifieer()
 ]]></Implementation>
 </Method>
@@ -219,15 +167,11 @@
 	Set UtilsStub = ##class(vhTest.Mock.AXimpl.Utils).%New()
 	Do UtilsStub.IndienMethodCall("ConvertReqGroupId",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("ReqGroupId")
 	
-	Set VoorraadInstelling = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstelling).%New()
-	Set VoorraadInstelling.VeiligheidsVoorraad = 0
-	
-	Set ..VoorraadInstellingCalculator = ##class(vhTest.Mock.AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).%New()
-	Do ..VoorraadInstellingCalculator.IndienMethodCall("Calculate",..#ProductId).DanReturn(VoorraadInstelling)
-	
 	#dim AxProductBehoefte As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProductBehoefte()
-	Set AxProductBehoefte.Basis.ScanType = 9
 	
+	Set ..VeiligheidsVoorraadCalculator = ##class(vhTest.Mock.AX.Uitgaand.PM.BehoeftePlanning.impl.VeiligheidsVoorraadCalculator).%New()
+	Do ..VeiligheidsVoorraadCalculator.IndienMethodCall("GeefVeiligheidsVoorraad",AxProductBehoefte).DanReturn(9)
+	
 	Set ..Utils = UtilsStub
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -269,7 +213,7 @@
 <Method name="GeefConverter">
 <Private>1</Private>
 <ReturnType>AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter</ReturnType>
-<Implementation><![CDATA[	Quit ##class(AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter).%New(..VoorraadInstellingCalculator,..Utils,..Console)
+<Implementation><![CDATA[	Quit ##class(AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter).%New(..VeiligheidsVoorraadCalculator,..Utils,..Console)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhTest/Mock/AX/Uitgaand/PM/BehoeftePlanning/impl/VeiligheidsVoorraadCalculator.cls.xml
===================================================================
diff -u
--- vhTest/Mock/AX/Uitgaand/PM/BehoeftePlanning/impl/VeiligheidsVoorraadCalculator.cls.xml	(revision 0)
+++ vhTest/Mock/AX/Uitgaand/PM/BehoeftePlanning/impl/VeiligheidsVoorraadCalculator.cls.xml	(revision 48114)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.AX.Uitgaand.PM.BehoeftePlanning.impl.VeiligheidsVoorraadCalculator">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>AX.Uitgaand.PM.BehoeftePlanning.impl.VeiligheidsVoorraadCalculator,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="GeefVeiligheidsVoorraad">
+<FormalSpec>ProductBehoefte:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefVeiligheidsVoorraad",ProductBehoefte)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/PM/BehoeftePlanning/impl/VeiligheidsVoorraadCalculator.cls.xml
===================================================================
diff -u -r48108 -r48114
--- AX/Uitgaand/PM/BehoeftePlanning/impl/VeiligheidsVoorraadCalculator.cls.xml	(.../VeiligheidsVoorraadCalculator.cls.xml)	(revision 48108)
+++ AX/Uitgaand/PM/BehoeftePlanning/impl/VeiligheidsVoorraadCalculator.cls.xml	(.../VeiligheidsVoorraadCalculator.cls.xml)	(revision 48114)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="AX.Uitgaand.PM.BehoeftePlanning.impl.VeiligheidsVoorraadCalculator">
-<Super>TECH.RegisteredObject</Super>
+<Super>TECH.RegisteredObject,TECH.Mockable</Super>
 
 <Property name="VoorraadInstellingCalculator">
 <Type>AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator</Type>
Index: AX/Uitgaand/PM/BehoeftePlanning/impl/BehoeftePlanningDixfConverter.cls.xml
===================================================================
diff -u -r45401 -r48114
--- AX/Uitgaand/PM/BehoeftePlanning/impl/BehoeftePlanningDixfConverter.cls.xml	(.../BehoeftePlanningDixfConverter.cls.xml)	(revision 45401)
+++ AX/Uitgaand/PM/BehoeftePlanning/impl/BehoeftePlanningDixfConverter.cls.xml	(.../BehoeftePlanningDixfConverter.cls.xml)	(revision 48114)
@@ -23,21 +23,21 @@
 <Private>1</Private>
 </Property>
 
-<Property name="VoorraadInstellingCalculator">
-<Type>AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator</Type>
+<Property name="VeiligheidsVoorraadCalculator">
+<Type>AX.Uitgaand.PM.BehoeftePlanning.impl.VeiligheidsVoorraadCalculator</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>VoorraadInstellingCalculator:AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator,Utils:AXimpl.Utils,Console:TECH.Console.Console</FormalSpec>
+<FormalSpec>VeiligheidsVoorraadCalculator:AX.Uitgaand.PM.BehoeftePlanning.impl.VeiligheidsVoorraadCalculator,Utils:AXimpl.Utils,Console:TECH.Console.Console</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..Console = $$$Inject(Console,##class(TECH.Context).Instance().GeefConsoleAPI())
 	Set ..Utils = $$$Inject(Utils,##class(AXimpl.Utils).%New())
-	Set ..VoorraadInstellingCalculator = $$$Inject(VoorraadInstellingCalculator,##class(AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).%New())
+	Set ..VeiligheidsVoorraadCalculator = $$$Inject(VeiligheidsVoorraadCalculator,##class(AX.Uitgaand.PM.BehoeftePlanning.impl.VeiligheidsVoorraadCalculator).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -48,7 +48,6 @@
 <Implementation><![CDATA[
 	Set ..AXBehoeftePlanning = ##class(AXdixf.BehoeftePlanning.BehoeftePlanning).%New()
 	
-	Do ..BerekenLeveringsModaliteiten(ProductBehoefte)
 	Do ..ConvertGemeenschappelijk(ProductBehoefte)
 	
 	If Vestiging = ##class(AXimpl.InterneFirmaInitialen).HaluxNv() {
@@ -70,8 +69,8 @@
 <Implementation><![CDATA[
 	Set ..AXBehoeftePlanning.InventLocationId = ""
 	Set ..AXBehoeftePlanning.ItemId = ProductBehoefte.Basis.IdentNummer
-	Set ..AXBehoeftePlanning.MaxInventOnhand = ..MinInventOnhand
-	Set ..AXBehoeftePlanning.MinInventOnhand = ..MinInventOnhand
+	Set ..AXBehoeftePlanning.MinInventOnhand = ..GeefMinInventOnhand(ProductBehoefte)
+	Set ..AXBehoeftePlanning.MaxInventOnhand = ..AXBehoeftePlanning.MinInventOnhand
 	Set ..AXBehoeftePlanning.NameAlias = ##class(TECH.StringUtils).StringStrippenVanLeestekensSpatiesTabs(ProductBehoefte.Basis.KortTekst) // Voor ASP'ers
 	Set ..AXBehoeftePlanning.LeverancierNaam = ProductBehoefte.Prijs.Leverancier.Naam // Voor ASP'ers
 ]]></Implementation>
@@ -97,26 +96,19 @@
 ]]></Implementation>
 </Method>
 
-<Method name="BerekenLeveringsModaliteiten">
+<Method name="GeefMinInventOnhand">
 <FormalSpec>ProductBehoefte:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim ScanType As %Integer = ProductBehoefte.Basis.ScanType
-	#dim VoorraadInstelling As AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstelling = ..VoorraadInstellingCalculator.Calculate(ProductBehoefte.BasisGetObjectId())
-	#dim VeiligheidsVoorraad As %Integer = VoorraadInstelling.VeiligheidsVoorraad
+	#dim VeiligheidsVoorraad As %String = ..VeiligheidsVoorraadCalculator.GeefVeiligheidsVoorraad(ProductBehoefte)
 	
-	If (VeiligheidsVoorraad > 0) {
-		Set ..MinInventOnhand = VeiligheidsVoorraad
-	} ElseIf (ScanType > 0) {
-		Set ..MinInventOnhand = ScanType
-	} Else {
+	If (VeiligheidsVoorraad = "") {
 		Do ..Console.WriteLine("Voor product "_##class(TECH.StringUtils).AddTrailingSpace(ProductBehoefte.Basis.IdentNummer,12)
 		_" - "_##class(TECH.StringUtils).AddTrailingSpace(ProductBehoefte.Basis.KortTekst,25)_" is geen veiligheidsvoorraad voorzien momenteel.")
-		Set ..MinInventOnhand = ""
 	}
 	
-	Quit
+	Quit VeiligheidsVoorraad
 ]]></Implementation>
 </Method>
 </Class>
Index: vhTest/Fake/AX/Uitgaand/PM/BehoeftePlanning/impl/VeiligheidsVoorraadCalculator.cls.xml
===================================================================
diff -u
--- vhTest/Fake/AX/Uitgaand/PM/BehoeftePlanning/impl/VeiligheidsVoorraadCalculator.cls.xml	(revision 0)
+++ vhTest/Fake/AX/Uitgaand/PM/BehoeftePlanning/impl/VeiligheidsVoorraadCalculator.cls.xml	(revision 48114)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.AX.Uitgaand.PM.BehoeftePlanning.impl.VeiligheidsVoorraadCalculator">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>AX.Uitgaand.PM.BehoeftePlanning.impl.VeiligheidsVoorraadCalculator</Super>
+
+<Method name="GeefVeiligheidsVoorraad">
+<FormalSpec>ProductBehoefte:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>