Index: AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevIterator.cls.xml
===================================================================
diff -u -r46441 -r47247
--- AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevIterator.cls.xml	(.../AankoopPrijzenLevIterator.cls.xml)	(revision 46441)
+++ AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevIterator.cls.xml	(.../AankoopPrijzenLevIterator.cls.xml)	(revision 47247)
@@ -3,11 +3,17 @@
 <Class name="AX.Uitgaand.PM.AankoopPrijzenLev.impl.AankoopPrijzenLevIterator">
 <Super>TECH.RegisteredObject,TECH.Iterator</Super>
 
-<Property name="MigratieProductVolgensAxEntiteitRepository">
-<Type>AX.Uitgaand.PM.impl.MigratieProductVolgensAxEntiteitRepository</Type>
+<Property name="AxEntiteit">
+<Type>%String</Type>
+<InitialExpression>"AankoopPrijzenLev"</InitialExpression>
 <Private>1</Private>
 </Property>
 
+<Property name="AxEntiteitLogger">
+<Type>AX.Uitgaand.PM.impl.LoggerProductenMigratie</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="LineNum">
 <Type>%Integer</Type>
 <Private>1</Private>
@@ -39,14 +45,14 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>QueryAPI:TECH.Query.QueryAPI="",Vestiging:AXimpl.InterneFirmaInitialen,MigratieProductVolgensAxEntiteitRepository:AX.Uitgaand.PM.impl.MigratieProductVolgensAxEntiteitRepository</FormalSpec>
+<FormalSpec>QueryAPI:TECH.Query.QueryAPI="",Vestiging:AXimpl.InterneFirmaInitialen,AxEntiteitLogger:AX.Uitgaand.PM.impl.LoggerProductenMigratie</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..MigratieProductVolgensAxEntiteitRepository = $$$Inject(MigratieProductVolgensAxEntiteitRepository,##class(AX.Uitgaand.PM.impl.MigratieProductVolgensAxEntiteitRepository).%New())
-	Do ..MigratieProductVolgensAxEntiteitRepository.VerwijderVolgensAxEntiteit("AankoopPrijzenLev", Vestiging)
+	Set ..AxEntiteitLogger = $$$Inject(AxEntiteitLogger,##class(AX.Uitgaand.PM.impl.LoggerProductenMigratie).%New())
+	Do ..AxEntiteitLogger.ResetLoggingAxEntiteit(..AxEntiteit, Vestiging)
 	Set ..QueryAPI = $$$Implementation(QueryAPI,##class(TECH.Context).Instance().GeefQueryAPI())
 	Set ..Vestiging = Vestiging
 	
@@ -85,16 +91,7 @@
 	Set ..LineNum = ..LineNum + 1
 	#dim ConvertedProduct As AXdixf.AankoopPrijzenLev.AankoopPrijzenLev = ..Converter.Convert(Product,..LineNum, ..Vestiging)
 	
-	#dim ProductNr As %String = Product.Basis.ProductNr
-	#dim AxEntiteit As %String = "AankoopPrijzenLev"
-	#dim Vestiging As %String = ..Vestiging
-	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(Product.Basis.ProductNr, ..AxEntiteit, ..Vestiging)
 	
 	Quit ConvertedProduct
 ]]></Implementation>
Index: AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevIteratorFilter.cls.xml
===================================================================
diff -u -r46466 -r47247
--- AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevIteratorFilter.cls.xml	(.../AankoopPrijzenLevIteratorFilter.cls.xml)	(revision 46466)
+++ AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevIteratorFilter.cls.xml	(.../AankoopPrijzenLevIteratorFilter.cls.xml)	(revision 47247)
@@ -8,6 +8,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ServiceProductFilter">
+<Type>AX.Uitgaand.PM.impl.IsServiceProductFilter</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="SoprProductConverter">
 <Type>AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor</Type>
 <Private>1</Private>
@@ -27,6 +32,7 @@
 <Implementation><![CDATA[
 	Set ..Vestiging = Vestiging
 	Set ..IsOrgaluxProductFilter = ##class(AX.Uitgaand.PM.impl.IsOrgaluxProductFilter).%New()
+	Set ..ServiceProductFilter = ##class(AX.Uitgaand.PM.impl.IsServiceProductFilter).%New()
 	Set ..SoprProductConverter = ##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
 	
 	Quit $$$OK
@@ -46,6 +52,10 @@
 		Set IsValid = $$$False
 	} 
 	
+	If (..ServiceProductFilter.IsValid(Product)) {
+		Set IsValid = $$$False
+	}
+	
 	If ((..Vestiging = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()) && (..SoprProductConverter.IsSOPRInCache(ProductNummer)) && $$$Not(..SoprProductConverter.IsSOPRInAX(ProductNummer))) {
 		Set IsValid = $$$False
 	}
Index: AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevDixfGenerator.cls.xml
===================================================================
diff -u -r42800 -r47247
--- AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevDixfGenerator.cls.xml	(.../AankoopPrijzenLevDixfGenerator.cls.xml)	(revision 42800)
+++ AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevDixfGenerator.cls.xml	(.../AankoopPrijzenLevDixfGenerator.cls.xml)	(revision 47247)
@@ -21,7 +21,7 @@
 		Do StartTimer^vhLib
 		#dim ProductIterator As TECH.Iterator = ##class(AX.Uitgaand.PM.AankoopPrijzenLev.impl.AankoopPrijzenLevIterator).%New(,Vestiging)
 		do ..Generate(ProductIterator)
-		Write !,"Csv voor migratie 0606 AankoopPrijzenLev voor "_Vestiging_" is klaar. Aantal minuten: "
+		Write !,"Csv voor migratie 0606_"_Vestiging_"_AankoopPrijzenLev is klaar. Aantal minuten: "
 		Write $$TimeFromStart^vhLib()/60
 	} Catch {
 		Write ##class(TECH.ExceptionHandler).Catch().ToString()
@@ -58,7 +58,7 @@
 	
 	Set AXProductData.ScheidingsTeken = ";"	
 	Set AXProductData.Iterator = ProductIterator
-	Set AXProductData.BestandVolledigeNaam = ##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_DIXF"),"0606AankoopPrijzenLev"_..Vestiging_".csv")
+	Set AXProductData.BestandVolledigeNaam = ##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_DIXF"),"0606_"_..Vestiging_"_AankoopPrijzenLev.csv")
 	
 	#dim BestandGenerator As APPS.common.Rapport.impl.BestandGenerator
 	Set BestandGenerator = ##class(APPS.common.Rapport.impl.BestandGenerator).%New()