Index: DOM/VKP/impl/DataM/DataMKlantIterator.cls.xml
===================================================================
diff -u -r29059 -r37911
--- DOM/VKP/impl/DataM/DataMKlantIterator.cls.xml	(.../DataMKlantIterator.cls.xml)	(revision 29059)
+++ DOM/VKP/impl/DataM/DataMKlantIterator.cls.xml	(.../DataMKlantIterator.cls.xml)	(revision 37911)
@@ -56,6 +56,12 @@
 	Quit ..Klant
 ]]></Implementation>
 </Method>
+
+<Method name="Key">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..KlantNr
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: AX/Uitgaand/VKP/VanHoeckeKlant/impl/AxVanHoeckeKlantIterator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/VKP/VanHoeckeKlant/impl/AxVanHoeckeKlantIterator.cls.xml	(revision 0)
+++ AX/Uitgaand/VKP/VanHoeckeKlant/impl/AxVanHoeckeKlantIterator.cls.xml	(revision 37911)
@@ -0,0 +1,61 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.VKP.VanHoeckeKlant.impl.AxVanHoeckeKlantIterator">
+<Super>TECH.RegisteredObject,TECH.Iterator</Super>
+
+<Property name="KlantIterator">
+<Type>TECH.Iterator</Type>
+</Property>
+
+<Property name="Converter">
+<Type>AXimpl.BizTalkMessage.Converter.CustomerConverter</Type>
+</Property>
+
+<Property name="Key">
+<Type>%CacheString</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>KlantIterator:TECH.Iterator</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..KlantIterator = KlantIterator
+	Set ..Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="HasNext">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..KlantIterator.HasNext()
+]]></Implementation>
+</Method>
+
+<Method name="Next">
+<ReturnType>%CacheString</ReturnType>
+<Implementation><![CDATA[
+	#dim NextKlant As DOM.VKP.VanHoeckeKlant
+	Set NextKlant = ..KlantIterator.Next()
+	set ..Key = NextKlant.GeefID()
+	
+	Quit ..Converter.Convert(NextKlant.GeefID())
+]]></Implementation>
+</Method>
+
+<Method name="Reset">
+<Implementation><![CDATA[	Quit ..KlantIterator.Reset()
+]]></Implementation>
+</Method>
+
+<Method name="Key">
+<Implementation><![CDATA[	Quit ..Key
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/VKP/VanHoeckeKlant/impl/DixfGenerator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/VKP/VanHoeckeKlant/impl/DixfGenerator.cls.xml	(revision 0)
+++ AX/Uitgaand/VKP/VanHoeckeKlant/impl/DixfGenerator.cls.xml	(revision 37911)
@@ -0,0 +1,61 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.VKP.VanHoeckeKlant.impl.DixfGenerator">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="BestandGenerator">
+<Type>APPS.common.Rapport.impl.BestandGenerator</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="GenerateAll">
+<Implementation><![CDATA[
+	#dim VanHoeckeKlantIterator As TECH.Iterator = ##class(TECH.DynamicIterator).%New(##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlantIterator(),,)
+	do ..Generate(VanHoeckeKlantIterator)
+]]></Implementation>
+</Method>
+
+<Method name="Generate">
+<FormalSpec>VanHoeckeKlantIterator:TECH.Iterator</FormalSpec>
+<Implementation><![CDATA[
+	Set AxVanHoeckeKlantIterator = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AxVanHoeckeKlantIterator).%New(VanHoeckeKlantIterator)
+		
+	Set Headers = ##class(TECH.KeyValue.List).%New() 
+	Do Headers.InsertKeyValue("AXBizTalk.Customer", "Klantnummer")
+	Do Headers.InsertKeyValue("AXBizTalk.Customer", "Naam")
+	Do Headers.InsertKeyValue("AXBizTalk.Customer", "Toenaam")
+	Do Headers.InsertKeyValue("AXBizTalk.Customer", "Telefoon")
+	Do Headers.InsertKeyValue("AXBizTalk.Customer", "Fax")
+	Do Headers.InsertKeyValue("AXBizTalk.Customer", "VerkortNummer")
+	Do Headers.InsertKeyValue("AXBizTalk.Customer", "Email")
+	Do Headers.InsertKeyValue("AXBizTalk.Customer", "RelatieType")
+	Do Headers.InsertKeyValue("AXBizTalk.Customer", "BIDIMedewerker")
+	Do Headers.InsertKeyValue("AXBizTalk.Customer", "Status")
+	Do Headers.InsertKeyValue("AXBizTalk.Customer", "Regio")
+	Do Headers.InsertKeyValue("AXBizTalk.Customer", "Activiteit")
+	Do Headers.InsertKeyValue("AXBizTalk.Customer", "Kwantitatief")
+	Do Headers.InsertKeyValue("AXBizTalk.Customer", "Kwaliteit")
+	Do Headers.InsertKeyValue("AXBizTalk.Customer", "PrijsCodexBeslag")
+	Do Headers.InsertKeyValue("AXBizTalk.Customer", "PrijsCodexOrgalux")
+	Do Headers.InsertKeyValue("AXBizTalk.Customer", "PrijsCodexTaor")
+	Do Headers.InsertKeyValue("AXBizTalk.Customer", "Betalingstermijn")
+	Do Headers.InsertKeyValue("AXBizTalk.Customer", "Leveringsvoorwaarde")
+	Do Headers.InsertKeyValue("AXBizTalk.Customer", "Kredietlimiet")
+	Do Headers.InsertKeyValue("AXBizTalk.Customer", "FacturatieFrequentie")
+		
+	#dim AXKlantData As APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased	
+	Set AXKlantData = ##class(APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased).%New()
+	Set AXKlantData.ScheidingsTeken = ";"	
+	Set AXKlantData.Iterator = AxVanHoeckeKlantIterator
+	Set AXKlantData.DataVelden = Headers
+	Set AXKlantData.BestandVolledigeNaam = ##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_DIXF"),"Klanten.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>