Index: vhUnitTest/AXimpl/Utils/ConvertLeverancierTaxGroup/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AXimpl/Utils/ConvertLeverancierTaxGroup/Test.cls.xml	(revision 0)
+++ vhUnitTest/AXimpl/Utils/ConvertLeverancierTaxGroup/Test.cls.xml	(revision 41781)
@@ -0,0 +1,111 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AXimpl.Utils.ConvertLeverancierTaxGroup.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: 1 Als voor VHBE het leverancierID L pipe pipe 6332 is dan moet BUNIT teruggegeven worden">
+<Implementation><![CDATA[
+	#dim LeverancierId As %String = "L||6332"
+	
+	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)
+	
+	Set LeverancierStub = ##class(vhTest.Mock.DOM.AKP.Leverancier).%New()
+	Do LeverancierStub.IndienMethodCall("GeefID").DanReturn(LeverancierId)
+	
+	#dim Util As AXimpl.Utils = ##class(AXimpl.Utils).%New(..FirmaBepaler,..PartijApi)
+	#dim LeverancierTaxGroup As %String = Util.ConvertLeverancierTaxGroup(LeverancierStub)
+	
+	Do $$$AssertEquals(LeverancierTaxGroup,"BUNIT")
+]]></Implementation>
+</Method>
+
+<Method name="Test: 2 Als voor VHBE het leverancierID L pipe pipe 6051 is dan moet BUNIT teruggegeven worden">
+<Implementation><![CDATA[
+	#dim LeverancierId As %String = "L||6051"
+	
+	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)
+	
+	Set LeverancierStub = ##class(vhTest.Mock.DOM.AKP.Leverancier).%New()
+	Do LeverancierStub.IndienMethodCall("GeefID").DanReturn(LeverancierId)
+	
+	#dim Util As AXimpl.Utils = ##class(AXimpl.Utils).%New(..FirmaBepaler,..PartijApi)
+	#dim LeverancierTaxGroup As %String = Util.ConvertLeverancierTaxGroup(LeverancierStub)
+	
+	Do $$$AssertEquals(LeverancierTaxGroup,"BUNIT")
+]]></Implementation>
+</Method>
+
+<Method name="Test: 3 Als voor VHBE het leverancierID L pipe pipe 5908 is dan moet BUNIT teruggegeven worden">
+<Implementation><![CDATA[
+	#dim LeverancierId As %String = "L||5908"
+	
+	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)
+	
+	Set LeverancierStub = ##class(vhTest.Mock.DOM.AKP.Leverancier).%New()
+	Do LeverancierStub.IndienMethodCall("GeefID").DanReturn(LeverancierId)
+	
+	#dim Util As AXimpl.Utils = ##class(AXimpl.Utils).%New(..FirmaBepaler,..PartijApi)
+	#dim LeverancierTaxGroup As %String = Util.ConvertLeverancierTaxGroup(LeverancierStub)
+	
+	Do $$$AssertEquals(LeverancierTaxGroup,"BUNIT")
+]]></Implementation>
+</Method>
+
+<Method name="Test: 4 Als voor HLX het leverancierID L pipe pipe 5497 is dan moet BUNIT teruggegeven worden">
+<Implementation><![CDATA[
+	#dim LeverancierId As %String = "L||5497"
+	
+	Do ..FirmaBepaler.IndienMethodCall("GeefInitialen").DanReturn("HLX")
+	
+	Set PartijStub = ##class(vhTest.Mock.DOM.PARTIJ.Partij).%New()
+	Do PartijStub.IndienMethodCall("GeefID").DanReturn(LeverancierId)
+	
+	Do ..PartijApi.IndienMethodCall("GeefPartij",LeverancierId).DanReturn(PartijStub)
+	
+	Set LeverancierStub = ##class(vhTest.Mock.DOM.AKP.Leverancier).%New()
+	Do LeverancierStub.IndienMethodCall("GeefID").DanReturn(LeverancierId)
+	
+	#dim Util As AXimpl.Utils = ##class(AXimpl.Utils).%New(..FirmaBepaler,..PartijApi)
+	#dim LeverancierTaxGroup As %String = Util.ConvertLeverancierTaxGroup(LeverancierStub)
+	
+	Do $$$AssertEquals(LeverancierTaxGroup,"BUNIT")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>