Index: APPS/EC/Unishop/enu/KleurenSchema/Verwerker.cls.xml
===================================================================
diff -u
--- APPS/EC/Unishop/enu/KleurenSchema/Verwerker.cls.xml	(revision 0)
+++ APPS/EC/Unishop/enu/KleurenSchema/Verwerker.cls.xml	(revision 37095)
@@ -0,0 +1,40 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EC.Unishop.enu.KleurenSchema.Verwerker">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+De enumeratie methoden moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration</Description>
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+
+<Method name="Verwerk">
+<Final>1</Final>
+<FormalSpec>KleurenSchema:APPS.EC.Unishop.enu.KleurenSchema</FormalSpec>
+<Implementation><![CDATA[
+	If KleurenSchema = "Donker" {
+		Do ..VerwerkDonker()
+	} ElseIf KleurenSchema = "Licht" {
+		Do ..VerwerkLicht()
+	} Else {
+		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(KleurenSchema,"APPS.EC.Unishop.enu.KleurenSchema",$classname())
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkDonker">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkLicht">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/APPS/EC/impl/ConfiguratorService/KleurenSchemaBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/EC/impl/ConfiguratorService/KleurenSchemaBepaler.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/EC/impl/ConfiguratorService/KleurenSchemaBepaler.cls.xml	(revision 37095)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.EC.impl.ConfiguratorService.KleurenSchemaBepaler">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.EC.impl.ConfiguratorService.KleurenSchemaBepaler,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="Bepaal">
+<FormalSpec>PersonalityID:DOM.common.enu.Personality,KlantID:DOM.VKP.KlantID</FormalSpec>
+<ReturnType>APPS.EC.Unishop.enu.KleurenSchema</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("Bepaal",PersonalityID,KlantID)
+]]></Implementation>
+</Method>
+
+<Method name="TAXExportNietActief">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("TAXExportNietActief")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/APPS/EC/impl/ConfiguratorService/KleurenSchemaBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/EC/impl/ConfiguratorService/KleurenSchemaBepaler.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/EC/impl/ConfiguratorService/KleurenSchemaBepaler.cls.xml	(revision 37095)
@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.EC.impl.ConfiguratorService.KleurenSchemaBepaler">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.EC.impl.ConfiguratorService.KleurenSchemaBepaler</Super>
+
+<Method name="Bepaal">
+<FormalSpec>PersonalityID:DOM.common.enu.Personality,KlantID:DOM.VKP.KlantID</FormalSpec>
+<ReturnType>APPS.EC.Unishop.enu.KleurenSchema</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="TAXExportNietActief">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EC/impl/ConfiguratorService/KleurenSchemaBepaler.cls.xml
===================================================================
diff -u
--- APPS/EC/impl/ConfiguratorService/KleurenSchemaBepaler.cls.xml	(revision 0)
+++ APPS/EC/impl/ConfiguratorService/KleurenSchemaBepaler.cls.xml	(revision 37095)
@@ -0,0 +1,66 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EC.impl.ConfiguratorService.KleurenSchemaBepaler">
+<Super>TECH.Mockable</Super>
+
+<Property name="VerkoopAPI">
+<Type>DOM.VKP.VerkoopAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>LocatieAPI:DOM.common.impl.LocatieAPI</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..VerkoopAPI = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI()
+	quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Bepaal">
+<FormalSpec>PersonalityID:DOM.common.enu.Personality,KlantID:DOM.VKP.KlantID</FormalSpec>
+<ReturnType>APPS.EC.Unishop.enu.KleurenSchema</ReturnType>
+<Implementation><![CDATA[
+	Quit:..IsGeenVanHoeckePersonality(PersonalityID) ##class(APPS.EC.Unishop.enu.KleurenSchema).Licht() 	
+
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ..VerkoopAPI.GeefKlant(KlantID)
+	#dim Land As DOM.common.impl.Land = Klant.GeefAdres().GeefLand()
+	
+	Quit:..IsStandaardKlant(KlantID) ##class(APPS.EC.Unishop.enu.KleurenSchema).Licht()
+	
+	Quit:Land.IsBENELUX() ##class(APPS.EC.Unishop.enu.KleurenSchema).Licht()
+	
+	Quit:..TAXExportNietActief() ##class(APPS.EC.Unishop.enu.KleurenSchema).Licht()
+
+	Quit ##class(APPS.EC.Unishop.enu.KleurenSchema).Donker()
+]]></Implementation>
+</Method>
+
+<Method name="IsStandaardKlant">
+<FormalSpec>KlantID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ##class(WSimpl.Unishop.Login.WebshopSessieSettingsInvuller.enu.CheckoutTypeStandaardKlant).IsValid(KlantID)
+]]></Implementation>
+</Method>
+
+<Method name="TAXExportNietActief">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (##class(TECH.Config.ConfigMgr).Instance().GeefString("ActivatieVlagTAXExport") = "0")
+]]></Implementation>
+</Method>
+
+<Method name="IsGeenVanHoeckePersonality">
+<FormalSpec>PersonalityID:DOM.common.enu.Personality</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (PersonalityID '= ##class(DOM.common.enu.Personality).VanHoecke())
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EC/Unishop/enu/KleurenSchema/AutoComplete.cls.xml
===================================================================
diff -u
--- APPS/EC/Unishop/enu/KleurenSchema/AutoComplete.cls.xml	(revision 0)
+++ APPS/EC/Unishop/enu/KleurenSchema/AutoComplete.cls.xml	(revision 37095)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EC.Unishop.enu.KleurenSchema.AutoComplete">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+De enumeratie Eigenschapn moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration</Description>
+<ClassType>serial</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%SerialObject</Super>
+
+<Property name="Donker">
+<Type>%String</Type>
+<InitialExpression>"Donker"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Licht">
+<Type>%String</Type>
+<InitialExpression>"Licht"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+</Class>
+
+
+</Export>
Index: APPS/EC/dto/WebshopSessieSettings.cls.xml
===================================================================
diff -u -r33273 -r37095
--- APPS/EC/dto/WebshopSessieSettings.cls.xml	(.../WebshopSessieSettings.cls.xml)	(revision 33273)
+++ APPS/EC/dto/WebshopSessieSettings.cls.xml	(.../WebshopSessieSettings.cls.xml)	(revision 37095)
@@ -6,6 +6,10 @@
 <Property name="CheckOutType">
 <Type>APPS.EC.Unishop.enu.CheckoutType</Type>
 </Property>
+
+<Property name="KleurenSchema">
+<Type>APPS.EC.Unishop.enu.KleurenSchema</Type>
+</Property>
 </Class>
 
 
Index: vhUnitTest/APPS/EC/impl/ConfiguratorService/KleurenSchemaBepaler/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EC/impl/ConfiguratorService/KleurenSchemaBepaler/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EC/impl/ConfiguratorService/KleurenSchemaBepaler/Test.cls.xml	(revision 37095)
@@ -0,0 +1,100 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EC.impl.ConfiguratorService.KleurenSchemaBepaler.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: KleurenSchemaBepaler voor Benelux geeft Licht als kleurenschema">
+<Implementation><![CDATA[
+	#dim Klant As vhTest.Dummy.DOM.VKP.VanHoeckeKlant = ##class(vhTest.Dummy.DOM.VKP.VanHoeckeKlant).%New()
+	
+	do ..PushKlant(Klant)
+	
+	#dim PersonalityID As DOM.common.enu.Personality = ##class(DOM.common.enu.Personality).VanHoecke()
+		
+	#dim KleurenSchemaBepaler As APPS.EC.impl.ConfiguratorService.KleurenSchemaBepaler = ##class(APPS.EC.impl.ConfiguratorService.KleurenSchemaBepaler).%New()
+	
+	Do $$$AssertEquals(KleurenSchemaBepaler.Bepaal(PersonalityID, Klant.GeefID()),##class(APPS.EC.Unishop.enu.KleurenSchema).Licht())
+]]></Implementation>
+</Method>
+
+<Method name="Test: KleurenSchemaBepaler buiten Benelux geeft Donker als kleurenschema">
+<Implementation><![CDATA[
+	#dim Klant As vhTest.Dummy.DOM.VKP.VanHoeckeKlant = ##class(vhTest.Dummy.DOM.VKP.VanHoeckeKlant).%New()
+	Do Klant.GeefAdres().ZetLandNr("DE")
+
+	do ..PushKlant(Klant)
+	
+	#dim KleurenSchemaBepaler As APPS.EC.impl.ConfiguratorService.KleurenSchemaBepaler = ##class(APPS.EC.impl.ConfiguratorService.KleurenSchemaBepaler).%New()
+	
+	#dim PersonalityID As DOM.common.enu.Personality = ##class(DOM.common.enu.Personality).VanHoecke()
+	
+	Do $$$AssertEquals(KleurenSchemaBepaler.Bepaal(PersonalityID, Klant.GeefID()),##class(APPS.EC.Unishop.enu.KleurenSchema).Donker())
+]]></Implementation>
+</Method>
+
+<Method name="Test: KleurenSchemaBepaler zonder vanhoecke personality geeft Licht kleurenschema">
+<Implementation><![CDATA[
+	#dim Klant As vhTest.Dummy.DOM.VKP.VanHoeckeKlant = ##class(vhTest.Dummy.DOM.VKP.VanHoeckeKlant).%New()
+
+	do ..PushKlant(Klant)
+	
+	#dim PersonalityID As DOM.common.enu.Personality = ##class(DOM.common.enu.Personality).Daro()
+
+	#dim KleurenSchemaBepaler As APPS.EC.impl.ConfiguratorService.KleurenSchemaBepaler = ##class(APPS.EC.impl.ConfiguratorService.KleurenSchemaBepaler).%New()
+	
+	Do $$$AssertEquals(KleurenSchemaBepaler.Bepaal(PersonalityID, Klant.GeefID()),##class(APPS.EC.Unishop.enu.KleurenSchema).Licht())
+]]></Implementation>
+</Method>
+
+<Method name="Test: KleurenSchemaBepaler met klantuitzondering 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).DaroFactors())
+	
+	do ..PushKlant(Klant)
+
+	#dim PersonalityID As DOM.common.enu.Personality = ##class(DOM.common.enu.Personality).VanHoecke()
+
+	#dim KleurenSchemaBepaler As APPS.EC.impl.ConfiguratorService.KleurenSchemaBepaler = ##class(APPS.EC.impl.ConfiguratorService.KleurenSchemaBepaler).%New()
+	
+	Do $$$AssertEquals(KleurenSchemaBepaler.Bepaal(PersonalityID, Klant.GeefID()),##class(APPS.EC.Unishop.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()
+	Do Klant.GeefAdres().ZetLandNr("DE")
+	Do Klant.ZetID(..GeefNietBeneluxKlantID())
+	
+	do ..PushKlant(Klant)
+
+	#dim PersonalityID As DOM.common.enu.Personality = ##class(DOM.common.enu.Personality).VanHoecke()
+
+	#dim KleurenSchemaBepaler As APPS.EC.impl.ConfiguratorService.KleurenSchemaBepaler = ##class(APPS.EC.impl.ConfiguratorService.KleurenSchemaBepaler).%New()
+	
+	Do $$$AssertEquals(KleurenSchemaBepaler.Bepaal(PersonalityID, Klant.GeefID()),##class(APPS.EC.Unishop.enu.KleurenSchema).Donker())
+]]></Implementation>
+</Method>
+
+<Method name="PushKlant">
+<FormalSpec>Klant:DOM.VKP.VanHoeckeKlant</FormalSpec>
+<Implementation><![CDATA[
+	#dim VerkoopAPI As vhTest.Mock.DOM.VKP.VerkoopAPI = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).MockInstance()
+	do VerkoopAPI.IndienMethodCall("GeefKlant",$$$ElkeWaarde).DanReturn(Klant)
+]]></Implementation>
+</Method>
+
+<Method name="GeefNietBeneluxKlantID">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim NietBeneluxKlant As DOM.VKP.VanHoeckeKlant = ##class(vhTest.Data.DOM.VKP.VanHoeckeKlant).MaakNietBENELUXOnderneming()
+	Quit NietBeneluxKlant.GeefID()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/KleurenSchemaBepaler/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/KleurenSchemaBepaler/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/KleurenSchemaBepaler/Test.cls.xml	(revision 37095)
@@ -0,0 +1,51 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Unishop.Login.WebshopSessieSettingsInvuller.KleurenSchemaBepaler.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test : KleurenschemaBepaler haalt het kleurenschema op voor de aangemelde personality en klant">
+<Implementation><![CDATA[
+	#dim WebshopSessie As APPS.EC.dto.WebshopSessie = ..MaakWebshopSessieVanHoecke(..GeefNietBeneluxKlantID())
+
+	#dim KleurenSchemaBepalerMock As vhTest.Mock.APPS.EC.impl.ConfiguratorService.KleurenSchemaBepaler 
+	Set KleurenSchemaBepalerMock = ##class(vhTest.Mock.APPS.EC.impl.ConfiguratorService.KleurenSchemaBepaler).%New()
+
+	Do KleurenSchemaBepalerMock.VerwachtMethodCall("Bepaal",WebshopSessie.PersonalityID,WebshopSessie.VhintraSessie.GebruikerData.KlantData.ID).DanDoeNiks()
+	
+	#dim KleurenSchemaBepaler As WSimpl.Unishop.Login.WebshopSessieSettingsInvuller.KleurenSchemaBepaler = ##class(WSimpl.Unishop.Login.WebshopSessieSettingsInvuller.KleurenSchemaBepaler).%New(,KleurenSchemaBepalerMock)
+	
+	Do KleurenSchemaBepaler.Bepaal(WebshopSessie)
+	
+	Do KleurenSchemaBepalerMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="MaakWebshopSessieVanHoecke">
+<FormalSpec>KlantID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.EC.dto.WebshopSessie</ReturnType>
+<Implementation><![CDATA[
+	#dim WebshopSessieSettingsInvuller As WSimpl.Unishop.Login.WebshopSessieSettingsInvuller.KleurenSchemaBepaler = ##class(WSimpl.Unishop.Login.WebshopSessieSettingsInvuller.KleurenSchemaBepaler).%New()
+	#dim WebshopSessie As APPS.EC.dto.WebshopSessie = ##class(APPS.EC.dto.WebshopSessie).%New()
+	Set WebshopSessie.PersonalityID = ##class(DOM.common.enu.Personality).VanHoecke()
+	Set WebshopSessie.LandCode = "DE"
+	Set WebshopSessie.VhintraSessie = ##class(APPS.algemeen.VhintraShell.dto.VhintraSessie).%New()
+	Set WebshopSessie.VhintraSessie.GebruikerData = ##class(DOM.common.dto.GebruikerData).%New()
+	Set WebshopSessie.VhintraSessie.GebruikerData.KlantData = ##class(DOM.common.dto.VanHoeckeKlantData).%New()
+	Set WebshopSessie.VhintraSessie.GebruikerData.KlantData.ID = KlantID
+	Quit WebshopSessie
+]]></Implementation>
+</Method>
+
+<Method name="GeefNietBeneluxKlantID">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim NietBeneluxKlant As DOM.VKP.VanHoeckeKlant = ##class(vhTest.Data.DOM.VKP.VanHoeckeKlant).MaakNietBENELUXOnderneming()
+	Quit NietBeneluxKlant.GeefID()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/Unishop/Login/WebshopSessieSettingsInvuller.cls.xml
===================================================================
diff -u -r33947 -r37095
--- WSimpl/Unishop/Login/WebshopSessieSettingsInvuller.cls.xml	(.../WebshopSessieSettingsInvuller.cls.xml)	(revision 33947)
+++ WSimpl/Unishop/Login/WebshopSessieSettingsInvuller.cls.xml	(.../WebshopSessieSettingsInvuller.cls.xml)	(revision 37095)
@@ -17,9 +17,25 @@
 ]]></Implementation>
 </Method>
 
+<Property name="KleurenSchemaBepaler">
+<Type>WSimpl.Unishop.Login.WebshopSessieSettingsInvuller.KleurenSchemaBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="KleurenSchemaBepalerGet">
+<Private>1</Private>
+<ReturnType>WSimpl.Unishop.Login.WebshopSessieSettingsInvuller.KleurenSchemaBepaler</ReturnType>
+<Implementation><![CDATA[
+	set r%KleurenSchemaBepaler = $$$LazyLoad(r%KleurenSchemaBepaler, ##class(WSimpl.Unishop.Login.WebshopSessieSettingsInvuller.KleurenSchemaBepaler).%New())
+	quit r%KleurenSchemaBepaler
+]]></Implementation>
+</Method>
+
 <Method name="VulIn">
 <FormalSpec><![CDATA[&WebshopSessie:APPS.EC.dto.WebshopSessie]]></FormalSpec>
-<Implementation><![CDATA[	Set WebshopSessie.Settings.CheckOutType = ..CheckoutTypeBepaler.Bepaal(WebshopSessie)
+<Implementation><![CDATA[
+	Set WebshopSessie.Settings.CheckOutType = ..CheckoutTypeBepaler.Bepaal(WebshopSessie)
+	Set WebshopSessie.Settings.KleurenSchema = ..KleurenSchemaBepaler.Bepaal(WebshopSessie)
 ]]></Implementation>
 </Method>
 </Class>
Index: WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/KleurenSchemaBepaler.cls.xml
===================================================================
diff -u
--- WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/KleurenSchemaBepaler.cls.xml	(revision 0)
+++ WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/KleurenSchemaBepaler.cls.xml	(revision 37095)
@@ -0,0 +1,32 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Unishop.Login.WebshopSessieSettingsInvuller.KleurenSchemaBepaler">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="KleurenSchemaBepaler">
+<Type>APPS.EC.impl.ConfiguratorService.KleurenSchemaBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>LocatieAPI:DOM.common.impl.LocatieAPI,KleurenSchemaBepaler:APPS.EC.impl.ConfiguratorService.KleurenSchemaBepaler</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..KleurenSchemaBepaler = $$$Inject(KleurenSchemaBepaler,##class(APPS.EC.impl.ConfiguratorService.KleurenSchemaBepaler).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Bepaal">
+<FormalSpec>WebshopSessie:APPS.EC.dto.WebshopSessie</FormalSpec>
+<ReturnType>APPS.EC.Unishop.enu.KleurenSchema</ReturnType>
+<Implementation><![CDATA[	Quit ..KleurenSchemaBepaler.Bepaal(WebshopSessie.PersonalityID,WebshopSessie.VhintraSessie.GebruikerData.KlantData.ID)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EC/Unishop/enu/KleurenSchema.cls.xml
===================================================================
diff -u
--- APPS/EC/Unishop/enu/KleurenSchema.cls.xml	(revision 0)
+++ APPS/EC/Unishop/enu/KleurenSchema.cls.xml	(revision 37095)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EC.Unishop.enu.KleurenSchema">
+<ClassType>datatype</ClassType>
+<Super>TECH.Enumeration</Super>
+
+<Parameter name="DISPLAYLIST">
+<Default>;Licht;Donker</Default>
+</Parameter>
+
+<Parameter name="VALUELIST">
+<Default>;Licht;Donker</Default>
+</Parameter>
+
+<Method name="Licht">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.EC.Unishop.enu.KleurenSchema</ReturnType>
+<Implementation><![CDATA[	Quit "Licht"
+]]></Implementation>
+</Method>
+
+<Method name="Donker">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.EC.Unishop.enu.KleurenSchema</ReturnType>
+<Implementation><![CDATA[	Quit "Donker"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>