Index: vhUnitTest/AXimpl/Utils/ConvertLeverancierTaxGroup/Test.cls.xml
===================================================================
diff -u -r41781 -r41782
--- vhUnitTest/AXimpl/Utils/ConvertLeverancierTaxGroup/Test.cls.xml	(.../Test.cls.xml)	(revision 41781)
+++ vhUnitTest/AXimpl/Utils/ConvertLeverancierTaxGroup/Test.cls.xml	(.../Test.cls.xml)	(revision 41782)
@@ -105,6 +105,75 @@
 	Do $$$AssertEquals(LeverancierTaxGroup,"BUNIT")
 ]]></Implementation>
 </Method>
+
+<Method name="Test: 5 Als Test 1 tot en met 4 NVT zijn en de leverancier zijn landcode BE is dan moet BDOM teruggegeven worden">
+<Implementation><![CDATA[
+	#dim LeverancierId As %String = "L||1234"
+	
+	Do ..FirmaBepaler.IndienMethodCall("GeefInitialen").DanReturn("VHBE")
+	
+	Set PartijStub = ##class(vhTest.Mock.DOM.PARTIJ.Partij).%New()
+	Do PartijStub.IndienMethodCall("GeefID").DanReturn(LeverancierId)
+	
+	Do ..PartijApi.IndienMethodCall("GeefPartij",LeverancierId).DanReturn(PartijStub)
+	
+	#dim BelgischAdres As vhTest.Utils.DOM.VKP.LeverAdres = ##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch()
+	Set LeverancierStub = ##class(vhTest.Mock.DOM.AKP.Leverancier).%New()
+	Do LeverancierStub.IndienMethodCall("GeefID").DanReturn(LeverancierId)
+	Do PartijStub.IndienMethodCall("GeefAdres").DanReturn(BelgischAdres)
+	
+	#dim Util As AXimpl.Utils = ##class(AXimpl.Utils).%New(..FirmaBepaler,..PartijApi)
+	#dim LeverancierTaxGroup As %String = Util.ConvertLeverancierTaxGroup(LeverancierStub)
+	
+	Do $$$AssertEquals(LeverancierTaxGroup,"BDOM")
+]]></Implementation>
+</Method>
+
+<Method name="Test: 6 Als Test 1 tot en met 5 NVT zijn en de leverancier zijn landcode niet BE is maar wel in EU zit dan moet BIC teruggegeven worden">
+<Implementation><![CDATA[
+	#dim LeverancierId As %String = "L||1234"
+	
+	Do ..FirmaBepaler.IndienMethodCall("GeefInitialen").DanReturn("VHBE")
+	
+	Set PartijStub = ##class(vhTest.Mock.DOM.PARTIJ.Partij).%New()
+	Do PartijStub.IndienMethodCall("GeefID").DanReturn(LeverancierId)
+	
+	Do ..PartijApi.IndienMethodCall("GeefPartij",LeverancierId).DanReturn(PartijStub)
+	
+	#dim EuLid As vhTest.Utils.DOM.VKP.LeverAdres = ##class(vhTest.Utils.DOM.VKP.LeverAdres).EuLid()
+	Set LeverancierStub = ##class(vhTest.Mock.DOM.AKP.Leverancier).%New()
+	Do LeverancierStub.IndienMethodCall("GeefID").DanReturn(LeverancierId)
+	Do PartijStub.IndienMethodCall("GeefAdres").DanReturn(EuLid)
+	
+	#dim Util As AXimpl.Utils = ##class(AXimpl.Utils).%New(..FirmaBepaler,..PartijApi)
+	#dim LeverancierTaxGroup As %String = Util.ConvertLeverancierTaxGroup(LeverancierStub)
+	
+	Do $$$AssertEquals(LeverancierTaxGroup,"BIC")
+]]></Implementation>
+</Method>
+
+<Method name="Test: 7 Als Test 1 tot en met 6 NVT zijn en dan moet BX teruggegeven worden">
+<Implementation><![CDATA[
+	#dim LeverancierId As %String = "L||1234"
+	
+	Do ..FirmaBepaler.IndienMethodCall("GeefInitialen").DanReturn("VHBE")
+	
+	Set PartijStub = ##class(vhTest.Mock.DOM.PARTIJ.Partij).%New()
+	Do PartijStub.IndienMethodCall("GeefID").DanReturn(LeverancierId)
+	
+	Do ..PartijApi.IndienMethodCall("GeefPartij",LeverancierId).DanReturn(PartijStub)
+	
+	#dim NietEuLid As vhTest.Utils.DOM.VKP.LeverAdres = ##class(vhTest.Utils.DOM.VKP.LeverAdres).NietEuLid()
+	Set LeverancierStub = ##class(vhTest.Mock.DOM.AKP.Leverancier).%New()
+	Do LeverancierStub.IndienMethodCall("GeefID").DanReturn(LeverancierId)
+	Do PartijStub.IndienMethodCall("GeefAdres").DanReturn(NietEuLid)
+	
+	#dim Util As AXimpl.Utils = ##class(AXimpl.Utils).%New(..FirmaBepaler,..PartijApi)
+	#dim LeverancierTaxGroup As %String = Util.ConvertLeverancierTaxGroup(LeverancierStub)
+	
+	Do $$$AssertEquals(LeverancierTaxGroup,"BX")
+]]></Implementation>
+</Method>
 </Class>