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>