Index: WSimpl/Unishop/Login/KortingBewaarder.cls.xml
===================================================================
diff -u -r51212 -r52129
--- WSimpl/Unishop/Login/KortingBewaarder.cls.xml	(.../KortingBewaarder.cls.xml)	(revision 51212)
+++ WSimpl/Unishop/Login/KortingBewaarder.cls.xml	(.../KortingBewaarder.cls.xml)	(revision 52129)
@@ -3,11 +3,6 @@
 <Class name="WSimpl.Unishop.Login.KortingBewaarder">
 <Super>DOM.common.PersonalityUnishopVisitor,TECH.Mockable</Super>
 
-<Property name="DomeinVerwerker">
-<Type>%String</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="KlantSessieData">
 <Type>APPS.EC.dto.KlantSessieData</Type>
 <Private>1</Private>
@@ -28,15 +23,27 @@
 <Private>1</Private>
 </Property>
 
+<Property name="KlantSessieDataBepaler">
+<Type>APPS.EC.impl.KlantSessieDataBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="RefSessieDataBepaler">
+<Type>APPS.EC.impl.RefSessieDataBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>KortingSpecificatieFactory:DOM.VKP.dto.KortingSpecificatieFactory="",KortingService:DOM.VKP.KortingService=""</FormalSpec>
+<FormalSpec>KortingSpecificatieFactory:DOM.VKP.dto.KortingSpecificatieFactory="",KortingService:DOM.VKP.KortingService="",KlantSessieDataBepaler:APPS.EC.impl.KlantSessieDataBepaler="",RefSessieDataBepaler:APPS.EC.impl.RefSessieDataBepaler=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..KortingSpecificatieFactory = $$$Inject(KortingSpecificatieFactory, ##class(DOM.VKP.dto.KortingSpecificatieFactory).%New())
 	Set ..KortingService = $$$Inject(KortingService, ##class(DOM.VKP.impl.KortingService).%New())
+	Set ..KlantSessieDataBepaler = $$$Inject(KlantSessieDataBepaler, ##class(APPS.EC.impl.KlantSessieDataBepaler).%New())
+	Set ..RefSessieDataBepaler = $$$Inject(RefSessieDataBepaler, ##class(APPS.EC.impl.RefSessieDataBepaler).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -45,31 +52,17 @@
 <Method name="BewaarMeegegevenKorting">
 <FormalSpec>Ref:%String,DataOpt:%String</FormalSpec>
 <Implementation><![CDATA[
-	Do ..ConverteerRefNaarRefSessieData(Ref)
-	Set ..DomeinVerwerker = ..RefSessieData.Verwerker
+	Set ..RefSessieData = ..RefSessieDataBepaler.GeefRefSessieData(Ref)
+	Set ..KlantSessieData = ..KlantSessieDataBepaler.GeefKlantSessieData(DataOpt, ..RefSessieData.Verwerker)	
 	
-	Do ..ConverteerDataOptNaarKlantSessieData(DataOpt)
 	#dim WebshopSessionService As APPS.EC.WebshopSessionService = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWebshopSessionService()
-	#dim PersonalityID As %String = WebshopSessionService.GeefPersonalityIDVoorDomeinVerwerker(..DomeinVerwerker) 
+	#dim PersonalityID As %String = WebshopSessionService.GeefPersonalityIDVoorDomeinVerwerker(..RefSessieData.Verwerker) 
 	#dim Personality As DOM.common.Personality = ##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(PersonalityID)
+	
 	Do Personality.Accept($this)
 ]]></Implementation>
 </Method>
 
-<Method name="ConverteerDataOptNaarKlantSessieData">
-<FormalSpec>DataOpt:%String</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[	Set ..KlantSessieData = ##class(APPS.EC.impl.KlantSessieDataBepaler).%New().GeefKlantSessieData(DataOpt,..DomeinVerwerker)
-]]></Implementation>
-</Method>
-
-<Method name="ConverteerRefNaarRefSessieData">
-<FormalSpec>Ref:%String</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[	Set ..RefSessieData = ##class(APPS.EC.impl.RefSessieDataBepaler).%New().GeefRefSessieData(Ref)
-]]></Implementation>
-</Method>
-
 <Method name="VerwerkVanHoecke">
 <FormalSpec>VanHoeckePersonality:DOM.common.VanHoeckePersonality</FormalSpec>
 <Implementation><![CDATA[]]></Implementation>
@@ -159,12 +152,12 @@
 	#dim Korting As %String = ..KlantSessieData.Korting
 	#dim KortingPercentage As TECH.Percentage
 	
-	If ($IsValidNum(Korting) && ((Korting=0) || ((Korting>=1) && (Korting<=100)))) {
+	If ($IsValidNum(Korting) && ((Korting = 0) || ((Korting >= 1) && (Korting <= 100)))) {
 		Set KortingPercentage = (Korting / 100)
 	} ElseIf (Korting = "") {
 		Set KortingPercentage = 0
 	} Else {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Kan korting '"_Korting_"' niet parsen. (Personality: '"_Personality.GeefID()_"', Klant: '"_..KlantSessieData.KlantID_"', '"_..KlantSessieData.KlantNaam_"')"))
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Kan korting '" _ Korting _ "' niet parsen. (Personality: '" _ Personality.GeefID() _ "', Klant: '" _ ..KlantSessieData.KlantID _ "', '" _ ..KlantSessieData.KlantNaam _ "')"))
 	}
 	
 	If $$$Not(Korting = "") {
Index: vhUnitTest/WSimpl/Unishop/Login/KortingBewaarder/TestHaefeleBe.cls.xml
===================================================================
diff -u -r51212 -r52129
--- vhUnitTest/WSimpl/Unishop/Login/KortingBewaarder/TestHaefeleBe.cls.xml	(.../TestHaefeleBe.cls.xml)	(revision 51212)
+++ vhUnitTest/WSimpl/Unishop/Login/KortingBewaarder/TestHaefeleBe.cls.xml	(.../TestHaefeleBe.cls.xml)	(revision 52129)
@@ -3,29 +3,23 @@
 <Class name="vhUnitTest.WSimpl.Unishop.Login.KortingBewaarder.TestHaefeleBe">
 <Super>vhUnitTest.WSimpl.Unishop.Login.KortingBewaarder.TestBase</Super>
 
-<Method name="GeefRef">
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit "k0uGXfFcFjZZFa7InVf7aw--"
-]]></Implementation>
-</Method>
-
 <Method name="GeefPersonality">
 <ReturnType>DOM.common.Personality</ReturnType>
 <Implementation><![CDATA[	Quit ##class(DOM.common.HaefeleBEPersonality).Instance()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Kortingen meegegeven in DataOpt worden niet bewaard">
+<Method name="GeefWebShopVerwerker">
+<ReturnType>APPS.EC.enu.WebShopVerwerker</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.EC.enu.WebShopVerwerker).HaefeleBelgie()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Kortingen meegegeven in DataOpt worden niet bewaard voor Personality HaefeleBe">
 <Implementation><![CDATA[
-	#dim Ref As %String = ..GeefRef()
-	
-	#dim DataOptKortingNulProcent As %String = "5ORS9J/8IP5Qd5qUHgfEDnapEdudJCSEFhN7Gjb2pPDk9i5UHEJgTELsS5TeSoF4" // Korting 0%, maar als cijfer nul meegegeven.
-	#dim DataOptKortingDertigProcent As %String = "EQuY8vtWqMNIf/YgElPBsIepzB6Bs5WaO3rKr6kUxHU-" // Korting 30%
-	#dim DataOptKortingLeeg As %String = "EQuY8vtWqMNIf/YgElPBsHDGUaiLAWSLZoG4NNg/Bag-" // Compleet lege piece voor korting
-	
-	Do ..AssertKortingWordtNietBewaard(Ref, DataOptKortingNulProcent)
-	Do ..AssertKortingWordtNietBewaard(Ref, DataOptKortingDertigProcent)
-	Do ..AssertKortingWordtNietBewaard(Ref, DataOptKortingLeeg)
+	Do ..AssertKortingWordtNietBewaard("30")
+	Do ..AssertKortingWordtNietBewaard("0.3")
+	Do ..AssertKortingWordtNietBewaard("0")
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/WSimpl/Unishop/Login/KortingBewaarder/TestBase.cls.xml
===================================================================
diff -u -r52119 -r52129
--- vhUnitTest/WSimpl/Unishop/Login/KortingBewaarder/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 52119)
+++ vhUnitTest/WSimpl/Unishop/Login/KortingBewaarder/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 52129)
@@ -10,64 +10,127 @@
 </Property>
 
 <Method name="BewaarKorting">
-<FormalSpec>Ref:%String,DataOpt:%String</FormalSpec>
+<FormalSpec>Korting:%String</FormalSpec>
 <Implementation><![CDATA[
-	#dim KortingBewaarder As WSimpl.Unishop.Login.KortingBewaarder = ##class(WSimpl.Unishop.Login.KortingBewaarder).%New()
-	Do KortingBewaarder.BewaarMeegegevenKorting(Ref, DataOpt)
+	#dim DummyRef As %String = "DummyRef"
+	#dim DummyDataOpt As %String = "DummyDataOpt"
+	
+	#dim KlantSessieDataBepalerMock As vhTest.Mock.APPS.EC.impl.KlantSessieDataBepaler = ##class(vhTest.Mock.APPS.EC.impl.KlantSessieDataBepaler).%New()
+	Do KlantSessieDataBepalerMock.VerwachtMethodCall("GeefKlantSessieData", DummyDataOpt, ..GeefWebShopVerwerker()).DanReturn(..GeefKlantSessieData(Korting, "DummyKlantId"))
+	
+	#dim RefSessieDataBepalerMock As vhTest.Mock.APPS.EC.impl.RefSessieDataBepaler = ##class(vhTest.Mock.APPS.EC.impl.RefSessieDataBepaler).%New()
+	Do RefSessieDataBepalerMock.VerwachtMethodCall("GeefRefSessieData", DummyRef).DanReturn(..GeefRefSessieData())
+	
+	#dim KortingBewaarder As WSimpl.Unishop.Login.KortingBewaarder = ##class(WSimpl.Unishop.Login.KortingBewaarder).%New("", "", KlantSessieDataBepalerMock, RefSessieDataBepalerMock)
+	Do KortingBewaarder.BewaarMeegegevenKorting(DummyRef, DummyDataOpt)
 ]]></Implementation>
 </Method>
 
 <Method name="AssertBewaarCorrecteKorting">
-<FormalSpec>Ref:%String,DataOpt:%String,VerwachteKorting:TECH.Percentage</FormalSpec>
+<FormalSpec>Korting:%String,VerwachteKortingPercentage:TECH.Percentage</FormalSpec>
 <Implementation><![CDATA[
+	#dim DummyRef As %String = "DummyRef"
+	#dim DummyDataOpt As %String = "DummyDataOpt"
+	#dim DummyKlantId As %String = "DummyKlantId"
+	
 	#dim DummyKortingSpecificatieLbx As DOM.VKP.dto.KortingSpecificaties = ##class(DOM.VKP.dto.KortingSpecificaties).%New()
 	#dim DummyKortingSpecificatieTax As DOM.VKP.dto.KortingSpecificaties = ##class(DOM.VKP.dto.KortingSpecificaties).%New()
 	#dim DummyKortingSpecificatieTbx As DOM.VKP.dto.KortingSpecificaties = ##class(DOM.VKP.dto.KortingSpecificaties).%New()
 	
 	#dim KortingSpecificatieFactoryMock As vhTest.Mock.DOM.VKP.dto.KortingSpecificatieFactory = ##class(vhTest.Mock.DOM.VKP.dto.KortingSpecificatieFactory).%New()
-	Do KortingSpecificatieFactoryMock.VerwachtMethodCall("Maak", ..Variant.LegraboxPure, ..GeefPersonality(), "DummyKlantID").ExactAantalKeer(1).DanReturn(DummyKortingSpecificatieLbx)
-	Do KortingSpecificatieFactoryMock.VerwachtMethodCall("Maak", ..Variant.Taorbox, ..GeefPersonality(), "DummyKlantID").ExactAantalKeer(1).DanReturn(DummyKortingSpecificatieTax)
-	Do KortingSpecificatieFactoryMock.VerwachtMethodCall("Maak", ..Variant.TandemboxAntaro, ..GeefPersonality(), "DummyKlantID").ExactAantalKeer(1).DanReturn(DummyKortingSpecificatieTbx)
+	Do KortingSpecificatieFactoryMock.VerwachtMethodCall("Maak", ..Variant.LegraboxPure, ..GeefPersonality(), DummyKlantId).ExactAantalKeer(1).DanReturn(DummyKortingSpecificatieLbx)
+	Do KortingSpecificatieFactoryMock.VerwachtMethodCall("Maak", ..Variant.Taorbox, ..GeefPersonality(), DummyKlantId).ExactAantalKeer(1).DanReturn(DummyKortingSpecificatieTax)
+	Do KortingSpecificatieFactoryMock.VerwachtMethodCall("Maak", ..Variant.TandemboxAntaro, ..GeefPersonality(), DummyKlantId).ExactAantalKeer(1).DanReturn(DummyKortingSpecificatieTbx)
 	
 	#dim KortingServiceMock As vhTest.Mock.DOM.VKP.KortingService = ##class(vhTest.Mock.DOM.VKP.KortingService).%New()
-	Do KortingServiceMock.VerwachtMethodCall("StelInKorting", DummyKortingSpecificatieLbx, VerwachteKorting).ExactAantalKeer(1)
-	Do KortingServiceMock.VerwachtMethodCall("StelInKorting", DummyKortingSpecificatieTax, VerwachteKorting).ExactAantalKeer(1)
-	Do KortingServiceMock.VerwachtMethodCall("StelInKorting", DummyKortingSpecificatieTbx, VerwachteKorting).ExactAantalKeer(1)
+	Do KortingServiceMock.VerwachtMethodCall("StelInKorting", DummyKortingSpecificatieLbx, VerwachteKortingPercentage).ExactAantalKeer(1)
+	Do KortingServiceMock.VerwachtMethodCall("StelInKorting", DummyKortingSpecificatieTax, VerwachteKortingPercentage).ExactAantalKeer(1)
+	Do KortingServiceMock.VerwachtMethodCall("StelInKorting", DummyKortingSpecificatieTbx, VerwachteKortingPercentage).ExactAantalKeer(1)
 	
-	#dim KortingBewaarder As WSimpl.Unishop.Login.KortingBewaarder = ##class(WSimpl.Unishop.Login.KortingBewaarder).%New(KortingSpecificatieFactoryMock, KortingServiceMock)
-	Do KortingBewaarder.BewaarMeegegevenKorting(Ref, DataOpt)
+	#dim KlantSessieDataBepalerMock As vhTest.Mock.APPS.EC.impl.KlantSessieDataBepaler = ##class(vhTest.Mock.APPS.EC.impl.KlantSessieDataBepaler).%New()
+	Do KlantSessieDataBepalerMock.VerwachtMethodCall("GeefKlantSessieData", DummyDataOpt, ..GeefWebShopVerwerker()).DanReturn(..GeefKlantSessieData(Korting, DummyKlantId))
 	
+	#dim RefSessieDataBepalerMock As vhTest.Mock.APPS.EC.impl.RefSessieDataBepaler = ##class(vhTest.Mock.APPS.EC.impl.RefSessieDataBepaler).%New()
+	Do RefSessieDataBepalerMock.VerwachtMethodCall("GeefRefSessieData", DummyRef).DanReturn(..GeefRefSessieData())
+	
+	#dim KortingBewaarder As WSimpl.Unishop.Login.KortingBewaarder = ##class(WSimpl.Unishop.Login.KortingBewaarder).%New(KortingSpecificatieFactoryMock, KortingServiceMock, KlantSessieDataBepalerMock, RefSessieDataBepalerMock)
+	Do KortingBewaarder.BewaarMeegegevenKorting(DummyRef, DummyDataOpt)
+	
 	Do KortingSpecificatieFactoryMock.Verifieer()
 	Do KortingServiceMock.Verifieer()
+	Do KlantSessieDataBepalerMock.Verifieer()
+	Do RefSessieDataBepalerMock.Verifieer()
 ]]></Implementation>
 </Method>
 
 <Method name="AssertKortingWordtNietBewaard">
-<FormalSpec>Ref:%String,DataOpt:%String</FormalSpec>
+<FormalSpec>Korting:%String</FormalSpec>
 <Implementation><![CDATA[
+	#dim DummyRef As %String = "DummyRef"
+	#dim DummyDataOpt As %String = "DummyDataOpt"
+	#dim DummyKlantId As %String = "DummyKlantId"
+	
 	#dim KortingSpecificatieFactoryMock As vhTest.Mock.DOM.VKP.dto.KortingSpecificatieFactory = ##class(vhTest.Mock.DOM.VKP.dto.KortingSpecificatieFactory).%New()
-	Do KortingSpecificatieFactoryMock.VerwachtMethodCall("Maak", $$$ElkeWaarde, ..GeefPersonality(), "DummyKlantID").Nooit()
+	Do KortingSpecificatieFactoryMock.VerwachtMethodCall("Maak", $$$ElkeWaarde, ..GeefPersonality(), DummyKlantId).Nooit()
 	
 	#dim KortingServiceMock As vhTest.Mock.DOM.VKP.KortingService = ##class(vhTest.Mock.DOM.VKP.KortingService).%New()
 	Do KortingServiceMock.VerwachtMethodCall("StelInKorting", $$$ElkeWaarde, $$$ElkeWaarde).Nooit()
 	
-	#dim KortingBewaarder As WSimpl.Unishop.Login.KortingBewaarder = ##class(WSimpl.Unishop.Login.KortingBewaarder).%New(KortingSpecificatieFactoryMock, KortingServiceMock)
-	Do KortingBewaarder.BewaarMeegegevenKorting(Ref, DataOpt)
+	#dim KlantSessieDataBepalerMock As vhTest.Mock.APPS.EC.impl.KlantSessieDataBepaler = ##class(vhTest.Mock.APPS.EC.impl.KlantSessieDataBepaler).%New()
+	Do KlantSessieDataBepalerMock.VerwachtMethodCall("GeefKlantSessieData", DummyDataOpt, ..GeefWebShopVerwerker()).DanReturn(..GeefKlantSessieData(Korting, DummyKlantId))
 	
+	#dim RefSessieDataBepalerMock As vhTest.Mock.APPS.EC.impl.RefSessieDataBepaler = ##class(vhTest.Mock.APPS.EC.impl.RefSessieDataBepaler).%New()
+	Do RefSessieDataBepalerMock.VerwachtMethodCall("GeefRefSessieData", DummyRef).DanReturn(..GeefRefSessieData())
+	
+	#dim KortingBewaarder As WSimpl.Unishop.Login.KortingBewaarder = ##class(WSimpl.Unishop.Login.KortingBewaarder).%New(KortingSpecificatieFactoryMock, KortingServiceMock, KlantSessieDataBepalerMock, RefSessieDataBepalerMock)
+	Do KortingBewaarder.BewaarMeegegevenKorting(DummyRef, DummyDataOpt)
+	
 	Do KortingSpecificatieFactoryMock.Verifieer()
 	Do KortingServiceMock.Verifieer()
+	Do KlantSessieDataBepalerMock.Verifieer()
+	Do RefSessieDataBepalerMock.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="GeefRef">
-<Abstract>1</Abstract>
-<ReturnType>%String</ReturnType>
+<Method name="GeefRefSessieData">
+<Private>1</Private>
+<ReturnType>APPS.EC.dto.RefSessieData</ReturnType>
+<Implementation><![CDATA[
+	#dim RefSessieData As APPS.EC.dto.RefSessieData = ##class(APPS.EC.dto.RefSessieData).%New()
+	
+	Set RefSessieData.Verwerker = ..GeefWebShopVerwerker()
+	Set RefSessieData.WebshopModus = ##class(APPS.EC.enu.WebshopModus).Normaal()
+	
+	Quit RefSessieData
+]]></Implementation>
 </Method>
 
+<Method name="GeefKlantSessieData">
+<FormalSpec>Korting:%String,KlantId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.EC.dto.KlantSessieData</ReturnType>
+<Implementation><![CDATA[
+	#dim KlantSessieData As APPS.EC.dto.KlantSessieData = ##class(APPS.EC.dto.KlantSessieData).%New()
+	
+	Set KlantSessieData.Korting = Korting
+	Set KlantSessieData.KlantID = KlantId
+	Set KlantSessieData.KlantNaam = "DummyKlantNaam"
+	
+	Quit KlantSessieData
+]]></Implementation>
+</Method>
+
 <Method name="GeefPersonality">
 <Abstract>1</Abstract>
+<Private>1</Private>
 <ReturnType>DOM.common.Personality</ReturnType>
 </Method>
+
+<Method name="GeefWebShopVerwerker">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<ReturnType>APPS.EC.enu.WebShopVerwerker</ReturnType>
+</Method>
 </Class>
 
 
Index: vhUnitTest/WSimpl/Unishop/Login/KortingBewaarder/TestVanRaemdonck.cls.xml
===================================================================
diff -u -r51212 -r52129
--- vhUnitTest/WSimpl/Unishop/Login/KortingBewaarder/TestVanRaemdonck.cls.xml	(.../TestVanRaemdonck.cls.xml)	(revision 51212)
+++ vhUnitTest/WSimpl/Unishop/Login/KortingBewaarder/TestVanRaemdonck.cls.xml	(.../TestVanRaemdonck.cls.xml)	(revision 52129)
@@ -3,57 +3,43 @@
 <Class name="vhUnitTest.WSimpl.Unishop.Login.KortingBewaarder.TestVanRaemdonck">
 <Super>vhUnitTest.WSimpl.Unishop.Login.KortingBewaarder.TestBase</Super>
 
-<Method name="GeefRef">
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit "yxP6M/JvO4w9hy/mydDJaA--"    ; decrypted = "RAEM\\\Normaal"
-]]></Implementation>
-</Method>
-
 <Method name="GeefPersonality">
 <ReturnType>DOM.common.Personality</ReturnType>
 <Implementation><![CDATA[	Quit ##class(DOM.common.VanRaemdonckPersonality).Instance()
 ]]></Implementation>
 </Method>
 
+<Method name="GeefWebShopVerwerker">
+<ReturnType>APPS.EC.enu.WebShopVerwerker</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.EC.enu.WebShopVerwerker).VanRaemdonck()
+]]></Implementation>
+</Method>
+
 <Method name="TestBewaarKorting10Procent">
-<Implementation><![CDATA[
-	#dim Ref As %String = ..GeefRef()
-	#dim DataOpt As %String = "3bvqNBthSk0lJ7anOL7KHXB3l50dlUIYgCeY5FKZSpxCqbTU/QdlxzrXEC4o39JU1Q5T7Nrfyzcuk05qKaI9p_9auP/nDtLkLGIs3PT0YF8-"
-	
-	Do ..AssertBewaarCorrecteKorting(Ref, DataOpt, 0.1)
+<Implementation><![CDATA[	Do ..AssertBewaarCorrecteKorting("10", 0.1)
 ]]></Implementation>
 </Method>
 
 <Method name="TestBewaarKortingLeegMaken">
-<Implementation><![CDATA[
-	#dim Ref As %String = ..GeefRef()
-	#dim DataOpt As %String = "3bvqNBthSk0lJ7anOL7KHXB3l50dlUIYgCeY5FKZSpxCqbTU/QdlxzrXEC4o39JUX_N65ubDLn7vUl3x_NEqKjOzTyQR_6GIltaKbfkT7NY-"
-	
-	Do ..AssertBewaarCorrecteKorting(Ref, DataOpt, 0)
+<Implementation><![CDATA[	Do ..AssertBewaarCorrecteKorting("0", 0)
 ]]></Implementation>
 </Method>
 
 <Method name="TestBewaarKortingFoutieveInputLetters">
 <Implementation><![CDATA[
-	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Kan korting 'abc' niet parsen. (Personality: '8', Klant: 'DummyKlantID', 'DummyKlantNaam')")
+	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Kan korting 'abc' niet parsen. (Personality: '8', Klant: 'DummyKlantId', 'DummyKlantNaam')")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException", Substrings))
 	
-	#dim Ref As %String = ..GeefRef()
-	#dim DataOpt As %String = "3bvqNBthSk0lJ7anOL7KHXB3l50dlUIYgCeY5FKZSpxCqbTU/QdlxzrXEC4o39JUZo/ibLupFnOu58xioU3Shwjqu7wYk5oT60sA2nUQ6_c-" // korting = "abc"
-	
-	Do ..AssertBewaarCorrecteKorting(Ref, DataOpt, "abc")
+	Do ..BewaarKorting("abc")
 ]]></Implementation>
 </Method>
 
 <Method name="TestBewaarKortingFoutieveInputDecimaal">
 <Implementation><![CDATA[
-	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Kan korting '0.3' niet parsen. (Personality: '8', Klant: 'DummyKlantID', 'DummyKlantNaam')")
+	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Kan korting '0.3' niet parsen. (Personality: '8', Klant: 'DummyKlantId', 'DummyKlantNaam')")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException", Substrings))
 	
-	#dim Ref As %String = ..GeefRef()
-	#dim DataOpt As %String = "3bvqNBthSk0lJ7anOL7KHXB3l50dlUIYgCeY5FKZSpxCqbTU/QdlxzrXEC4o39JUlQkZWzT1YLvgfNOsvrA9XQjqu7wYk5oT60sA2nUQ6_c-" // korting = 0.3 (ipv 30)
-	
-	Do ..AssertBewaarCorrecteKorting(Ref, DataOpt, 0.3)
+	Do ..BewaarKorting("0.3")
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/WSimpl/Unishop/Login/KortingBewaarder/TestKisch.cls.xml
===================================================================
diff -u -r52119 -r52129
--- vhUnitTest/WSimpl/Unishop/Login/KortingBewaarder/TestKisch.cls.xml	(.../TestKisch.cls.xml)	(revision 52119)
+++ vhUnitTest/WSimpl/Unishop/Login/KortingBewaarder/TestKisch.cls.xml	(.../TestKisch.cls.xml)	(revision 52129)
@@ -3,57 +3,43 @@
 <Class name="vhUnitTest.WSimpl.Unishop.Login.KortingBewaarder.TestKisch">
 <Super>vhUnitTest.WSimpl.Unishop.Login.KortingBewaarder.TestBase</Super>
 
-<Method name="GeefRef">
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit "JHBX2iWevl2mVihzVdtiQw--"    ; decrypted = "KISCH\\\Normaal"
-]]></Implementation>
-</Method>
-
 <Method name="GeefPersonality">
 <ReturnType>DOM.common.Personality</ReturnType>
 <Implementation><![CDATA[	Quit ##class(DOM.common.KischPersonality).Instance()
 ]]></Implementation>
 </Method>
 
+<Method name="GeefWebShopVerwerker">
+<ReturnType>APPS.EC.enu.WebShopVerwerker</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.EC.enu.WebShopVerwerker).Kisch()
+]]></Implementation>
+</Method>
+
 <Method name="TestBewaarKorting10Procent">
-<Implementation><![CDATA[
-	#dim Ref As %String = ..GeefRef()
-	#dim DataOpt As %String = "sKOZimpVGYLJJX7pQ9GLwBCgzUYk0qbMVd1d7bEQH5ydPC0zSPV5hx8ILiB2pqap1pgEPypt7qIhwevlkerfTgtVBcC1bF5WqP9R9i4sIOo"
-	
-	Do ..AssertBewaarCorrecteKorting(Ref, DataOpt, 0.1)
+<Implementation><![CDATA[	Do ..AssertBewaarCorrecteKorting("10", 0.1)
 ]]></Implementation>
 </Method>
 
 <Method name="TestBewaarKortingLeegMaken">
-<Implementation><![CDATA[
-	#dim Ref As %String = ..GeefRef()
-	#dim DataOpt As %String = "sKOZimpVGYLJJX7pQ9GLwBCgzUYk0qbMVd1d7bEQH5ydPC0zSPV5hx8ILiB2pqap_3oDNzhS75AUTyiU/z4ynyhReZ8jG7/yIUQDfaH06X0-"
-	
-	Do ..AssertBewaarCorrecteKorting(Ref, DataOpt, 0)
+<Implementation><![CDATA[	Do ..AssertBewaarCorrecteKorting("0", 0)
 ]]></Implementation>
 </Method>
 
 <Method name="TestBewaarKortingFoutieveInputLetters">
 <Implementation><![CDATA[
-	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Kan korting 'abc' niet parsen. (Personality: '5', Klant: 'DummyKlantID', 'DummyKlantNaam')")
+	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Kan korting 'abc' niet parsen. (Personality: '5', Klant: 'DummyKlantId', 'DummyKlantNaam')")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException", Substrings))
 	
-	#dim Ref As %String = ..GeefRef()
-	#dim DataOpt As %String = "sKOZimpVGYLJJX7pQ9GLwBCgzUYk0qbMVd1d7bEQH5ydPC0zSPV5hx8ILiB2pqapfqoNpY_AGr8LkU_zUxQJTvRVOJHlzs4EWa_qt8tfNjQ-" // korting = "abc"
-	
-	Do ..BewaarKorting(Ref, DataOpt)
+	Do ..BewaarKorting("abc")
 ]]></Implementation>
 </Method>
 
 <Method name="TestBewaarKortingFoutieveInputDecimaal">
 <Implementation><![CDATA[
-	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Kan korting '0.3' niet parsen. (Personality: '5', Klant: 'DummyKlantID', 'DummyKlantNaam')")
+	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Kan korting '0.3' niet parsen. (Personality: '5', Klant: 'DummyKlantId', 'DummyKlantNaam')")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException", Substrings))
 	
-	#dim Ref As %String = ..GeefRef()
-	#dim DataOpt As %String = "sKOZimpVGYLJJX7pQ9GLwBCgzUYk0qbMVd1d7bEQH5ydPC0zSPV5hx8ILiB2pqap5nR8nAB4p4Gt8HkOKZyl//RVOJHlzs4EWa_qt8tfNjQ-" // korting = 0.3 (ipv 30)
-	
-	Do ..BewaarKorting(Ref, DataOpt)
+	Do ..BewaarKorting("0.3")
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/WSimpl/Unishop/Login/KortingBewaarder/TestDaro.cls.xml
===================================================================
diff -u -r52119 -r52129
--- vhUnitTest/WSimpl/Unishop/Login/KortingBewaarder/TestDaro.cls.xml	(.../TestDaro.cls.xml)	(revision 52119)
+++ vhUnitTest/WSimpl/Unishop/Login/KortingBewaarder/TestDaro.cls.xml	(.../TestDaro.cls.xml)	(revision 52129)
@@ -3,57 +3,45 @@
 <Class name="vhUnitTest.WSimpl.Unishop.Login.KortingBewaarder.TestDaro">
 <Super>vhUnitTest.WSimpl.Unishop.Login.KortingBewaarder.TestBase</Super>
 
-<Method name="GeefRef">
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit "iStP6rzwAyDDSIg/A8r9fA--"    ; decrypted = "DARO\\\Normaal"
-]]></Implementation>
-</Method>
-
 <Method name="GeefPersonality">
+<Private>1</Private>
 <ReturnType>DOM.common.Personality</ReturnType>
 <Implementation><![CDATA[	Quit ##class(DOM.common.DaroPersonality).Instance()
 ]]></Implementation>
 </Method>
 
+<Method name="GeefWebShopVerwerker">
+<Private>1</Private>
+<ReturnType>APPS.EC.enu.WebShopVerwerker</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.EC.enu.WebShopVerwerker).Daro()
+]]></Implementation>
+</Method>
+
 <Method name="TestBewaarKorting10Procent">
-<Implementation><![CDATA[
-	#dim Ref As %String = ..GeefRef()
-	#dim DataOpt As %String = "KalUi6_NX85Ce0bQpd86acoUF5LKw2rq/pra5kQe/UXZ7D1qqeEFh/10jmc6cY_MZ0PxLulR7RKZQLuBtCcyZZcMOfgNB4OWAk3xmc9/mDQ-"
-	
-	Do ..AssertBewaarCorrecteKorting(Ref, DataOpt, 0.1)
+<Implementation><![CDATA[	Do ..AssertBewaarCorrecteKorting("10", 0.1)
 ]]></Implementation>
 </Method>
 
 <Method name="TestBewaarKortingLeegMaken">
-<Implementation><![CDATA[
-	#dim Ref As %String = ..GeefRef()
-	#dim DataOpt As %String = "KalUi6_NX85Ce0bQpd86acoUF5LKw2rq/pra5kQe/UXZ7D1qqeEFh/10jmc6cY_MuuwxRFEIBHaBhpa08b3cihJ55SUNVeetn3YqYKrvRQk-"
-	
-	Do ..AssertBewaarCorrecteKorting(Ref, DataOpt, 0)
+<Implementation><![CDATA[	Do ..AssertBewaarCorrecteKorting("0", 0)
 ]]></Implementation>
 </Method>
 
 <Method name="TestBewaarKortingFoutieveInputLetters">
 <Implementation><![CDATA[
-	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Kan korting 'abc' niet parsen. (Personality: '10', Klant: 'DummyKlantID', 'DummyKlantNaam')")
+	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Kan korting 'abc' niet parsen. (Personality: '10', Klant: 'DummyKlantId', 'DummyKlantNaam')")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException", Substrings))
 	
-	#dim Ref As %String = ..GeefRef()
-	#dim DataOpt As %String = "KalUi6_NX85Ce0bQpd86acoUF5LKw2rq/pra5kQe/UXZ7D1qqeEFh/10jmc6cY_Me7H4lqlB38GInju6WYg0gd6IVpyYhhI85KbU2ZA249c-" // korting = "abc"
-	
-	Do ..BewaarKorting(Ref, DataOpt)
+	Do ..BewaarKorting("abc")
 ]]></Implementation>
 </Method>
 
 <Method name="TestBewaarKortingFoutieveInputDecimaal">
 <Implementation><![CDATA[
-	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Kan korting '0.3' niet parsen. (Personality: '10', Klant: 'DummyKlantID', 'DummyKlantNaam')")
+	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Kan korting '0.3' niet parsen. (Personality: '10', Klant: 'DummyKlantId', 'DummyKlantNaam')")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException", Substrings))
 	
-	#dim Ref As %String = ..GeefRef()
-	#dim DataOpt As %String = "KalUi6_NX85Ce0bQpd86acoUF5LKw2rq/pra5kQe/UXZ7D1qqeEFh/10jmc6cY_M4LGcaJjU7qxuv606OyXSpd6IVpyYhhI85KbU2ZA249c-" // korting = 0.3 (ipv 30)
-	
-	Do ..BewaarKorting(Ref, DataOpt)
+	Do ..BewaarKorting("0.3")
 ]]></Implementation>
 </Method>
 </Class>