Index: AX/Uitgaand/PM/Assortimenten/impl/ProductCategorieGenerator.cls.xml
===================================================================
diff -u -r45061 -r46271
--- AX/Uitgaand/PM/Assortimenten/impl/ProductCategorieGenerator.cls.xml	(.../ProductCategorieGenerator.cls.xml)	(revision 45061)
+++ AX/Uitgaand/PM/Assortimenten/impl/ProductCategorieGenerator.cls.xml	(.../ProductCategorieGenerator.cls.xml)	(revision 46271)
@@ -6,6 +6,11 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="MigratieProductVolgensAxEntiteitRepository">
+<Type>AX.Uitgaand.PM.impl.MigratieProductVolgensAxEntiteitRepository</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="FileWriter">
 <Type>TECH.File.FileWriter</Type>
 <Private>1</Private>
@@ -36,9 +41,11 @@
 <Method name="%OnNew">
 <Description>
  Do ##class(AX.Uitgaand.PM.Assortimenten.impl.ProductCategorieGenerator).%New().ExportAll()</Description>
-<FormalSpec>FileWriter:TECH.File.FileWriter</FormalSpec>
+<FormalSpec>FileWriter:TECH.File.FileWriter,MigratieProductVolgensAxEntiteitRepository:AX.Uitgaand.PM.impl.MigratieProductVolgensAxEntiteitRepository</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	Set ..MigratieProductVolgensAxEntiteitRepository = $$$Inject(MigratieProductVolgensAxEntiteitRepository,##class(AX.Uitgaand.PM.impl.MigratieProductVolgensAxEntiteitRepository).%New())
+	Do ..MigratieProductVolgensAxEntiteitRepository.VerwijderVolgensAxEntiteit("ProductCategorie", "VHBE")
 	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()
@@ -108,6 +115,17 @@
 	Set IdentNr=$$$PRGet($$$IdentNummer)
 	Set AssortimentGroep=..CategorieBepaler.GeefAssortiment(PRNr)
 	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()
+	}
 ]]></Implementation>
 </Method>