Index: vhUnitTest/AXimpl/Utils/Test.cls.xml
===================================================================
diff -u -r41777 -r41779
--- vhUnitTest/AXimpl/Utils/Test.cls.xml	(.../Test.cls.xml)	(revision 41777)
+++ vhUnitTest/AXimpl/Utils/Test.cls.xml	(.../Test.cls.xml)	(revision 41779)
@@ -22,7 +22,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Als voor VHBE het klantID K pipe pipe 7587 dan moet BUNIT teruggegeven worden">
+<Method name="Test: 1 Als voor VHBE het klantID K pipe pipe 7587 is dan moet BUNIT teruggegeven worden">
 <Implementation><![CDATA[
 	#dim KlantId As %String = "K||7587"
 	
@@ -33,7 +33,7 @@
 	
 	Do ..PartijApi.IndienMethodCall("GeefPartij",KlantId).DanReturn(PartijStub)
 	
-	#dim KlantStub As DOM.VKP.VanHoeckeKlant = ##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant()
+	#dim KlantStub As vhTest.Mock.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)
@@ -42,6 +42,264 @@
 	Do $$$AssertEquals(KlantTaxGroup,"BUNIT")
 ]]></Implementation>
 </Method>
+
+<Method name="Test: 2 Als voor VHBE het klantID K pipe pipe 4682 is dan moet BUNIT teruggegeven worden">
+<Implementation><![CDATA[
+	#dim KlantId As %String = "K||4682"
+	
+	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 vhTest.Mock.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>
+
+<Method name="Test: 3 Als voor VHBE het klantID K pipe pipe 1000 is dan moet BUNIT teruggegeven worden">
+<Implementation><![CDATA[
+	#dim KlantId As %String = "K||1000"
+	
+	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 vhTest.Mock.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>
+
+<Method name="Test: 4 Als voor VHBE het klantID K pipe pipe 5069 is dan moet BUNIT teruggegeven worden">
+<Implementation><![CDATA[
+	#dim KlantId As %String = "K||5069"
+	
+	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 vhTest.Mock.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>
+
+<Method name="Test: 5 Als voor VHBE het klantID K pipe pipe 9544 is dan moet BIC teruggegeven worden">
+<Implementation><![CDATA[
+	#dim KlantId As %String = "K||9544"
+	
+	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 vhTest.Mock.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,"BIC")
+]]></Implementation>
+</Method>
+
+<Method name="Test: 6 Als voor VHBE het klantID K pipe pipe 21643 is dan moet BSCHIP teruggegeven worden">
+<Implementation><![CDATA[
+	#dim KlantId As %String = "K||21643"
+	
+	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 vhTest.Mock.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,"BSCHIP")
+]]></Implementation>
+</Method>
+
+<Method name="Test: 7 Als voor HLX het klantID K pipe pipe 1389 is dan moet BUNIT teruggegeven worden">
+<Implementation><![CDATA[
+	#dim KlantId As %String = "K||1389"
+	
+	Do ..FirmaBepaler.IndienMethodCall("GeefInitialen").DanReturn("HLX")
+	
+	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 vhTest.Mock.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>
+
+<Method name="Test: 8 Als voor HLX het klantID K pipe pipe 1377 is dan moet BUNIT teruggegeven worden">
+<Implementation><![CDATA[
+	#dim KlantId As %String = "K||1377"
+	
+	Do ..FirmaBepaler.IndienMethodCall("GeefInitialen").DanReturn("HLX")
+	
+	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 vhTest.Mock.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>
+
+<Method name="Test: 9 Als Test 1 tot en met 8 NVT zijn en de Klant IsLidBTWEenheidVanHoecke dan moet BUNIT teruggegeven worden">
+<Implementation><![CDATA[
+	#dim KlantId As %String = "K||1234"
+	
+	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 vhTest.Mock.DOM.VKP.VanHoeckeKlant = ##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant()
+	Do KlantStub.IndienMethodCall("IsLidBTWEenheidVanHoecke").DanReturn(1)
+	
+	#dim Util As AXimpl.Utils = ##class(AXimpl.Utils).%New(..FirmaBepaler,..PartijApi)
+	#dim KlantTaxGroup As %String = Util.ConvertKlantTaxGroup(KlantStub)
+	
+	Do $$$AssertEquals(KlantTaxGroup,"BUNIT")
+]]></Implementation>
+</Method>
+
+<Method name="Test: 10 Als Test 1 tot en met 9 NVT zijn en de Klant zijn BTWRegimeKlant 1 is dan moet BDOM teruggegeven worden">
+<Implementation><![CDATA[
+	#dim KlantId As %String = "K||1234"
+	
+	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 vhTest.Mock.DOM.VKP.VanHoeckeKlant = ##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant()
+	Do KlantStub.IndienMethodCall("GeefBTWRegime").DanReturn(##class(DOM.VKP.enu.BTWRegimeKlant).Aanrekenen())
+	
+	#dim Util As AXimpl.Utils = ##class(AXimpl.Utils).%New(..FirmaBepaler,..PartijApi)
+	#dim KlantTaxGroup As %String = Util.ConvertKlantTaxGroup(KlantStub)
+	
+	Do $$$AssertEquals(KlantTaxGroup,"BDOM")
+]]></Implementation>
+</Method>
+
+<Method name="Test: 11 Als Test 1 tot en met 10 NVT zijn en de Klant zijn landcode BE is dan moet BDOM teruggegeven worden">
+<Implementation><![CDATA[
+	#dim KlantId As %String = "K||1234"
+	
+	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 BelgischAdres As vhTest.Utils.DOM.VKP.LeverAdres = ##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch()
+	#dim KlantStub As vhTest.Mock.DOM.VKP.VanHoeckeKlant = ##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant()
+	Do KlantStub.IndienMethodCall("GeefBTWRegime").DanReturn(##class(DOM.VKP.enu.BTWRegimeKlant).Vrijgesteld())
+	Do PartijStub.IndienMethodCall("GeefAdres").DanReturn(BelgischAdres)
+	
+	#dim Util As AXimpl.Utils = ##class(AXimpl.Utils).%New(..FirmaBepaler,..PartijApi)
+	#dim KlantTaxGroup As %String = Util.ConvertKlantTaxGroup(KlantStub)
+	
+	Do $$$AssertEquals(KlantTaxGroup,"BDOM")
+]]></Implementation>
+</Method>
+
+<Method name="Test: 12 Als Test 1 tot en met 11 NVT zijn en de Klant zijn landcode  niet BE is maar wel in EU zit dan moet BIC teruggegeven worden">
+<Implementation><![CDATA[
+	#dim KlantId As %String = "K||1234"
+	
+	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 EuLid As vhTest.Utils.DOM.VKP.LeverAdres = ##class(vhTest.Utils.DOM.VKP.LeverAdres).EuLid()
+	#dim KlantStub As vhTest.Mock.DOM.VKP.VanHoeckeKlant = ##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant()
+	Do KlantStub.IndienMethodCall("GeefBTWRegime").DanReturn(##class(DOM.VKP.enu.BTWRegimeKlant).Vrijgesteld())
+	Do PartijStub.IndienMethodCall("GeefAdres").DanReturn(EuLid)
+	
+	#dim Util As AXimpl.Utils = ##class(AXimpl.Utils).%New(..FirmaBepaler,..PartijApi)
+	#dim KlantTaxGroup As %String = Util.ConvertKlantTaxGroup(KlantStub)
+	
+	Do $$$AssertEquals(KlantTaxGroup,"BIC")
+]]></Implementation>
+</Method>
+
+<Method name="Test: 13 Als Test 1 tot en met 12 NVT zijn en dan moet BX teruggegeven worden">
+<Implementation><![CDATA[
+	#dim KlantId As %String = "K||1234"
+	
+	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 NietEuLid As vhTest.Utils.DOM.VKP.LeverAdres = ##class(vhTest.Utils.DOM.VKP.LeverAdres).NietEuLid()
+	#dim KlantStub As vhTest.Mock.DOM.VKP.VanHoeckeKlant = ##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant()
+	Do KlantStub.IndienMethodCall("GeefBTWRegime").DanReturn(##class(DOM.VKP.enu.BTWRegimeKlant).Vrijgesteld())
+	Do PartijStub.IndienMethodCall("GeefAdres").DanReturn(NietEuLid)
+	
+	#dim Util As AXimpl.Utils = ##class(AXimpl.Utils).%New(..FirmaBepaler,..PartijApi)
+	#dim KlantTaxGroup As %String = Util.ConvertKlantTaxGroup(KlantStub)
+	
+	Do $$$AssertEquals(KlantTaxGroup,"BX")
+]]></Implementation>
+</Method>
 </Class>