Index: AX/Uitgaand/VKP/KlantAdres/impl/KlantAdresIterator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/VKP/KlantAdres/impl/KlantAdresIterator.cls.xml	(revision 0)
+++ AX/Uitgaand/VKP/KlantAdres/impl/KlantAdresIterator.cls.xml	(revision 47623)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.VKP.KlantAdres.impl.KlantAdresIterator">
+<Super>TECH.RegisteredObject,TECH.Iterator</Super>
+
+<Property name="KlantIterator">
+<Type>TECH.Iterator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Converter">
+<Type>AX.Uitgaand.VKP.KlantAdres.impl.KlantAdresDixfConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<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 Filter = ##class(AX.Uitgaand.VKP.impl.KlantIteratorFilter).%New()
+	Set ..KlantIterator = ##class(TECH.DynamicIterator).%New(VerkoopAPI.GeefKlantIterator(),,Filter)
+	Set ..Converter = ##class(AX.Uitgaand.VKP.KlantAdres.impl.KlantAdresDixfConverter).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="HasNext">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	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)
+	
+	Quit ConvertedKlantAdres
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AXdixf/KlantAdres/KlantAdres.cls.xml
===================================================================
diff -u
--- AXdixf/KlantAdres/KlantAdres.cls.xml	(revision 0)
+++ AXdixf/KlantAdres/KlantAdres.cls.xml	(revision 47623)
@@ -0,0 +1,44 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXdixf.KlantAdres.KlantAdres">
+<Super>TECH.RegisteredObject</Super>
+
+<Parameter name="XMLTYPE">
+<Default>AXdixf.KlantAdres.KlantAdres</Default>
+</Parameter>
+
+<Property name="CustAccountNum">
+<Type>%String</Type>
+</Property>
+
+<Property name="LocationRole">
+<Type>%String</Type>
+</Property>
+
+<Property name="Street">
+<Type>%String</Type>
+</Property>
+
+<Property name="ZipCode">
+<Type>%String</Type>
+</Property>
+
+<Property name="City">
+<Type>%String</Type>
+</Property>
+
+<Property name="CountryRegionId">
+<Type>%String</Type>
+</Property>
+
+<Property name="AddressPhone">
+<Type>%String</Type>
+</Property>
+
+<Property name="IsPrimary">
+<Type>%String</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/VKP/impl/KlantIteratorFilter.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/VKP/impl/KlantIteratorFilter.cls.xml	(revision 0)
+++ AX/Uitgaand/VKP/impl/KlantIteratorFilter.cls.xml	(revision 47623)
@@ -0,0 +1,32 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.VKP.impl.KlantIteratorFilter">
+<Super>TECH.RegisteredObject,TECH.Filter</Super>
+
+<Property name="RegioFilter">
+<Type>AXimpl.Dynamics.CustomerUpsertOut.Converter.CustomerCreateConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..RegioFilter = ##class(AXimpl.Dynamics.CustomerUpsertOut.Converter.CustomerCreateConverter).%New()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="IsValid">
+<FormalSpec>Klant:DOM.VKP.VanHoeckeKlant</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..RegioFilter.IsGenerationNeeded(,Klant)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/VKP/CustomerCodexRelation/impl/CustomerCodexRelationIterator.cls.xml
===================================================================
diff -u -r46134 -r47623
--- AX/Uitgaand/VKP/CustomerCodexRelation/impl/CustomerCodexRelationIterator.cls.xml	(.../CustomerCodexRelationIterator.cls.xml)	(revision 46134)
+++ AX/Uitgaand/VKP/CustomerCodexRelation/impl/CustomerCodexRelationIterator.cls.xml	(.../CustomerCodexRelationIterator.cls.xml)	(revision 47623)
@@ -31,7 +31,7 @@
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	#dim VerkoopAPI As DOM.VKP.VerkoopAPI = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI()
-	Set Filter = ##class(AX.Uitgaand.VKP.CustomerCodexRelation.impl.CustomerCodexRelationIteratorFilter).%New()
+	Set Filter = ##class(AX.Uitgaand.VKP.impl.KlantIteratorFilter).%New()
 	Set ..KlantIterator = ##class(TECH.DynamicIterator).%New(VerkoopAPI.GeefKlantIterator(),,Filter)
 	Set ..Converter = ##class(AX.Uitgaand.VKP.CustomerCodexRelation.impl.CustomerCodexRelationDixfConverter).%New()
 	Quit $$$OK
Index: AX/Uitgaand/VKP/KlantAdres/impl/KlantAdresDixfGenerator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/VKP/KlantAdres/impl/KlantAdresDixfGenerator.cls.xml	(revision 0)
+++ AX/Uitgaand/VKP/KlantAdres/impl/KlantAdresDixfGenerator.cls.xml	(revision 47623)
@@ -0,0 +1,51 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.VKP.KlantAdres.impl.KlantAdresDixfGenerator">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="BestandGenerator">
+<Type>APPS.common.Rapport.impl.BestandGenerator</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="GenerateAll">
+<Implementation><![CDATA[
+	Try {
+		Do StartTimer^vhLib
+		#dim KlantAdresIterator As TECH.Iterator = ##class(AX.Uitgaand.VKP.KlantAdres.impl.KlantAdresIterator).%New()
+		do ..Generate(KlantAdresIterator)
+		Write !,"Csv voor migratie 0103_VHBE_KlantAdres is klaar. Aantal minuten: " 
+		write $$TimeFromStart^vhLib()/60
+	} Catch {
+		Write ##class(TECH.ExceptionHandler).Catch().ToString()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Generate">
+<FormalSpec>KlantAdresIterator:TECH.Iterator</FormalSpec>
+<Implementation><![CDATA[
+	#dim AXKlantData As APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased	
+	Set AXKlantData = ##class(APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased).%New()
+	Do AXKlantData.VoegToeVeld("AXdixf.KlantAdres.KlantAdres", "CustAccountNum")
+	Do AXKlantData.VoegToeVeld("AXdixf.KlantAdres.KlantAdres", "LocationRole")
+	Do AXKlantData.VoegToeVeld("AXdixf.KlantAdres.KlantAdres", "Street")
+	Do AXKlantData.VoegToeVeld("AXdixf.KlantAdres.KlantAdres", "ZipCode")
+	Do AXKlantData.VoegToeVeld("AXdixf.KlantAdres.KlantAdres", "City")
+	Do AXKlantData.VoegToeVeld("AXdixf.KlantAdres.KlantAdres", "CountryRegionId")
+	Do AXKlantData.VoegToeVeld("AXdixf.KlantAdres.KlantAdres", "AddressPhone")
+	Do AXKlantData.VoegToeVeld("AXdixf.KlantAdres.KlantAdres", "IsPrimary")
+
+	Set AXKlantData.ScheidingsTeken = ";"	
+	Set AXKlantData.Iterator = KlantAdresIterator
+	Set AXKlantData.BestandVolledigeNaam = ##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_DIXF"),"0103_VHBE_KlantAdres.csv")
+	
+	#dim BestandGenerator As APPS.common.Rapport.impl.BestandGenerator
+	Set BestandGenerator = ##class(APPS.common.Rapport.impl.BestandGenerator).%New()
+	Do BestandGenerator.MaakBestand(AXKlantData)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/VKP/KlantAdres/impl/KlantAdresDixfConverter.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/VKP/KlantAdres/impl/KlantAdresDixfConverter.cls.xml	(revision 0)
+++ AX/Uitgaand/VKP/KlantAdres/impl/KlantAdresDixfConverter.cls.xml	(revision 47623)
@@ -0,0 +1,41 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.VKP.KlantAdres.impl.KlantAdresDixfConverter">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="AXimplFormatter">
+<Type>AXimpl.Formatter</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..AXimplFormatter = ##class(AXimpl.Formatter).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Convert">
+<FormalSpec>KlantAdresData:%List</FormalSpec>
+<ReturnType>AXdixf.KlantAdres.KlantAdres</ReturnType>
+<Implementation><![CDATA[
+	Set AxKlantAdres = ##class(AXdixf.KlantAdres.KlantAdres).%New()
+	Set AxKlantAdres.CustAccountNum = $list(..AXimplFormatter.FormatAccountNumber(KlantAdresData,1))
+	Set AxKlantAdres.LocationRole = ""
+	Set AxKlantAdres.Street = ""
+	Set AxKlantAdres.ZipCode = ""
+	Set AxKlantAdres.City = ""
+	Set AxKlantAdres.CountryRegionId = ""
+	Set AxKlantAdres.AddressPhone = ""
+	Set AxKlantAdres.IsPrimary = ""
+	Quit AxKlantAdres
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>