Index: AX/Uitgaand/VKP/VanHoeckeKlantAdditioneleAdressen/impl/AxVanHoeckeKlantAdditioneleAdressenIterator.cls.xml
===================================================================
diff -u -r38269 -r38303
--- AX/Uitgaand/VKP/VanHoeckeKlantAdditioneleAdressen/impl/AxVanHoeckeKlantAdditioneleAdressenIterator.cls.xml	(.../AxVanHoeckeKlantAdditioneleAdressenIterator.cls.xml)	(revision 38269)
+++ AX/Uitgaand/VKP/VanHoeckeKlantAdditioneleAdressen/impl/AxVanHoeckeKlantAdditioneleAdressenIterator.cls.xml	(.../AxVanHoeckeKlantAdditioneleAdressenIterator.cls.xml)	(revision 38303)
@@ -3,7 +3,7 @@
 <Class name="AX.Uitgaand.VKP.VanHoeckeKlantAdditioneleAdressen.impl.AxVanHoeckeKlantAdditioneleAdressenIterator">
 <Super>TECH.RegisteredObject,TECH.Iterator</Super>
 
-<Property name="KlantIterator">
+<Property name="KlantAdditioneleAdressenIterator">
 <Type>TECH.Iterator</Type>
 </Property>
 
@@ -16,13 +16,13 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>KlantAdditioneleIterator:TECH.Iterator</FormalSpec>
+<FormalSpec>KlantAdditioneleAdressenIterator:TECH.Iterator</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..KlantIterator = KlantAdditioneleIterator
+	Set ..KlantAdditioneleAdressenIterator = KlantAdditioneleAdressenIterator
 	Set ..Converter = ##class(AXimpl.BizTalkMessage.Converter.AddressUpsertConverter).%New()
 	
 	Quit $$$OK
@@ -31,15 +31,15 @@
 
 <Method name="HasNext">
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ..KlantIterator.HasNext()
+<Implementation><![CDATA[	Quit ..KlantAdditioneleAdressenIterator.HasNext()
 ]]></Implementation>
 </Method>
 
 <Method name="Next">
 <ReturnType>%CacheString</ReturnType>
 <Implementation><![CDATA[
 	#dim NextUniekId As %String
-	Set NextUniekId = ..KlantIterator.Next()
+	Set NextUniekId = ..BepaalVolgendNummer()
 	Set ..Key = NextUniekId
 	
 	Set Request = ##class(AXBizTalk.Crm.Address.Upsert.Request).%New("Crm/Address/Upsert/Address",NextUniekId)
@@ -48,14 +48,30 @@
 </Method>
 
 <Method name="Reset">
-<Implementation><![CDATA[	Quit ..KlantIterator.Reset()
+<Implementation><![CDATA[	Quit ..KlantAdditioneleAdressenIterator.Reset()
 ]]></Implementation>
 </Method>
 
 <Method name="Key">
 <Implementation><![CDATA[	Quit ..Key
 ]]></Implementation>
 </Method>
+
+<Method name="BepaalVolgendNummer">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Continue As %Boolean = $$$True
+	#dim NextUniekId As %String
+	While Continue {
+		Set NextUniekId = ..KlantAdditioneleAdressenIterator.Next()
+		#dim KlantId As %String = $p(##class(TECH.ListUtils).ListbuildToPieces(^KKL.AdresI("KlantId_AdresVolgNr",NextUniekId),","),",",1)
+		#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(KlantId)
+		Set Continue = (Klant.GeefRegio() = 98) || (Klant.GeefRegio() = 99)
+	}
+	Quit NextUniekId
+]]></Implementation>
+</Method>
 </Class>