Index: vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml
===================================================================
diff -u -r41405 -r41414
--- vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 41405)
+++ vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 41414)
@@ -28,7 +28,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
 
-	#dim TestProduct As AXdixf.VrijgegProduct.VrijgegProduct = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,DataDefinitieService).ConvertVanHoecke(AxProduct)
+	#dim TestProduct As AXdixf.VrijgegProduct.VrijgegProduct = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(DataDefinitieService).ConvertVanHoecke(AxProduct)
 	
 	Do $$$AssertEquals(TestProduct.AltItemId,"1234")
 	Do $$$AssertEquals(TestProduct.BatchNumGroupId,"Batch")
@@ -116,7 +116,7 @@
 	#dim LeverancierNummer As %String = "05497"
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(05497)
-	#dim TestProduct As AXdixf.VrijgegProduct.VrijgegProduct = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,DataDefinitieService).ConvertHalux(AxProduct)
+	#dim TestProduct As AXdixf.VrijgegProduct.VrijgegProduct = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(DataDefinitieService).ConvertHalux(AxProduct)
 	
 	Do $$$AssertEquals(TestProduct.AltItemId,"1234")
 	Do $$$AssertEquals(TestProduct.BatchNumGroupId,"Batch")
@@ -211,7 +211,7 @@
 	Set TestProduct.Prijs.NormaleVerpakking = ""
 	Set TestProduct.Prijs.GrootVerpakking = "BigOne"
 	
-	#dim Verpakking As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer).BepaalVerpakking(TestProduct)
+	#dim Verpakking As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New().BepaalVerpakking(TestProduct)
 	
 	Do $$$AssertEquals(Verpakking,"BigOne")
 	Do $$$AssertNotEquals(Verpakking,"")
@@ -230,7 +230,7 @@
 	Set TestProduct.Prijs.NormaleVerpakking = "MediumOne"
 	Set TestProduct.Prijs.GrootVerpakking = "BigOne"
 	
-	#dim Verpakking As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer).BepaalVerpakking(TestProduct)
+	#dim Verpakking As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New().BepaalVerpakking(TestProduct)
 	
 	Do $$$AssertEquals(Verpakking,"MediumOne")
 	Do $$$AssertNotEquals(Verpakking,"")
@@ -250,7 +250,7 @@
 	Set TestProduct.Prijs.NormaleVerpakking = "MediumOne"
 	Set TestProduct.Prijs.GrootVerpakking = "BigOne"
 	
-	#dim Verpakking As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer).BepaalVerpakking(TestProduct)
+	#dim Verpakking As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New().BepaalVerpakking(TestProduct)
 	
 	Do $$$AssertEquals(Verpakking,"LittleOne")
 	Do $$$AssertNotEquals(Verpakking,"")
@@ -269,7 +269,7 @@
 	
 	Set AxProduct.Basis.LinkType = "S"
 	
-	#dim DefaultOrderTypeVH As AXdixf.VrijgegProduct.VrijgegProduct = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer).BepaalDefaultOrderTypeVH(AxProduct)
+	#dim DefaultOrderTypeVH As AXdixf.VrijgegProduct.VrijgegProduct = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New().BepaalDefaultOrderTypeVH(AxProduct)
 	
 	Do $$$AssertEquals(DefaultOrderTypeVH,"Productie")
 	Do $$$AssertNotEquals(DefaultOrderTypeVH,"Aankooporder")
@@ -286,7 +286,7 @@
 	
 	Set AxProduct.Basis.LinkType = "S"
 	
-	#dim DefaultOrderTypeVH As AXdixf.VrijgegProduct.VrijgegProduct = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer).BepaalDefaultOrderTypeVH(AxProduct)
+	#dim DefaultOrderTypeVH As AXdixf.VrijgegProduct.VrijgegProduct = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New().BepaalDefaultOrderTypeVH(AxProduct)
 	
 	Do $$$AssertEquals(DefaultOrderTypeVH,"Aankooporder")
 ]]></Implementation>
@@ -302,7 +302,7 @@
 	
 	Set AxProduct.Basis.LinkType = ""
 	
-	#dim DefaultOrderTypeVH As AXdixf.VrijgegProduct.VrijgegProduct = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer).BepaalDefaultOrderTypeVH(AxProduct)
+	#dim DefaultOrderTypeVH As AXdixf.VrijgegProduct.VrijgegProduct = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New().BepaalDefaultOrderTypeVH(AxProduct)
 	
 	Do $$$AssertEquals(DefaultOrderTypeVH,"Aankooporder")
 	Do $$$AssertNotEquals(DefaultOrderTypeVH,"Productie")
@@ -317,7 +317,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
 	
-	#dim DefaultOrderTypeHLX As AXdixf.VrijgegProduct.VrijgegProduct = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer).BepaalDefaultOrderTypeHLX(AxProduct)
+	#dim DefaultOrderTypeHLX As AXdixf.VrijgegProduct.VrijgegProduct = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New().BepaalDefaultOrderTypeHLX(AxProduct)
 	
 	Do $$$AssertEquals(DefaultOrderTypeHLX,"Productie")
 	Do $$$AssertNotEquals(DefaultOrderTypeHLX,"Aankooporder")
@@ -332,7 +332,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(5005)
 	
-	#dim DefaultOrderTypeHLX As AXdixf.VrijgegProduct.VrijgegProduct = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer).BepaalDefaultOrderTypeHLX(AxProduct)
+	#dim DefaultOrderTypeHLX As AXdixf.VrijgegProduct.VrijgegProduct = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New().BepaalDefaultOrderTypeHLX(AxProduct)
 	
 	Do $$$AssertEquals(DefaultOrderTypeHLX,"Aankooporder")
 ]]></Implementation>
@@ -348,7 +348,7 @@
 	
 	Set AxProduct.Prijs.VerpakkingsProduct = ""
 	
-	#dim InventItemInventSetupLowestQty As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer).BepaalInventItemInventSetupLowestQty(AxProduct)
+	#dim InventItemInventSetupLowestQty As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New().BepaalInventItemInventSetupLowestQty(AxProduct)
 	
 	Do $$$AssertEquals(InventItemInventSetupLowestQty,"1")
 ]]></Implementation>
@@ -364,7 +364,7 @@
 	
 	Set AxProduct.Prijs.VerpakkingsProduct = ##class(Prod.Product).%New()
 	
-	#dim InventItemInventSetupLowestQty As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer).BepaalInventItemInventSetupLowestQty(AxProduct)
+	#dim InventItemInventSetupLowestQty As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New().BepaalInventItemInventSetupLowestQty(AxProduct)
 	
 	Do $$$AssertEquals(InventItemInventSetupLowestQty,"1")
 ]]></Implementation>
@@ -381,7 +381,7 @@
 	Set AxProduct.Prijs.VerpakkingsProduct = ##class(Prod.Product).%New()
 	Set AxProduct.Prijs.KleinVerpakking = "LittleOne"
 	
-	#dim InventItemInventSetupLowestQty As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer).BepaalInventItemInventSetupLowestQty(AxProduct)
+	#dim InventItemInventSetupLowestQty As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New().BepaalInventItemInventSetupLowestQty(AxProduct)
 	
 	Do $$$AssertEquals(InventItemInventSetupLowestQty,"LittleOne")
 ]]></Implementation>
@@ -397,7 +397,7 @@
 	
 	Set AxProduct.Prijs.VerpakkingsProduct = ""
 	
-	#dim InventItemInventSetupStandardQty As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer).BepaalInventItemInventSetupStandardQty(AxProduct)
+	#dim InventItemInventSetupStandardQty As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New().BepaalInventItemInventSetupStandardQty(AxProduct)
 	
 	Do $$$AssertEquals(InventItemInventSetupStandardQty,"0")
 ]]></Implementation>
@@ -413,7 +413,7 @@
 	
 	Set AxProduct.Prijs.VerpakkingsProduct = ##class(Prod.Product).%New()
 	
-	#dim InventItemInventSetupStandardQty As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer).BepaalInventItemInventSetupStandardQty(AxProduct)
+	#dim InventItemInventSetupStandardQty As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New().BepaalInventItemInventSetupStandardQty(AxProduct)
 	
 	Do $$$AssertEquals(InventItemInventSetupStandardQty,"0")
 ]]></Implementation>
@@ -430,7 +430,7 @@
 	Set AxProduct.Prijs.VerpakkingsProduct = ##class(Prod.Product).%New()
 	Set AxProduct.Prijs.KleinVerpakking = "LittleOne"
 	
-	#dim InventItemInventSetupStandardQty As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer).BepaalInventItemInventSetupStandardQty(AxProduct)
+	#dim InventItemInventSetupStandardQty As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New().BepaalInventItemInventSetupStandardQty(AxProduct)
 	
 	Do $$$AssertEquals(InventItemInventSetupStandardQty,"LittleOne")
 ]]></Implementation>
@@ -444,7 +444,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	Set TestProduct.DefaultOrderTypeVH = "Productie"
 	
 	#dim PrimaryVendorIdVH As %String = TestProduct.BepaalPrimaryVendorIdVH(AxProduct)
@@ -461,7 +461,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	Set TestProduct.DefaultOrderTypeVH = "Aankooporder"
 	
 	Set AxProduct.Basis.LinkType = "HH"
@@ -480,7 +480,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	Set TestProduct.DefaultOrderTypeVH = "Aankooporder"
 	
 	Set AxProduct.Basis.LinkType = "HHZ"
@@ -500,7 +500,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(5005)
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	Set Converter.DefaultOrderTypeVH = "Aankooporder"
 	
 	Set AxProduct.Basis.LinkType = "A"
@@ -519,7 +519,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	
 	Set AxProduct.Basis.LinkType = "A"
 	
@@ -537,7 +537,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	Set TestProduct.DefaultOrderTypeHLX = "Productie"
 	
 	Set AxProduct.Basis.LinkType = "HH"
@@ -556,7 +556,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	Set TestProduct.DefaultOrderTypeHLX = "Productie"
 	
 	Set AxProduct.Basis.LinkType = "HHZ"
@@ -575,7 +575,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(7407)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	Set TestProduct.DefaultOrderTypeHLX = "Aankooporder"
 	
 	Set AxProduct.Basis.LinkType = "HH"
@@ -594,7 +594,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	Set TestProduct.PrimaryVendorIdVH = "05005"
 	
 	Set AxProduct.Prijs.LeveringsTermijn = "9"
@@ -613,7 +613,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	Set TestProduct.DefaultOrderTypeVH = "Aankooporder"
 	Set TestProduct.PrimaryVendorIdVH = "05497"
 	
@@ -633,7 +633,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	Set TestProduct.DefaultOrderTypeVH = "Aankooporder"
 	Set TestProduct.PrimaryVendorIdVH = "06332"
 	
@@ -653,7 +653,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	Set TestProduct.DefaultOrderTypeVH = "Productie"
 	Set TestProduct.PrimaryVendorIdVH = "05497"
 	
@@ -673,7 +673,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	Set TestProduct.DefaultOrderTypeHLX = "Aankooporder"
 	Set TestProduct.PrimaryVendorIdHLX = "06332"
 	
@@ -693,7 +693,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	Set TestProduct.DefaultOrderTypeHLX = "Productie"
 	Set TestProduct.PrimaryVendorIdHLX = "06332"
 	
@@ -713,7 +713,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	Set TestProduct.DefaultOrderTypeHLX = "Aankooporder"
 	Set TestProduct.PrimaryVendorIdHLX = "05497"
 	
@@ -733,7 +733,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	Set TestProduct.PrimaryVendorIdHLX = "05497"
 	
 	Set AxProduct.Basis.HerbestelSurplus = "3K"
@@ -753,7 +753,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	Set TestProduct.PrimaryVendorIdHLX = "05921"
 	
 	Set AxProduct.Prijs.MinimumBestelhoeveelheid = "30"
@@ -772,7 +772,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	Set TestProduct.PrimaryVendorIdHLX = "05497"
 	
 	Set AxProduct.Basis.HerbestelAfronding = "3K"
@@ -792,7 +792,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	Set TestProduct.PrimaryVendorIdHLX = "05921"
 	
 	Set AxProduct.Basis.HerbestelAfronding = "3K"
@@ -813,7 +813,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	
 	Set AxProduct.Basis.Uitverkoop = ""
 	
@@ -831,7 +831,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	
 	Set AxProduct.Basis.Uitverkoop = "Solden"
 	
@@ -849,7 +849,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	
 	Set AxProduct.Basis.StockNietStock = "2"
 	Set AxProduct.Prijs.MinimumBestelhoeveelheid = "15"
@@ -868,7 +868,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(5005)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	
 	Set AxProduct.Basis.StockNietStock = "1"
 	Set AxProduct.Prijs.VerpakkingsProduct = ##class(Prod.Product).%New()
@@ -888,7 +888,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(5005)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	
 	Set AxProduct.Basis.StockNietStock = "1"
 	Set AxProduct.Prijs.VerpakkingsProduct = ""
@@ -908,7 +908,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(7407)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	
 	Set AxProduct.Basis.StockNietStock = "1"
 	Set AxProduct.Prijs.VerpakkingsProduct = ##class(Prod.Product).%New()
@@ -928,7 +928,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(5005)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	
 	Set AxProduct.Basis.StockNietStock = "2"
 	Set AxProduct.Prijs.VerpakkingsProduct = ""
@@ -948,7 +948,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(7407)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	
 	Set AxProduct.Basis.StockNietStock = "2"
 	Set AxProduct.Prijs.VerpakkingsProduct = ##class(Prod.Product).%New()
@@ -968,7 +968,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(5005)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	
 	Set AxProduct.Basis.StockNietStock = "1"
 	Set AxProduct.Basis.KSPrijsLijst = "1"
@@ -988,7 +988,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(7407)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	
 	Set AxProduct.Basis.StockNietStock = "1"
 	Set AxProduct.Basis.KSPrijsLijst = "1"
@@ -1008,7 +1008,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(5005)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	
 	Set AxProduct.Basis.StockNietStock = "1"
 	Set AxProduct.Basis.KSPrijsLijst = "2"
@@ -1029,7 +1029,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(7407)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	
 	Set AxProduct.Basis.StockNietStock = "1"
 	Set AxProduct.Basis.KSPrijsLijst = "2"
@@ -1050,7 +1050,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(5005)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	
 	Set AxProduct.Basis.StockNietStock = "1"
 	Set AxProduct.Basis.KSPrijsLijst = "2"
@@ -1071,7 +1071,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(5005)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	
 	Set AxProduct.Prijs.VerpakkingsProduct = ##class(Prod.Product).%New()
 	Set AxProduct.Prijs.KleinVerpakking = "25"
@@ -1090,7 +1090,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	Set TestProduct.DefaultOrderTypeVH = "Productie"
 	
 	Set AxProduct.Klassificatie.SubGroep = "Groep/OL"
@@ -1109,7 +1109,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	Set TestProduct.DefaultOrderTypeVH = "Aankooporder"
 	
 	Set AxProduct.Klassificatie.SubGroep = "VPK/Groep"
@@ -1128,7 +1128,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	Set TestProduct.DefaultOrderTypeVH = "Aankooporder"
 	
 	Set AxProduct.Klassificatie.SubGroep = "VPA/Groep"
@@ -1147,7 +1147,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	Set TestProduct.DefaultOrderTypeVH = "Aankooporder"
 	
 	Set AxProduct.Klassificatie.SubGroep = "Groepje"
@@ -1167,7 +1167,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	Set TestProduct.DefaultOrderTypeVH = "Aankooporder"
 	
 	Set AxProduct.Klassificatie.SubGroep = "Groepje"
@@ -1188,7 +1188,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	Set TestProduct.DefaultOrderTypeVH = "Aankooporder"
 	
 	Set AxProduct.Klassificatie.SubGroep = "Groepje"
@@ -1210,7 +1210,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	
 	Set AxProduct.Klassificatie.SubGroep = "12ALGroep"
 	Set AxProduct.Basis.StockNietStock = "1"
@@ -1229,7 +1229,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	Set TestProduct.DefaultOrderTypeHLX = "Aankooporder"
 	
 	Set AxProduct.Klassificatie.SubGroep = "GroepVPK/"
@@ -1248,7 +1248,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	Set TestProduct.DefaultOrderTypeHLX = "Aankooporder"
 	
 	Set AxProduct.Klassificatie.SubGroep = "GroepVPA/"
@@ -1267,7 +1267,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	
 	Set AxProduct.Basis.HerbestelSurplus = ""
 	Set AxProduct.Basis.HerbestelAfronding = ""
@@ -1287,7 +1287,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	
 	Set AxProduct.Prijs.KleinVerpakking = "0"
 	Set AxProduct.Prijs.NormaleVerpakking = "1"
@@ -1307,7 +1307,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	
 	Set AxProduct.Prijs.KleinVerpakking = "0"
 	Set AxProduct.Prijs.NormaleVerpakking = "1"
@@ -1327,7 +1327,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	
 	Set AxProduct.Prijs.KleinVerpakking = "0"
 	Set AxProduct.Prijs.NormaleVerpakking = "0"
@@ -1347,7 +1347,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	
 	Set AxProduct.Prijs.KleinVerpakking = "0"
 	Set AxProduct.Prijs.NormaleVerpakking = "1"
@@ -1367,7 +1367,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	
 	Set AxProduct.Prijs.KleinVerpakking = "0"
 	Set AxProduct.Prijs.NormaleVerpakking = "2"
@@ -1387,7 +1387,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	
 	Set AxProduct.Prijs.KleinVerpakking = "1"
 	Set AxProduct.Prijs.NormaleVerpakking = "1"
@@ -1407,7 +1407,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	
 	Set AxProduct.Basis.StockNietStock = "2"
 	
@@ -1425,7 +1425,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	
 	Set AxProduct.Basis.StockNietStock = ""
 	
@@ -1443,7 +1443,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	Set TestProduct.InventItemSalesDeliveryDateControlType = "ATP + uitgiftemarge"
 	
 	#dim InventItemSalesSetupATPTimeFence As %String = TestProduct.BepaalInventItemSalesSetupATPTimeFence(AxProduct)
@@ -1460,7 +1460,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	Set TestProduct.InventItemSalesDeliveryDateControlType = "CTP"
 	
 	#dim InventItemSalesSetupATPTimeFence As %String = TestProduct.BepaalInventItemSalesSetupATPTimeFence(AxProduct)
@@ -1477,7 +1477,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	Set TestProduct.InventItemSalesDeliveryDateControlType = "ATP + uitgiftemarge"
 	
 	#dim InventItemSalesSetupOverride As %String = TestProduct.BepaalInventItemSalesSetupOverride(AxProduct)
@@ -1494,7 +1494,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	Set TestProduct.InventItemSalesDeliveryDateControlType = "CTP"
 	
 	#dim InventItemSalesSetupOverride As %String = TestProduct.BepaalInventItemSalesSetupOverride(AxProduct)
@@ -1511,7 +1511,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	
 	Set AxProduct.Klassificatie.SubGroep = "08CY05ZSL01ZSL/HK "
 	
@@ -1530,7 +1530,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	
 	Set AxProduct.Klassificatie.SubGroep = "08CY05ZSL01ZSL/HK "
 	
@@ -1549,7 +1549,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	
 	Set AxProduct.Klassificatie.SubGroep = "08CY05ZSL01ZSL/HK"
 	
@@ -1567,7 +1567,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
 	
-	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	Set AxProduct.Prijs.CifPerc = "25.15"
@@ -1586,7 +1586,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	
 	Set AxProduct.Prijs.DBPerc = "25.15"
 	
@@ -1611,7 +1611,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	Set TestProduct.AltItemId = "9.975.800.7"
 	
 	qsmkljfglksqdjf
@@ -1634,7 +1634,7 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	Set TestProduct.AltItemId = ""
 	
 	#dim UseAltItemId As %String = TestProduct.BepaalUseAltItemId(AxProduct)
@@ -1659,7 +1659,7 @@
 	#dim LeverancierNummer As %String = "6332"
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
-	#dim TestProduct As AXdixf.VrijgegProduct.VrijgegProduct = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,DataDefinitieService).ConvertVanHoecke(AxProduct)
+	#dim TestProduct As AXdixf.VrijgegProduct.VrijgegProduct = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(DataDefinitieService).ConvertVanHoecke(AxProduct)
 	
 	Do $$$AssertEquals(TestProduct.AltItemId,"")
 ]]></Implementation>
@@ -1676,7 +1676,7 @@
 	#dim LeverancierNummer As %String = "6332"
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
-	#dim TestProduct As AXdixf.VrijgegProduct.VrijgegProduct = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,DataDefinitieService).ConvertVanHoecke(AxProduct)
+	#dim TestProduct As AXdixf.VrijgegProduct.VrijgegProduct = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(DataDefinitieService).ConvertVanHoecke(AxProduct)
 
 	Do $$$AssertEquals(TestProduct.AltItemId,"1234,5678,9123")
 ]]></Implementation>
Index: AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductIterator.cls.xml
===================================================================
diff -u -r41385 -r41414
--- AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductIterator.cls.xml	(.../VrijgegProductIterator.cls.xml)	(revision 41385)
+++ AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductIterator.cls.xml	(.../VrijgegProductIterator.cls.xml)	(revision 41414)
@@ -10,6 +10,11 @@
 ]]></Content>
 </UDLText>
 
+<Property name="Vestiging">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="QueryAPI">
 <Type>TECH.Query.QueryAPI</Type>
 <Private>1</Private>
@@ -32,9 +37,10 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
+	Set ..Vestiging = Vestiging
 	Set ..QueryAPI = $$$Implementation(QueryAPI,##class(TECH.Context).Instance().GeefQueryAPI())
 	Do ..VoerUitQuery()
-	Set ..Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging)
+	Set ..Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -62,7 +68,7 @@
 <ReturnType>AXdixf.VrijgegProduct.VrijgegProduct</ReturnType>
 <Implementation><![CDATA[
 	Set VrijgegProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(..ResultSet.GetData(1))
-	#dim ConvertedProduct As AXdixf.VrijgegProduct.VrijgegProduct = ..Converter.Convert(VrijgegProduct)
+	#dim ConvertedProduct As AXdixf.VrijgegProduct.VrijgegProduct = ..Converter.Convert(VrijgegProduct, ..Vestiging)
 	Quit ConvertedProduct
 ]]></Implementation>
 </Method>
Index: AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml
===================================================================
diff -u -r41407 -r41414
--- AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml	(.../VrijgegProductDixfConverter.cls.xml)	(revision 41407)
+++ AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml	(.../VrijgegProductDixfConverter.cls.xml)	(revision 41414)
@@ -51,42 +51,28 @@
 <Type>%String</Type>
 </Property>
 
-<Property name="LeverancierNummer">
-<Type>%String</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="DataDefinitieService">
 <Type>BL.Prod.Kenmerk.DataDefinitieService</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>Vestiging:%String,DataDefinitieService:BL.Prod.Kenmerk.DataDefinitieService</FormalSpec>
+<FormalSpec>DataDefinitieService:BL.Prod.Kenmerk.DataDefinitieService</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..Vestiging = Vestiging
 	Set ..DataDefinitieService = $$$Inject(DataDefinitieService,##class(BL.Prod.Kenmerk.DataDefinitieService).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
-<Method name="GeefLeverancierNummer">
-<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	Set:(..LeverancierNummer = "") ..LeverancierNummer = Product.Basis.LeverancierNummer
-	Quit ..LeverancierNummer
-]]></Implementation>
-</Method>
-
 <Method name="Convert">
-<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product,Vestiging:%String</FormalSpec>
 <ReturnType>AXdixf.VrijgegProduct.VrijgegProduct</ReturnType>
 <Implementation><![CDATA[
+	Set ..Vestiging = Vestiging
 	If ..Vestiging = "VanHoecke" {
 		Do ..ConvertVanHoecke(Product)
 	}
@@ -98,7 +84,6 @@
 			Write !,"Geef als parameter ofwel VanHoecke, ofwel Halux mee!"
 		}
 	}
-	Set ..LeverancierNummer = ""
 	Quit ..AxProduct
 ]]></Implementation>
 </Method>
@@ -375,7 +360,7 @@
 <Implementation><![CDATA[
 	#dim BepaalDefaultOrderTypeVH As %String
 	#dim LinkType As %String = Product.Basis.LinkType
-	#dim LeverancierNummer As %String = ..GeefLeverancierNummer(Product)
+	#dim LeverancierNummer As %String = Product.Basis.LeverancierNummer
 	
 	If ((LinkType = "S") && (LeverancierNummer = "6051")){
 		Set BepaalDefaultOrderTypeVH = "Productie"
@@ -392,7 +377,7 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim BepaalDefaultOrderTypeHLX As %String
-	#dim LeverancierNummer As %String = ..GeefLeverancierNummer(Product)
+	#dim LeverancierNummer As %String = Product.Basis.LeverancierNummer
 	
 	If (LeverancierNummer = "6332") {
 		Set BepaalDefaultOrderTypeHLX = "Productie"
@@ -423,7 +408,7 @@
 <Implementation><![CDATA[
 	#dim BepaalInventItemInventSetupLowestQty As %String
 	#dim VerpakkingsProduct As %String = Product.Prijs.VerpakkingsProduct
-	#dim LeverancierNummer As %String = ..GeefLeverancierNummer(Product)
+	#dim LeverancierNummer As %String = Product.Basis.LeverancierNummer
 	
 	If (VerpakkingsProduct = ""){
 		Set BepaalInventItemInventSetupLowestQty = "1"
@@ -444,7 +429,7 @@
 <Implementation><![CDATA[
 	#dim BepaalInventItemInventSetupStandardQty As %String
 	#dim VerpakkingsProduct As %String = Product.Prijs.VerpakkingsProduct
-	#dim LeverancierNummer As %String = ..GeefLeverancierNummer(Product)
+	#dim LeverancierNummer As %String = Product.Basis.LeverancierNummer
 	
 	If (VerpakkingsProduct = ""){
 		Set BepaalInventItemInventSetupStandardQty = "0"
@@ -465,7 +450,7 @@
 <Implementation><![CDATA[
 	#dim BepaalPrimaryVendorIdVH As %String
 	#dim LinkType As %String = Product.Basis.LinkType
-	#dim LeverancierNummer As %String = ..GeefLeverancierNummer(Product)
+	#dim LeverancierNummer As %String = Product.Basis.LeverancierNummer
 	
 	If (..DefaultOrderTypeVH = "Productie") {
 		Set BepaalPrimaryVendorIdVH = ""
@@ -486,7 +471,7 @@
 <Implementation><![CDATA[
 	#dim BepaalPrimaryVendorIdHLX As %String
 	#dim LinkType As %String = Product.Basis.LinkType
-	#dim LeverancierNummer As %String = ..GeefLeverancierNummer(Product)
+	#dim LeverancierNummer As %String = Product.Basis.LeverancierNummer
 	
 	If ((LinkType '= "HH") && (LinkType '= "HHZ")) {
 		Set BepaalPrimaryVendorIdHLX = "05497"
@@ -615,7 +600,7 @@
 	#dim StockNietStock As %String = Product.Basis.StockNietStock
 	#dim MinimumBestelhoeveelheid As %String = Product.Prijs.MinimumBestelhoeveelheid
 	#dim VerpakkingsProduct As %String = Product.Prijs.VerpakkingsProduct
-	#dim LeverancierNummer As %String = ..GeefLeverancierNummer(Product)
+	#dim LeverancierNummer As %String = Product.Basis.LeverancierNummer
 	
 	If (StockNietStock '= "1") {
 		Set BepaalInventItemSalesSetupLowestQtyVH = MinimumBestelhoeveelheid
@@ -636,7 +621,7 @@
 	#dim StockNietStock As %String = Product.Basis.StockNietStock
 	#dim MinimumBestelhoeveelheid As %String = Product.Prijs.MinimumBestelhoeveelheid
 	#dim VerpakkingsProduct As %String = Product.Prijs.VerpakkingsProduct
-	#dim LeverancierNummer As %String = ..GeefLeverancierNummer(Product)
+	#dim LeverancierNummer As %String = Product.Basis.LeverancierNummer
 	#dim KSPrijslijst As %String = Product.Basis.KSPrijsLijst
 	
 	If (((VerpakkingsProduct = "") && (StockNietStock '= "1")) || ((VerpakkingsProduct '= "") && (StockNietStock '= "1") && (LeverancierNummer '= "5005"))) {
@@ -714,7 +699,7 @@
 	#dim BevatVPK As %Integer = $Find(SubGroep,"VPK/")
 	#dim BevatVPA As %Integer = $Find(SubGroep,"VPA/")
 	#dim ScanType As %String = Product.Basis.ScanType
-	#dim LeverancierNummer As %String = ..GeefLeverancierNummer(Product)
+	#dim LeverancierNummer As %String = Product.Basis.LeverancierNummer
 	
 	If ((SubGroepLaatsteDrieKarakters = "/OL") && (LeverancierNummer = "6051") && (..DefaultOrderTypeVH = "Productie")) {
 		Set BepaalReqGroupIdVH = "MTO"
@@ -750,7 +735,7 @@
 	#dim BevatVPA As %Integer = $Find(SubGroep,"VPA/")
 	#dim Herbestelsurplus As %String = Product.Basis.HerbestelSurplus
 	#dim Herbestelafronding As %String = Product.Basis.HerbestelAfronding
-	#dim LeverancierNummer As %String = ..GeefLeverancierNummer(Product)
+	#dim LeverancierNummer As %String = Product.Basis.LeverancierNummer
 	
 	If ((StockNietStock = "1") && (SubGroepEersteVierKarakters = "12AL")) {
 		Set BepaalReqGroupIdHLX = "MTS-1W"
@@ -805,7 +790,7 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim BepaalInventItemPurchSetupCalendarDaysVH As %String
-	#dim LeverancierNummer As %String = ..GeefLeverancierNummer(Product)
+	#dim LeverancierNummer As %String = Product.Basis.LeverancierNummer
 	
 	If (LeverancierNummer = "5005") {
 		Set BepaalInventItemPurchSetupCalendarDaysVH = "0"
@@ -984,7 +969,7 @@
 <Implementation><![CDATA[
 	#dim DefaultDimensionVH As %String
 	#dim LinkType As %String = Product.Basis.LinkType
-	#dim LeverancierNummer As %String = ..GeefLeverancierNummer(Product)
+	#dim LeverancierNummer As %String = Product.Basis.LeverancierNummer
 	
 	If (..DefaultOrderTypeVH = "Productie") {
 		Set DefaultDimensionVH = ""
@@ -1006,7 +991,7 @@
 <Implementation><![CDATA[
 	#dim DefaultDimensionHLX As %String
 	#dim LinkType As %String = Product.Basis.LinkType
-	#dim LeverancierNummer As %String = ..GeefLeverancierNummer(Product)
+	#dim LeverancierNummer As %String = Product.Basis.LeverancierNummer
 	
 	If ((LinkType '= "HH") && (LinkType '= "HHZ")) {
 		Set DefaultDimensionHLX = "05497"