Index: AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfGenerator.cls.xml
===================================================================
diff -u -r50639 -r50642
--- AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfGenerator.cls.xml	(.../ExtArtOmschrLevDixfGenerator.cls.xml)	(revision 50639)
+++ AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfGenerator.cls.xml	(.../ExtArtOmschrLevDixfGenerator.cls.xml)	(revision 50642)
@@ -26,7 +26,7 @@
 		Do StartTimer^vhLib
 		#dim ProductIterator As TECH.Iterator = ##class(AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevIterator).%New(,Vestiging)
 		do ..Generate(ProductIterator)
-		Write !,"Csv voor migratie 0605d_"_Vestiging_"_ExtArtOmschrLev1Op1Maatwerk is klaar. Aantal minuten: " 
+		Write !,"Csv voor migratie 0605a_"_Vestiging_"_ExtArtOmschrLev is klaar. Aantal minuten: " 
 		write $$TimeFromStart^vhLib()/60
 	} Catch {
 		Write ##class(TECH.ExceptionHandler).Catch().ToString()
@@ -39,7 +39,6 @@
 <Implementation><![CDATA[
 	#dim AXProductData As APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased	
 	Set AXProductData = ##class(APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased).%New()
-	Do AXProductData.VoegToeVeld("AXdixf.ExtArtOmschr.ExtArtOmschr", "AdminProductNummer")
 	Do AXProductData.VoegToeVeld("AXdixf.ExtArtOmschr.ExtArtOmschr", "ADUDefault")
 	Do AXProductData.VoegToeVeld("AXdixf.ExtArtOmschr.ExtArtOmschr", "CustVendRelation")
 	Do AXProductData.VoegToeVeld("AXdixf.ExtArtOmschr.ExtArtOmschr", "ExternalItemID")
@@ -50,7 +49,7 @@
 
 	Set AXProductData.ScheidingsTeken = ";"	
 	Set AXProductData.Iterator = ProductIterator
-	Set AXProductData.BestandVolledigeNaam = ##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_DIXF"),"0605d_"_..Vestiging_"_ExtArtOmschrLev1Op1Maatwerk.csv")
+	Set AXProductData.BestandVolledigeNaam = ##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_DIXF"),"0605a_"_..Vestiging_"_ExtArtOmschrLev.csv")
 	
 	#dim BestandGenerator As APPS.common.Rapport.impl.BestandGenerator
 	Set BestandGenerator = ##class(APPS.common.Rapport.impl.BestandGenerator).%New()
Index: vhUnitTest/AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfConverter/Test.cls.xml
===================================================================
diff -u -r50640 -r50642
--- vhUnitTest/AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 50640)
+++ vhUnitTest/AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 50642)
@@ -8,6 +8,11 @@
 <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>
@@ -30,6 +35,7 @@
 <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>
@@ -42,23 +48,6 @@
 ]]></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()
@@ -194,7 +183,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: ExternalItemTXT is per default een lege string">
+<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)
@@ -203,15 +192,20 @@
 	
 	#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 $$$AssertEquals(ConvertedProduct.ExternalItemTXT,"")
+	Do BestelreferentieSamenstellerMock.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: InventDimID is per default een lege string">
+<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)
@@ -224,47 +218,46 @@
 	
 	#dim ConvertedProduct As AXdixf.ExtArtOmschr.ExtArtOmschr = Converter.Convert(AxProduct,Firma)
 	
-	Do $$$AssertEquals(ConvertedProduct.InventDimID,"")
+	Do $$$AssertEquals(ConvertedProduct.InventDimID,"AllBlank")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: ItemId is het IdentNummer van het Generische Product">
+<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.GenerischeRoutine = ..#ProductId
+	Set AxProduct.Basis.IdentNummer = "IdentNummer"
 	
 	#dim Converter As AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevDixfConverter = ..GeefConverter()
 	
 	#dim ConvertedProduct As AXdixf.ExtArtOmschr.ExtArtOmschr = Converter.Convert(AxProduct,Firma)
 	
-	Do $$$AssertEquals(ConvertedProduct.ItemId,"0.123.451.0")
+	Do $$$AssertEquals(ConvertedProduct.ItemId,"IdentNummer")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: ItemId is leeg als er geen Generische Product gevonden wordt">
+<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 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.ItemId,"")
+	Do $$$AssertEquals(ConvertedProduct.ModuleType,"03")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Voor Van Hoecke is ModuleType per default de string 04">
+<Method name="Test: Voor Van Hoecke is ModuleType 05 als het LeverancierNummer 5005 is en het een Sopr 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)
@@ -273,15 +266,20 @@
 	
 	#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,"04")
+	Do $$$AssertEquals(ConvertedProduct.ModuleType,"05")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Voor Halux is ModuleType per default de string 04">
+<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)
@@ -299,7 +297,7 @@
 	
 	#dim ConvertedProduct As AXdixf.ExtArtOmschr.ExtArtOmschr = Converter.Convert(AxProduct,Firma)
 	
-	Do $$$AssertEquals(ConvertedProduct.ModuleType,"04")
+	Do $$$AssertEquals(ConvertedProduct.ModuleType,"03")
 ]]></Implementation>
 </Method>
 
@@ -316,7 +314,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, ..SoprConverter)
+<Implementation><![CDATA[	Quit ##class(AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevDixfConverter).%New(..ConvertorLeveranciersnummerVanHoeckeNaarHalux, ..BestelreferentieSamensteller, ..SoprConverter)
 ]]></Implementation>
 </Method>
 </Class>
Index: AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfConverter.cls.xml
===================================================================
diff -u -r50640 -r50642
--- AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfConverter.cls.xml	(.../ExtArtOmschrLevDixfConverter.cls.xml)	(revision 50640)
+++ AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfConverter.cls.xml	(.../ExtArtOmschrLevDixfConverter.cls.xml)	(revision 50642)
@@ -13,6 +13,11 @@
 <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>
@@ -39,13 +44,14 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>ConvertorLeveranciersnummerVanHoeckeNaarHalux:AX.Uitgaand.PM.impl.Convertor.ConvertorLeveranciersnummerVanHoeckeNaarHalux,SoprConverter:AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor</FormalSpec>
+<FormalSpec>ConvertorLeveranciersnummerVanHoeckeNaarHalux:AX.Uitgaand.PM.impl.Convertor.ConvertorLeveranciersnummerVanHoeckeNaarHalux,BestelreferentieSamensteller:AX.Uitgaand.PM.impl.SamenstellingBestelreferentieProductenInEenString,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()
 
@@ -59,14 +65,13 @@
 <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 = ""
-	Set ..AxProduct.InventDimID = ""
-	Set ..AxProduct.ItemId = ..BepaalIdentNummerGenerischProduct(+Product.Basis.GenerischeRoutine)
-	Set ..AxProduct.ModuleType = "04"
+	Set ..AxProduct.ExternalItemTXT = ..BestelreferentieSamensteller.SamenstellingBestelreferentieProductenInEenString(Product)
+	Set ..AxProduct.InventDimID = "AllBlank"
+	Set ..AxProduct.ItemId = Product.Basis.IdentNummer
+	Set ..AxProduct.ModuleType = ..BepaalModuleType(Product,Vestiging)
 	
 	Quit ..AxProduct
 ]]></Implementation>
@@ -115,23 +120,21 @@
 ]]></Implementation>
 </Method>
 
-<Method name="BepaalIdentNummerGenerischProduct">
-<FormalSpec>GenerischeRoutine:%Integer</FormalSpec>
+<Method name="BepaalModuleType">
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product,Vestiging:AXimpl.InterneFirmaInitialen</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim identNummerGenerischProduct As %String = ""
+	#dim ModuleType As %String = "03"
+	#dim LeverancierNummer As %String = Product.Basis.LeverancierNummer
+	#dim PRNr As %String = Product.Basis.ProductNr
 	
-	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()
-		}
-	}
+	If Vestiging = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() {
+		If ((LeverancierNummer = "5005") && (..SoprConverter.IsSOPRInCache(PRNr))) {
+			Set ModuleType = "05"
+	}}
 	
-	Quit identNummerGenerischProduct
+	Quit ModuleType
 ]]></Implementation>
 </Method>
 </Class>