Index: AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfGenerator.cls.xml
===================================================================
diff -u -r42800 -r44971
--- AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfGenerator.cls.xml	(.../ExtArtOmschrLevDixfGenerator.cls.xml)	(revision 42800)
+++ AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfGenerator.cls.xml	(.../ExtArtOmschrLevDixfGenerator.cls.xml)	(revision 44971)
@@ -16,7 +16,12 @@
 <Method name="GenerateAll">
 <FormalSpec>Vestiging:AXimpl.InterneFirmaInitialen</FormalSpec>
 <Implementation><![CDATA[
+	If $$$Not(##class(TECH.StringUtils).Equals(Vestiging,##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv(),##class(AXimpl.InterneFirmaInitialen).HaluxNv())){
+		Set Exceptie = ##class(TECH.Exceptions.IllegalArgumentException).%New("Geef als parameter ofwel VHBE, ofwel HLX mee! Huidige parameter is: '"_Vestiging_"'")
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	}
 	Set ..Vestiging = Vestiging
+	
 	Try {
 		Do StartTimer^vhLib
 		#dim ProductIterator As TECH.Iterator = ##class(AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevIterator).%New(,Vestiging)
Index: vhTest/Mock/AX/Uitgaand/PM/impl/SamenstellingBestelreferentieProductenInEenString.cls.xml
===================================================================
diff -u
--- vhTest/Mock/AX/Uitgaand/PM/impl/SamenstellingBestelreferentieProductenInEenString.cls.xml	(revision 0)
+++ vhTest/Mock/AX/Uitgaand/PM/impl/SamenstellingBestelreferentieProductenInEenString.cls.xml	(revision 44971)
@@ -0,0 +1,26 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.AX.Uitgaand.PM.impl.SamenstellingBestelreferentieProductenInEenString">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>AX.Uitgaand.PM.impl.SamenstellingBestelreferentieProductenInEenString,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="GeefBestelreferentieVoorProductTekst">
+<FormalSpec>ProductTekst:Prod.ProductTekst</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("GeefBestelreferentieVoorProductTekst",ProductTekst)
+]]></Implementation>
+</Method>
+
+<Method name="SamenstellingBestelreferentieProductenInEenString">
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("SamenstellingBestelreferentieProductenInEenString",Product)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Dummy/AX/Uitgaand/PM/impl/SamenstellingBestelreferentieProductenInEenString.cls.xml
===================================================================
diff -u
--- vhTest/Dummy/AX/Uitgaand/PM/impl/SamenstellingBestelreferentieProductenInEenString.cls.xml	(revision 0)
+++ vhTest/Dummy/AX/Uitgaand/PM/impl/SamenstellingBestelreferentieProductenInEenString.cls.xml	(revision 44971)
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Dummy.AX.Uitgaand.PM.impl.SamenstellingBestelreferentieProductenInEenString">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.RegisteredObject,AX.Uitgaand.PM.impl.SamenstellingBestelreferentieProductenInEenString</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="SamenstellingBestelreferentieProductenInEenString">
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfConverter/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfConverter/Test.cls.xml	(revision 0)
+++ vhUnitTest/AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfConverter/Test.cls.xml	(revision 44971)
@@ -0,0 +1,370 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevDixfConverter.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="ProductId">
+<Type>%String</Type>
+<Default>1000</Default>
+</Parameter>
+
+<Property name="BestelreferentieSamensteller">
+<Type>AX.Uitgaand.PM.impl.SamenstellingBestelreferentieProductenInEenString</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ConvertorLeveranciersnummerVanHoeckeNaarHalux">
+<Type>AX.Uitgaand.PM.impl.Convertor.ConvertorLeveranciersnummerVanHoeckeNaarHalux</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Utils">
+<Type>AXimpl.Utils</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+ 	Do ##super()
+ 	Do ##class(vhTest.Utils.DOM.PM.Product).VerwijderProduct(..#ProductId)
+ 	Do ##class(vhTest.Utils.DOM.PM.Product).CreeerProduct(..#ProductId)
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Set ..BestelreferentieSamensteller = ##class(vhTest.Dummy.AX.Uitgaand.PM.impl.SamenstellingBestelreferentieProductenInEenString).%New()
+	Set ..ConvertorLeveranciersnummerVanHoeckeNaarHalux = ##class(vhTest.Mock.AX.Uitgaand.PM.impl.Convertor.ConvertorLeveranciersnummerVanHoeckeNaarHalux).%New()
+	Set ..Utils = ##class(vhTest.Mock.AXimpl.Utils).%New()
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+ 	Do ##class(vhTest.Utils.DOM.PM.Product).VerwijderProduct(..#ProductId)
+ 	Do ##super()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor Van Hoecke is CustVendRelation het LeverancierNummer met indien minder dan 4 cijfers een voorloopnul">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	
+	Set UtilsStub = ##class(vhTest.Mock.AXimpl.Utils).%New()
+	Do UtilsStub.IndienMethodCall("ConvertDefaultOrderType",Firma,AxProduct).DanReturn("DefaultOrderType")
+	
+	Set ..Utils = UtilsStub
+	
+	#dim Converter As AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevDixfConverter = ..GeefConverter()
+	
+	#dim ConvertedProduct As AXdixf.ExtArtOmschr.ExtArtOmschr = Converter.Convert(AxProduct,Firma)
+	
+	Do $$$AssertEquals(ConvertedProduct.CustVendRelation,"06332")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor Van Hoecke is CustVendRelation Blum als het LeverancierNummer 5005 is">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(5005)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	
+	Set UtilsStub = ##class(vhTest.Mock.AXimpl.Utils).%New()
+	Do UtilsStub.IndienMethodCall("ConvertDefaultOrderType",Firma,AxProduct).DanReturn("DefaultOrderType")
+	
+	Set ..Utils = UtilsStub
+	
+	#dim Converter As AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevDixfConverter = ..GeefConverter()
+	
+	#dim ConvertedProduct As AXdixf.ExtArtOmschr.ExtArtOmschr = Converter.Convert(AxProduct,Firma)
+	
+	Do $$$AssertEquals(ConvertedProduct.CustVendRelation,"Blum")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor Halux is CustVendRelation het LeverancierNummer omgezet naar het AXLeverancierNummer met indien minder dan 4 cijfers een voorloopnul">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).HaluxNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	
+	Set UtilsStub = ##class(vhTest.Mock.AXimpl.Utils).%New()
+	Do UtilsStub.IndienMethodCall("ConvertDefaultOrderType",Firma,AxProduct).DanReturn("DefaultOrderType")
+	
+	Set ConvertorLeveranciersnummerVanHoeckeNaarHaluxStub = ##class(vhTest.Mock.AX.Uitgaand.PM.impl.Convertor.ConvertorLeveranciersnummerVanHoeckeNaarHalux).%New()
+	Do ConvertorLeveranciersnummerVanHoeckeNaarHaluxStub.IndienMethodCall("ConvertorLeveranciersnummerVanHoeckeNaarHalux","6332").DanReturn("AXLeverancierNummer")
+	
+	Set ..Utils = UtilsStub
+	Set ..ConvertorLeveranciersnummerVanHoeckeNaarHalux = ConvertorLeveranciersnummerVanHoeckeNaarHaluxStub
+	
+	#dim Converter As AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevDixfConverter = ..GeefConverter()
+	
+	#dim ConvertedProduct As AXdixf.ExtArtOmschr.ExtArtOmschr = Converter.Convert(AxProduct,Firma)
+	
+	Do $$$AssertEquals(ConvertedProduct.CustVendRelation,"AXLeverancierNummer")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ExternalItemID is de LeverancierReferentie">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	
+	Set UtilsStub = ##class(vhTest.Mock.AXimpl.Utils).%New()
+	Do UtilsStub.IndienMethodCall("ConvertDefaultOrderType",Firma,AxProduct).DanReturn("DefaultOrderType")
+	
+	Set ..Utils = UtilsStub
+	
+	#dim Converter As AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevDixfConverter = ..GeefConverter()
+	
+	#dim ConvertedProduct As AXdixf.ExtArtOmschr.ExtArtOmschr = Converter.Convert(AxProduct,Firma)
+	
+	Do $$$AssertEquals(ConvertedProduct.ExternalItemID,"L.123.451.0")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ExternalItemTXT roept de BestelreferentieSamensteller op">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	
+	Set UtilsStub = ##class(vhTest.Mock.AXimpl.Utils).%New()
+	Do UtilsStub.IndienMethodCall("ConvertDefaultOrderType",Firma,AxProduct).DanReturn("DefaultOrderType")
+	
+	Set BestelreferentieSamenstellerMock = ##class(vhTest.Mock.AX.Uitgaand.PM.impl.SamenstellingBestelreferentieProductenInEenString).%New()
+	Do BestelreferentieSamenstellerMock.VerwachtMethodCall("SamenstellingBestelreferentieProductenInEenString",AxProduct).DanDoeNiks()
+	
+	Set ..Utils = UtilsStub
+	Set ..BestelreferentieSamensteller = BestelreferentieSamenstellerMock
+	
+	#dim Converter As AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevDixfConverter = ..GeefConverter()
+	
+	#dim ConvertedProduct As AXdixf.ExtArtOmschr.ExtArtOmschr = Converter.Convert(AxProduct,Firma)
+	
+	Do BestelreferentieSamenstellerMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: InventDimID is de default string AllBlank">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	
+	Set UtilsStub = ##class(vhTest.Mock.AXimpl.Utils).%New()
+	Do UtilsStub.IndienMethodCall("ConvertDefaultOrderType",Firma,AxProduct).DanReturn("DefaultOrderType")
+	
+	Set ..Utils = UtilsStub
+	
+	#dim Converter As AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevDixfConverter = ..GeefConverter()
+	
+	#dim ConvertedProduct As AXdixf.ExtArtOmschr.ExtArtOmschr = Converter.Convert(AxProduct,Firma)
+	
+	Do $$$AssertEquals(ConvertedProduct.InventDimID,"AllBlank")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ItemId is het IdentNummer">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Basis.IdentNummer = "IdentNummer"
+	
+	Set UtilsStub = ##class(vhTest.Mock.AXimpl.Utils).%New()
+	Do UtilsStub.IndienMethodCall("ConvertDefaultOrderType",Firma,AxProduct).DanReturn("DefaultOrderType")
+	
+	Set ..Utils = UtilsStub
+	
+	#dim Converter As AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevDixfConverter = ..GeefConverter()
+	
+	#dim ConvertedProduct As AXdixf.ExtArtOmschr.ExtArtOmschr = Converter.Convert(AxProduct,Firma)
+	
+	Do $$$AssertEquals(ConvertedProduct.ItemId,"IdentNummer")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor Van Hoecke is ModuleType per default de string 03">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	
+	Set UtilsStub = ##class(vhTest.Mock.AXimpl.Utils).%New()
+	Do UtilsStub.IndienMethodCall("ConvertDefaultOrderType",Firma,AxProduct).DanReturn("DefaultOrderType")
+	
+	Set ..Utils = UtilsStub
+	
+	#dim Converter As AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevDixfConverter = ..GeefConverter()
+	
+	#dim ConvertedProduct As AXdixf.ExtArtOmschr.ExtArtOmschr = Converter.Convert(AxProduct,Firma)
+	
+	Do $$$AssertEquals(ConvertedProduct.ModuleType,"03")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor Van Hoecke is ModuleType 05 als het LeverancierNummer 5005 is">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(5005)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	
+	Set UtilsStub = ##class(vhTest.Mock.AXimpl.Utils).%New()
+	Do UtilsStub.IndienMethodCall("ConvertDefaultOrderType",Firma,AxProduct).DanReturn("DefaultOrderType")
+	
+	Set ..Utils = UtilsStub
+	
+	#dim Converter As AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevDixfConverter = ..GeefConverter()
+	
+	#dim ConvertedProduct As AXdixf.ExtArtOmschr.ExtArtOmschr = Converter.Convert(AxProduct,Firma)
+	
+	Do $$$AssertEquals(ConvertedProduct.ModuleType,"05")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor Halux is ModuleType per default de string 03">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).HaluxNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	
+	Set UtilsStub = ##class(vhTest.Mock.AXimpl.Utils).%New()
+	Do UtilsStub.IndienMethodCall("ConvertDefaultOrderType",Firma,AxProduct).DanReturn("DefaultOrderType")
+	
+	Set ConvertorLeveranciersnummerVanHoeckeNaarHaluxStub = ##class(vhTest.Mock.AX.Uitgaand.PM.impl.Convertor.ConvertorLeveranciersnummerVanHoeckeNaarHalux).%New()
+	Do ConvertorLeveranciersnummerVanHoeckeNaarHaluxStub.IndienMethodCall("ConvertorLeveranciersnummerVanHoeckeNaarHalux","6332").DanReturn("AXLeverancierNummer")
+	
+	Set ..Utils = UtilsStub
+	Set ..ConvertorLeveranciersnummerVanHoeckeNaarHalux = ConvertorLeveranciersnummerVanHoeckeNaarHaluxStub
+	
+	#dim Converter As AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevDixfConverter = ..GeefConverter()
+	
+	#dim ConvertedProduct As AXdixf.ExtArtOmschr.ExtArtOmschr = Converter.Convert(AxProduct,Firma)
+	
+	Do $$$AssertEquals(ConvertedProduct.ModuleType,"03")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor de bepaling van DefaultOrderType wordt de Utils opgeroepen">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(5005)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	
+	Set UtilsMock = ##class(vhTest.Mock.AXimpl.Utils).%New()
+	Do UtilsMock.VerwachtMethodCall("ConvertDefaultOrderType",Firma,AxProduct).DanDoeNiks()
+	
+	Set ..Utils = UtilsMock
+	
+	#dim Converter As AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevDixfConverter = ..GeefConverter()
+	
+	#dim ConvertedProduct As AXdixf.ExtArtOmschr.ExtArtOmschr = Converter.Convert(AxProduct,Firma)
+	
+	Do UtilsMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: LeverancierNummer is het LeverancierNummer">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	
+	Set UtilsStub = ##class(vhTest.Mock.AXimpl.Utils).%New()
+	Do UtilsStub.IndienMethodCall("ConvertDefaultOrderType",Firma,AxProduct).DanReturn("DefaultOrderType")
+	
+	Set ..Utils = UtilsStub
+	
+	#dim Converter As AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevDixfConverter = ..GeefConverter()
+	
+	#dim ConvertedProduct As AXdixf.ExtArtOmschr.ExtArtOmschr = Converter.Convert(AxProduct,Firma)
+	
+	Do $$$AssertEquals(ConvertedProduct.LeverancierNummer,"6332")
+]]></Implementation>
+</Method>
+
+<Method name="Test: LinkType is het LinkType">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Basis.LinkType = "LinkType"
+	
+	Set UtilsStub = ##class(vhTest.Mock.AXimpl.Utils).%New()
+	Do UtilsStub.IndienMethodCall("ConvertDefaultOrderType",Firma,AxProduct).DanReturn("DefaultOrderType")
+	
+	Set ..Utils = UtilsStub
+	
+	#dim Converter As AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevDixfConverter = ..GeefConverter()
+	
+	#dim ConvertedProduct As AXdixf.ExtArtOmschr.ExtArtOmschr = Converter.Convert(AxProduct,Firma)
+	
+	Do $$$AssertEquals(ConvertedProduct.LinkType,"LinkType")
+]]></Implementation>
+</Method>
+
+<Method name="GeefTeConverterenProduct">
+<Private>1</Private>
+<ReturnType>AX.Uitgaand.PM.Product.impl.Product</ReturnType>
+<Implementation><![CDATA[
+	Set AxProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
+	Do AxProduct.BasisSetObjectId(..#ProductId)
+	Quit AxProduct
+]]></Implementation>
+</Method>
+
+<Method name="GeefConverter">
+<Private>1</Private>
+<ReturnType>AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevDixfConverter</ReturnType>
+<Implementation><![CDATA[	Quit ##class(AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevDixfConverter).%New(..Utils, ..ConvertorLeveranciersnummerVanHoeckeNaarHalux, ..BestelreferentieSamensteller)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/AX/Uitgaand/PM/impl/SamenstellingBestelreferentieProductenInEenString.cls.xml
===================================================================
diff -u
--- vhTest/Fake/AX/Uitgaand/PM/impl/SamenstellingBestelreferentieProductenInEenString.cls.xml	(revision 0)
+++ vhTest/Fake/AX/Uitgaand/PM/impl/SamenstellingBestelreferentieProductenInEenString.cls.xml	(revision 44971)
@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.AX.Uitgaand.PM.impl.SamenstellingBestelreferentieProductenInEenString">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>AX.Uitgaand.PM.impl.SamenstellingBestelreferentieProductenInEenString</Super>
+
+<Method name="GeefBestelreferentieVoorProductTekst">
+<FormalSpec>ProductTekst:Prod.ProductTekst</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="SamenstellingBestelreferentieProductenInEenString">
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfConverter.cls.xml
===================================================================
diff -u -r42666 -r44971
--- AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfConverter.cls.xml	(.../ExtArtOmschrLevDixfConverter.cls.xml)	(revision 42666)
+++ AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfConverter.cls.xml	(.../ExtArtOmschrLevDixfConverter.cls.xml)	(revision 44971)
@@ -39,14 +39,15 @@
 </Property>
 
 <Method name="%OnNew">
+<FormalSpec>Utils:AXimpl.Utils,ConvertorLeveranciersnummerVanHoeckeNaarHalux:AX.Uitgaand.PM.impl.Convertor.ConvertorLeveranciersnummerVanHoeckeNaarHalux,BestelreferentieSamensteller:AX.Uitgaand.PM.impl.SamenstellingBestelreferentieProductenInEenString</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..BestelreferentieSamensteller = ##class(AX.Uitgaand.PM.impl.SamenstellingBestelreferentieProductenInEenString).%New()
-	Set ..ConvertorLeveranciersnummerVanHoeckeNaarHalux = ##class(AX.Uitgaand.PM.impl.Convertor.ConvertorLeveranciersnummerVanHoeckeNaarHalux).%New()
-	Set ..Utils = ##class(AXimpl.Utils).%New()
+	Set ..Utils = $$$Inject(Utils,##class(AXimpl.Utils).%New())
+	Set ..ConvertorLeveranciersnummerVanHoeckeNaarHalux = $$$Inject(ConvertorLeveranciersnummerVanHoeckeNaarHalux,##class(AX.Uitgaand.PM.impl.Convertor.ConvertorLeveranciersnummerVanHoeckeNaarHalux).%New())
+	Set ..BestelreferentieSamensteller = $$$Inject(BestelreferentieSamensteller,##class(AX.Uitgaand.PM.impl.SamenstellingBestelreferentieProductenInEenString).%New())
 
 	Quit $$$OK
 ]]></Implementation>
@@ -58,24 +59,6 @@
 <Implementation><![CDATA[
 	Set ..AxProduct = ##class(AXdixf.ExtArtOmschr.ExtArtOmschr).%New()
 	
-	Do ..ConvertGemeenschappelijk(Product,Vestiging)
-	
-	If Vestiging = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() {
-		Do ..ConvertVanHoecke()
-	} ElseIf Vestiging = ##class(AXimpl.InterneFirmaInitialen).HaluxNv() {
-			Do ..ConvertHalux()
-		} Else {
-			Write !,"Geef als parameter ofwel VHBE, ofwel HLX mee! Huidige parameter is: "_Vestiging
-	}
-	
-	Quit ..AxProduct
-]]></Implementation>
-</Method>
-
-<Method name="ConvertGemeenschappelijk">
-<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product,Vestiging:AXimpl.InterneFirmaInitialen</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
 	Set ..AxProduct.CustVendRelation = ..BepaalCustVendRelation(Product,Vestiging)
 	Set ..AxProduct.ExternalItemID = Product.Basis.LeverancierReferentie
 	Set ..AxProduct.ExternalItemTXT = ..BestelreferentieSamensteller.SamenstellingBestelreferentieProductenInEenString(Product)
@@ -87,19 +70,11 @@
 	Set ..AxProduct.DefaultOrderType = ..Utils.ConvertDefaultOrderType(Vestiging,Product)
 	Set ..AxProduct.LeverancierNummer = Product.Basis.LeverancierNummer
 	Set ..AxProduct.LinkType = Product.Basis.LinkType
+	
+	Quit ..AxProduct
 ]]></Implementation>
 </Method>
 
-<Method name="ConvertVanHoecke">
-<Private>1</Private>
-<ReturnType>AXdixf.ExtArtOmschr.ExtArtOmschr</ReturnType>
-</Method>
-
-<Method name="ConvertHalux">
-<Private>1</Private>
-<ReturnType>AXdixf.ExtArtOmschr.ExtArtOmschr</ReturnType>
-</Method>
-
 <Method name="BepaalCustVendRelation">
 <FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product,Vestiging:AXimpl.InterneFirmaInitialen</FormalSpec>
 <Private>1</Private>
Index: AX/Uitgaand/PM/impl/SamenstellingBestelreferentieProductenInEenString.cls.xml
===================================================================
diff -u -r41176 -r44971
--- AX/Uitgaand/PM/impl/SamenstellingBestelreferentieProductenInEenString.cls.xml	(.../SamenstellingBestelreferentieProductenInEenString.cls.xml)	(revision 41176)
+++ AX/Uitgaand/PM/impl/SamenstellingBestelreferentieProductenInEenString.cls.xml	(.../SamenstellingBestelreferentieProductenInEenString.cls.xml)	(revision 44971)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="AX.Uitgaand.PM.impl.SamenstellingBestelreferentieProductenInEenString">
-<Super>TECH.RegisteredObject</Super>
+<Super>TECH.RegisteredObject,TECH.Mockable</Super>
 
 <Method name="SamenstellingBestelreferentieProductenInEenString">
 <FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>