Index: vhUnitTest/AXimpl/Utils/ConvertLeverancierVendGroup/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AXimpl/Utils/ConvertLeverancierVendGroup/Test.cls.xml	(revision 0)
+++ vhUnitTest/AXimpl/Utils/ConvertLeverancierVendGroup/Test.cls.xml	(revision 41783)
@@ -0,0 +1,201 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AXimpl.Utils.ConvertLeverancierVendGroup.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 IC 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 LeverancierVendGroup As %String = Util.ConvertLeverancierVendGroup(LeverancierStub)
+	
+	Do $$$AssertEquals(LeverancierVendGroup,"IC")
+]]></Implementation>
+</Method>
+
+<Method name="Test: 2 Als voor VHBE het leverancierID L pipe pipe 6051 is dan moet IC 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 LeverancierVendGroup As %String = Util.ConvertLeverancierVendGroup(LeverancierStub)
+	
+	Do $$$AssertEquals(LeverancierVendGroup,"IC")
+]]></Implementation>
+</Method>
+
+<Method name="Test: 3 Als voor VHBE het leverancierID L pipe pipe 5908 is dan moet IC 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 LeverancierVendGroup As %String = Util.ConvertLeverancierVendGroup(LeverancierStub)
+	
+	Do $$$AssertEquals(LeverancierVendGroup,"IC")
+]]></Implementation>
+</Method>
+
+<Method name="Test: 4 Als voor VHBE het leverancierID L pipe pipe 6373 is dan moet IC teruggegeven worden">
+<Implementation><![CDATA[
+	#dim LeverancierId As %String = "L||6373"
+	
+	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 LeverancierVendGroup As %String = Util.ConvertLeverancierVendGroup(LeverancierStub)
+	
+	Do $$$AssertEquals(LeverancierVendGroup,"IC")
+]]></Implementation>
+</Method>
+
+<Method name="Test: 5 Als voor HLX het leverancierID L pipe pipe 5497 is dan moet IC 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 LeverancierVendGroup As %String = Util.ConvertLeverancierVendGroup(LeverancierStub)
+	
+	Do $$$AssertEquals(LeverancierVendGroup,"IC")
+]]></Implementation>
+</Method>
+
+<Method name="Test: 6 Als Test 1 tot en met 5 NVT zijn en de leverancier zijn landcode BE is dan moet BE 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 LeverancierVendGroup As %String = Util.ConvertLeverancierVendGroup(LeverancierStub)
+	
+	Do $$$AssertEquals(LeverancierVendGroup,"BE")
+]]></Implementation>
+</Method>
+
+<Method name="Test: 7 Als Test 1 tot en met 6 NVT zijn en de leverancier zijn landcode niet BE is maar wel in EU zit dan moet EU 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 LeverancierVendGroup As %String = Util.ConvertLeverancierVendGroup(LeverancierStub)
+	
+	Do $$$AssertEquals(LeverancierVendGroup,"EU")
+]]></Implementation>
+</Method>
+
+<Method name="Test: 8 Als Test 1 tot en met 7 NVT zijn en dan moet EX 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 LeverancierVendGroup As %String = Util.ConvertLeverancierVendGroup(LeverancierStub)
+	
+	Do $$$AssertEquals(LeverancierVendGroup,"EX")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>