Index: AX/Uitgaand/VKP/KlantAdres/impl/KlantAdresIterator.cls.xml
===================================================================
diff -u -r47678 -r47696
--- AX/Uitgaand/VKP/KlantAdres/impl/KlantAdresIterator.cls.xml	(.../KlantAdresIterator.cls.xml)	(revision 47678)
+++ AX/Uitgaand/VKP/KlantAdres/impl/KlantAdresIterator.cls.xml	(.../KlantAdresIterator.cls.xml)	(revision 47696)
@@ -3,6 +3,11 @@
 <Class name="AX.Uitgaand.VKP.KlantAdres.impl.KlantAdresIterator">
 <Super>TECH.RegisteredObject,TECH.Iterator</Super>
 
+<Property name="LeveradresRepository">
+<Type>AXimpl.Crm.CustomerAddressOut.Converter.LeveradresRepository</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="AdresObject">
 <Type>AX.Uitgaand.VKP.KlantAdres.impl.KlantAdres</Type>
 <Private>1</Private>
@@ -18,26 +23,39 @@
 <Private>1</Private>
 </Property>
 
+<Property name="GlobalIterator">
+<Type>TECH.GlobalIndexIterator</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Converter">
 <Type>AX.Uitgaand.VKP.KlantAdres.impl.KlantAdresDixfConverter</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="VerkoopAPI">
+<Type>DOM.VKP.VerkoopAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="IsBezoekAdres">
 <Type>%Boolean</Type>
 <InitialExpression>0</InitialExpression>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
+<FormalSpec>VerkoopAPI:DOM.VKP.VerkoopAPI,LeveradresRepository:AXimpl.Crm.CustomerAddressOut.Converter.LeveradresRepository</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	#dim VerkoopAPI As DOM.VKP.VerkoopAPI = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI()
+	Set ..VerkoopAPI = $$$Inject(VerkoopAPI,##class(DOM.DomeinContext).Instance().GeefVerkoopAPI())
+	Set ..LeveradresRepository = $$$Inject(LeveradresRepository,##class(AXimpl.Crm.CustomerAddressOut.Converter.LeveradresRepository).%New())
 	Set Filter = ##class(AX.Uitgaand.VKP.impl.KlantIteratorFilter).%New()
-	Set ..KlantIterator = ##class(TECH.DynamicIterator).%New(VerkoopAPI.GeefKlantIterator(),,Filter)
+	Set ..KlantIterator = ##class(TECH.DynamicIterator).%New(..VerkoopAPI.GeefKlantIterator(),,Filter)
+	Set ..GlobalIterator = ##class(TECH.GlobalIndexIterator).%New($name(^KKL.AdresI("KlantId_AdresVolgNr")))
 	Set ..Converter = ##class(AX.Uitgaand.VKP.KlantAdres.impl.KlantAdresDixfConverter).%New()
 	Quit $$$OK
 ]]></Implementation>
@@ -49,10 +67,11 @@
 	#dim HeeftVolgendeKlant, VolgendAdres As %Boolean = $$$False
 	
 	If (..IsBezoekAdres) {
+		Set VolgendAdres = $$$True
+		Set ..IsBezoekAdres = $$$False
+		
 		Set ..AdresObject.Adres = ..Klant.GeefBezoekAdres()
 		Set ..AdresObject.Type = "Real location"
-		Set ..IsBezoekAdres = $$$False
-		Set VolgendAdres = $$$True
 	} ElseIf (..KlantIterator.HasNext() > 0) {
 		Set HeeftVolgendeKlant = $$$True
 		Set ..IsBezoekAdres = $$$False
@@ -63,9 +82,22 @@
 		Set ..AdresObject.Adres = ..Klant.GeefAdres()
 		Set ..AdresObject.Type = "Business"
 		
-		If $IsObject(..Klant.GeefBezoekAdres()){
-			Set ..IsBezoekAdres = $$$True
+		If $IsObject(..Klant.GeefBezoekAdres()) {
+			Set ..IsBezoekAdres = $$$False // $$$True
 		}
+	} ElseIf (..GlobalIterator.HasNext() > 0) {
+		Set VolgendAdres = $$$True
+		
+		#dim Continue As %Boolean = $$$True
+		While Continue {
+			#dim NextUniekId As %String = ..GlobalIterator.Next()
+			#dim KlantId As %String = $Piece(##class(TECH.ListUtils).ListbuildToPieces(^KKL.AdresI("KlantId_AdresVolgNr",NextUniekId),","),",",1)
+			Set ..Klant = ..VerkoopAPI.GeefKlant(KlantId)
+			Set ..AdresObject.Klant = ..Klant
+			Set ..AdresObject.Adres = ..LeveradresRepository.GeefViaID(NextUniekId)
+			Set ..AdresObject.Type = $$$If(..AdresObject.Adres.GeefType()="B","Real location","Delivery")
+			Set Continue = (..Klant.GeefRegio() = 98) || (..Klant.GeefRegio() = 99)
+		}
 	}
 		
 	Quit (HeeftVolgendeKlant || VolgendAdres)