Index: AX/Uitgaand/PM/Assortimenten/impl/ProductCategorieGenerator.cls.xml
===================================================================
diff -u -r46565 -r47257
--- AX/Uitgaand/PM/Assortimenten/impl/ProductCategorieGenerator.cls.xml	(.../ProductCategorieGenerator.cls.xml)	(revision 46565)
+++ AX/Uitgaand/PM/Assortimenten/impl/ProductCategorieGenerator.cls.xml	(.../ProductCategorieGenerator.cls.xml)	(revision 47257)
@@ -6,11 +6,23 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.RegisteredObject</Super>
 
-<Property name="MigratieProductVolgensAxEntiteitRepository">
-<Type>AX.Uitgaand.PM.impl.MigratieProductVolgensAxEntiteitRepository</Type>
+<Property name="AxEntiteit">
+<Type>%String</Type>
+<InitialExpression>"ProductCategorie"</InitialExpression>
 <Private>1</Private>
 </Property>
 
+<Property name="AxEntiteitLogger">
+<Type>AX.Uitgaand.PM.impl.LoggerProductenMigratie</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Vestiging">
+<Type>%String</Type>
+<InitialExpression>##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()</InitialExpression>
+<Private>1</Private>
+</Property>
+
 <Property name="FileWriter">
 <Type>TECH.File.FileWriter</Type>
 <Private>1</Private>
@@ -41,11 +53,11 @@
 <Method name="%OnNew">
 <Description>
  Do ##class(AX.Uitgaand.PM.Assortimenten.impl.ProductCategorieGenerator).%New().ExportAll()</Description>
-<FormalSpec>FileWriter:TECH.File.FileWriter,MigratieProductVolgensAxEntiteitRepository:AX.Uitgaand.PM.impl.MigratieProductVolgensAxEntiteitRepository</FormalSpec>
+<FormalSpec>FileWriter:TECH.File.FileWriter,AxEntiteitLogger:AX.Uitgaand.PM.impl.LoggerProductenMigratie</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set ..MigratieProductVolgensAxEntiteitRepository = $$$Inject(MigratieProductVolgensAxEntiteitRepository,##class(AX.Uitgaand.PM.impl.MigratieProductVolgensAxEntiteitRepository).%New())
-	Do ..MigratieProductVolgensAxEntiteitRepository.VerwijderVolgensAxEntiteit("ProductCategorie", "VHBE")
+	Set ..AxEntiteitLogger = $$$Inject(AxEntiteitLogger,##class(AX.Uitgaand.PM.impl.LoggerProductenMigratie).%New())
+	Do ..AxEntiteitLogger.ResetLoggingAxEntiteit(..AxEntiteit, ..Vestiging)
 	Set ..FileWriter = $$$Implementation(FileWriter, ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter())
 	Set ..SoprConvertor=##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
  	Set ..CategorieBepaler=##class(AX.Uitgaand.PM.Assortimenten.impl.AssortimentCategorieBepaler).%New()
@@ -55,6 +67,7 @@
 
 <Method name="ExportAll">
 <Implementation><![CDATA[
+	Do StartTimer^vhLib
 	#dim itProduct As TECH.Iterator
 	#dim PRNr As %String
 	#dim rs As TECH.ResultSet
@@ -70,9 +83,11 @@
 		Do ..ExportProduct(PRNr)
 	}
 	
-	Do ..FileWriter.Open(##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_DIXF"),"0610ProductCategorieenVHBE.csv"),$$$False)
+	Do ..FileWriter.Open(##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_DIXF"),"0610_"_..Vestiging_"_ProductCategorieen.csv"),$$$False)
 	Do ..FileWriter.WriteStream(..Stream)
 	Do ..FileWriter.Close()
+	Write !,"Csv voor migratie 0610_"_..Vestiging_"_ProductCategorieen is klaar. Aantal minuten: " 
+	write $$TimeFromStart^vhLib()/60
 ]]></Implementation>
 </Method>
 
@@ -81,7 +96,7 @@
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[
 	Set rs=##class(TECH.ResultSet).%New()
-	Do rs.Prepare("SELECT ID FROM Prod.Product WHERE isnull(Gentype,'')='' AND KortTekst NOT LIKE 'IO%' AND (NonAktief IS null OR NonAktief = '2')")
+	Do rs.Prepare("SELECT ID FROM Prod.Product WHERE isnull(Gentype,'')='' AND KortTekst NOT LIKE 'IO%' AND (NonAktief IS null OR NonAktief = '2') AND ID NOT IN (797700,1102922,1156079,785609,769387,830298,865318,865317,865329,865330,865327)")
  	Do rs.Execute()
 	Set it=##class(TECH.ResultSetIterator).%New(rs)
 	Quit it
@@ -124,16 +139,7 @@
 		Do ..Stream.WriteLine("Assortiment"_";"_..CategorieBepaler.VertaalAssortimentGroep(AssortimentGroep)_";"_IdentNr)
 	}
 	
-	#dim ProductNr As %String = PRNr
-	#dim AxEntiteit As %String = "ProductCategorie"
-	#dim Vestiging As %String = "VHBE"
-	If $$$Not(..MigratieProductVolgensAxEntiteitRepository.BestaatVolgensProductFilter(ProductNr, AxEntiteit, Vestiging)) {
-		Set MigratieProductVolgensAxEntiteit = ##class(AX.Uitgaand.PM.impl.MigratieProductVolgensAxEntiteit).%New()
-		Set MigratieProductVolgensAxEntiteit.AxEntiteit = AxEntiteit
-		Set MigratieProductVolgensAxEntiteit.ProductNr = ProductNr
-		Set MigratieProductVolgensAxEntiteit.Vestiging = Vestiging
-		Do MigratieProductVolgensAxEntiteit.Save()
-	}
+	Do ..AxEntiteitLogger.LogAxEntiteit(PRNr, ..AxEntiteit, ..Vestiging)
 ]]></Implementation>
 </Method>
 
Index: AX/Uitgaand/PM/impl/RunAll2a.cls.xml
===================================================================
diff -u -r47251 -r47257
--- AX/Uitgaand/PM/impl/RunAll2a.cls.xml	(.../RunAll2a.cls.xml)	(revision 47251)
+++ AX/Uitgaand/PM/impl/RunAll2a.cls.xml	(.../RunAll2a.cls.xml)	(revision 47257)
@@ -33,7 +33,7 @@
 	Do ##class(AX.Uitgaand.PM.UOMConversie.impl.UOMConversieDixfGenerator).%New().GenerateAll() 									// 0608 - UOMCONVERSIE
 	Do ##class(AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfGenerator).%New().GenerateAll("VHBE") 						// 0609 - BEHOEFTEPLANNING MINMAX
 	Do ##class(AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfGenerator).%New().GenerateAll("HLX") 						// 0609 - BEHOEFTEPLANNING MINMAX
-	Do ##class(AX.Uitgaand.PM.Assortimenten.impl.ProductCategorieGenerator).%New().ExportAll() 										// 0610 - PRODUCTCATEGORIEEN
+	Do ##class(AX.Uitgaand.PM.Assortimenten.impl.ProductCategorieGenerator).%New().ExportAll() 										// 0610_VHBE_PRODUCTCATEGORIEEN *
 	Do ##class(AX.Uitgaand.PM.KostPrijs.impl.KostPrijsDixfGenerator).%New().GenerateAll("VHBE") 									// 0612_VHBE_KOSTPRIJZEN *
 	Do ##class(AX.Uitgaand.PM.KostPrijs.impl.KostPrijsDixfGenerator).%New().GenerateAll("HLX") 										// 0612_HLX_KOSTPRIJZEN *
 	Do ##class(AX.Uitgaand.PM.LijstPrijs.impl.LijstPrijsDixfGenerator).%New().GenerateAll("VHBE") 									// 0613 - LIJSTPRIJZEN