Index: vhUnitTest/AX/Uitgaand/PM/BehoeftePlanning/impl/BehoeftePlanningDixfConverter/Test.cls.xml
===================================================================
diff -u -r43369 -r43384
--- vhUnitTest/AX/Uitgaand/PM/BehoeftePlanning/impl/BehoeftePlanningDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 43369)
+++ vhUnitTest/AX/Uitgaand/PM/BehoeftePlanning/impl/BehoeftePlanningDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 43384)
@@ -34,12 +34,10 @@
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
 	Do ##super(aTestName)
-	#dim ConsoleStub = ##class(vhTest.Mock.TECH.Console.Console).%New()
-	#dim UtilsStub = ##class(vhTest.Mock.AXimpl.Utils).%New()
 		
 	Set ..VoorraadInstellingCalculator = ##class(vhTest.Fake.AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).%New()
-	Set ..Console = ConsoleStub
-	Set ..Utils = UtilsStub
+	Set ..Console = ##class(vhTest.Dummy.TECH.Console.Console).%New()
+	Set ..Utils = ##class(vhTest.Mock.AXimpl.Utils).%New()
 ]]></Implementation>
 </Method>
 
@@ -52,11 +50,13 @@
 
 <Method name="Test: Zijn alle defaults goed voor Halux">
 <Implementation><![CDATA[
-	Do ..Utils.IndienMethodCall("ConvertReqGroupId",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("ReqGroupId")
-	Do ..Console.IndienMethodCall("WriteLine",$$$ElkeWaarde).DanDoeNiks()
+	Set UtilsStub = ##class(vhTest.Mock.AXimpl.Utils).%New()
+	Do UtilsStub.IndienMethodCall("ConvertReqGroupId",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("ReqGroupId")
 	
 	#dim AxProductBehoefte As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProductBehoefte()
 
+	Set ..Utils = UtilsStub
+	
 	#dim Converter As AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).HaluxNv()
@@ -70,10 +70,12 @@
 
 <Method name="Test: Zijn alle defaults goed voor Van Hoecke">
 <Implementation><![CDATA[
-	Do ..Utils.IndienMethodCall("ConvertReqGroupId",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("ReqGroupId")
-	Do ..Console.IndienMethodCall("WriteLine",$$$ElkeWaarde).DanDoeNiks()
+	Set UtilsStub = ##class(vhTest.Mock.AXimpl.Utils).%New()
+	Do UtilsStub.IndienMethodCall("ConvertReqGroupId",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("ReqGroupId")
 	
 	#dim AxProductBehoefte As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProductBehoefte()
+	
+	Set ..Utils = UtilsStub
 
 	#dim Converter As AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter = ..GeefConverter()
 	
@@ -88,11 +90,13 @@
 
 <Method name="Test: Het AX veld ItemId is het IdentNummer">
 <Implementation><![CDATA[
-	Do ..Utils.IndienMethodCall("ConvertReqGroupId",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("ReqGroupId")
-	Do ..Console.IndienMethodCall("WriteLine",$$$ElkeWaarde).DanDoeNiks()
+	Set UtilsStub = ##class(vhTest.Mock.AXimpl.Utils).%New()
+	Do UtilsStub.IndienMethodCall("ConvertReqGroupId",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("ReqGroupId")
 	
 	#dim AxProductBehoefte As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProductBehoefte()
 	Set AxProductBehoefte.Basis.IdentNummer = "1.234.567.8"
+	
+	Set ..Utils = UtilsStub
 
 	#dim Converter As AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter = ..GeefConverter()
 	
@@ -106,17 +110,19 @@
 
 <Method name="Test: MinInventOnhand is de VeiligheidsVoorraad volgens de VoorraadInstellingCalculator indien groter dan 0">
 <Implementation><![CDATA[
-	Do ..Utils.IndienMethodCall("ConvertReqGroupId",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("ReqGroupId")
-	Do ..Console.IndienMethodCall("WriteLine",$$$ElkeWaarde).DanDoeNiks()
+	Set UtilsStub = ##class(vhTest.Mock.AXimpl.Utils).%New()
+	Do UtilsStub.IndienMethodCall("ConvertReqGroupId",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("ReqGroupId")
 	
-	#dim VoorraadInstelling As AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstelling = ..VoorraadInstellingCalculator.Calculate()
+	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 ..Utils = UtilsStub
+	
 	#dim Converter As AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -129,10 +135,10 @@
 
 <Method name="Test: MinInventOnhand is ScanType indien groter dan 0 als de VeiligheidsVoorraad volgens de VoorraadInstellingCalculator NIET groter dan 0 is">
 <Implementation><![CDATA[
-	Do ..Utils.IndienMethodCall("ConvertReqGroupId",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("ReqGroupId")
-	Do ..Console.IndienMethodCall("WriteLine",$$$ElkeWaarde).DanDoeNiks()
+	Set UtilsStub = ##class(vhTest.Mock.AXimpl.Utils).%New()
+	Do UtilsStub.IndienMethodCall("ConvertReqGroupId",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("ReqGroupId")
 	
-	#dim VoorraadInstelling As AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstelling = ..VoorraadInstellingCalculator.Calculate()
+	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()
@@ -141,6 +147,8 @@
 	#dim AxProductBehoefte As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProductBehoefte()
 	Set AxProductBehoefte.Basis.ScanType = 7
 	
+	Set ..Utils = UtilsStub
+	
 	#dim Converter As AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -153,10 +161,10 @@
 
 <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[
-	Do ..Utils.IndienMethodCall("ConvertReqGroupId",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("ReqGroupId")
-	Do ..Console.IndienMethodCall("WriteLine",$$$ElkeWaarde).DanDoeNiks()
+	Set UtilsStub = ##class(vhTest.Mock.AXimpl.Utils).%New()
+	Do UtilsStub.IndienMethodCall("ConvertReqGroupId",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("ReqGroupId")
 	
-	#dim VoorraadInstelling As AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstelling = ..VoorraadInstellingCalculator.Calculate()
+	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()
@@ -165,6 +173,8 @@
 	#dim AxProductBehoefte As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProductBehoefte()
 	Set AxProductBehoefte.Basis.ScanType = 0
 	
+	Set ..Utils = UtilsStub
+	
 	#dim Converter As AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -177,10 +187,13 @@
 
 <Method name="Test: Als MinInventOnhand leeg is dan wordt deze informatie weggeschreven in de console">
 <Implementation><![CDATA[
-	Do ..Utils.IndienMethodCall("ConvertReqGroupId",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("ReqGroupId")
-	Do ..Console.VerwachtMethodCall("WriteLine",$$$ElkeWaarde).DanDoeNiks()
+	Set UtilsStub = ##class(vhTest.Mock.AXimpl.Utils).%New()
+	Do UtilsStub.IndienMethodCall("ConvertReqGroupId",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("ReqGroupId")
 	
-	#dim VoorraadInstelling As AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstelling = ..VoorraadInstellingCalculator.Calculate()
+	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()
@@ -189,22 +202,25 @@
 	#dim AxProductBehoefte As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProductBehoefte()
 	Set AxProductBehoefte.Basis.ScanType = 0
 	
+	Set ..Utils = UtilsStub
+	Set ..Console = ConsoleMock
+	
 	#dim Converter As AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
 	
 	#dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = Converter.Convert(AxProductBehoefte,Vestiging)
 	
-	Do ..Console.Verifieer()
+	Do ConsoleMock.Verifieer()
 ]]></Implementation>
 </Method>
 
 <Method name="Test: MaxInventOnhand is hetzelfde als MinInventOnhand">
 <Implementation><![CDATA[
-	Do ..Utils.IndienMethodCall("ConvertReqGroupId",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("ReqGroupId")
-	Do ..Console.IndienMethodCall("WriteLine",$$$ElkeWaarde).DanDoeNiks()
+	Set UtilsStub = ##class(vhTest.Mock.AXimpl.Utils).%New()
+	Do UtilsStub.IndienMethodCall("ConvertReqGroupId",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("ReqGroupId")
 	
-	#dim VoorraadInstelling As AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstelling = ..VoorraadInstellingCalculator.Calculate()
+	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()
@@ -213,6 +229,8 @@
 	#dim AxProductBehoefte As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProductBehoefte()
 	Set AxProductBehoefte.Basis.ScanType = 9
 	
+	Set ..Utils = UtilsStub
+	
 	#dim Converter As AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -225,10 +243,12 @@
 
 <Method name="Test: Voor bepaling ReqGroupId wordt ConvertReqGroupId van Utils gecalld">
 <Implementation><![CDATA[
-	Do ..Console.IndienMethodCall("WriteLine",$$$ElkeWaarde).DanDoeNiks()
-	Do ..Utils.VerwachtMethodCall("ConvertReqGroupId",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("ReqGroupId")
+	Set UtilsMock = ##class(vhTest.Mock.AXimpl.Utils).%New()
+	Do UtilsMock.VerwachtMethodCall("ConvertReqGroupId",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("ReqGroupId")
 	
 	#dim AxProductBehoefte As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProductBehoefte()
+	
+	Set ..Utils = UtilsMock
 
 	#dim Converter As AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter = ..GeefConverter()
 	
@@ -237,7 +257,7 @@
 	#dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = Converter.Convert(AxProductBehoefte,Vestiging)
 	
 	Do $$$AssertEquals(ConvertedProductBehoefte.ReqGroupId,"ReqGroupId")
-	Do ..Utils.Verifieer()
+	Do UtilsMock.Verifieer()
 ]]></Implementation>
 </Method>