Index: vhUnitTest/AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfConverter/Test.cls.xml
===================================================================
diff -u -r48013 -r50640
--- vhUnitTest/AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 48013)
+++ vhUnitTest/AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 50640)
@@ -8,11 +8,6 @@
 <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>
@@ -35,7 +30,6 @@
 <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 ..SoprConverter = ##class(vhTest.Fake.AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
 ]]></Implementation>
@@ -48,6 +42,23 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: AdminProductNummer is het ProductNummer van het product zelf">
+<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()
+	
+	#dim Converter As AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevDixfConverter = ..GeefConverter()
+	
+	#dim ConvertedProduct As AXdixf.ExtArtOmschr.ExtArtOmschr = Converter.Convert(AxProduct,Firma)
+	
+	Do $$$AssertEquals(ConvertedProduct.AdminProductNummer,..#ProductId)
+]]></Implementation>
+</Method>
+
 <Method name="Test: Voor Van Hoecke is CustVendRelation het LeverancierNummer met indien minder dan 5 cijfers een voorloopnul">
 <Implementation><![CDATA[
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
@@ -183,7 +194,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: ExternalItemTXT roept de BestelreferentieSamensteller op">
+<Method name="Test: ExternalItemTXT is per default een lege string">
 <Implementation><![CDATA[
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
@@ -192,20 +203,15 @@
 	
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
 	
-	Set BestelreferentieSamenstellerMock = ##class(vhTest.Mock.AX.Uitgaand.PM.impl.SamenstellingBestelreferentieProductenInEenString).%New()
-	Do BestelreferentieSamenstellerMock.VerwachtMethodCall("SamenstellingBestelreferentieProductenInEenString",AxProduct).DanDoeNiks()
-
-	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()
+	Do $$$AssertEquals(ConvertedProduct.ExternalItemTXT,"")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: InventDimID is de default string AllBlank">
+<Method name="Test: InventDimID is per default een lege string">
 <Implementation><![CDATA[
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
@@ -218,46 +224,47 @@
 	
 	#dim ConvertedProduct As AXdixf.ExtArtOmschr.ExtArtOmschr = Converter.Convert(AxProduct,Firma)
 	
-	Do $$$AssertEquals(ConvertedProduct.InventDimID,"AllBlank")
+	Do $$$AssertEquals(ConvertedProduct.InventDimID,"")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: ItemId is het IdentNummer">
+<Method name="Test: ItemId is het IdentNummer van het Generische Product">
 <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 AxProduct.Basis.GenerischeRoutine = ..#ProductId
 	
 	#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")
+	Do $$$AssertEquals(ConvertedProduct.ItemId,"0.123.451.0")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Voor Van Hoecke is ModuleType per default de string 03">
+<Method name="Test: ItemId is leeg als er geen Generische Product gevonden wordt">
 <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.GenerischeRoutine = "Geen Generisch Product"
 	
 	#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")
+	Do $$$AssertEquals(ConvertedProduct.ItemId,"")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Voor Van Hoecke is ModuleType 05 als het LeverancierNummer 5005 is en het een Sopr is">
+<Method name="Test: Voor Van Hoecke is ModuleType per default de string 04">
 <Implementation><![CDATA[
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(5005)
@@ -266,20 +273,15 @@
 	
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
 	
-	Set SoprConverterStub = ##class(vhTest.Mock.AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
-	Do SoprConverterStub.IndienMethodCall("IsSOPRInCache",..#ProductId).DanReturn($$$True)
-	
-	Set ..SoprConverter = SoprConverterStub
-	
 	#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")
+	Do $$$AssertEquals(ConvertedProduct.ModuleType,"04")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Voor Halux is ModuleType per default de string 03">
+<Method name="Test: Voor Halux is ModuleType per default de string 04">
 <Implementation><![CDATA[
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
@@ -297,7 +299,7 @@
 	
 	#dim ConvertedProduct As AXdixf.ExtArtOmschr.ExtArtOmschr = Converter.Convert(AxProduct,Firma)
 	
-	Do $$$AssertEquals(ConvertedProduct.ModuleType,"03")
+	Do $$$AssertEquals(ConvertedProduct.ModuleType,"04")
 ]]></Implementation>
 </Method>
 
@@ -314,7 +316,7 @@
 <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(..ConvertorLeveranciersnummerVanHoeckeNaarHalux, ..BestelreferentieSamensteller, ..SoprConverter)
+<Implementation><![CDATA[	Quit ##class(AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevDixfConverter).%New(..ConvertorLeveranciersnummerVanHoeckeNaarHalux, ..SoprConverter)
 ]]></Implementation>
 </Method>
 </Class>
Index: AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfConverter.cls.xml
===================================================================
diff -u -r48013 -r50640
--- AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfConverter.cls.xml	(.../ExtArtOmschrLevDixfConverter.cls.xml)	(revision 48013)
+++ AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfConverter.cls.xml	(.../ExtArtOmschrLevDixfConverter.cls.xml)	(revision 50640)
@@ -13,11 +13,6 @@
 <Private>1</Private>
 </Property>
 
-<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>
@@ -44,14 +39,13 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>ConvertorLeveranciersnummerVanHoeckeNaarHalux:AX.Uitgaand.PM.impl.Convertor.ConvertorLeveranciersnummerVanHoeckeNaarHalux,BestelreferentieSamensteller:AX.Uitgaand.PM.impl.SamenstellingBestelreferentieProductenInEenString,SoprConverter:AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor</FormalSpec>
+<FormalSpec>ConvertorLeveranciersnummerVanHoeckeNaarHalux:AX.Uitgaand.PM.impl.Convertor.ConvertorLeveranciersnummerVanHoeckeNaarHalux,SoprConverter:AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..ConvertorLeveranciersnummerVanHoeckeNaarHalux = $$$Inject(ConvertorLeveranciersnummerVanHoeckeNaarHalux,##class(AX.Uitgaand.PM.impl.Convertor.ConvertorLeveranciersnummerVanHoeckeNaarHalux).%New())
-	Set ..BestelreferentieSamensteller = $$$Inject(BestelreferentieSamensteller,##class(AX.Uitgaand.PM.impl.SamenstellingBestelreferentieProductenInEenString).%New())
 	Set ..SoprConverter = $$$Inject(SoprConverter,##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New())
 	Set ..SoprBlumKundeConverter = ##class(AX.Uitgaand.PM.impl.Convertor.Sopr.BlumKunde).%New()
 
@@ -65,13 +59,14 @@
 <Implementation><![CDATA[
 	Set ..AxProduct = ##class(AXdixf.ExtArtOmschr.ExtArtOmschr).%New()
 	
+	Set ..AxProduct.AdminProductNummer = Product.Basis.ProductNr
 	Set ..AxProduct.ADUDefault = "1"
 	Set ..AxProduct.CustVendRelation = ..BepaalCustVendRelation(Product,Vestiging)
 	Set ..AxProduct.ExternalItemID = ..BepaalExternalItemID(Product)
-	Set ..AxProduct.ExternalItemTXT = ..BestelreferentieSamensteller.SamenstellingBestelreferentieProductenInEenString(Product)
-	Set ..AxProduct.InventDimID = "AllBlank"
-	Set ..AxProduct.ItemId = Product.Basis.IdentNummer
-	Set ..AxProduct.ModuleType = ..BepaalModuleType(Product,Vestiging)
+	Set ..AxProduct.ExternalItemTXT = ""
+	Set ..AxProduct.InventDimID = ""
+	Set ..AxProduct.ItemId = ..BepaalIdentNummerGenerischProduct(+Product.Basis.GenerischeRoutine)
+	Set ..AxProduct.ModuleType = "04"
 	
 	Quit ..AxProduct
 ]]></Implementation>
@@ -120,21 +115,23 @@
 ]]></Implementation>
 </Method>
 
-<Method name="BepaalModuleType">
-<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product,Vestiging:AXimpl.InterneFirmaInitialen</FormalSpec>
+<Method name="BepaalIdentNummerGenerischProduct">
+<FormalSpec>GenerischeRoutine:%Integer</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim ModuleType As %String = "03"
-	#dim LeverancierNummer As %String = Product.Basis.LeverancierNummer
-	#dim PRNr As %String = Product.Basis.ProductNr
+	#dim identNummerGenerischProduct As %String = ""
 	
-	If Vestiging = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() {
-		If ((LeverancierNummer = "5005") && (..SoprConverter.IsSOPRInCache(PRNr))) {
-			Set ModuleType = "05"
-	}}
+	If $$$Not(GenerischeRoutine = 0) {
+		try {
+			Set GenerischProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(GenerischeRoutine)	
+			Set identNummerGenerischProduct = GenerischProduct.Basis.IdentNummer
+		} catch {
+			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		}
+	}
 	
-	Quit ModuleType
+	Quit identNummerGenerischProduct
 ]]></Implementation>
 </Method>
 </Class>