Index: AX/Uitgaand/VKP/Klant/impl/KlantDixfGenerator.cls.xml
===================================================================
diff -u -r48329 -r48676
--- AX/Uitgaand/VKP/Klant/impl/KlantDixfGenerator.cls.xml	(.../KlantDixfGenerator.cls.xml)	(revision 48329)
+++ AX/Uitgaand/VKP/Klant/impl/KlantDixfGenerator.cls.xml	(.../KlantDixfGenerator.cls.xml)	(revision 48676)
@@ -40,6 +40,14 @@
 	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "LanguageId")
 	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "Name")
 	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "NameAlias")
+	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "ADUConsumer")
+	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "ADUInvoicingFrequencyId")
+	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "DlvTerm")
+	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "SalesCalendarId")
+	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "InclTax")
+	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "CashDisc")
+	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "ADUCreditStatus")
+	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "ADUCreditInsuredAmount")
 
 	Set AXKlantData.ScheidingsTeken = ";"	
 	Set AXKlantData.Iterator = KlantIterator
Index: AX/Uitgaand/VKP/Klant/impl/ADUPriceGroupIdConverter.cls.xml
===================================================================
diff -u -r48166 -r48676
--- AX/Uitgaand/VKP/Klant/impl/ADUPriceGroupIdConverter.cls.xml	(.../ADUPriceGroupIdConverter.cls.xml)	(revision 48166)
+++ AX/Uitgaand/VKP/Klant/impl/ADUPriceGroupIdConverter.cls.xml	(.../ADUPriceGroupIdConverter.cls.xml)	(revision 48676)
@@ -28,7 +28,8 @@
 	Quit:Activiteit="ARCHITECTENBUREAU (PROJECTBUREAU)" "Architect \ Project"
 	Quit:Activiteit="ZELFSTANDIG INTERIEURARCHITECT" "Architect \ Project"
 	Quit:Activiteit="ARCHITECT" "Architect \ Project"
-	Quit ""
+	Quit:Activiteit="ANDERE" "Producent"
+	Quit "***" _ Activiteit _ "---"
 ]]></Implementation>
 </Method>
 </Class>
Index: AX/Uitgaand/VKP/impl/KlantIteratorFilter.cls.xml
===================================================================
diff -u -r47623 -r48676
--- AX/Uitgaand/VKP/impl/KlantIteratorFilter.cls.xml	(.../KlantIteratorFilter.cls.xml)	(revision 47623)
+++ AX/Uitgaand/VKP/impl/KlantIteratorFilter.cls.xml	(.../KlantIteratorFilter.cls.xml)	(revision 48676)
@@ -8,22 +8,33 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Teller">
+<Type>%Numeric</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()
-	
+	Set ..Teller = 0
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="IsValid">
 <FormalSpec>Klant:DOM.VKP.VanHoeckeKlant</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ..RegioFilter.IsGenerationNeeded(,Klant)
+<Implementation><![CDATA[
+	If (..RegioFilter.IsGenerationNeeded(,Klant)) {
+		Set ..Teller = ..Teller + 1
+		Quit (..Teller < 40)
+	} Else {
+		Quit 0
+	}
 ]]></Implementation>
 </Method>
 </Class>
Index: AXdixf/Klant/Klant.cls.xml
===================================================================
diff -u -r48329 -r48676
--- AXdixf/Klant/Klant.cls.xml	(.../Klant.cls.xml)	(revision 48329)
+++ AXdixf/Klant/Klant.cls.xml	(.../Klant.cls.xml)	(revision 48676)
@@ -58,6 +58,38 @@
 <Property name="NameAlias">
 <Type>%String</Type>
 </Property>
+
+<Property name="ADUConsumer">
+<Type>%String</Type>
+</Property>
+
+<Property name="ADUInvoicingFrequencyId">
+<Type>%String</Type>
+</Property>
+
+<Property name="DlvTerm">
+<Type>%String</Type>
+</Property>
+
+<Property name="SalesCalendarId">
+<Type>%String</Type>
+</Property>
+
+<Property name="InclTax">
+<Type>%String</Type>
+</Property>
+
+<Property name="CashDisc">
+<Type>%String</Type>
+</Property>
+
+<Property name="ADUCreditStatus">
+<Type>%String</Type>
+</Property>
+
+<Property name="ADUCreditInsuredAmount">
+<Type>%String</Type>
+</Property>
 </Class>
 
 
Index: zTryout/FM/AX/KlantGen.cls.xml
===================================================================
diff -u
--- zTryout/FM/AX/KlantGen.cls.xml	(revision 0)
+++ zTryout/FM/AX/KlantGen.cls.xml	(revision 48676)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.FM.AX.KlantGen">
+<Super>%RegisteredObject</Super>
+
+<Method name="Main">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	 /*#dim KlantIterator As TECH.Iterator = ##class(AX.Uitgaand.VKP.Klant.impl.KlantIterator).%New()
+	 Set Filter = ##class(zTryout.FM.AX.PaarKlantenFilter).%New()
+	 Set DynIterator = ##class(TECH.DynamicIterator).%New(KlantIterator,,Filter)
+	 Do ##class(AX.Uitgaand.VKP.Klant.impl.KlantDixfGenerator).%New().Generate(DynIterator)*/
+   	 Do ##class(AX.Uitgaand.VKP.Klant.impl.KlantDixfGenerator).%New().GenerateAll()													// 0101_VHBE_KLANT ------------------------------------------------------------	0.82 minuten (nog bijtellen)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/VKP/Klant/impl/KlantDixfConverter.cls.xml
===================================================================
diff -u -r48329 -r48676
--- AX/Uitgaand/VKP/Klant/impl/KlantDixfConverter.cls.xml	(.../KlantDixfConverter.cls.xml)	(revision 48329)
+++ AX/Uitgaand/VKP/Klant/impl/KlantDixfConverter.cls.xml	(.../KlantDixfConverter.cls.xml)	(revision 48676)
@@ -66,7 +66,16 @@
 	Set AxKlant.LanguageId = ..Formatter.FormatLanguageId(Partij.GeefTaal())
 	Set AxKlant.Name = ..Formatter.FormatPartyName(Partij)
 	Set AxKlant.NameAlias = ##class(TECH.StringUtils).StringStrippenVanLeestekensSpatiesTabs(AxKlant.Name)
+	Set AxKlant.ADUConsumer = ..ConvertBusinessType(KlantData.GeefBusinessType())
+	Set AxKlant.ADUInvoicingFrequencyId = ..ConvertFacturatieFrequentie(KlantData.GeefFacturatieFrequentie())
+	Set AxKlant.DlvTerm = ..GeefDlvTerm(KlantData)
+	Set AxKlant.SalesCalendarId = ..GeefSalesCalendarId(KlantData)
+	Set AxKlant.InclTax = "0"
+	Set AxKlant.CashDisc = ..Formatter.FormatCashDiscount(KlantData.GeefKortingContantPercentage(),KlantData.GeefKortingContantTermijn())
+	Set AxKlant.ADUCreditStatus = ..ConvertKredietlimiet(KlantData.GeefKredietlimiet())
+	Set AxKlant.ADUCreditInsuredAmount = KlantData.GeefKredietlimiet()
 	
+	
 	Quit AxKlant
 ]]></Implementation>
 </Method>
@@ -136,6 +145,75 @@
 	Quit LandCodeBTWnummer = LandCodeAdres
 ]]></Implementation>
 </Method>
+
+<Method name="ConvertBusinessType">
+<FormalSpec>BusinessType:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Quit:BusinessType="B2B" "0" 
+	Quit "1"
+]]></Implementation>
+</Method>
+
+<Method name="ConvertFacturatieFrequentie">
+<FormalSpec>Freq:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	// TODO FMA Controleren N en leeg
+	//Quit:Freq="N" "XXXX Nooit XXXX"
+	Quit:Freq="W5" "Vrijdag"
+	Quit:Freq="M1;16" "Maandelijks (1,16)"
+	Quit:Freq="M1" "Maandelijks (1)"
+	Quit:Freq="M15;30" "Maandelijks (15,30)"
+	Quit:Freq="W1" "Maandag"
+	Quit:Freq="MLA" "Maandelijks (LW)"
+	Quit:Freq="W3" "Woensdag"
+	Quit:Freq="W4" "Donderdag"
+	Quit:Freq="W2;4" "Dinsdag-Donderdag"
+	Quit:Freq="M10;20" "Maandelijks (10,20)"
+	Quit:Freq="W1;2;3;4;5" ""
+	Quit "Maandelijks (1)"
+	Quit "***" _ Freq _ "---"
+]]></Implementation>
+</Method>
+
+<Method name="GeefDlvTerm">
+<FormalSpec>KlantData:DOM.VKP.VanHoeckeKlant</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Land As DOM.common.Land = KlantData.GeefAdres().GeefLand().GeefNaam()
+	Quit:Land="BELGIE" "DAP"
+	Quit:Land="NEDERLAND" "DAP"
+	Quit:Land="LUXEMBURG" "DAP"
+	Quit:KlantData.GeefCode()=6279 "DAP"
+	Quit "EXW"
+]]></Implementation>
+</Method>
+
+<Method name="GeefSalesCalendarId">
+<FormalSpec>KlantData:DOM.VKP.VanHoeckeKlant</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Land As DOM.common.Land = KlantData.GeefAdres().GeefLand().GeefNaam()
+	Quit:Land="BELGIE" "Klanten BE"
+	Quit:Land="NEDERLAND" "Klanten NL"
+	Quit "Klanten EU"
+]]></Implementation>
+</Method>
+
+<Method name="ConvertKredietlimiet">
+<FormalSpec>Limiet:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Quit:Limiet=1 "Nullimiet"
+	Quit:Limiet=1300 "Toetsing"
+	Quit:Limiet="" "Onbeoordeeld"
+	Quit "Kredietlimiet"
+]]></Implementation>
+</Method>
 </Class>