Index: AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductIterator.cls.xml
===================================================================
diff -u -r42591 -r42637
--- AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductIterator.cls.xml	(.../VrijgegProductIterator.cls.xml)	(revision 42591)
+++ AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductIterator.cls.xml	(.../VrijgegProductIterator.cls.xml)	(revision 42637)
@@ -4,7 +4,7 @@
 <Super>TECH.RegisteredObject,TECH.Iterator</Super>
 
 <Property name="Vestiging">
-<Type>%String</Type>
+<Type>AXimpl.InterneFirmaInitialen</Type>
 <Private>1</Private>
 </Property>
 
@@ -29,14 +29,14 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>QueryAPI:TECH.Query.QueryAPI="",Vestiging:%String</FormalSpec>
+<FormalSpec>QueryAPI:TECH.Query.QueryAPI="",Vestiging:AXimpl.InterneFirmaInitialen</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..Vestiging = Vestiging
 	Set ..QueryAPI = $$$Implementation(QueryAPI,##class(TECH.Context).Instance().GeefQueryAPI())
+	Set ..Vestiging = Vestiging
 	Do ..VoerUitQuery()
 	Set Filter = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductIteratorFilter).%New()
 	Set ResultSetIterator = ##class(TECH.ResultSetIterator).%New(..ResultSet)