Index: vhTest/Fake/Prod/VoorraadBeweging.cls.xml
===================================================================
diff -u -r41523 -r41524
--- vhTest/Fake/Prod/VoorraadBeweging.cls.xml	(.../VoorraadBeweging.cls.xml)	(revision 41523)
+++ vhTest/Fake/Prod/VoorraadBeweging.cls.xml	(.../VoorraadBeweging.cls.xml)	(revision 41524)
@@ -19,7 +19,6 @@
 <Type>%Library.String</Type>
 <Collection/>
 <Relationship>0</Relationship>
-<Parameter name="TRUNCATE" value="1"/>
 </Property>
 
 <Property name="FSCCode">
@@ -34,7 +33,6 @@
 <Type>%Library.String</Type>
 <Collection/>
 <Relationship>0</Relationship>
-<Parameter name="TRUNCATE" value="1"/>
 </Property>
 
 <Property name="Gebruiker">
@@ -69,7 +67,6 @@
 <Type>%Library.String</Type>
 <Collection/>
 <Relationship>0</Relationship>
-<Parameter name="TRUNCATE" value="1"/>
 </Property>
 
 <Property name="Product">
Index: vhTest/Fake/BL/Prod/VoorraadBewegingService.cls.xml
===================================================================
diff -u -r41517 -r41524
--- vhTest/Fake/BL/Prod/VoorraadBewegingService.cls.xml	(.../VoorraadBewegingService.cls.xml)	(revision 41517)
+++ vhTest/Fake/BL/Prod/VoorraadBewegingService.cls.xml	(.../VoorraadBewegingService.cls.xml)	(revision 41524)
@@ -10,7 +10,7 @@
 <Method name="GeefEersteVoorraadBeweging">
 <FormalSpec>ProductId:%String,Type:%String=""</FormalSpec>
 <ReturnType>Prod.VoorraadBeweging</ReturnType>
-<Implementation><![CDATA[	Quit ""
+<Implementation><![CDATA[	Quit ##class(vhTest.Fake.Prod.VoorraadBeweging).%New()
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml
===================================================================
diff -u -r41523 -r41524
--- vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 41523)
+++ vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 41524)
@@ -3,18 +3,38 @@
 <Class name="vhUnitTest.AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter.Test">
 <Super>vhUnitTest.TestCase</Super>
 
+<Property name="DataDefinitieService">
+<Type>BL.Prod.Kenmerk.DataDefinitieService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VoorraadBewegingService">
+<Type>BL.Prod.VoorraadBewegingService</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ##super(aTestName)
+	set ..DataDefinitieService = ##class(vhTest.Fake.BL.Prod.Kenmerk.DataDefinitieService).%New()
+	set ..VoorraadBewegingService = ##class(vhTest.Fake.BL.Prod.VoorraadBewegingService).%New()
+]]></Implementation>
+</Method>
+
 <Method name="Test: Zijn alle defaults goed voor Van Hoecke">
 <Implementation><![CDATA[
 	#dim IdentNummerLijst As %List = $ListBuild("1234")
-	Set DataDefinitieService = ##class(vhTest.Mock.BL.Prod.Kenmerk.DataDefinitieService).%New()
-	Do DataDefinitieService.IndienMethodCall("GeefDefinitie","OEI","","AliasI").DanReturn(IdentNummerLijst)
+	Set ..DataDefinitieService = ##class(vhTest.Mock.BL.Prod.Kenmerk.DataDefinitieService).%New()
+	Do ..DataDefinitieService.IndienMethodCall("GeefDefinitie","OEI","","AliasI").DanReturn(IdentNummerLijst)
 	
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
 	
 	Set AxProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(DataDefinitieService)
 	
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
+	
 	#dim ConvertedProduct As AXdixf.VrijgegProduct.VrijgegProduct = Converter.ConvertVanHoecke(AxProduct)
 	
 	Do $$$AssertEquals(ConvertedProduct.AltItemId,"1234")
@@ -95,14 +115,15 @@
 <Method name="Test: Zijn alle defaults goed voor Halux">
 <Implementation><![CDATA[
 	#dim IdentNummerLijst As %List = $ListBuild("1234")
-	Set DataDefinitieService = ##class(vhTest.Mock.BL.Prod.Kenmerk.DataDefinitieService).%New()
-	Do DataDefinitieService.IndienMethodCall("GeefDefinitie","OEI","","AliasI").DanReturn(IdentNummerLijst)
+	Set ..DataDefinitieService = ##class(vhTest.Mock.BL.Prod.Kenmerk.DataDefinitieService).%New()
+	Do ..DataDefinitieService.IndienMethodCall("GeefDefinitie","OEI","","AliasI").DanReturn(IdentNummerLijst)
 	
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(05497)
 	
 	Set AxProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(DataDefinitieService)
+
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	
 	#dim ConvertedProduct As AXdixf.VrijgegProduct.VrijgegProduct = Converter.ConvertHalux(AxProduct)
 	
@@ -197,7 +218,7 @@
 	Set AxProduct.Prijs.NormaleVerpakking = ""
 	Set AxProduct.Prijs.GrootVerpakking = "BigOne"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	
 	#dim Verpakking As %String = Converter.BepaalVerpakking(AxProduct)
 		
@@ -215,7 +236,7 @@
 	Set AxProduct.Prijs.NormaleVerpakking = "MediumOne"
 	Set AxProduct.Prijs.GrootVerpakking = "BigOne"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	
 	#dim Verpakking As %String = Converter.BepaalVerpakking(AxProduct)
 	
@@ -233,7 +254,7 @@
 	Set AxProduct.Prijs.NormaleVerpakking = "MediumOne"
 	Set AxProduct.Prijs.GrootVerpakking = "BigOne"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	
 	#dim Verpakking As %String = Converter.BepaalVerpakking(AxProduct)
 	
@@ -249,7 +270,7 @@
 	Set AxProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	Set AxProduct.Basis.LinkType = "S"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	
 	#dim DefaultOrderTypeVH As %String = Converter.BepaalDefaultOrderTypeVH(AxProduct)
 	
@@ -265,7 +286,7 @@
 	Set AxProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	Set AxProduct.Basis.LinkType = "S"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	
 	#dim DefaultOrderTypeVH As %String = Converter.BepaalDefaultOrderTypeVH(AxProduct)
 	
@@ -281,7 +302,7 @@
 	Set AxProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	Set AxProduct.Basis.LinkType = ""
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	
 	#dim DefaultOrderTypeVH As %String = Converter.BepaalDefaultOrderTypeVH(AxProduct)
 	
@@ -295,7 +316,7 @@
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
 	
 	Set AxProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	
 	#dim DefaultOrderTypeHLX As %String = Converter.BepaalDefaultOrderTypeHLX(AxProduct)
 	
@@ -309,7 +330,7 @@
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(5005)
 	
 	Set AxProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	
 	#dim DefaultOrderTypeHLX As %String = Converter.BepaalDefaultOrderTypeHLX(AxProduct)
 	
@@ -325,7 +346,7 @@
 	Set AxProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	Set AxProduct.Prijs.VerpakkingsProduct = ""
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	
 	#dim InventItemInventSetupLowestQty As %String = Converter.BepaalInventItemInventSetupLowestQty(AxProduct)
 	
@@ -341,7 +362,7 @@
 	Set AxProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	Set AxProduct.Prijs.VerpakkingsProduct = ##class(Prod.Product).%New()
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	
 	#dim InventItemInventSetupLowestQty As %String = Converter.BepaalInventItemInventSetupLowestQty(AxProduct)
 	
@@ -358,7 +379,7 @@
 	Set AxProduct.Prijs.VerpakkingsProduct = ##class(Prod.Product).%New()
 	Set AxProduct.Prijs.KleinVerpakking = "LittleOne"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	
 	#dim InventItemInventSetupLowestQty As %String = Converter.BepaalInventItemInventSetupLowestQty(AxProduct)
 	
@@ -374,7 +395,7 @@
 	Set AxProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	Set AxProduct.Prijs.VerpakkingsProduct = ""
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	
 	#dim InventItemInventSetupStandardQty As %String = Converter.BepaalInventItemInventSetupStandardQty(AxProduct)
 	
@@ -390,7 +411,7 @@
 	Set AxProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	Set AxProduct.Prijs.VerpakkingsProduct = ##class(Prod.Product).%New()
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	
 	#dim InventItemInventSetupStandardQty As %String = Converter.BepaalInventItemInventSetupStandardQty(AxProduct)
 	
@@ -407,7 +428,7 @@
 	Set AxProduct.Prijs.VerpakkingsProduct = ##class(Prod.Product).%New()
 	Set AxProduct.Prijs.KleinVerpakking = "LittleOne"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	
 	#dim InventItemInventSetupStandardQty As %String = Converter.BepaalInventItemInventSetupStandardQty(AxProduct)
 	
@@ -427,7 +448,7 @@
 	Set AxProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	Set AxProduct.Basis.LinkType = "S"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(DataDefinitieService)
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	#dim ConvertedProduct As %String = Converter.ConvertVanHoecke(AxProduct)
 	
 	Do $$$AssertEquals(ConvertedProduct.PrimaryVendorId,"")
@@ -446,7 +467,7 @@
 	Set AxProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	Set AxProduct.Basis.LinkType = "HH"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(DataDefinitieService)
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	#dim ConvertedProduct As %String = Converter.ConvertVanHoecke(AxProduct)
 	
 	Do $$$AssertEquals(ConvertedProduct.PrimaryVendorId,"06332")
@@ -465,7 +486,7 @@
 	Set AxProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	Set AxProduct.Basis.LinkType = "HHZ"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(DataDefinitieService)
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	#dim ConvertedProduct As %String = Converter.ConvertVanHoecke(AxProduct)
 	
 	Do $$$AssertEquals(ConvertedProduct.PrimaryVendorId,"06332")
@@ -484,7 +505,7 @@
 	Set AxProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	Set AxProduct.Basis.LinkType = "S"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(DataDefinitieService)
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	#dim ConvertedProduct As %String = Converter.ConvertVanHoecke(AxProduct)
 	
 	Do $$$AssertEquals(ConvertedProduct.PrimaryVendorId,"05005")
@@ -499,7 +520,7 @@
 	Set AxProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	Set AxProduct.Basis.LinkType = "A"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	
 	#dim PrimaryVendorIdHLX As %String = Converter.BepaalPrimaryVendorIdHLX(AxProduct)
 	
@@ -519,7 +540,7 @@
 	Set AxProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	Set AxProduct.Basis.LinkType = "HH"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(DataDefinitieService)
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	#dim ConvertedProduct As %String = Converter.ConvertHalux(AxProduct)
 	
 	Do $$$AssertEquals(ConvertedProduct.PrimaryVendorId,"")
@@ -538,7 +559,7 @@
 	Set AxProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	Set AxProduct.Basis.LinkType = "HHZ"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(DataDefinitieService)
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	#dim ConvertedProduct As %String = Converter.ConvertHalux(AxProduct)
 	
 	Do $$$AssertEquals(ConvertedProduct.PrimaryVendorId,"")
@@ -557,7 +578,7 @@
 	Set AxProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	Set AxProduct.Basis.LinkType = "HHZ"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(DataDefinitieService)
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	#dim ConvertedProduct As %String = Converter.ConvertHalux(AxProduct)
 	
 	Do $$$AssertEquals(ConvertedProduct.PrimaryVendorId,"05921")
@@ -577,7 +598,7 @@
 	Set AxProduct.Basis.LinkType = "A"
 	Set AxProduct.Prijs.LeveringsTermijn = "9"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(DataDefinitieService)
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	#dim ConvertedProduct As %String = Converter.ConvertVanHoecke(AxProduct)
 	
 	Do $$$AssertEquals(ConvertedProduct.InventItemPurchSetupLeadTime,"46")
@@ -597,7 +618,7 @@
 	Set AxProduct.Basis.LinkType = "A"
 	Set AxProduct.Prijs.LeveringsTermijn = "9"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(DataDefinitieService)
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	#dim ConvertedProduct As %String = Converter.ConvertVanHoecke(AxProduct)
 	
 	Do $$$AssertEquals(ConvertedProduct.InventItemPurchSetupLeadTime,"45")
@@ -617,7 +638,7 @@
 	Set AxProduct.Basis.LinkType = "A"
 	Set AxProduct.Prijs.LeveringsTermijn = "9"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(DataDefinitieService)
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	#dim ConvertedProduct As %String = Converter.ConvertVanHoecke(AxProduct)
 	
 	Do $$$AssertEquals(ConvertedProduct.InventItemPurchSetupLeadTime,"")
@@ -637,7 +658,7 @@
 	Set AxProduct.Basis.LinkType = "S"
 	Set AxProduct.Prijs.LeveringsTermijn = "9"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(DataDefinitieService)
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	#dim ConvertedProduct As %String = Converter.ConvertVanHoecke(AxProduct)
 	
 	Do $$$AssertEquals(ConvertedProduct.InventItemPurchSetupLeadTime,"")
@@ -657,7 +678,7 @@
 	Set AxProduct.Basis.LinkType = "HH"
 	Set AxProduct.Prijs.LeveringsTermijn = "9"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(DataDefinitieService)
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	#dim ConvertedProduct As %String = Converter.ConvertHalux(AxProduct)
 	
 	Do $$$AssertEquals(ConvertedProduct.InventItemPurchSetupLeadTime,"45")
@@ -677,7 +698,7 @@
 	Set AxProduct.Basis.LinkType = "HH"
 	Set AxProduct.Prijs.LeveringsTermijn = "9"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(DataDefinitieService)
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	#dim ConvertedProduct As %String = Converter.ConvertHalux(AxProduct)
 	
 	Do $$$AssertEquals(ConvertedProduct.InventItemPurchSetupLeadTime,"")
@@ -697,7 +718,7 @@
 	Set AxProduct.Basis.LinkType = "A"
 	Set AxProduct.Prijs.LeveringsTermijn = "9"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(DataDefinitieService)
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	#dim ConvertedProduct As %String = Converter.ConvertHalux(AxProduct)
 	
 	Do $$$AssertEquals(ConvertedProduct.InventItemPurchSetupLeadTime,"")
@@ -719,7 +740,7 @@
 	Set AxProduct.Basis.HerbestelSurplus = "3K"
 	Set AxProduct.Prijs.KleinVerpakking = "5"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(DataDefinitieService)
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	#dim ConvertedProduct As %String = Converter.ConvertHalux(AxProduct)
 	
 	Do $$$AssertEquals(ConvertedProduct.InventItemPurchSetupLowestQty,"15")
@@ -739,7 +760,7 @@
 	Set AxProduct.Basis.LinkType = "HH"
 	Set AxProduct.Prijs.MinimumBestelhoeveelheid = "30"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(DataDefinitieService)
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	#dim ConvertedProduct As %String = Converter.ConvertHalux(AxProduct)
 	
 	Do $$$AssertEquals(ConvertedProduct.InventItemPurchSetupLowestQty,"30")
@@ -760,7 +781,7 @@
 	Set AxProduct.Basis.HerbestelAfronding = "3K"
 	Set AxProduct.Prijs.KleinVerpakking = "5"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(DataDefinitieService)
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	#dim ConvertedProduct As %String = Converter.ConvertHalux(AxProduct)
 	
 	Do $$$AssertEquals(ConvertedProduct.InventItemPurchSetupMultipleQty,"15")
@@ -780,7 +801,7 @@
 	Set AxProduct.Basis.LinkType = "HH"
 	Set AxProduct.Prijs.GrootVerpakking = "20"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(DataDefinitieService)
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	#dim ConvertedProduct As %String = Converter.ConvertHalux(AxProduct)
 	
 	Do $$$AssertEquals(ConvertedProduct.InventItemPurchSetupMultipleQty,"20")
@@ -795,7 +816,7 @@
 	Set AxProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	Set AxProduct.Basis.Uitverkoop = ""
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	
 	#dim InventItemPurchSetupStopped As %String = Converter.BepaalInventItemPurchSetupStopped(AxProduct)
 	
@@ -811,7 +832,7 @@
 	Set AxProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	Set AxProduct.Basis.Uitverkoop = "Solden"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	
 	#dim InventItemPurchSetupStopped As %String = Converter.BepaalInventItemPurchSetupStopped(AxProduct)
 	
@@ -828,7 +849,7 @@
 	Set AxProduct.Basis.StockNietStock = "2"
 	Set AxProduct.Prijs.MinimumBestelhoeveelheid = "15"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	
 	#dim InventItemSalesSetupLowestQty As %String = Converter.BepaalInventItemSalesSetupLowestQtyVH(AxProduct)
 	
@@ -846,7 +867,7 @@
 	Set AxProduct.Prijs.VerpakkingsProduct = ##class(Prod.Product).%New()
 	Set AxProduct.Prijs.KleinVerpakking = "5"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	
 	#dim InventItemSalesSetupLowestQty As %String = Converter.BepaalInventItemSalesSetupLowestQtyVH(AxProduct)
 	
@@ -864,7 +885,7 @@
 	Set AxProduct.Prijs.VerpakkingsProduct = ""
 	Set AxProduct.Prijs.KleinVerpakking = "5"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	
 	#dim InventItemSalesSetupLowestQty As %String = Converter.BepaalInventItemSalesSetupLowestQtyVH(AxProduct)
 	
@@ -881,7 +902,7 @@
 	Set AxProduct.Basis.StockNietStock = "1"
 	Set AxProduct.Prijs.VerpakkingsProduct = ##class(Prod.Product).%New()
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	
 	#dim InventItemSalesSetupLowestQty As %String = Converter.BepaalInventItemSalesSetupLowestQtyVH(AxProduct)
 	
@@ -899,7 +920,7 @@
 	Set AxProduct.Prijs.VerpakkingsProduct = ""
 	Set AxProduct.Prijs.KleinVerpakking = "5"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	
 	#dim InventItemSalesSetupMultipleQty As %String = Converter.BepaalInventItemSalesSetupMultipleQtyVH(AxProduct)
 	
@@ -917,7 +938,7 @@
 	Set AxProduct.Prijs.VerpakkingsProduct = ##class(Prod.Product).%New()
 	Set AxProduct.Prijs.KleinVerpakking = "5"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	
 	#dim InventItemSalesSetupMultipleQty As %String = Converter.BepaalInventItemSalesSetupMultipleQtyVH(AxProduct)
 	
@@ -935,7 +956,7 @@
 	Set AxProduct.Basis.KSPrijsLijst = "1"
 	Set AxProduct.Prijs.VerpakkingsProduct = ""
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	
 	#dim InventItemSalesSetupMultipleQty As %String = Converter.BepaalInventItemSalesSetupMultipleQtyVH(AxProduct)
 	
@@ -953,7 +974,7 @@
 	Set AxProduct.Basis.KSPrijsLijst = "1"
 	Set AxProduct.Prijs.VerpakkingsProduct = ##class(Prod.Product).%New()
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	
 	#dim InventItemSalesSetupMultipleQty As %String = Converter.BepaalInventItemSalesSetupMultipleQtyVH(AxProduct)
 	
@@ -972,7 +993,7 @@
 	Set AxProduct.Prijs.VerpakkingsProduct = ""
 	Set AxProduct.Prijs.KleinVerpakking = "10"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	
 	#dim InventItemSalesSetupMultipleQty As %String = Converter.BepaalInventItemSalesSetupMultipleQtyVH(AxProduct)
 	
@@ -991,7 +1012,7 @@
 	Set AxProduct.Prijs.VerpakkingsProduct = ##class(Prod.Product).%New()
 	Set AxProduct.Prijs.KleinVerpakking = "15"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	
 	#dim InventItemSalesSetupMultipleQty As %String = Converter.BepaalInventItemSalesSetupMultipleQtyVH(AxProduct)
 	
@@ -1010,7 +1031,7 @@
 	Set AxProduct.Prijs.VerpakkingsProduct = ##class(Prod.Product).%New()
 	Set AxProduct.Prijs.KleinVerpakking = "20"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	
 	#dim InventItemSalesSetupMultipleQty As %String = Converter.BepaalInventItemSalesSetupMultipleQtyVH(AxProduct)
 	
@@ -1027,7 +1048,7 @@
 	Set AxProduct.Prijs.VerpakkingsProduct = ##class(Prod.Product).%New()
 	Set AxProduct.Prijs.KleinVerpakking = "25"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	
 	#dim InventItemSalesSetupMultipleQty As %String = Converter.BepaalInventItemSalesSetupMultipleQtyVH(AxProduct)
 	
@@ -1048,7 +1069,7 @@
 	Set AxProduct.Basis.LinkType = "S"
 	Set AxProduct.Klassificatie.SubGroep = "Groep/OL"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(DataDefinitieService)
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	#dim ConvertedProduct As %String = Converter.ConvertVanHoecke(AxProduct)
 	
 	Do $$$AssertEquals(ConvertedProduct.ReqGroupId,"MTO")
@@ -1068,7 +1089,7 @@
 	Set AxProduct.Basis.LinkType = "HH"
 	Set AxProduct.Klassificatie.SubGroep = "VPK/Groep"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(DataDefinitieService)
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	#dim ConvertedProduct As %String = Converter.ConvertVanHoecke(AxProduct)
 	
 	Do $$$AssertEquals(ConvertedProduct.ReqGroupId,"Handmatig")
@@ -1088,7 +1109,7 @@
 	Set AxProduct.Basis.LinkType = "HH"
 	Set AxProduct.Klassificatie.SubGroep = "VPA/Groep"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(DataDefinitieService)
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	#dim ConvertedProduct As %String = Converter.ConvertVanHoecke(AxProduct)
 	
 	Do $$$AssertEquals(ConvertedProduct.ReqGroupId,"Handmatig")
@@ -1109,7 +1130,7 @@
 	Set AxProduct.Klassificatie.SubGroep = "Groepje"
 	Set AxProduct.Basis.StockNietStock = "2"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(DataDefinitieService)
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	#dim ConvertedProduct As %String = Converter.ConvertVanHoecke(AxProduct)
 	
 	Do $$$AssertEquals(ConvertedProduct.ReqGroupId,"BTO")
@@ -1131,7 +1152,7 @@
 	Set AxProduct.Basis.StockNietStock = "1"
 	Set AxProduct.Basis.ScanType = "1"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(DataDefinitieService)
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	#dim ConvertedProduct As %String = Converter.ConvertVanHoecke(AxProduct)
 	
 	Do $$$AssertEquals(ConvertedProduct.ReqGroupId,"Min/Max")
@@ -1153,7 +1174,7 @@
 	Set AxProduct.Basis.StockNietStock = "1"
 	Set AxProduct.Basis.ScanType = "0"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(DataDefinitieService)
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	#dim ConvertedProduct As %String = Converter.ConvertVanHoecke(AxProduct)
 	
 	Do $$$AssertEquals(ConvertedProduct.ReqGroupId,"BTS-1W")
@@ -1169,7 +1190,7 @@
 	Set AxProduct.Klassificatie.SubGroep = "12ALGroep"
 	Set AxProduct.Basis.StockNietStock = "1"
 		
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	
 	#dim ReqGroupId As %String = Converter.BepaalReqGroupIdHLX(AxProduct)
 	
@@ -1190,7 +1211,7 @@
 	Set AxProduct.Basis.LinkType = "HH"
 	Set AxProduct.Klassificatie.SubGroep = "GroepVPK/"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(DataDefinitieService)
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	#dim ConvertedProduct As %String = Converter.ConvertHalux(AxProduct)
 	
 	Do $$$AssertEquals(ConvertedProduct.ReqGroupId,"Handmatig")
@@ -1210,7 +1231,7 @@
 	Set AxProduct.Basis.LinkType = "HH"
 	Set AxProduct.Klassificatie.SubGroep = "GroepVPA/"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(DataDefinitieService)
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	#dim ConvertedProduct As %String = Converter.ConvertHalux(AxProduct)
 	
 	Do $$$AssertEquals(ConvertedProduct.ReqGroupId,"Handmatig")
@@ -1226,7 +1247,7 @@
 	Set AxProduct.Basis.HerbestelSurplus = ""
 	Set AxProduct.Basis.HerbestelAfronding = ""
 		
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	
 	#dim ReqGroupId As %String = Converter.BepaalReqGroupIdHLX(AxProduct)
 	
@@ -1244,7 +1265,7 @@
 	Set AxProduct.Prijs.NormaleVerpakking = "1"
 	Set AxProduct.Basis.PalletAantal = "0"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	
 	#dim UOMSeqGroupId As %String = Converter.BepaalUOMSeqGroupId(AxProduct)
 	
@@ -1262,7 +1283,7 @@
 	Set AxProduct.Prijs.NormaleVerpakking = "1"
 	Set AxProduct.Basis.PalletAantal = "1"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	
 	#dim UOMSeqGroupId As %String = Converter.BepaalUOMSeqGroupId(AxProduct)
 	
@@ -1280,7 +1301,7 @@
 	Set AxProduct.Prijs.NormaleVerpakking = "0"
 	Set AxProduct.Basis.PalletAantal = "1"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	
 	#dim UOMSeqGroupId As %String = Converter.BepaalUOMSeqGroupId(AxProduct)
 	
@@ -1298,7 +1319,7 @@
 	Set AxProduct.Prijs.NormaleVerpakking = "1"
 	Set AxProduct.Basis.PalletAantal = "1"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	
 	#dim UOMSeqGroupId As %String = Converter.BepaalUOMSeqGroupId(AxProduct)
 	
@@ -1316,7 +1337,7 @@
 	Set AxProduct.Prijs.NormaleVerpakking = "2"
 	Set AxProduct.Basis.PalletAantal = "1"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	
 	#dim UOMSeqGroupId As %String = Converter.BepaalUOMSeqGroupId(AxProduct)
 	
@@ -1334,7 +1355,7 @@
 	Set AxProduct.Prijs.NormaleVerpakking = "1"
 	Set AxProduct.Basis.PalletAantal = "1"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	
 	#dim UOMSeqGroupId As %String = Converter.BepaalUOMSeqGroupId(AxProduct)
 	
@@ -1350,7 +1371,7 @@
 	Set AxProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	Set AxProduct.Basis.StockNietStock = "2"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	
 	#dim InventItemSalesDeliveryDateControlType As %String = Converter.BepaalInventItemSalesDeliveryDateControlType(AxProduct)
 	
@@ -1366,7 +1387,7 @@
 	Set AxProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	Set AxProduct.Basis.StockNietStock = ""
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	
 	#dim InventItemSalesDeliveryDateControlType As %String = Converter.BepaalInventItemSalesDeliveryDateControlType(AxProduct)
 	
@@ -1377,16 +1398,16 @@
 <Method name="Test: Als InventItemSalesDeliveryDateControlType ATP plusteken uitgiftemarge is dan moet InventItemSalesSetupATPTimeFence 2 zijn">
 <Implementation><![CDATA[
 	#dim IdentNummerLijst As %List = $ListBuild("1234")
-	Set DataDefinitieService = ##class(vhTest.Mock.BL.Prod.Kenmerk.DataDefinitieService).%New()
-	Do DataDefinitieService.IndienMethodCall("GeefDefinitie","OEI","","AliasI").DanReturn(IdentNummerLijst)
+	Set ..DataDefinitieService = ##class(vhTest.Mock.BL.Prod.Kenmerk.DataDefinitieService).%New()
+	Do ..DataDefinitieService.IndienMethodCall("GeefDefinitie","OEI","","AliasI").DanReturn(IdentNummerLijst)
 	
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
 	
 	Set AxProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	Set AxProduct.Basis.StockNietStock = ##class(Prod.Product).%New()
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(DataDefinitieService)
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	#dim ConvertedProduct As %String = Converter.ConvertVanHoecke(AxProduct)
 	
 	Do $$$AssertEquals(ConvertedProduct.InventItemSalesSetupATPTimeFence,"2")
@@ -1396,16 +1417,16 @@
 <Method name="Test: Als InventItemSalesDeliveryDateControlType NIET ATP plusteken uitgiftemarge is dan moet InventItemSalesSetupATPTimeFence leeg zijn">
 <Implementation><![CDATA[
 	#dim IdentNummerLijst As %List = $ListBuild("1234")
-	Set DataDefinitieService = ##class(vhTest.Mock.BL.Prod.Kenmerk.DataDefinitieService).%New()
-	Do DataDefinitieService.IndienMethodCall("GeefDefinitie","OEI","","AliasI").DanReturn(IdentNummerLijst)
+	Set ..DataDefinitieService = ##class(vhTest.Mock.BL.Prod.Kenmerk.DataDefinitieService).%New()
+	Do ..DataDefinitieService.IndienMethodCall("GeefDefinitie","OEI","","AliasI").DanReturn(IdentNummerLijst)
 	
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
 	
 	Set AxProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	Set AxProduct.Basis.StockNietStock = ""
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(DataDefinitieService)
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	#dim ConvertedProduct As %String = Converter.ConvertVanHoecke(AxProduct)
 	
 	Do $$$AssertEquals(ConvertedProduct.InventItemSalesSetupATPTimeFence,"")
@@ -1424,7 +1445,7 @@
 	Set AxProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	Set AxProduct.Basis.StockNietStock = ##class(Prod.Product).%New()
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(DataDefinitieService)
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	#dim ConvertedProduct As %String = Converter.ConvertVanHoecke(AxProduct)
 	
 	Do $$$AssertEquals(ConvertedProduct.InventItemSalesSetupOverride,"Ja")
@@ -1443,7 +1464,7 @@
 	Set AxProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	Set AxProduct.Basis.StockNietStock = ""
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(DataDefinitieService)
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	#dim ConvertedProduct As %String = Converter.ConvertVanHoecke(AxProduct)
 	
 	Do $$$AssertEquals(ConvertedProduct.InventItemSalesSetupOverride,"Nee")
@@ -1458,7 +1479,7 @@
 	Set AxProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	Set AxProduct.Klassificatie.SubGroep = "08CY05ZSL01ZSL/HK "
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	
 	#dim ADUProductMainGroupId As %String = Converter.BepaalADUProductMainGroupId(AxProduct)
 	
@@ -1474,7 +1495,7 @@
 	Set AxProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	Set AxProduct.Klassificatie.SubGroep = "08CY05ZSL01ZSL/HK "
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	
 	#dim ADUProductGroupId As %String = Converter.BepaalADUProductGroupId(AxProduct)
 	
@@ -1490,7 +1511,7 @@
 	Set AxProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	Set AxProduct.Klassificatie.SubGroep = "08CY05ZSL01ZSL/HK"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	
 	#dim ADUProductSubGroupId As %String = Converter.BepaalADUProductSubGroupId(AxProduct)
 	
@@ -1506,7 +1527,7 @@
 	Set AxProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	Set AxProduct.Prijs.CifPerc = "25.15"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	
 	#dim ADUCostInsuranceFreight As %String = Converter.BepaalADUCostInsuranceFreight(AxProduct)
 	
@@ -1522,7 +1543,7 @@
 	Set AxProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	Set AxProduct.Prijs.DBPerc = "25.15"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	
 	#dim ADUPriceContrMargineId As %String = Converter.BepaalADUPriceContrMargineId(AxProduct)
 	
@@ -1536,15 +1557,15 @@
 <Method name="Test: UseAltItemId is Altijd als AltItemId NIET leeg is">
 <Implementation><![CDATA[
 	#dim IdentNummerLijst As %List = $ListBuild("1234")
-	Set DataDefinitieService = ##class(vhTest.Mock.BL.Prod.Kenmerk.DataDefinitieService).%New()
-	Do DataDefinitieService.IndienMethodCall("GeefDefinitie","OEI","","AliasI").DanReturn(IdentNummerLijst)
+	Set ..DataDefinitieService = ##class(vhTest.Mock.BL.Prod.Kenmerk.DataDefinitieService).%New()
+	Do ..DataDefinitieService.IndienMethodCall("GeefDefinitie","OEI","","AliasI").DanReturn(IdentNummerLijst)
 	
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
 	
 	Set AxProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(DataDefinitieService)
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	#dim ConvertedProduct As %String = Converter.ConvertVanHoecke(AxProduct)
 	
 	Do $$$AssertEquals(ConvertedProduct.UseAltItemId,"Altijd")
@@ -1562,7 +1583,7 @@
 	
 	Set AxProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(DataDefinitieService)
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	#dim ConvertedProduct As %String = Converter.ConvertVanHoecke(AxProduct)
 	
 	Do $$$AssertEquals(ConvertedProduct.UseAltItemId,"Nooit")
@@ -1579,7 +1600,7 @@
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
 	
 	Set AxProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(DataDefinitieService)
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	
 	#dim ConvertedProduct As %String = Converter.ConvertVanHoecke(AxProduct)
 	
@@ -1590,14 +1611,14 @@
 <Method name="Test: Als er meerdere aliassen gevonden zijn dan moet AltItemId kommaseperated ingevuld worden">
 <Implementation><![CDATA[
 	#dim IdentNummerLijst As %List = $ListBuild("1234","5678","9123")
-	Set DataDefinitieService = ##class(vhTest.Mock.BL.Prod.Kenmerk.DataDefinitieService).%New()
-	Do DataDefinitieService.IndienMethodCall("GeefDefinitie","OEI","","AliasI").DanReturn(IdentNummerLijst)
+	Set ..DataDefinitieService = ##class(vhTest.Mock.BL.Prod.Kenmerk.DataDefinitieService).%New()
+	Do ..DataDefinitieService.IndienMethodCall("GeefDefinitie","OEI","","AliasI").DanReturn(IdentNummerLijst)
 	
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
 	
 	Set AxProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(DataDefinitieService)
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 		
 	#dim ConvertedProduct As %String = Converter.ConvertVanHoecke(AxProduct)
 
@@ -1620,7 +1641,7 @@
 	Set AxProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	Set AxProduct.Basis.ScanType = "L"
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(DataDefinitieService)
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 		
 	#dim ConvertedProduct As %String = Converter.ConvertVanHoecke(AxProduct)
 
@@ -1654,6 +1675,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefConverter">
+<Private>1</Private>
+<Implementation><![CDATA[	quit ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(..DataDefinitieService,..VoorraadBewegingService)
+]]></Implementation>
+</Method>
+
 <UDLText name="T">
 <Content><![CDATA[
 /*