Index: vhUnitTest/APPS/EC/impl/KlantSessieDataBepaler/GeefKlantSessieData/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EC/impl/KlantSessieDataBepaler/GeefKlantSessieData/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EC/impl/KlantSessieDataBepaler/GeefKlantSessieData/Test.cls.xml	(revision 32929)
@@ -0,0 +1,37 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EC.impl.KlantSessieDataBepaler.GeefKlantSessieData.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestSFSKlantSchreinereiAnton">
+<Implementation><![CDATA[
+	#dim DataOpt As %String = "PNTQqhNs4YqtgBPNCDRo1f5U7r0goCzt4RPxi4S3zFR/hR8wi1CVG4eGZ2p59CdiAbUb/WeViTR/bjxxeUDY4A--"
+		
+	Do ..AssertKlantSessieData(DataOpt,##class(APPS.EC.enu.WebShopVerwerker).SFS(), "999999", 0)
+]]></Implementation>
+</Method>
+
+<Method name="TestSFSKlantAlpnachSteedsMetVasteKorting">
+<Implementation><![CDATA[
+	#dim DataOpt As %String = "_efvzk4XRWdJit_RGEwU9speq34K6O_wH12HUjdjEcM/NLo4dXxVi3otbKf_Gel0"
+	// In deze DataOpt staat een willekeurige korting (van 11.1)
+	
+	Do ..AssertKlantSessieData(DataOpt,##class(APPS.EC.enu.WebShopVerwerker).SFS(), "83723", 29.5)
+]]></Implementation>
+</Method>
+
+<Method name="AssertKlantSessieData">
+<FormalSpec>EncryptedKlantSessieData:%String,DomeinVerwerker:APPS.EC.enu.WebShopVerwerker,VerwachteKlantID:%String,VerwachteKorting:%Numeric</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set KlantSessieDataBepaler = ##class(APPS.EC.impl.KlantSessieDataBepaler).%New()
+	#dim KlantSessieData As APPS.EC.dto.KlantSessieData = KlantSessieDataBepaler.GeefKlantSessieData(EncryptedKlantSessieData,DomeinVerwerker)
+
+	Do $$$AssertEquals(KlantSessieData.KlantID,VerwachteKlantID)
+	Do $$$AssertEquals(KlantSessieData.Korting,VerwachteKorting)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EC/impl/KlantSessieDataBepaler.cls.xml
===================================================================
diff -u -r29059 -r32929
--- APPS/EC/impl/KlantSessieDataBepaler.cls.xml	(.../KlantSessieDataBepaler.cls.xml)	(revision 29059)
+++ APPS/EC/impl/KlantSessieDataBepaler.cls.xml	(.../KlantSessieDataBepaler.cls.xml)	(revision 32929)
@@ -23,10 +23,24 @@
 	Set KSD.KlantNaam = $G(DataOptArray("KLNaam"))
 	Set KSD.Korting = $G(DataOptArray("Korting"))
 	
+	If DomeinVerwerker = ##class(APPS.EC.enu.WebShopVerwerker).SFS() {
+		Do ..PasAanKortingVoorAlpnach(KSD)
+	}
+
 	Quit KSD
 ]]></Implementation>
 </Method>
 
+<Method name="PasAanKortingVoorAlpnach">
+<FormalSpec>KSD:APPS.EC.dto.KlantSessieData,DomeinVerwerker:APPS.EC.enu.WebShopVerwerker</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If ##class(TECH.StringUtils).Equals(KSD.KlantID, "83723","11539","140075") {
+		Set KSD.Korting = 29.5
+	}
+]]></Implementation>
+</Method>
+
 <Method name="GeefEncryptedKlantSessieDataVoorVHShop">
 <FormalSpec>KlantSessieData:APPS.EC.dto.KlantSessieData</FormalSpec>
 <ReturnType>%String</ReturnType>