Index: AXdixf/Klant/Klant.cls.xml
===================================================================
diff -u -r48676 -r48872
--- AXdixf/Klant/Klant.cls.xml	(.../Klant.cls.xml)	(revision 48676)
+++ AXdixf/Klant/Klant.cls.xml	(.../Klant.cls.xml)	(revision 48872)
@@ -7,10 +7,6 @@
 <Default>AXdixf.Klant.Klant</Default>
 </Parameter>
 
-<Property name="ADUPriceGroupId">
-<Type>%String</Type>
-</Property>
-
 <Property name="AccountNum">
 <Type>%String</Type>
 </Property>
@@ -23,14 +19,62 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="ADUConsumer">
+<Type>%String</Type>
+</Property>
+
+<Property name="ADUCreditInsuredAmount">
+<Type>%String</Type>
+</Property>
+
+<Property name="ADUCreditStatus">
+<Type>%String</Type>
+</Property>
+
+<Property name="ADUGroupInvoice">
+<Type>%String</Type>
+</Property>
+
+<Property name="ADUImported">
+<Type>%String</Type>
+</Property>
+
+<Property name="ADUInvoicingFrequencyId">
+<Type>%String</Type>
+</Property>
+
+<Property name="ADUPostageDlvModeId">
+<Type>%String</Type>
+</Property>
+
+<Property name="ADUPostageEnableCalc">
+<Type>%String</Type>
+</Property>
+
+<Property name="ADUPostageFreeAmount">
+<Type>%String</Type>
+</Property>
+
+<Property name="ADUPriceGroupId">
+<Type>%String</Type>
+</Property>
+
 <Property name="Blocked">
 <Type>%String</Type>
 </Property>
 
+<Property name="CashDisc">
+<Type>%String</Type>
+</Property>
+
 <Property name="CellularPhone">
 <Type>%String</Type>
 </Property>
 
+<Property name="City">
+<Type>%String</Type>
+</Property>
+
 <Property name="CountryRegionId">
 <Type>%String</Type>
 </Property>
@@ -47,10 +91,34 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="DlvTerm">
+<Type>%String</Type>
+</Property>
+
+<Property name="Email">
+<Type>%String</Type>
+</Property>
+
+<Property name="EmailName">
+<Type>%String</Type>
+</Property>
+
+<Property name="EnterpriseNumber">
+<Type>%String</Type>
+</Property>
+
+<Property name="InclTax">
+<Type>%String</Type>
+</Property>
+
 <Property name="LanguageId">
 <Type>%String</Type>
 </Property>
 
+<Property name="LocationRole">
+<Type>%String</Type>
+</Property>
+
 <Property name="Name">
 <Type>%String</Type>
 </Property>
@@ -59,37 +127,57 @@
 <Type>%String</Type>
 </Property>
 
-<Property name="ADUConsumer">
+<Property name="PaymMode">
 <Type>%String</Type>
 </Property>
 
-<Property name="ADUInvoicingFrequencyId">
+<Property name="PaymTermId">
 <Type>%String</Type>
 </Property>
 
-<Property name="DlvTerm">
+<Property name="Phone">
 <Type>%String</Type>
 </Property>
 
+<Property name="PhoneName">
+<Type>%String</Type>
+</Property>
+
 <Property name="SalesCalendarId">
 <Type>%String</Type>
 </Property>
 
-<Property name="InclTax">
+<Property name="Street">
 <Type>%String</Type>
 </Property>
 
-<Property name="CashDisc">
+<Property name="TaxGroup">
 <Type>%String</Type>
 </Property>
 
-<Property name="ADUCreditStatus">
+<Property name="TeleFaxName">
 <Type>%String</Type>
 </Property>
 
-<Property name="ADUCreditInsuredAmount">
+<Property name="TeleFax">
 <Type>%String</Type>
 </Property>
+
+<Property name="VATNum">
+<Type>%String</Type>
+</Property>
+
+<Property name="UseCashDisc">
+<Type>%String</Type>
+</Property>
+
+<Property name="WebSalesOrderDisplay">
+<Type>%String</Type>
+</Property>
+
+<Property name="ZipCode">
+<Type>%String</Type>
+</Property>
 </Class>
 
 
Index: AX/Uitgaand/VKP/Klant/impl/KlantDixfGenerator.cls.xml
===================================================================
diff -u -r48726 -r48872
--- AX/Uitgaand/VKP/Klant/impl/KlantDixfGenerator.cls.xml	(.../KlantDixfGenerator.cls.xml)	(revision 48726)
+++ AX/Uitgaand/VKP/Klant/impl/KlantDixfGenerator.cls.xml	(.../KlantDixfGenerator.cls.xml)	(revision 48872)
@@ -25,54 +25,59 @@
 <Method name="Generate">
 <FormalSpec>KlantIterator:TECH.Iterator</FormalSpec>
 <Implementation><![CDATA[
-	#dim AXKlantData As APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased	
+	#dim AXKlantData As APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased       
 	Set AXKlantData = ##class(APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased).%New()
-	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "ADUPriceGroupId")
 	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "AccountNum")
+	// Enkel convenience om data na te kijken 
+	// Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "Name")
+	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "ADUPriceGroupId")
+	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "ADUPostageDlvModeId")
+	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "ADUPostageEnableCalc")
+	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "ADUPostageFreeAmount")
+	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "ADUImported")
+	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "ADUCreditStatus")
+	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "ADUCreditInsuredAmount")
+	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "ADUConsumer")
+	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "ADUInvoicingFrequencyId")
+	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", "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", "EnterpriseNumber")
+	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "VATNum")
+	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "PaymTermId")
+	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "ADUGroupInvoice")
+	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "TaxGroup")
+	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "LocationRole")
+
+	/*            
 	//Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "AddressEmail")
 	//Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "AddressName")
 	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "Blocked")
 	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "CellularPhone")
 	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")
-	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")
 	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "ZipCode")
 	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "City")
 	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "Street")
- //	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "PhoneName")
- //	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "Phone")
- //	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "EmailName")
- //	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "Email")
- //	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "TeleFaxName")
- //	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "TeleFax")
-	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "EnterpriseNumber")
-	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "VATNum")
-	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "LocationRole")
+	// Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "PhoneName")
+	// Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "Phone")
+	// Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "EmailName")
+	// Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "Email")
+	// Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "TeleFaxName")
+	// Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "TeleFax")
 	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "PaymMode")
 	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "UseCashDisc")
-	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "ADUPostageDlvModeId")
-	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "ADUPostageEnableCalc")
-	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "ADUPostageFreeAmount")
-	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "ADUImported")
-	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "PaymTermId")
 	Do AXKlantData.VoegToeVeld("AXdixf.Klant.Klant", "WebSalesOrderDisplay")
-	
-	Set AXKlantData.ScheidingsTeken = ";"	
+	*/             
+	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)
Index: AX/Uitgaand/VKP/Klant/impl/KlantDixfConverter.cls.xml
===================================================================
diff -u -r48726 -r48872
--- AX/Uitgaand/VKP/Klant/impl/KlantDixfConverter.cls.xml	(.../KlantDixfConverter.cls.xml)	(revision 48726)
+++ AX/Uitgaand/VKP/Klant/impl/KlantDixfConverter.cls.xml	(.../KlantDixfConverter.cls.xml)	(revision 48872)
@@ -28,6 +28,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Utils">
+<Type>AXimpl.Utils</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>
@@ -37,6 +42,7 @@
 <Implementation><![CDATA[
 	Set ..PartijApi = $$$Inject(PartijApi,##class(DOM.DomeinContext).Instance().GeefPartijAPI())
 	Set ..FirmaBepaler = $$$Inject(FirmaBepaler,##class(AXimpl.InterneFirmaBepaler).%New())
+	set ..Utils = ##class(AXimpl.Utils).%New(..PartijApi)
 	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()
@@ -50,69 +56,51 @@
 <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()
-	
+
+	;w KlantData.GeefNaam(), ", ", KlantData.GeefCode(), !
 	// Identificatiegegevens
 	Set AxKlant.AccountNum = ..Formatter.FormatAccountNumber(Partij.GeefCode())
 	Set AxKlant.Name = ..Formatter.FormatPartyName(Partij)
 	Set AxKlant.NameAlias = ##class(TECH.StringUtils).StringStrippenVanLeestekensSpatiesTabs(AxKlant.Name)
 	Set AxKlant.LanguageId = ..Formatter.FormatLanguageId(Partij.GeefTaal())
-	
+	try {
 	// Adresgegevens
-	Set AxKlant.CountryRegionId = KlantData.GeefAdres().GeefLand().GeefIso3()
+	//Set AxKlant.CountryRegionId = KlantData.GeefAdres().GeefLand().GeefIso3()
 	Set AxKlant.ZipCode = ##class(DOM.common.impl.AdresUtils).CorrigeerPostcode(Adres.GeefPostcode(),Adres.GeefLandNr())
 	Set AxKlant.City = Adres.GeefGemeente()
 	Set AxKlant.Street = Adres.GeefStraat()
 	Set AxKlant.AddressEmail = $Translate(Partij.GeefEmail(),"$#~","")
 	Set AxKlant.AddressName = ..Formatter.FormatPartyName(Partij)
-	
+
 	// Contactinfo
 	Do ..ConvertPhone(Partij, AxKlant)
 	Set:$$$HasLength(Partij.GeefEmail()) AxKlant.EmailName = "E-mail adres"
 	Set AxKlant.Email = Partij.GeefEmail()
 	Set:$$$HasLength(Partij.GeefTelefax()) AxKlant.TeleFaxName = "Fax"
 	Set AxKlant.TeleFax = $$$Trim(Partij.GeefTelefax())
 	Set AxKlant.CellularPhone = Partij.GeefGsm()
-	
-	#dim FacturatieAdressen As %ListOfObjects = KlantData.GeefAdressenVolgensType("F")
-	#dim AantalFacturatieadressen As %Integer = FacturatieAdressen.Count()
-	If (AantalFacturatieadressen = 0) {
-		Set AxKlant.LocationRole = "Invoice"
-	} Else {
-		Set AxKlant.LocationRole = "Business"
-		Write "Klant: ", KlantData.GeefNaam()
-		Write ", aantal facturatieadressen: ", AantalFacturatieadressen,!
-		#dim AdresIterator = ##class(TECH.ListIterator).%New(FacturatieAdressen)
-		#dim KlantAdres As AX.Uitgaand.VKP.KlantAdres.impl.KlantAdres
-		While (AdresIterator.HasNext()) {
-			Set KlantAdres = AdresIterator.Next()
-			Write KlantAdres.ID, ", ", KlantAdres.GeefAdresKey(), ", ", KlantAdres.GeefAdresType(),!
-		}
-	}
 
-	
 	// Bedrijfsgegevens
-	Set AxKlant.EnterpriseNumber = ..Formatter.FormatEnterpriseNumber(Partij.GeefBTWNr())
-	Set AxKlant.VATNum = ..Formatter.FormatVATNumVoorDIXF(Partij.GeefBTWNr())
 	Set AxKlant.Currency = "EUR"
 	//Set AxKlant.Currency = Partij.GeefMunt()
 	Set AxKlant.PaymMode = ..ConvertPaymentMode(Partij)
 	Set AxKlant.InclTax = "0"
 	Set AxKlant.CashDisc = ..Formatter.FormatCashDiscount(KlantData.GeefKortingContantPercentage(),KlantData.GeefKortingContantTermijn())
 	Set:$$$Not(AxKlant.CashDisc="") AxKlant.UseCashDisc = "0"
-	
+
 	// Varia
 	Set AxKlant.ADUPriceGroupId = ..ADUPriceGroupIdConverter.ConvertAdminNaarAx(KlantData.GeefActiviteit())
 	Set AxKlant.Blocked = $$$If(KlantData.GeefCommercieleStatus()=##class(DOM.CRM.enu.CommercieleStatus).Actief(),"0","1")
 	Set AxKlant.CustClassificationId = ..ConvertCustClassificationId(KlantData)
-	Set AxKlant.CustGroup = ..ConvertCustGroup(Partij,KlantData)
+	Set AxKlant.CustGroup = ..ConvertCustGroup(..PartijApi.GeefPartij(KlantData.GeefID()),KlantData)
 	Set AxKlant.ADUConsumer = ..ConvertBusinessType(KlantData.GeefBusinessType())
 	Set AxKlant.ADUInvoicingFrequencyId = ..ConvertFacturatieFrequentie(KlantData.GeefFacturatieFrequentie())
 	Set AxKlant.DlvTerm = ..GeefDlvTerm(KlantData)
 	Set AxKlant.SalesCalendarId = ..GeefSalesCalendarId(KlantData)
-	Set AxKlant.ADUCreditStatus = ..ConvertKredietlimiet(KlantData.GeefKredietlimiet())
-	Set AxKlant.ADUCreditInsuredAmount = KlantData.GeefKredietlimiet()
+	Set AxKlant.ADUCreditStatus = ..ConvertKredietStatus(KlantData.GeefKredietlimiet())
+	Set AxKlant.ADUCreditInsuredAmount = ..ConvertKredietAmount(KlantData.GeefKredietlimiet())
 	Set AxKlant.ADUImported ="1"
 	#dim PDlvMode As %String
 	#dim PEnableCalc As %String
@@ -123,12 +111,33 @@
 	Set AxKlant.ADUPostageFreeAmount = PFreeAmount
 	Set AxKlant.PaymTermId = ..Formatter.ConvertPaymTermId(KlantData.GeefBetalingwijze(), KlantData.GeefBetalingTermijn())
 	Set AxKlant.WebSalesOrderDisplay = "1"
+	Set AxKlant.ADUGroupInvoice = ..ConvertDocumentGroepering(KlantData)
 	//Set AxLeverancier.CashDisc = ..Formatter.FormatCashDiscount(Leverancier.GeefKortingKontant(),Leverancier.GeefTermijnKortingKontant())
 	//Set:$$$HasLength(Leverancier.GeefBankRekeningNr()) AxLeverancier.BankAccount = "1"
 	//#dim EersteGoedkeurder As %String = ..EasyFormDataService.GeefEersteGoedkeurder(Leverancier.GeefCode())
 	//Set AxLeverancier.MainContactWorkerPersonnelNumber = $$$If($$$HasLength(EersteGoedkeurder),$get(..Werknemers(EersteGoedkeurder)),"VH0000001")
 	//Set AxLeverancier.TaxGroup = ..ConvertTaxGroup(Partij)
-	
+	// s Klant = ##class(DOM.VKP.impl.VerkoopAPI).%New().GeefKlant("K||1012")
+	#dim BTWNr As %String = Partij.GeefBTWNr()
+	Set AxKlant.EnterpriseNumber = ..Formatter.FormatEnterpriseNumber(BTWNr)
+	Set AxKlant.VATNum = ..Formatter.FormatVATNumVoorDIXF(BTWNr)
+	Set AxKlant.TaxGroup = ..Utils.ConvertKlantTaxGroup(..FirmaBepaler.GeefInitialen(),KlantData)
+	// Doelen van primair adres
+	#dim KlantAdressen As %ListOfObjects = KlantData.GeefAdressen()
+	If (KlantAdressen.Count() = 0) {
+	    Set AxKlant.LocationRole = "Business,Correspondentieadres,Delivery,Facturatieadres,Primair Bezoekadres,Toonzaal"
+	} Else {
+	    #dim FacturatieAdressen As %ListOfObjects = KlantData.GeefAdressenVolgensType("F")
+	    #dim AantalFacturatieadressen As %Integer = FacturatieAdressen.Count()
+	    If (AantalFacturatieadressen = 0) {
+           Set AxKlant.LocationRole = "Facturatieadres"
+	    } Else {
+           Set AxKlant.LocationRole = "Business"
+	    }
+	}
+	} Catch {
+		Write ##class(TECH.ExceptionHandler).Catch().ToString()
+	}
 	Quit AxKlant
 ]]></Implementation>
 </Method>
@@ -139,17 +148,17 @@
 <Implementation><![CDATA[
 	Set PhoneNames = ##class(%ListOfDataTypes).%New()
 	Set PhoneNrs = ##class(%ListOfDataTypes).%New()
-	
+
 	If $$$HasLength($$$Trim(Partij.GeefTelefoon1())) {
-		Do PhoneNames.Insert("Telefoon 1")
-		Do PhoneNrs.Insert($$$Trim(Partij.GeefTelefoon1()))
+       Do PhoneNames.Insert("Telefoon 1")
+       Do PhoneNrs.Insert($$$Trim(Partij.GeefTelefoon1()))
 	}
-	
+
 	If $$$HasLength(Partij.GeefTelefoon2()) {
-		Do PhoneNames.Insert("Telefoon 2")
-		Do PhoneNrs.Insert($$$Trim(Partij.GeefTelefoon2()))
+       Do PhoneNames.Insert("Telefoon 2")
+       Do PhoneNrs.Insert($$$Trim(Partij.GeefTelefoon2()))
 	}
-	
+
 	Set AxKlant.PhoneName = ##class(TECH.ListUtils).ListToPieces(PhoneNames,",")
 	Set AxKlant.Phone = ##class(TECH.ListUtils).ListToPieces(PhoneNrs,",")
 ]]></Implementation>
@@ -160,22 +169,22 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim LandCode As %String = $Extract(BTWNummer,1,2)
-	Set:LandCode="UK" LandCode = "GB"
-	Quit LandCode
+                #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 ""
+    If ..FirmaBepaler.GeefInitialen()="VHBE" {
+       Quit ..Formatter.FormatRegio(Klant.GeefRegio())
+    } ElseIf ..FirmaBepaler.GeefInitialen()="HLX" {
+       Quit "HLX"
+    }
+    Quit ""
 ]]></Implementation>
 </Method>
 
@@ -184,25 +193,24 @@
 <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"
+       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"
+       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"
+       #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:Partij.GeefAdres().GeefLand().IsLidVanEU() "EU"    
 	Quit "EX"
 ]]></Implementation>
 </Method>
@@ -211,13 +219,13 @@
 <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
+    #dim LandCodeBTWnummer As %String
+    #dim LandCodeAdres As %String              
+                   
+    Set LandCodeBTWnummer = ..LandCodeUitBTWNummer(Partij.GeefBTWNr())
+    Set LandCodeAdres = Partij.GeefAdres().GeefLand().GeefCode()
+    
+    Quit LandCodeBTWnummer = LandCodeAdres
 ]]></Implementation>
 </Method>
 
@@ -226,8 +234,8 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	Quit:BusinessType="B2B" "0" 
-	Quit "1"
+    Quit:BusinessType="B2B" "0" 
+    Quit "1"
 ]]></Implementation>
 </Method>
 
@@ -236,99 +244,125 @@
 <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 _ "---"
+    // 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:Freq="" ""
+    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"
+    #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"
+    #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">
+<Method name="ConvertKredietStatus">
 <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"
+    Quit:Limiet=1 "Nullimiet"
+    Quit:Limiet=13000 "Toetsing"
+    Quit:Limiet="" "Onbeoordeeld"
+    Quit:Limiet=0 "Onbeoordeeld"
+    Quit "Kredietlimiet"
 ]]></Implementation>
 </Method>
 
+<Method name="ConvertKredietAmount">
+<FormalSpec>Limiet:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+    Quit:Limiet=1 0
+    Quit:Limiet=13000 13000
+    Quit:Limiet="" 6200
+    Quit:Limiet=0 6200
+    Quit Limiet
+]]></Implementation>
+</Method>
+
 <Method name="ConvertPaymentMode">
 <FormalSpec>Partij:DOM.PARTIJ.Partij</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Quit:Partij.GeefID()="L||5005" "BLUM-SEPA"
-	Quit:Partij.GeefMunt()="EUR" "SEPA"
-	Quit "SWIFT"
+    Quit:Partij.GeefID()="L||5005" "BLUM-SEPA"
+    Quit:Partij.GeefMunt()="EUR" "SEPA"
+    Quit "SWIFT"
 ]]></Implementation>
 </Method>
 
 <Method name="PortVerzendWijze">
 <FormalSpec>LevVw:%String,*AXPortVerzendwijze:%String,*AXPortInstelling:%String,*AXPortLimiet:%Decimal</FormalSpec>
 <Implementation><![CDATA[
-              If '$D(^KBA(153,LevVw_" ")) Set LevVw="65"
-              
-              Set Limiet=+$G(^KBA(153,LevVw_" ","B",0))
-              Set Instelling=+$G(^KBA(153,LevVw_" ","P",0))
-              
-              
-              If Instelling=0
-              {
-                            Set AXPortVerzendwijze="ZndPort"
-                            Set AXPortInstelling="Neen"
-                            Set AXPortLimiet=""
-              }
-              ElseIf Instelling=1
-              {
-                            Set AXPortVerzendwijze="StdPort"
-                            Set AXPortInstelling="Ja"
-                            Set AXPortLimiet=""
-              }
-              Else ;Instelling = 2, 3 of 4
-              {
-                            Set AXPortVerzendwijze="StdPort"
-                            Set AXPortInstelling="Onder limiet"
-                            Set AXPortLimiet=Limiet
-              }
+	If '$D(^KBA(153,LevVw_" ")) Set LevVw="65"
+
+	Set Limiet=+$G(^KBA(153,LevVw_" ","B",0))
+	Set Instelling=+$G(^KBA(153,LevVw_" ","P",0))
+
+
+	If Instelling=0
+	{
+        Set AXPortVerzendwijze="ZndrPort"
+        Set AXPortInstelling="Nee"
+        Set AXPortLimiet=""
+	}
+	ElseIf Instelling=1
+	{
+        Set AXPortVerzendwijze="StdPort"
+        Set AXPortInstelling="Ja"
+        Set AXPortLimiet=""
+	}
+	Else ;Instelling = 2, 3 of 4
+	{
+        Set AXPortVerzendwijze="StdPort"
+        Set AXPortInstelling="Onder limiet"
+        Set AXPortLimiet=Limiet
+	}
 ]]></Implementation>
 </Method>
+
+<Method name="ConvertDocumentGroepering">
+<FormalSpec>KlantData:DOM.VKP.VanHoeckeKlant</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set OrderGroepering = $P(^KKL(^KK1(KlantData.GeefCode()),1),"\", 18)
+	Quit:OrderGroepering="" 1
+	Quit:OrderGroepering="1" 1
+	Quit 0
+]]></Implementation>
+</Method>
 </Class>