Index: vhUnitTest/APPS/EC/impl/KlantSessieDataBepaler/GeefKlantSessieData/Test.cls.xml
===================================================================
diff -u -r54713 -r54749
--- vhUnitTest/APPS/EC/impl/KlantSessieDataBepaler/GeefKlantSessieData/Test.cls.xml	(.../Test.cls.xml)	(revision 54713)
+++ vhUnitTest/APPS/EC/impl/KlantSessieDataBepaler/GeefKlantSessieData/Test.cls.xml	(.../Test.cls.xml)	(revision 54749)
@@ -17,7 +17,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Alpnach -&gt; korting wordt hoe dan ook overschreven">
+<Method name="Test: AlpnachOud -&gt; korting wordt hoe dan ook overschreven">
 <Implementation><![CDATA[
 	#dim TeEncrypterenKlantSessieData As APPS.EC.dto.KlantSessieData  = ##class(vhTest.Utils.APPS.EC.dto.KlantSessieData).SFSKlantMetKorting()
 	set TeEncrypterenKlantSessieData.KlantID = ##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New().VerwijderPrefixVanHandelKlantId(##class(DOM.VKP.enu.SfsKlant).AlpnachOud(), ##class(DOM.common.enu.Personality).SFS())
@@ -35,6 +35,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Alpnach -&gt; korting wordt hoe dan ook overschreven">
+<Implementation><![CDATA[
+	#dim TeEncrypterenKlantSessieData As APPS.EC.dto.KlantSessieData  = ##class(vhTest.Utils.APPS.EC.dto.KlantSessieData).SFSKlantMetKorting()
+	set TeEncrypterenKlantSessieData.KlantID = ##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New().VerwijderPrefixVanHandelKlantId(##class(DOM.VKP.enu.SfsKlant).Alpnach(), ##class(DOM.common.enu.Personality).SFS())
+	set TeEncrypterenKlantSessieData.Korting = 10
+	Set KlantSessieDataBepaler = ##class(APPS.EC.impl.KlantSessieDataBepaler).%New()
+	#dim EncryptedKlantSessieData As %String = KlantSessieDataBepaler.GeefEncryptedKlantSessieDataVoorHandel(TeEncrypterenKlantSessieData, ##class(APPS.EC.enu.WebShopVerwerker).SFS())
+	
+	do $$$AssertEquals(EncryptedKlantSessieData,"gT1z4Ylr3f1hREd8q8bc/sHm33WsRsoLgOkMediofecmCygZj2mKB/s08i37Bi9n/Zuu4RtQKPiferjGAIZX4A--")
+	
+	#dim VerwachtKlantSessieData As APPS.EC.dto.KlantSessieData  = ##class(vhTest.Utils.APPS.EC.dto.KlantSessieData).SFSKlantMetKorting()
+	set VerwachtKlantSessieData.KlantID = ##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New().VerwijderPrefixVanHandelKlantId(##class(DOM.VKP.enu.SfsKlant).Alpnach(), ##class(DOM.common.enu.Personality).SFS())
+	set VerwachtKlantSessieData.Korting = 35
+	
+	Do ..AssertKlantSessieData(EncryptedKlantSessieData,##class(APPS.EC.enu.WebShopVerwerker).SFS(),VerwachtKlantSessieData)
+]]></Implementation>
+</Method>
+
 <Method name="AssertKlantSessieData">
 <FormalSpec>EncryptedKlantSessieData:%String,DomeinVerwerker:APPS.EC.enu.WebShopVerwerker,VerwachteKlantSessieData:%String</FormalSpec>
 <Private>1</Private>
Index: APPS/EC/impl/KlantSessieDataBepaler.cls.xml
===================================================================
diff -u -r54712 -r54749
--- APPS/EC/impl/KlantSessieDataBepaler.cls.xml	(.../KlantSessieDataBepaler.cls.xml)	(revision 54712)
+++ APPS/EC/impl/KlantSessieDataBepaler.cls.xml	(.../KlantSessieDataBepaler.cls.xml)	(revision 54749)
@@ -37,6 +37,9 @@
 	If (KlantSessieData.KlantID = ##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New().VerwijderPrefixVanHandelKlantId(##class(DOM.VKP.enu.SfsKlant).AlpnachOud(), ##class(DOM.common.enu.Personality).SFS())) { 
 		Set KlantSessieData.Korting = 35
 	}
+	If (KlantSessieData.KlantID = ##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New().VerwijderPrefixVanHandelKlantId(##class(DOM.VKP.enu.SfsKlant).Alpnach(), ##class(DOM.common.enu.Personality).SFS())) { 
+		Set KlantSessieData.Korting = 35
+	}
 ]]></Implementation>
 </Method>