Index: AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml
===================================================================
diff -u -r34693 -r34724
--- AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 34693)
+++ AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 34724)
@@ -28,14 +28,21 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Utils">
+<Type>AX.Uitgaand.VKP.VanHoeckeKlant.impl.Utils</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>PartijAPI:DOM.PARTIJ.PartijAPI,VerkoopAPI:DOM.VKP.VerkoopAPI,FirmaBepaler:AX.common.impl.FirmaBepaler</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..FirmaBepaler = $$$Inject(FirmaBepaler,##class(AX.common.impl.FirmaBepaler).%New())
+	set ..FirmaBepaler = $$$Inject(FirmaBepaler,##class(AX.common.impl.FirmaBepaler).%New())
+	set ..Utils = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.Utils).%New(..FirmaBepaler)
+	
 	set ..Formatter = ##class(AX.common.impl.Formatter).%New()
 	set ..Validator = ##class(AX.common.impl.Validator).%New()
 	
@@ -67,7 +74,7 @@
 	
 	set Custable.EnterpriseNumber = ..Formatter.FormatEnterpriseNumber(Partij.GeefBTWNr())
 	set Custable.VATNum = ..Formatter.FormatVATNum(Partij.GeefBTWNr())
-	set Custable.TaxGroup = ..ConvertTaxGroup(Partij,Klant)
+	set Custable.TaxGroup = ..Utils.ConvertTaxGroup(Partij,Klant)
 	
 	set Custable.WebSalesOrderDisplay = "All"
 	set Custable.PaymTermId = ..Formatter.ConvertPaymTermId(Klant.GeefBetalingwijze(), Klant.GeefBetalingTermijn())
@@ -174,29 +181,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ConvertTaxGroup">
-<FormalSpec>Partij:DOM.PARTIJ.Partij,Klant:DOM.VKP.VanHoeckeKlant</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	If ..FirmaBepaler.GeefInitialen()="VHBE" {
-		Quit:Partij.GeefID()="K||7587" "BUNIT"
-		Quit:Partij.GeefID()="K||4682" "BUNIT"
-		Quit:Partij.GeefID()="K||1000" "BUNIT"
-		Quit:Partij.GeefID()="K||5069" "BUNIT"
-		Quit:Partij.GeefID()="K||9544" "BIC"
-		Quit:Partij.GeefID()="K||21643" "BSCHIP"
-	} ElseIf ..FirmaBepaler.GeefInitialen()="HLX" {
-		Quit:Partij.GeefID()="K||1389" "BUNIT"
-		Quit:Partij.GeefID()="K||1377" "BUNIT"
-	}
-	quit:Klant.IsLidBTWEenheidVanHoecke() "BUNIT"
-	quit:Klant.GeefBTWRegime()=##class(DOM.VKP.enu.BTWRegimeKlant).Aanrekenen() "BDOM"
-	quit:Partij.GeefAdres().GeefLand().GeefCode()="BE" "BDOM"
-	quit:Partij.GeefAdres().GeefLand().IsLidVanEU() "BIC"
-	quit "BX"
-]]></Implementation>
-</Method>
-
 <Method name="IsLandCodeInAdresGelijkAanLandInBTWnummer">
 <FormalSpec>Partij:DOM.PARTIJ.Partij</FormalSpec>
 <Private>1</Private>
Index: AX/Uitgaand/VKP/VanHoeckeKlant/impl/Utils.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/VKP/VanHoeckeKlant/impl/Utils.cls.xml	(revision 0)
+++ AX/Uitgaand/VKP/VanHoeckeKlant/impl/Utils.cls.xml	(revision 34724)
@@ -0,0 +1,47 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.VKP.VanHoeckeKlant.impl.Utils">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="FirmaBepaler">
+<Type>AX.common.impl.FirmaBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>FirmaBepaler:AX.common.impl.FirmaBepaler</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..FirmaBepaler = $$$Inject(FirmaBepaler,##class(AX.common.impl.FirmaBepaler).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ConvertTaxGroup">
+<FormalSpec>Partij:DOM.PARTIJ.Partij,Klant:DOM.VKP.VanHoeckeKlant</FormalSpec>
+<Implementation><![CDATA[
+	If ..FirmaBepaler.GeefInitialen()="VHBE" {
+		Quit:Partij.GeefID()="K||7587" "BUNIT"
+		Quit:Partij.GeefID()="K||4682" "BUNIT"
+		Quit:Partij.GeefID()="K||1000" "BUNIT"
+		Quit:Partij.GeefID()="K||5069" "BUNIT"
+		Quit:Partij.GeefID()="K||9544" "BIC"
+		Quit:Partij.GeefID()="K||21643" "BSCHIP"
+	} ElseIf ..FirmaBepaler.GeefInitialen()="HLX" {
+		Quit:Partij.GeefID()="K||1389" "BUNIT"
+		Quit:Partij.GeefID()="K||1377" "BUNIT"
+	}
+	quit:Klant.IsLidBTWEenheidVanHoecke() "BUNIT"
+	quit:Klant.GeefBTWRegime()=##class(DOM.VKP.enu.BTWRegimeKlant).Aanrekenen() "BDOM"
+	quit:Partij.GeefAdres().GeefLand().GeefCode()="BE" "BDOM"
+	quit:Partij.GeefAdres().GeefLand().IsLidVanEU() "BIC"
+	quit "BX"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>