Index: AX/Uitgaand/VKP/KlantContact/impl/KlantContactIterator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/VKP/KlantContact/impl/KlantContactIterator.cls.xml	(revision 0)
+++ AX/Uitgaand/VKP/KlantContact/impl/KlantContactIterator.cls.xml	(revision 48742)
@@ -0,0 +1,50 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.VKP.KlantContact.impl.KlantContactIterator">
+<Super>TECH.RegisteredObject,TECH.Iterator</Super>
+
+<Property name="KlantContactIterator">
+<Type>TECH.CombinedIterator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Converter">
+<Type>AX.Uitgaand.VKP.KlantContact.impl.KlantContactDixfConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>VerkoopAPI:DOM.VKP.VerkoopAPI</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	#dim VerkoopApi As DOM.VKP.VerkoopAPI = $$$Inject(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 ..KlantContactIterator = ##class(TECH.CombinedIterator).%New(KlantIterator,"AX.Uitgaand.VKP.KlantContact.impl.ContactIterator")
+	Set ..Converter = ##class(AX.Uitgaand.VKP.KlantContact.impl.KlantContactDixfConverter).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="HasNext">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..KlantContactIterator.HasNext()
+]]></Implementation>
+</Method>
+
+<Method name="Next">
+<ReturnType>AXdixf.KlantContact.KlantContact</ReturnType>
+<Implementation><![CDATA[
+	#dim ContactEnKlantObject As AX.Uitgaand.VKP.KlantContact.impl.KlantContact = ..KlantContactIterator.Next()
+	#dim ConvertedKlantContact As AXdixf.KlantContact.KlantContact = ..Converter.Convert(ContactEnKlantObject)
+	
+	Quit ConvertedKlantContact
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AXdixf/KlantContact/KlantContact.cls.xml
===================================================================
diff -u
--- AXdixf/KlantContact/KlantContact.cls.xml	(revision 0)
+++ AXdixf/KlantContact/KlantContact.cls.xml	(revision 48742)
@@ -0,0 +1,64 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXdixf.KlantContact.KlantContact">
+<Super>TECH.DataTransferObject</Super>
+
+<Parameter name="XMLTYPE">
+<Default>AXdixf.KlantContact.KlantContact</Default>
+</Parameter>
+
+<Property name="ContactPersonId">
+<Type>%String</Type>
+</Property>
+
+<Property name="DirPartyTableContactForName">
+<Type>%String</Type>
+</Property>
+
+<Property name="Function">
+<Type>%String</Type>
+</Property>
+
+<Property name="DirPartyTableLastName">
+<Type>%String</Type>
+</Property>
+
+<Property name="DirPartyTableFirstName">
+<Type>%String</Type>
+</Property>
+
+<Property name="Title">
+<Type>%String</Type>
+</Property>
+
+<Property name="DirectMail">
+<Type>%String</Type>
+</Property>
+
+<Property name="Decision">
+<Type>%String</Type>
+</Property>
+
+<Property name="Memo">
+<Type>%String</Type>
+</Property>
+
+<Property name="Email">
+<Type>%String</Type>
+</Property>
+
+<Property name="Phone">
+<Type>%String</Type>
+</Property>
+
+<Property name="CellularPhone">
+<Type>%String</Type>
+</Property>
+
+<Property name="CountryRegionId">
+<Type>%String</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/VKP/KlantContact/impl/KlantContact.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/VKP/KlantContact/impl/KlantContact.cls.xml	(revision 0)
+++ AX/Uitgaand/VKP/KlantContact/impl/KlantContact.cls.xml	(revision 48742)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.VKP.KlantContact.impl.KlantContact">
+<Super>TECH.DataTransferObject</Super>
+
+<Parameter name="XMLTYPE">
+<Default>AX.Uitgaand.VKP.KlantContact.impl.KlantContact</Default>
+</Parameter>
+
+<Property name="Klant">
+<Type>DOM.VKP.VanHoeckeKlant</Type>
+</Property>
+
+<Property name="Contact">
+<Type>DOM.PARTIJ.impl.DataM.DataMKlantPersoon</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/VKP/KlantContact/impl/KlantContactDixfGenerator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/VKP/KlantContact/impl/KlantContactDixfGenerator.cls.xml	(revision 0)
+++ AX/Uitgaand/VKP/KlantContact/impl/KlantContactDixfGenerator.cls.xml	(revision 48742)
@@ -0,0 +1,56 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.VKP.KlantContact.impl.KlantContactDixfGenerator">
+<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 KlantContactIterator As TECH.Iterator = ##class(AX.Uitgaand.VKP.KlantContact.impl.KlantContactIterator).%New()
+		do ..Generate(KlantContactIterator)
+		Write !,"Csv voor migratie 0102_VHBE_KlantContact is klaar. Aantal minuten: " 
+		write $$TimeFromStart^vhLib()/60
+	} Catch {
+		Write ##class(TECH.ExceptionHandler).Catch().ToString()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Generate">
+<FormalSpec>KlantContactIterator:TECH.Iterator</FormalSpec>
+<Implementation><![CDATA[
+	#dim AXKlantContactData As APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased	
+	Set AXKlantContactData = ##class(APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased).%New()
+	Do AXKlantContactData.VoegToeVeld("AXdixf.KlantContact.KlantContact", "ContactPersonId")
+	Do AXKlantContactData.VoegToeVeld("AXdixf.KlantContact.KlantContact", "DirPartyTableContactForName", "DirPartyTable_ContactForName")
+	Do AXKlantContactData.VoegToeVeld("AXdixf.KlantContact.KlantContact", "Function")
+	Do AXKlantContactData.VoegToeVeld("AXdixf.KlantContact.KlantContact", "DirPartyTableLastName", "DirPartyTable_LastName")
+	Do AXKlantContactData.VoegToeVeld("AXdixf.KlantContact.KlantContact", "DirPartyTableFirstName", "DirPartyTable_FirstName")
+	Do AXKlantContactData.VoegToeVeld("AXdixf.KlantContact.KlantContact", "Title")
+	Do AXKlantContactData.VoegToeVeld("AXdixf.KlantContact.KlantContact", "DirectMail")
+	Do AXKlantContactData.VoegToeVeld("AXdixf.KlantContact.KlantContact", "Decision")
+	Do AXKlantContactData.VoegToeVeld("AXdixf.KlantContact.KlantContact", "Memo")
+	Do AXKlantContactData.VoegToeVeld("AXdixf.KlantContact.KlantContact", "Email")
+	Do AXKlantContactData.VoegToeVeld("AXdixf.KlantContact.KlantContact", "Phone")
+	Do AXKlantContactData.VoegToeVeld("AXdixf.KlantContact.KlantContact", "CellularPhone")
+	Do AXKlantContactData.VoegToeVeld("AXdixf.KlantContact.KlantContact", "CountryRegionId")
+
+	Set AXKlantContactData.ScheidingsTeken = ";"	
+	Set AXKlantContactData.Iterator = KlantContactIterator
+	Set AXKlantContactData.BestandVolledigeNaam = ##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_DIXF"),"0102_VHBE_KlantContact.csv")
+	
+	#dim BestandGenerator As APPS.common.Rapport.impl.BestandGenerator
+	Set BestandGenerator = ##class(APPS.common.Rapport.impl.BestandGenerator).%New()
+	Do BestandGenerator.MaakBestand(AXKlantContactData)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/VKP/KlantContact/impl/ContactIterator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/VKP/KlantContact/impl/ContactIterator.cls.xml	(revision 0)
+++ AX/Uitgaand/VKP/KlantContact/impl/ContactIterator.cls.xml	(revision 48742)
@@ -0,0 +1,54 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.VKP.KlantContact.impl.ContactIterator">
+<Super>TECH.RegisteredObject,TECH.Iterator</Super>
+
+<Property name="ContactIterator">
+<Type>TECH.DynamicIterator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Klant">
+<Type>DOM.VKP.VanHoeckeKlant</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Klant:DOM.VKP.VanHoeckeKlant</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	#dim Partij As DOM.PARTIJ.Partij = ##class(DOM.DomeinContext).Instance().GeefPartijAPI().GeefPartij(Klant.GeefID())
+	;Set Filter = ##class(AX.Uitgaand.VKP.KlantContact.impl.ContactIteratorFilter).%New()
+	Set ..ContactIterator = ##class(TECH.DynamicIterator).%New(##class(TECH.ListIterator).%New(Partij.GeefPersonen()),,)
+	Set ..Klant = Klant
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="HasNext">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..ContactIterator.HasNext()
+]]></Implementation>
+</Method>
+
+<Method name="Next">
+<ReturnType>%CacheString</ReturnType>
+<Implementation><![CDATA[
+	Set ContactObject = ##class(AX.Uitgaand.VKP.KlantContact.impl.KlantContact).%New()
+	Set ContactObject.Klant = ..Klant
+	Set ContactObject.Contact = ..ContactIterator.Next()
+	Quit ContactObject
+]]></Implementation>
+</Method>
+
+<Method name="Reset">
+<Implementation><![CDATA[	Quit ..ContactIterator.Reset()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/VKP/KlantContact/impl/KlantContactDixfConverter.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/VKP/KlantContact/impl/KlantContactDixfConverter.cls.xml	(revision 0)
+++ AX/Uitgaand/VKP/KlantContact/impl/KlantContactDixfConverter.cls.xml	(revision 48742)
@@ -0,0 +1,60 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.VKP.KlantContact.impl.KlantContactDixfConverter">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="AdminToAXUtils">
+<Type>AXimpl.AdminToAxUtils</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AXimplFormatter">
+<Type>AXimpl.Formatter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="IsPrimaryLijst">
+<Type>%ListOfDataTypes</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..AdminToAXUtils = ##class(AXimpl.AdminToAxUtils).%New()
+	Set ..AXimplFormatter = ##class(AXimpl.Formatter).%New()
+	Set ..IsPrimaryLijst = ##class(%ListOfDataTypes).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Convert">
+<FormalSpec>ContactEnKlantObject:AX.Uitgaand.VKP.KlantContact.impl.KlantContact</FormalSpec>
+<ReturnType>AXdixf.KlantContact.KlantContact</ReturnType>
+<Implementation><![CDATA[
+	Set AxKlantContact = ##class(AXdixf.KlantContact.KlantContact).%New()
+	
+	Set AxKlantContact.ContactPersonId = ContactEnKlantObject.Contact.GeefNummer()
+	Set AxKlantContact.DirPartyTableContactForName = ContactEnKlantObject.Klant.GeefNaam()
+	Set AxKlantContact.Function = ContactEnKlantObject.Contact.GeefVerantwoordelijkheden()
+	Set AxKlantContact.DirPartyTableLastName = $Replace(ContactEnKlantObject.Contact.GeefNaam(),";",",")
+	Set AxKlantContact.DirPartyTableFirstName = $Replace(ContactEnKlantObject.Contact.GeefVoornaam(),";",",")
+	Set AxKlantContact.Title = ContactEnKlantObject.Contact.GeefAanspreking()
+	Set AxKlantContact.DirectMail = ContactEnKlantObject.Contact.GeefEmail()
+	Set AxKlantContact.Decision = ContactEnKlantObject.Contact.GeefBeslissingNiveau()
+	Set AxKlantContact.Memo = $Replace(ContactEnKlantObject.Klant.GeefOpmerking1(),";",",") // Concateneren met 6, 7, 8, 9 en 12 ???
+	Set AxKlantContact.Email = ContactEnKlantObject.Contact.GeefEmail()
+	Set AxKlantContact.Phone = ContactEnKlantObject.Contact.GeefPriveTelefoon()
+	Set AxKlantContact.CellularPhone = ContactEnKlantObject.Contact.GeefGSM()
+	Set AxKlantContact.CountryRegionId = ContactEnKlantObject.Contact.GeefTaal()
+	
+	Quit AxKlantContact
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>