Index: AX/Uitgaand/PM/SOPRContract/impl/SOPRIterator.cls.xml
===================================================================
diff -u -r46463 -r46464
--- AX/Uitgaand/PM/SOPRContract/impl/SOPRIterator.cls.xml	(.../SOPRIterator.cls.xml)	(revision 46463)
+++ AX/Uitgaand/PM/SOPRContract/impl/SOPRIterator.cls.xml	(.../SOPRIterator.cls.xml)	(revision 46464)
@@ -3,6 +3,11 @@
 <Class name="AX.Uitgaand.PM.SOPRContract.impl.SOPRIterator">
 <Super>TECH.RegisteredObject,TECH.Iterator</Super>
 
+<Property name="MigratieProductVolgensAxEntiteitRepository">
+<Type>AX.Uitgaand.PM.impl.MigratieProductVolgensAxEntiteitRepository</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Vestiging">
 <Type>AXimpl.InterneFirmaInitialen</Type>
 <Private>1</Private>
@@ -29,15 +34,18 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>Vestiging:AXimpl.InterneFirmaInitialen</FormalSpec>
+<FormalSpec>Vestiging:AXimpl.InterneFirmaInitialen,MigratieProductVolgensAxEntiteitRepository:AX.Uitgaand.PM.impl.MigratieProductVolgensAxEntiteitRepository</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("SOPRContract", Vestiging)
 	Do ##class(AX.Uitgaand.PM.SOPRContract.impl.SOPRCacheBouwen).%New(Vestiging).BouwCache()
 	Set ..DynIterator = ##class(TECH.GlobalMultiDimIterator).%New($NAME(^||SOPRContract(Vestiging)))
 	Set ..Converter = ##class(AX.Uitgaand.PM.SOPRContract.impl.SOPRDixfConverter).%New(Vestiging)
+	Set ..Vestiging = Vestiging
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -55,6 +63,17 @@
 	Set ..Nodes=..DynIterator.Key()
 	#dim ConvertedPrijsUitz As AXdixf.SOPRContract.SOPRDefinitie = ..Converter.Convert( ..GeefPRNr(),..GeefKLNr())
 	
+	#dim ProductNr As %String = ..GeefPRNr()
+	#dim AxEntiteit As %String = "SOPRContract"
+	#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()
+	}	
+	
 	Quit ConvertedPrijsUitz
 ]]></Implementation>
 </Method>