Index: vhUnitTest/AXimpl/Utils/ConvertLeverancierVendGroup/Test.cls.xml
===================================================================
diff -u -r41794 -r41797
--- vhUnitTest/AXimpl/Utils/ConvertLeverancierVendGroup/Test.cls.xml	(.../Test.cls.xml)	(revision 41794)
+++ vhUnitTest/AXimpl/Utils/ConvertLeverancierVendGroup/Test.cls.xml	(.../Test.cls.xml)	(revision 41797)
@@ -19,7 +19,7 @@
 <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"
-	#dim Firma As %String = "VHBE"
+	#dim Firma As AX.common.enu.InterneFirmaInitialen = "VHBE"
 	
 	Set PartijStub = ##class(vhTest.Mock.DOM.PARTIJ.Partij).%New()
 	Do PartijStub.IndienMethodCall("GeefID").DanReturn(LeverancierId)
@@ -39,7 +39,7 @@
 <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"
-	#dim Firma As %String = "VHBE"
+	#dim Firma As AX.common.enu.InterneFirmaInitialen = "VHBE"
 	
 	Set PartijStub = ##class(vhTest.Mock.DOM.PARTIJ.Partij).%New()
 	Do PartijStub.IndienMethodCall("GeefID").DanReturn(LeverancierId)
@@ -59,7 +59,7 @@
 <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"
-	#dim Firma As %String = "VHBE"
+	#dim Firma As AX.common.enu.InterneFirmaInitialen = "VHBE"
 	
 	Set PartijStub = ##class(vhTest.Mock.DOM.PARTIJ.Partij).%New()
 	Do PartijStub.IndienMethodCall("GeefID").DanReturn(LeverancierId)
@@ -79,7 +79,7 @@
 <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"
-	#dim Firma As %String = "VHBE"
+	#dim Firma As AX.common.enu.InterneFirmaInitialen = "VHBE"
 	
 	Set PartijStub = ##class(vhTest.Mock.DOM.PARTIJ.Partij).%New()
 	Do PartijStub.IndienMethodCall("GeefID").DanReturn(LeverancierId)
@@ -99,7 +99,7 @@
 <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"
-	#dim Firma As %String = "HLX"
+	#dim Firma As AX.common.enu.InterneFirmaInitialen = "HLX"
 	
 	Set PartijStub = ##class(vhTest.Mock.DOM.PARTIJ.Partij).%New()
 	Do PartijStub.IndienMethodCall("GeefID").DanReturn(LeverancierId)
@@ -119,7 +119,7 @@
 <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"
-	#dim Firma As %String = "VHBE"
+	#dim Firma As AX.common.enu.InterneFirmaInitialen = "VHBE"
 	
 	Set PartijStub = ##class(vhTest.Mock.DOM.PARTIJ.Partij).%New()
 	Do PartijStub.IndienMethodCall("GeefID").DanReturn(LeverancierId)
@@ -141,7 +141,7 @@
 <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"
-	#dim Firma As %String = "VHBE"
+	#dim Firma As AX.common.enu.InterneFirmaInitialen = "VHBE"
 	
 	Set PartijStub = ##class(vhTest.Mock.DOM.PARTIJ.Partij).%New()
 	Do PartijStub.IndienMethodCall("GeefID").DanReturn(LeverancierId)
@@ -163,7 +163,7 @@
 <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"
-	#dim Firma As %String = "VHBE"
+	#dim Firma As AX.common.enu.InterneFirmaInitialen = "VHBE"
 	
 	Set PartijStub = ##class(vhTest.Mock.DOM.PARTIJ.Partij).%New()
 	Do PartijStub.IndienMethodCall("GeefID").DanReturn(LeverancierId)