Index: AXdixf/Klant/Klant.cls.xml
===================================================================
diff -u
--- AXdixf/Klant/Klant.cls.xml	(revision 0)
+++ AXdixf/Klant/Klant.cls.xml	(revision 48166)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXdixf.Klant.Klant">
+<Super>TECH.DataTransferObject</Super>
+
+<Parameter name="XMLTYPE">
+<Default>AXdixf.Klant.Klant</Default>
+</Parameter>
+
+<Property name="AccountNum">
+<Type>%String</Type>
+</Property>
+
+<Property name="ADUPriceGroupId">
+<Type>%String</Type>
+</Property>
+
+<Property name="CountryRegionId">
+<Type>%String</Type>
+</Property>
+
+<Property name="Currency">
+<Type>%String</Type>
+</Property>
+
+<Property name="CustClassificationId">
+<Type>%String</Type>
+</Property>
+
+<Property name="CustGroup">
+<Type>%String</Type>
+</Property>
+
+<Property name="LanguageId">
+<Type>%String</Type>
+</Property>
+
+<Property name="Name">
+<Type>%String</Type>
+</Property>
+
+<Property name="NameAlias">
+<Type>%String</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/VKP/Klant/impl/KlantIterator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/VKP/Klant/impl/KlantIterator.cls.xml	(revision 0)
+++ AX/Uitgaand/VKP/Klant/impl/KlantIterator.cls.xml	(revision 48166)
@@ -0,0 +1,49 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.VKP.Klant.impl.KlantIterator">
+<Super>TECH.RegisteredObject,TECH.Iterator</Super>
+
+<Property name="KlantIterator">
+<Type>TECH.DynamicIterator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Converter">
+<Type>AX.Uitgaand.VKP.Klant.impl.KlantDixfConverter</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 ..Converter = ##class(AX.Uitgaand.VKP.Klant.impl.KlantDixfConverter).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="HasNext">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..KlantIterator.HasNext()
+]]></Implementation>
+</Method>
+
+<Method name="Next">
+<ReturnType>AXdixf.Klant.Klant</ReturnType>
+<Implementation><![CDATA[
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ..KlantIterator.Next()
+	#dim ConvertedKlant As AXdixf.Klant.Klant = ..Converter.Convert(Klant)
+	
+	Quit ConvertedKlant
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/VKP/Klant/impl/KlantDixfConverter.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/VKP/Klant/impl/KlantDixfConverter.cls.xml	(revision 0)
+++ AX/Uitgaand/VKP/Klant/impl/KlantDixfConverter.cls.xml	(revision 48166)
@@ -0,0 +1,138 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.VKP.Klant.impl.KlantDixfConverter">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="ADUPriceGroupIdConverter">
+<Type>AX.Uitgaand.VKP.Klant.impl.ADUPriceGroupIdConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Formatter">
+<Type>AXimpl.Formatter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="FirmaBepaler">
+<Type>AXimpl.InterneFirmaBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="PartijApi">
+<Type>DOM.PARTIJ.PartijAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LandRepository">
+<Type>DOM.common.Locatie.impl.LandRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>PartijApi:DOM.PARTIJ.PartijAPI,FirmaBepaler:AXimpl.InterneFirmaBepaler,ADUPriceGroupIdConverter:AX.Uitgaand.VKP.Klant.impl.ADUPriceGroupIdConverter</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..PartijApi = $$$Inject(PartijApi,##class(DOM.DomeinContext).Instance().GeefPartijAPI())
+	Set ..FirmaBepaler = $$$Inject(FirmaBepaler,##class(AXimpl.InterneFirmaBepaler).%New())
+	Set ..ADUPriceGroupIdConverter = $$$Inject(ADUPriceGroupIdConverter,##class(AX.Uitgaand.VKP.Klant.impl.ADUPriceGroupIdConverter).%New())
+	Set ..Formatter = ##class(AXimpl.Formatter).%New()
+	Set ..LandRepository = ##class(DOM.common.Locatie.impl.LandRepository).%New()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Convert">
+<FormalSpec>KlantData:DOM.VKP.VanHoeckeKlant</FormalSpec>
+<ReturnType>AXdixf.Klant.Klant</ReturnType>
+<Implementation><![CDATA[
+	#dim Partij As DOM.PARTIJ.Partij = ..PartijApi.GeefPartij(KlantData.GeefID())
+	#dim Adres As DOM.common.Adres = Partij.GeefAdres()
+	Set AxKlant = ##class(AXdixf.Klant.Klant).%New()
+	
+	Set AxKlant.AccountNum = ..Formatter.FormatAccountNumber(Partij.GeefCode())
+	Set AxKlant.ADUPriceGroupId = ..ADUPriceGroupIdConverter.ConvertAdminNaarAx(KlantData.GeefActiviteit())
+	Set AxKlant.CountryRegionId = KlantData.GeefAdres().GeefLand().GeefIso3()
+	Set AxKlant.Currency = "EUR"
+	Set AxKlant.CustClassificationId = ..ConvertCustClassificationId(KlantData)
+	Set AxKlant.CustGroup = ..ConvertCustGroup(Partij,KlantData)
+	Set AxKlant.LanguageId = ..Formatter.FormatLanguageId(Partij.GeefTaal())
+	Set AxKlant.Name = ..Formatter.FormatPartyName(Partij)
+	Set AxKlant.NameAlias = ##class(TECH.StringUtils).StringStrippenVanLeestekensSpatiesTabs(AxKlant.Name)
+	
+	Quit AxKlant
+]]></Implementation>
+</Method>
+
+<Method name="LandCodeUitBTWNummer">
+<FormalSpec>BTWNummer:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim LandCode As %String = $Extract(BTWNummer,1,2)
+	Set:LandCode="UK" LandCode = "GB"
+	Quit LandCode
+]]></Implementation>
+</Method>
+
+<Method name="ConvertCustClassificationId">
+<FormalSpec>Klant:DOM.VKP.VanHoeckeKlant</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If ..FirmaBepaler.GeefInitialen()="VHBE" {
+		Quit ..Formatter.FormatRegio(Klant.GeefRegio())
+	} ElseIf ..FirmaBepaler.GeefInitialen()="HLX" {
+		Quit "HLX"
+	}
+	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="ConvertCustGroup">
+<FormalSpec>Partij:DOM.PARTIJ.Partij,Klant:DOM.VKP.VanHoeckeKlant</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If ..FirmaBepaler.GeefInitialen()="VHBE" {
+		Quit:Partij.GeefID()="K||7587" "IC"
+		Quit:Partij.GeefID()="K||4682" "IC"
+		Quit:Partij.GeefID()="K||1000" "IC"
+		Quit:Partij.GeefID()="K||9544" "IC"
+	} ElseIf ..FirmaBepaler.GeefInitialen()="HLX" {
+		Quit:Partij.GeefID()="K||1389" "IC"
+		Quit:Partij.GeefID()="K||1377" "IC"
+	}
+	
+	If $$$Not(..IsLandCodeInAdresGelijkAanLandInBTWnummer(Partij) || (##class(TECH.StringUtils).Equals(Partij.GeefBTWNr(),"GEEN","G",""))){
+		
+		#dim Land As DOM.common.Land = ##class(DOM.common.impl.LocatieAPI).%New().GeefLandVoorLandCode(..LandCodeUitBTWNummer(Partij.GeefBTWNr()))
+		Quit:Land.GeefCode()="BE" "BE"
+		Quit:Land.IsLidVanEU() "EU"
+		Quit "EX"
+	}
+	
+	Quit:Partij.GeefAdres().GeefLand().GeefCode()="BE" "BE"
+	Quit:Partij.GeefAdres().GeefLand().IsLidVanEU() "EU"	
+	Quit "EX"
+]]></Implementation>
+</Method>
+
+<Method name="IsLandCodeInAdresGelijkAanLandInBTWnummer">
+<FormalSpec>Partij:DOM.PARTIJ.Partij</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim LandCodeBTWnummer As %String
+	#dim LandCodeAdres As %String	
+		
+	Set LandCodeBTWnummer = ..LandCodeUitBTWNummer(Partij.GeefBTWNr())
+	Set LandCodeAdres = Partij.GeefAdres().GeefLand().GeefCode()
+	
+	Quit LandCodeBTWnummer = LandCodeAdres
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/VKP/Klant/impl/KlantDixfGenerator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/VKP/Klant/impl/KlantDixfGenerator.cls.xml	(revision 0)
+++ AX/Uitgaand/VKP/Klant/impl/KlantDixfGenerator.cls.xml	(revision 48166)
@@ -0,0 +1,52 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.VKP.Klant.impl.KlantDixfGenerator">
+<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 KlantIterator As TECH.Iterator = ##class(AX.Uitgaand.VKP.Klant.impl.KlantIterator).%New()
+		do ..Generate(KlantIterator)
+		Write !,"Csv voor migratie 0101_VHBE_Klant is klaar. Aantal minuten: " 
+		write $$TimeFromStart^vhLib()/60
+	} Catch {
+		Write ##class(TECH.ExceptionHandler).Catch().ToString()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Generate">
+<FormalSpec>KlantIterator: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.Klant.Klant", "AccountNum")
+	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "ADUPriceGroupId")
+	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "CountryRegionId")
+	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "Currency")
+	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "CustClassificationId")
+	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "CustGroup")
+	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "LanguageId")
+	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "Name")
+	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "NameAlias")
+
+	Set AXKlantData.ScheidingsTeken = ";"	
+	Set AXKlantData.Iterator = KlantIterator
+	Set AXKlantData.BestandVolledigeNaam = ##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_DIXF"),"0101_VHBE_Klant.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: AXdixf/KlantAdres/KlantAdres.cls.xml
===================================================================
diff -u -r47692 -r48166
--- AXdixf/KlantAdres/KlantAdres.cls.xml	(.../KlantAdres.cls.xml)	(revision 47692)
+++ AXdixf/KlantAdres/KlantAdres.cls.xml	(.../KlantAdres.cls.xml)	(revision 48166)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="AXdixf.KlantAdres.KlantAdres">
-<Super>TECH.RegisteredObject</Super>
+<Super>TECH.DataTransferObject</Super>
 
 <Parameter name="XMLTYPE">
 <Default>AXdixf.KlantAdres.KlantAdres</Default>
Index: AX/Uitgaand/VKP/Klant/impl/ADUPriceGroupIdConverter.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/VKP/Klant/impl/ADUPriceGroupIdConverter.cls.xml	(revision 0)
+++ AX/Uitgaand/VKP/Klant/impl/ADUPriceGroupIdConverter.cls.xml	(revision 48166)
@@ -0,0 +1,37 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.VKP.Klant.impl.ADUPriceGroupIdConverter">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="ConvertAdminNaarAx">
+<FormalSpec>Activiteit:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set Activiteit = ##class(TECH.StringUtils).ToUpper(Activiteit)
+	Quit:Activiteit="KEUKEN" "Producent"
+	Quit:Activiteit="KEUKEN EN BADKAMER" "Producent"
+	Quit:Activiteit="BADKAMER" "Producent"
+	Quit:Activiteit="INTERIEURBOUW" "Producent"
+	Quit:Activiteit="PROJECTEN" "Producent"
+	Quit:Activiteit="WINKELINRICHTING" "Producent"
+	Quit:Activiteit="BUREAU" "Producent"
+	Quit:Activiteit="WOON-EN SLAAPKAMER" "Producent"
+	Quit:Activiteit="HANDEL" "Handel"
+	Quit:Activiteit="MEUBELHANDEL" "Retail"
+	Quit:Activiteit="SCHOLEN" "Instelling"
+	Quit:Activiteit="OPENBARE BESTUREN" "Instelling"
+	Quit:Activiteit="CONSUMENT" "Consument"
+	Quit:Activiteit="LEVERANCIER" "Producent"
+	Quit:Activiteit="RELATIE" "Consument"
+	Quit:Activiteit="BOUWPROMOTOR" "Architect \ Project"
+	Quit:Activiteit="INTERIEUR ARCHITECTENBUREAU" "Architect \ Project"
+	Quit:Activiteit="ARCHITECTENBUREAU (PROJECTBUREAU)" "Architect \ Project"
+	Quit:Activiteit="ZELFSTANDIG INTERIEURARCHITECT" "Architect \ Project"
+	Quit:Activiteit="ARCHITECT" "Architect \ Project"
+	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>