Index: AX/Uitgaand/PM/WHSReservationHierarchyItem/impl/WHSReservationHierarchyItemIterator.cls.xml
===================================================================
diff -u -r43163 -r46267
--- AX/Uitgaand/PM/WHSReservationHierarchyItem/impl/WHSReservationHierarchyItemIterator.cls.xml	(.../WHSReservationHierarchyItemIterator.cls.xml)	(revision 43163)
+++ AX/Uitgaand/PM/WHSReservationHierarchyItem/impl/WHSReservationHierarchyItemIterator.cls.xml	(.../WHSReservationHierarchyItemIterator.cls.xml)	(revision 46267)
@@ -3,6 +3,16 @@
 <Class name="AX.Uitgaand.PM.WHSReservationHierarchyItem.impl.WHSReservationHierarchyItemIterator">
 <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>
+</Property>
+
 <Property name="DynIterator">
 <Type>TECH.Iterator</Type>
 <Private>1</Private>
@@ -24,12 +34,15 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>QueryAPI:TECH.Query.QueryAPI="",Vestiging:AXimpl.InterneFirmaInitialen</FormalSpec>
+<FormalSpec>QueryAPI:TECH.Query.QueryAPI="",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("WHSReservationHierarchyItem", Vestiging)
+	Set ..Vestiging = Vestiging
 	Set ..QueryAPI = $$$Implementation(QueryAPI,##class(TECH.Context).Instance().GeefQueryAPI())
 	Do ..VoerUitQuery()
 	Set Filter = ##class(AX.Uitgaand.PM.WHSReservationHierarchyItem.impl.WHSReservationHierarchyItemIteratorFilter).%New()
@@ -61,8 +74,20 @@
 <Method name="Next">
 <ReturnType>AXdixf.WHSReservationHierarchyItem.WHSReservationHierarchyItem</ReturnType>
 <Implementation><![CDATA[
-	#dim ConvertedProduct As AXdixf.WHSReservationHierarchyItem.WHSReservationHierarchyItem = ..Converter.Convert(..DynIterator.Next().GetData(1))
+	Set Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(..DynIterator.Next().GetData(1))
+	#dim ConvertedProduct As AXdixf.WHSReservationHierarchyItem.WHSReservationHierarchyItem = ..Converter.Convert(Product)
 	
+	#dim ProductNr As %String = Product.Basis.ProductNr
+	#dim AxEntiteit As %String = "WHSReservationHierarchyItem"
+	#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 ConvertedProduct
 ]]></Implementation>
 </Method>