Index: AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml
===================================================================
diff -u -r41317 -r41385
--- AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml	(.../VrijgegProductDixfConverter.cls.xml)	(revision 41317)
+++ AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml	(.../VrijgegProductDixfConverter.cls.xml)	(revision 41385)
@@ -56,15 +56,21 @@
 <Private>1</Private>
 </Property>
 
+<Property name="DataDefinitieService">
+<Type>BL.Prod.Kenmerk.DataDefinitieService</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>Vestiging:%String,LeverancierNummer:%String=""</FormalSpec>
+<FormalSpec>Vestiging:%String,LeverancierNummer:%String="",DataDefinitieService:BL.Prod.Kenmerk.DataDefinitieService</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..Vestiging = Vestiging
-	Set ..LeverancierNummer = LeverancierNummer
+	//Set ..LeverancierNummer = LeverancierNummer
+	Set ..DataDefinitieService = $$$Inject(DataDefinitieService,##class(BL.Prod.Kenmerk.DataDefinitieService).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -208,6 +214,7 @@
 	Set AxProduct.ADUProductSubGroupId = ..BepaalADUProductSubGroupId(Product)
 	Set AxProduct.ADUCostInsuranceFreight = ..BepaalADUCostInsuranceFreight(Product)
 	Set AxProduct.ADUPriceContrMargineId = ..BepaalADUPriceContrMargineId(Product)
+	Set AxProduct.DefaultDimension = ..BepaalDefaultDimensionVH(Product)
 	Set ..AxProduct = AxProduct
 	Quit ..AxProduct
 ]]></Implementation>
@@ -323,6 +330,7 @@
 	Set AxProduct.ADUProductSubGroupId = ..BepaalADUProductSubGroupId(Product)
 	Set AxProduct.ADUCostInsuranceFreight = ..BepaalADUCostInsuranceFreight(Product)
 	Set AxProduct.ADUPriceContrMargineId = ..BepaalADUPriceContrMargineId(Product)
+	Set AxProduct.DefaultDimension = ..BepaalDefaultDimensionHLX(Product)
 	Set ..AxProduct = AxProduct
 	Quit ..AxProduct
 ]]></Implementation>
@@ -935,7 +943,7 @@
 <Implementation><![CDATA[
 	#dim AltItemId As %String
 	
-	Set AltItemId = ""
+	Set AltItemId =  $$ListToPieces^vhLib(..DataDefinitieService.GeefDefinitie("OEI",Product.BasisGetObjectId(),"AliasI"),",")
 	Set ..AltItemId = AltItemId
 	
 	Quit AltItemId
@@ -970,6 +978,50 @@
 	Quit WMSLocationIdVH
 ]]></Implementation>
 </Method>
+
+<Method name="BepaalDefaultDimensionVH">
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim DefaultDimensionVH As %String
+	#dim LinkType As %String = Product.Basis.LinkType
+	#dim LeverancierNummer As %String = ..GeefLeverancierNummer(Product)
+	
+	If (..DefaultOrderTypeVH = "Productie") {
+		Set DefaultDimensionVH = ""
+	}
+	ElseIf ((LinkType = "HH") || (LinkType = "HHZ")) {
+		Set DefaultDimensionVH = "06332"
+	}
+	Else {
+		Set DefaultDimensionVH = ##class(TECH.StringUtils).AddLeadingChar(LeverancierNummer,"0",5)
+	}
+	
+	Quit DefaultDimensionVH
+]]></Implementation>
+</Method>
+
+<Method name="BepaalDefaultDimensionHLX">
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim DefaultDimensionHLX As %String
+	#dim LinkType As %String = Product.Basis.LinkType
+	#dim LeverancierNummer As %String = ..GeefLeverancierNummer(Product)
+	
+	If ((LinkType '= "HH") && (LinkType '= "HHZ")) {
+		Set DefaultDimensionHLX = "05497"
+	}
+	ElseIf (..DefaultOrderTypeHLX = "Productie") {
+		Set DefaultDimensionHLX = ""
+	}
+	Else {
+		Set LeverancierNummer = ##class(AX.Uitgaand.PM.impl.ConvertorLeveranciersnummerVanHoeckeNaarHalux).%New().ConvertorLeveranciersnummerVanHoeckeNaarHalux(LeverancierNummer)
+		Set DefaultDimensionHLX = ##class(TECH.StringUtils).AddLeadingChar(LeverancierNummer,"0",5)
+	}
+	Quit DefaultDimensionHLX
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: AXdixf/VrijgegProduct/VrijgegProduct.cls.xml
===================================================================
diff -u -r41317 -r41385
--- AXdixf/VrijgegProduct/VrijgegProduct.cls.xml	(.../VrijgegProduct.cls.xml)	(revision 41317)
+++ AXdixf/VrijgegProduct/VrijgegProduct.cls.xml	(.../VrijgegProduct.cls.xml)	(revision 41385)
@@ -54,6 +54,10 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="DefaultDimension">
+<Type>%String</Type>
+</Property>
+
 <Property name="DefaultInventSiteId">
 <Type>%String</Type>
 </Property>
Index: AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfGenerator.cls.xml
===================================================================
diff -u -r41317 -r41385
--- AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfGenerator.cls.xml	(.../VrijgegProductDixfGenerator.cls.xml)	(revision 41317)
+++ AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfGenerator.cls.xml	(.../VrijgegProductDixfGenerator.cls.xml)	(revision 41385)
@@ -129,11 +129,12 @@
 	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "SearchName","SearchName")
 	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "Stopped","Stopped")
 	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "UOMSeqGroupId","UOMSeqGroupId")
-	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "UseAltItemId","UseAltItemId")
-	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "WMSLocationId","WMSLocationId")
-	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "AltItemId","AltItemId")
+	/*Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "UseAltItemId","UseAltItemId")*/ // Afhankelijk van AltItemId
+	/*Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "WMSLocationId","WMSLocationId")*/ //Voorlopig on hold (Karel)
+	/*Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "AltItemId","AltItemId")*/ //Voorlopig on hold (Gilles)
 	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventItemSalesDeliveryDateControlType","InventItemSales_DeliveryDateControlType")
 	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventItemSalesSetupATPTimeFence","InventItemSalesSetup_ATPTimeFence")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "DefaultDimension","DefaultDimension")
 	
 	// Volgende 5 velden moeten voor upload op Staging uitgesloten worden:
 	/*
Index: vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml
===================================================================
diff -u -r41317 -r41385
--- vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 41317)
+++ vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 41385)
@@ -3,13 +3,34 @@
 <Class name="vhUnitTest.AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter.Test">
 <Super>vhUnitTest.TestCase</Super>
 
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Method OnBeforeOneTest(aTestName As %String)
+{
+	do ##super(aTestName)
+	
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(5005)
+}*/
+]]></Content>
+</UDLText>
+
 <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)
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
+
 	#dim Vestiging As %String = "VanHoecke"
 	#dim LeverancierNummer As %String = "6332"
-	#dim TestProduct As AXdixf.VrijgegProduct.VrijgegProduct = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer).ConvertVanHoecke(AxProduct)
+	#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,LeverancierNummer,DataDefinitieService).ConvertVanHoecke(AxProduct)
 	
+	Do $$$AssertEquals(TestProduct.AltItemId,"1234")
 	Do $$$AssertEquals(TestProduct.BatchNumGroupId,"Batch")
 	Do $$$AssertEquals(TestProduct.BOMUnitId,"STK")
 	Do $$$AssertEquals(TestProduct.CostGroupId,"")
@@ -86,11 +107,18 @@
 
 <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)
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
+	
 	#dim Vestiging As %String = "Halux"
 	#dim LeverancierNummer As %String = "05497"
-	#dim TestProduct As AXdixf.VrijgegProduct.VrijgegProduct = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer).ConvertHalux(AxProduct)
+	#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,LeverancierNummer,DataDefinitieService).ConvertHalux(AxProduct)
 	
+	Do $$$AssertEquals(TestProduct.AltItemId,"1234")
 	Do $$$AssertEquals(TestProduct.BatchNumGroupId,"Batch")
 	Do $$$AssertEquals(TestProduct.BOMUnitId,"STK")
 	Do $$$AssertEquals(TestProduct.CostGroupId,"")
@@ -176,6 +204,8 @@
 	#dim TestProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
 	#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)
 	
 	Set TestProduct.Prijs.KleinVerpakking = ""
 	Set TestProduct.Prijs.NormaleVerpakking = ""
@@ -193,6 +223,8 @@
 	#dim TestProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
 	#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)
 	
 	Set TestProduct.Prijs.KleinVerpakking = ""
 	Set TestProduct.Prijs.NormaleVerpakking = "MediumOne"
@@ -211,6 +243,8 @@
 	#dim TestProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
 	#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)
 	
 	Set TestProduct.Prijs.KleinVerpakking = "LittleOne"
 	Set TestProduct.Prijs.NormaleVerpakking = "MediumOne"
@@ -230,6 +264,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
 	#dim LeverancierNummer As %String = "6051"
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
 	
 	Set AxProduct.Basis.LinkType = "S"
 	
@@ -244,14 +280,15 @@
 <Implementation><![CDATA[
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
-	#dim LeverancierNummer As %String = "9999"
+	#dim LeverancierNummer As %String = "5005"
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(5005)
 	
 	Set AxProduct.Basis.LinkType = "S"
 	
 	#dim DefaultOrderTypeVH As AXdixf.VrijgegProduct.VrijgegProduct = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer).BepaalDefaultOrderTypeVH(AxProduct)
 	
 	Do $$$AssertEquals(DefaultOrderTypeVH,"Aankooporder")
-	Do $$$AssertNotEquals(DefaultOrderTypeVH,"Productie")
 ]]></Implementation>
 </Method>
 
@@ -260,6 +297,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
 	#dim LeverancierNummer As %String = "6051"
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
 	
 	Set AxProduct.Basis.LinkType = ""
 	
@@ -275,6 +314,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "Halux"
 	#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 DefaultOrderTypeHLX As AXdixf.VrijgegProduct.VrijgegProduct = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer).BepaalDefaultOrderTypeHLX(AxProduct)
 	
@@ -287,12 +328,13 @@
 <Implementation><![CDATA[
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "Halux"
-	#dim LeverancierNummer As %String = "9999"
+	#dim LeverancierNummer As %String = "5005"
+	#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)
 	
 	Do $$$AssertEquals(DefaultOrderTypeHLX,"Aankooporder")
-	Do $$$AssertNotEquals(DefaultOrderTypeHLX,"Productie")
 ]]></Implementation>
 </Method>
 
@@ -301,6 +343,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
 	#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)
 	
 	Set AxProduct.Prijs.VerpakkingsProduct = ""
 	
@@ -315,6 +359,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
 	#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)
 	
 	Set AxProduct.Prijs.VerpakkingsProduct = ##class(Prod.Product).%New()
 	
@@ -329,6 +375,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
 	#dim LeverancierNummer As %String = "5005"
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(5005)
 	
 	Set AxProduct.Prijs.VerpakkingsProduct = ##class(Prod.Product).%New()
 	Set AxProduct.Prijs.KleinVerpakking = "LittleOne"
@@ -344,6 +392,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
 	#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)
 	
 	Set AxProduct.Prijs.VerpakkingsProduct = ""
 	
@@ -358,6 +408,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
 	#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)
 	
 	Set AxProduct.Prijs.VerpakkingsProduct = ##class(Prod.Product).%New()
 	
@@ -372,6 +424,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
 	#dim LeverancierNummer As %String = "5005"
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(5005)
 	
 	Set AxProduct.Prijs.VerpakkingsProduct = ##class(Prod.Product).%New()
 	Set AxProduct.Prijs.KleinVerpakking = "LittleOne"
@@ -387,6 +441,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
 	#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 %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
 	Set TestProduct.DefaultOrderTypeVH = "Productie"
@@ -402,6 +458,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
 	#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 %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
 	Set TestProduct.DefaultOrderTypeVH = "Aankooporder"
@@ -419,6 +477,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
 	#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 %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
 	Set TestProduct.DefaultOrderTypeVH = "Aankooporder"
@@ -437,12 +497,15 @@
 	#dim Vestiging As %String = "VanHoecke"
 	#dim LeverancierNummer As %String = "5005"
 	
-	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
-	Set TestProduct.DefaultOrderTypeVH = "Aankooporder"
+	#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.DefaultOrderTypeVH = "Aankooporder"
+	
 	Set AxProduct.Basis.LinkType = "A"
 	
-	#dim PrimaryVendorIdVH As %String = TestProduct.BepaalPrimaryVendorIdVH(AxProduct)
+	#dim PrimaryVendorIdVH As %String = Converter.BepaalPrimaryVendorIdVH(AxProduct)
 	
 	Do $$$AssertEquals(PrimaryVendorIdVH,"05005")
 ]]></Implementation>
@@ -453,6 +516,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "Halux"
 	#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 %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
 	
@@ -469,6 +534,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "Halux"
 	#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 %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
 	Set TestProduct.DefaultOrderTypeHLX = "Productie"
@@ -486,6 +553,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "Halux"
 	#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 %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
 	Set TestProduct.DefaultOrderTypeHLX = "Productie"
@@ -503,6 +572,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "Halux"
 	#dim LeverancierNummer As %String = "7407"
+	#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)
 	Set TestProduct.DefaultOrderTypeHLX = "Aankooporder"
@@ -520,6 +591,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
 	#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 %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
 	Set TestProduct.PrimaryVendorIdVH = "05005"
@@ -537,6 +610,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
 	#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 %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
 	Set TestProduct.DefaultOrderTypeVH = "Aankooporder"
@@ -555,6 +630,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
 	#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 %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
 	Set TestProduct.DefaultOrderTypeVH = "Aankooporder"
@@ -573,6 +650,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
 	#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 %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
 	Set TestProduct.DefaultOrderTypeVH = "Productie"
@@ -591,6 +670,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "Halux"
 	#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 %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
 	Set TestProduct.DefaultOrderTypeHLX = "Aankooporder"
@@ -609,6 +690,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "Halux"
 	#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 %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
 	Set TestProduct.DefaultOrderTypeHLX = "Productie"
@@ -627,6 +710,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "Halux"
 	#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 %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
 	Set TestProduct.DefaultOrderTypeHLX = "Aankooporder"
@@ -645,6 +730,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "Halux"
 	#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 %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
 	Set TestProduct.PrimaryVendorIdHLX = "05497"
@@ -663,6 +750,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "Halux"
 	#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 %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
 	Set TestProduct.PrimaryVendorIdHLX = "05921"
@@ -680,6 +769,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "Halux"
 	#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 %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
 	Set TestProduct.PrimaryVendorIdHLX = "05497"
@@ -698,6 +789,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "Halux"
 	#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 %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
 	Set TestProduct.PrimaryVendorIdHLX = "05921"
@@ -717,6 +810,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "Halux"
 	#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 %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
 	
@@ -733,6 +828,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "Halux"
 	#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 %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
 	
@@ -749,6 +846,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
 	#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 %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
 	
@@ -766,6 +865,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
 	#dim LeverancierNummer As %String = "5005"
+	#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)
 	
@@ -784,6 +885,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
 	#dim LeverancierNummer As %String = "5005"
+	#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)
 	
@@ -802,6 +905,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
 	#dim LeverancierNummer As %String = "7407"
+	#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)
 	
@@ -820,6 +925,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
 	#dim LeverancierNummer As %String = "5005"
+	#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)
 	
@@ -838,6 +945,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
 	#dim LeverancierNummer As %String = "7407"
+	#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)
 	
@@ -856,6 +965,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
 	#dim LeverancierNummer As %String = "5005"
+	#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)
 	
@@ -874,6 +985,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
 	#dim LeverancierNummer As %String = "7407"
+	#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)
 	
@@ -892,6 +1005,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
 	#dim LeverancierNummer As %String = "5005"
+	#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)
 	
@@ -911,6 +1026,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
 	#dim LeverancierNummer As %String = "7407"
+	#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)
 	
@@ -930,6 +1047,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
 	#dim LeverancierNummer As %String = "5005"
+	#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)
 	
@@ -949,6 +1068,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
 	#dim LeverancierNummer As %String = "5005"
+	#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)
 	
@@ -966,6 +1087,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
 	#dim LeverancierNummer As %String = "6051"
+	#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)
 	Set TestProduct.DefaultOrderTypeVH = "Productie"
@@ -983,6 +1106,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
 	#dim LeverancierNummer As %String = "6051"
+	#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)
 	Set TestProduct.DefaultOrderTypeVH = "Aankooporder"
@@ -1000,6 +1125,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
 	#dim LeverancierNummer As %String = "6051"
+	#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)
 	Set TestProduct.DefaultOrderTypeVH = "Aankooporder"
@@ -1017,6 +1144,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
 	#dim LeverancierNummer As %String = "6051"
+	#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)
 	Set TestProduct.DefaultOrderTypeVH = "Aankooporder"
@@ -1035,6 +1164,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
 	#dim LeverancierNummer As %String = "6051"
+	#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)
 	Set TestProduct.DefaultOrderTypeVH = "Aankooporder"
@@ -1054,6 +1185,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
 	#dim LeverancierNummer As %String = "6051"
+	#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)
 	Set TestProduct.DefaultOrderTypeVH = "Aankooporder"
@@ -1074,6 +1207,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "Halux"
 	#dim LeverancierNummer As %String = "6051"
+	#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)
 	
@@ -1091,6 +1226,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "Halux"
 	#dim LeverancierNummer As %String = "6051"
+	#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)
 	Set TestProduct.DefaultOrderTypeHLX = "Aankooporder"
@@ -1108,6 +1245,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "Halux"
 	#dim LeverancierNummer As %String = "6051"
+	#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)
 	Set TestProduct.DefaultOrderTypeHLX = "Aankooporder"
@@ -1125,6 +1264,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "Halux"
 	#dim LeverancierNummer As %String = "6051"
+	#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)
 	
@@ -1143,6 +1284,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
 	#dim LeverancierNummer As %String = "6051"
+	#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)
 	
@@ -1161,6 +1304,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
 	#dim LeverancierNummer As %String = "6051"
+	#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)
 	
@@ -1179,6 +1324,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
 	#dim LeverancierNummer As %String = "6051"
+	#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)
 	
@@ -1197,6 +1344,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
 	#dim LeverancierNummer As %String = "6051"
+	#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)
 	
@@ -1215,6 +1364,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
 	#dim LeverancierNummer As %String = "6051"
+	#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)
 	
@@ -1233,6 +1384,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
 	#dim LeverancierNummer As %String = "6051"
+	#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)
 	
@@ -1251,6 +1404,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
 	#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 %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
 	
@@ -1267,6 +1422,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
 	#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 %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
 	
@@ -1283,6 +1440,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
 	#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 %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
 	Set TestProduct.InventItemSalesDeliveryDateControlType = "ATP + uitgiftemarge"
@@ -1298,6 +1457,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
 	#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 %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
 	Set TestProduct.InventItemSalesDeliveryDateControlType = "CTP"
@@ -1313,6 +1474,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
 	#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 %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
 	Set TestProduct.InventItemSalesDeliveryDateControlType = "ATP + uitgiftemarge"
@@ -1328,6 +1491,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
 	#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 %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
 	Set TestProduct.InventItemSalesDeliveryDateControlType = "CTP"
@@ -1343,6 +1508,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
 	#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 %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
 	
@@ -1360,6 +1527,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
 	#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 %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
 	
@@ -1377,6 +1546,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
 	#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 %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
 	
@@ -1391,18 +1562,19 @@
 
 <Method name="Test: ADUCostInsuranceFreight = Product Prijs CifPerc met puntjes vervangen door komma&apos;s">
 <Implementation><![CDATA[
-	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
 	#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 %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	Set Converter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
 	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	Set AxProduct.Prijs.CifPerc = "25.15"
 	
-	#dim ADUCostInsuranceFreight As %String = TestProduct.BepaalADUCostInsuranceFreight(AxProduct)
+	#dim ADUCostInsuranceFreight As %String = Converter.BepaalADUCostInsuranceFreight(AxProduct)
 	
 	Do $$$AssertEquals(ADUCostInsuranceFreight,"25,15")
-	Do $$$AssertNotEquals(ADUCostInsuranceFreight,"25.15")
 ]]></Implementation>
 </Method>
 
@@ -1411,6 +1583,8 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
 	#dim Vestiging As %String = "VanHoecke"
 	#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 %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
 	
@@ -1423,14 +1597,90 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: AltItemId = uit te pluizen in Admin">
+<Method name="Test: AltItemId staat on hold - Gilles">
 </Method>
 
-<Method name="Test: UseAltItemId = &apos;Altijd&apos; als AltItemId een IdentNummer bevat, anders &apos;Nooit&apos;">
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Method "Test: UseAltItemId = 'Nooit' als AltItemId leeg is, anders 'Altijd'"()
+{
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
+	#dim Vestiging As %String = "VanHoecke"
+	#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 %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	Set TestProduct.AltItemId = "9.975.800.7"
+	
+	qsmkljfglksqdjf
+	sqkljfdsmlkjsq
+	dklfsdj
+	sdlkjfsdlkj
+	sqdkljfdsqlkj
+	sqdklsjdf
+	
+	#dim UseAltItemId As %String = TestProduct.BepaalUseAltItemId(AxProduct)
+	
+	Do $$$AssertEquals(UseAltItemId,"Altijd")
+}
+
+Method "Test: UseAltItemId = 'Altijd' als AltItemId NIET leeg is, anders 'Nooit'"()
+{
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
+	#dim Vestiging As %String = "VanHoecke"
+	#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 %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer)
+	Set TestProduct.AltItemId = ""
+	
+	#dim UseAltItemId As %String = TestProduct.BepaalUseAltItemId(AxProduct)
+	
+	Do $$$AssertEquals(UseAltItemId,"Nooit")
+}
+*/
+]]></Content>
+</UDLText>
+
+<Method name="Test: WMSLocationId staat on hold - Karel">
 </Method>
 
-<Method name="Test: WMSLocationId = te bevragen bij Karel">
+<Method name="Test: Als er geen alias gevonden is, dan moet AltItemId leeg zijn">
+<Implementation><![CDATA[
+	#dim IdentNummerLijst As %List = $ListBuild("")
+	Set DataDefinitieService = ##class(vhTest.Mock.BL.Prod.Kenmerk.DataDefinitieService).%New()
+	Do DataDefinitieService.IndienMethodCall("GeefDefinitie","OEI","","AliasI").DanReturn(IdentNummerLijst)
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
+
+	#dim Vestiging As %String = "VanHoecke"
+	#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,LeverancierNummer,DataDefinitieService).ConvertVanHoecke(AxProduct)
+	
+	Do $$$AssertEquals(TestProduct.AltItemId,"")
+]]></Implementation>
 </Method>
+
+<Method name="Test: Als er meerdere aliassen gevonden zijn, dan moet AltItemId komma-seperated 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)
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
+
+	#dim Vestiging As %String = "VanHoecke"
+	#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,LeverancierNummer,DataDefinitieService).ConvertVanHoecke(AxProduct)
+
+	Do $$$AssertEquals(TestProduct.AltItemId,"1234,5678,9123")
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductIterator.cls.xml
===================================================================
diff -u -r41317 -r41385
--- AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductIterator.cls.xml	(.../VrijgegProductIterator.cls.xml)	(revision 41317)
+++ AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductIterator.cls.xml	(.../VrijgegProductIterator.cls.xml)	(revision 41385)
@@ -45,9 +45,9 @@
 	#Dim SqlStatement as %String
 	Set SqlStatement = "SELECT ID FROM Prod.Product WHERE isnull(Gentype,'')='' and KortTekst not like 'GEN%'"
 	// Indien nodig is hieronder een filter voorzien om het resultaat te beperken tot overzichtelijk, voor debugging:
-	_" and ID in (1432226,1432225,1425096,1425095,682391,1359867,1168696,1168689,830507,1155640,161442,906194,709825,924268,"
+	/*_" and ID in (1432226,1432225,1425096,1425095,682391,1359867,1168696,1168689,830507,1155640,161442,906194,709825,924268,"
 	_"1124771,1038806,1039173,1039208,1247980,353741,353743,353744,254245,254258,1259381,161441,665626,1067709,1067714,268026,"
-	_"1168369,668615,878186,878220,1169509,1194443,383880,830257)"
+	_"1168369,668615,878186,878220,1169509,1194443,383880,830257)"*/
 	Set ..ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement))
 ]]></Implementation>
 </Method>