Index: AX/Uitgaand/VKP/KlantAdres/impl/KlantAdres.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/VKP/KlantAdres/impl/KlantAdres.cls.xml	(revision 0)
+++ AX/Uitgaand/VKP/KlantAdres/impl/KlantAdres.cls.xml	(revision 47659)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.VKP.KlantAdres.impl.KlantAdres">
+<Super>TECH.DataTransferObject</Super>
+
+<Parameter name="XMLTYPE">
+<Default>AX.Uitgaand.VKP.KlantAdres.impl.KlantAdres</Default>
+</Parameter>
+
+<Property name="Klant">
+<Type>DOM.VKP.VanHoeckeKlant</Type>
+</Property>
+
+<Property name="Adres">
+<Type>DOM.VKP.LeverAdres</Type>
+</Property>
+
+<Property name="Type">
+<Type>%String</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/VKP/KlantAdres/impl/KlantAdresIterator.cls.xml
===================================================================
diff -u -r47623 -r47659
--- AX/Uitgaand/VKP/KlantAdres/impl/KlantAdresIterator.cls.xml	(.../KlantAdresIterator.cls.xml)	(revision 47623)
+++ AX/Uitgaand/VKP/KlantAdres/impl/KlantAdresIterator.cls.xml	(.../KlantAdresIterator.cls.xml)	(revision 47659)
@@ -3,6 +3,11 @@
 <Class name="AX.Uitgaand.VKP.KlantAdres.impl.KlantAdresIterator">
 <Super>TECH.RegisteredObject,TECH.Iterator</Super>
 
+<Property name="AdresObject">
+<Type>AX.Uitgaand.VKP.KlantAdres.impl.KlantAdres</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="KlantIterator">
 <Type>TECH.Iterator</Type>
 <Private>1</Private>
@@ -29,15 +34,23 @@
 
 <Method name="HasNext">
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ..KlantIterator.HasNext()
+<Implementation><![CDATA[
+	#dim HeeftVolgendAdres 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()
 ]]></Implementation>
 </Method>
 
 <Method name="Next">
 <ReturnType>AXdixf.KlantAdres.KlantAdres</ReturnType>
 <Implementation><![CDATA[
-	Set KlantAdres = ##class(DOM.common.Adres).%New(..KlantIterator.Next())
-	#dim ConvertedKlantAdres As AXdixf.KlantAdres.KlantAdres = ..Converter.Convert(KlantAdres)
+	#dim ConvertedKlantAdres As AXdixf.KlantAdres.KlantAdres = ..Converter.Convert(..AdresObject)
 	
 	Quit ConvertedKlantAdres
 ]]></Implementation>
Index: AX/Uitgaand/VKP/KlantAdres/impl/KlantAdresDixfConverter.cls.xml
===================================================================
diff -u -r47648 -r47659
--- AX/Uitgaand/VKP/KlantAdres/impl/KlantAdresDixfConverter.cls.xml	(.../KlantAdresDixfConverter.cls.xml)	(revision 47648)
+++ AX/Uitgaand/VKP/KlantAdres/impl/KlantAdresDixfConverter.cls.xml	(.../KlantAdresDixfConverter.cls.xml)	(revision 47659)
@@ -20,16 +20,16 @@
 </Method>
 
 <Method name="Convert">
-<FormalSpec>KlantAdresData:DOM.common.Adres</FormalSpec>
+<FormalSpec>KlantAdresData:AX.Uitgaand.VKP.KlantAdres.impl.KlantAdres</FormalSpec>
 <ReturnType>AXdixf.KlantAdres.KlantAdres</ReturnType>
 <Implementation><![CDATA[
 	Set AxKlantAdres = ##class(AXdixf.KlantAdres.KlantAdres).%New()
-	Set AxKlantAdres.CustAccountNum = ..AXimplFormatter.FormatAccountNumber(KlantAdresData.GeefID())
-	Set AxKlantAdres.LocationRole = KlantAdresData.GeefType()
-	Set AxKlantAdres.Street = KlantAdresData.GeefStraat()
-	Set AxKlantAdres.ZipCode = KlantAdresData.GeefPostcode()
-	Set AxKlantAdres.City = KlantAdresData.GeefGemeente()
-	Set AxKlantAdres.CountryRegionId = KlantAdresData.GeefLand().GeefCode()
+	Set AxKlantAdres.CustAccountNum = ..AXimplFormatter.FormatAccountNumber($Piece(KlantAdresData.Klant.GeefID(),"||",2))
+	Set AxKlantAdres.LocationRole = KlantAdresData.Type
+	Set AxKlantAdres.Street = KlantAdresData.Adres.GeefStraat()
+	Set AxKlantAdres.ZipCode = KlantAdresData.Adres.GeefPostcode()
+	Set AxKlantAdres.City = KlantAdresData.Adres.GeefGemeente()
+	Set AxKlantAdres.CountryRegionId = ..AXimplFormatter.FormatRegio(KlantAdresData.Adres.GeefLand().GeefCode())
 	Set AxKlantAdres.AddressPhone = ""
 	Set AxKlantAdres.IsPrimary = ""
 	Quit AxKlantAdres