Index: AX/Uitgaand/VKP/KlantAdres/impl/KlantAdresIterator.cls.xml
===================================================================
diff -u -r47659 -r47661
--- AX/Uitgaand/VKP/KlantAdres/impl/KlantAdresIterator.cls.xml	(.../KlantAdresIterator.cls.xml)	(revision 47659)
+++ AX/Uitgaand/VKP/KlantAdres/impl/KlantAdresIterator.cls.xml	(.../KlantAdresIterator.cls.xml)	(revision 47661)
@@ -18,6 +18,18 @@
 <Private>1</Private>
 </Property>
 
+<Property name="IsNietHoofdAdres">
+<Type>%Boolean</Type>
+<InitialExpression>0</InitialExpression>
+<Private>1</Private>
+</Property>
+
+<Property name="HeeftVolgendAdres">
+<Type>%Boolean</Type>
+<InitialExpression>0</InitialExpression>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
@@ -35,15 +47,22 @@
 <Method name="HasNext">
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	#dim HeeftVolgendAdres As %Boolean = $$$False
+	#dim HeeftVolgendeKlant As %Boolean = $$$False
 	
-	#dim Klant As DOM.VKP.VanHoeckeKlant = ..KlantIterator.Next()
-	Set ..AdresObject = ##class(AX.Uitgaand.VKP.KlantAdres.impl.KlantAdres).%New()
-	Set ..AdresObject.Klant = Klant
-	Set ..AdresObject.Adres = Klant.GeefAdres()
-	Set ..AdresObject.Type = "Business"
-	
-	Quit ..KlantIterator.HasNext()
+	If (..IsNietHoofdAdres && ..HeeftVolgendAdres) {
+		
+	} ElseIf (..KlantIterator.HasNext() > 0) {
+		Set HeeftVolgendeKlant = $$$True
+		
+		#dim Klant As DOM.VKP.VanHoeckeKlant = ..KlantIterator.Next()
+		Set ..AdresObject = ##class(AX.Uitgaand.VKP.KlantAdres.impl.KlantAdres).%New()
+		Set ..AdresObject.Klant = Klant
+		Set ..AdresObject.Adres = Klant.GeefAdres()
+		Set ..AdresObject.Type = "Business"
+		Set ..IsNietHoofdAdres = $$$True
+	}
+		
+	Quit (HeeftVolgendeKlant || ..HeeftVolgendAdres)
 ]]></Implementation>
 </Method>