Index: vhUnitTest/APPS/EC/impl/ConfiguratorService/KleurenSchemaBepaler/Test.cls.xml
===================================================================
diff -u -r37312 -r37629
--- vhUnitTest/APPS/EC/impl/ConfiguratorService/KleurenSchemaBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 37312)
+++ vhUnitTest/APPS/EC/impl/ConfiguratorService/KleurenSchemaBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 37629)
@@ -90,6 +90,22 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: KleurenSchemaBepaler met klant Hein geeft Licht kleurenschema">
+<Implementation><![CDATA[
+	#dim Klant As vhTest.Dummy.DOM.VKP.VanHoeckeKlant = ##class(vhTest.Dummy.DOM.VKP.VanHoeckeKlant).%New()
+	Do Klant.GeefAdres().ZetLandNr("DE")
+	Do Klant.ZetID(##class(DOM.VKP.enu.Klant).Hein())
+	
+	Do ..PushKlant(Klant)
+
+	#dim PersonalityID As DOM.common.enu.Personality = ##class(DOM.common.enu.Personality).VanHoecke()
+
+	#dim KleurenSchemaBepaler As WSimpl.Unishop.Login.WebshopSessieSettingsInvuller.KleurenSchemaBepaler = ##class(WSimpl.Unishop.Login.WebshopSessieSettingsInvuller.KleurenSchemaBepaler).%New()
+	
+	Do $$$AssertEquals(KleurenSchemaBepaler.Bepaal(..MaakWebshopSessie(PersonalityID, Klant.GeefID())),##class(WSimpl.Unishop.Login.WebshopSessieSettingsInvuller.enu.KleurenSchema).Licht())
+]]></Implementation>
+</Method>
+
 <Method name="Test: KleurenSchemaBepaler met klant buiten benelux geeft Donker kleurenschema">
 <Implementation><![CDATA[
 	#dim Klant As vhTest.Dummy.DOM.VKP.VanHoeckeKlant = ##class(vhTest.Dummy.DOM.VKP.VanHoeckeKlant).%New()
Index: vhUnitTest/APPS/EC/impl/ConfiguratorService/ConfiguratorTypeBepaler/Test.cls.xml
===================================================================
diff -u -r37312 -r37629
--- vhUnitTest/APPS/EC/impl/ConfiguratorService/ConfiguratorTypeBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 37312)
+++ vhUnitTest/APPS/EC/impl/ConfiguratorService/ConfiguratorTypeBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 37629)
@@ -90,6 +90,25 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: ConfiguratorTypeBepaler met klant Hein geeft ConfiguratorTypes TAX en LBX">
+<Implementation><![CDATA[
+	#dim Klant As vhTest.Dummy.DOM.VKP.VanHoeckeKlant = ##class(vhTest.Dummy.DOM.VKP.VanHoeckeKlant).%New()
+	Do Klant.GeefAdres().ZetLandNr("DE")
+	Do Klant.ZetID(##class(DOM.VKP.enu.Klant).Hein())
+	
+	do ..PushKlant(Klant)
+
+	#dim PersonalityID As DOM.common.enu.Personality = ##class(DOM.common.enu.Personality).VanHoecke()
+
+	#dim ConfiguratorTypeBepaler As WSimpl.Unishop.Login.WebshopSessieSettingsInvuller.ConfiguratorTypeBepaler = ##class(WSimpl.Unishop.Login.WebshopSessieSettingsInvuller.ConfiguratorTypeBepaler).%New()
+	
+	#dim ConfiguratorTypes As %ListOfObjects = ConfiguratorTypeBepaler.Bepaal(..MaakWebshopSessie(PersonalityID, Klant.GeefID()))
+	Do $$$AssertEquals(ConfiguratorTypes.Count(),2)
+	Do $$$AssertEquals(ConfiguratorTypes.GetAt(1),##class(WSimpl.Unishop.Login.WebshopSessieSettingsInvuller.enu.ConfiguratorType).LBX())
+	Do $$$AssertEquals(ConfiguratorTypes.GetAt(2),##class(WSimpl.Unishop.Login.WebshopSessieSettingsInvuller.enu.ConfiguratorType).TAX())
+]]></Implementation>
+</Method>
+
 <Method name="Test: ConfiguratorTypeBepaler met klant buiten benelux geeft ConfiguratorType TAX">
 <Implementation><![CDATA[
 	#dim Klant As vhTest.Dummy.DOM.VKP.VanHoeckeKlant = ##class(vhTest.Dummy.DOM.VKP.VanHoeckeKlant).%New()