Index: Default_TommyH.prj.xml
===================================================================
diff -u
--- Default_TommyH.prj.xml	(revision 0)
+++ Default_TommyH.prj.xml	(revision 41777)
@@ -0,0 +1,3 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+</Export>
Index: vhUnitTest/AXimpl/Utils/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AXimpl/Utils/Test.cls.xml	(revision 0)
+++ vhUnitTest/AXimpl/Utils/Test.cls.xml	(revision 41777)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AXimpl.Utils.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="FirmaBepaler">
+<Type>AX.common.impl.FirmaBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="PartijApi">
+<Type>DOM.PARTIJ.PartijAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Set ..FirmaBepaler = ##class(vhTest.Mock.AX.common.impl.FirmaBepaler).%New()
+	Set ..PartijApi = ##class(vhTest.Mock.DOM.PARTIJ.PartijAPI).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als voor VHBE het klantID K pipe pipe 7587 dan moet BUNIT teruggegeven worden">
+<Implementation><![CDATA[
+	#dim KlantId As %String = "K||7587"
+	
+	Do ..FirmaBepaler.IndienMethodCall("GeefInitialen").DanReturn("VHBE")
+	
+	Set PartijStub = ##class(vhTest.Mock.DOM.PARTIJ.Partij).%New()
+	Do PartijStub.IndienMethodCall("GeefID").DanReturn(KlantId)
+	
+	Do ..PartijApi.IndienMethodCall("GeefPartij",KlantId).DanReturn(PartijStub)
+	
+	#dim KlantStub As DOM.VKP.VanHoeckeKlant = ##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant()
+	Do KlantStub.IndienMethodCall("GeefID").DanReturn(KlantId)
+	
+	#dim Util As AXimpl.Utils = ##class(AXimpl.Utils).%New(..FirmaBepaler,..PartijApi)
+	#dim KlantTaxGroup As %String = Util.ConvertKlantTaxGroup(KlantStub)
+	
+	Do $$$AssertEquals(KlantTaxGroup,"BUNIT")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AXimpl/Utils.cls.xml
===================================================================
diff -u
--- AXimpl/Utils.cls.xml	(revision 0)
+++ AXimpl/Utils.cls.xml	(revision 41777)
@@ -0,0 +1,95 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXimpl.Utils">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="FirmaBepaler">
+<Type>AX.common.impl.FirmaBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="PartijApi">
+<Type>DOM.PARTIJ.PartijAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>FirmaBepaler:AX.common.impl.FirmaBepaler,PartijApi:DOM.PARTIJ.PartijAPI</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 ..PartijApi = $$$Inject(PartijApi,##class(DOM.DomeinContext).Instance().GeefPartijAPI())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ConvertKlantTaxGroup">
+<FormalSpec>Klant:DOM.VKP.VanHoeckeKlant</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Partij As DOM.PARTIJ.Partij = ..PartijApi.GeefPartij(Klant.GeefID())
+	
+	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="ConvertLeverancierTaxGroup">
+<FormalSpec>Leverancier:DOM.AKP.Leverancier</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#Dim Partij As DOM.PARTIJ.Partij = ..PartijApi.GeefPartij(Leverancier.GeefID())
+	
+	If ..FirmaBepaler.GeefInitialen()="VHBE" {
+		Quit:Partij.GeefID()="L||6332" "BUNIT"
+		Quit:Partij.GeefID()="L||6051" "BUNIT"
+		Quit:Partij.GeefID()="L||5908" "BUNIT"
+	} ElseIf ..FirmaBepaler.GeefInitialen()="HLX" {
+		Quit:Partij.GeefID()="L||5497" "BUNIT"
+	}
+	Quit:Partij.GeefAdres().GeefLand().GeefCode()="BE" "BDOM"
+	Quit:Partij.GeefAdres().GeefLand().IsLidVanEU() "BIC"
+	Quit "BX"
+]]></Implementation>
+</Method>
+
+<Method name="ConvertLeverancierVendGroup">
+<FormalSpec>Leverancier:DOM.AKP.Leverancier</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#Dim Partij As DOM.PARTIJ.Partij = ..PartijApi.GeefPartij(Leverancier.GeefID())
+	
+	If ..FirmaBepaler.GeefInitialen()="VHBE" {
+		Quit:Partij.GeefID()="L||6332" "IC"
+		Quit:Partij.GeefID()="L||6051" "IC"
+		Quit:Partij.GeefID()="L||5908" "IC"
+		Quit:Partij.GeefID()="L||6373" "IC"
+	} ElseIf ..FirmaBepaler.GeefInitialen()="HLX" {
+		Quit:Partij.GeefID()="L||5497" "IC"
+	}
+	Quit:Partij.GeefAdres().GeefLand().GeefCode()="BE" "BE"
+	Quit:Partij.GeefAdres().GeefLand().IsLidVanEU() "EU"
+	Quit "EX"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>