Index: vhUnitTest/APPS/EC/impl/KlantSessieDataBepaler/EncryptDecryptKlantSessieData/Test.cls.xml
===================================================================
diff -u -r73974 -r74124
--- vhUnitTest/APPS/EC/impl/KlantSessieDataBepaler/EncryptDecryptKlantSessieData/Test.cls.xml	(.../Test.cls.xml)	(revision 73974)
+++ vhUnitTest/APPS/EC/impl/KlantSessieDataBepaler/EncryptDecryptKlantSessieData/Test.cls.xml	(.../Test.cls.xml)	(revision 74124)
@@ -98,6 +98,25 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestGeefEncryptedKlantSessieDataVoorKlantVanHaefeleShopMetIsSalesMedewerkerTrue">
+<Implementation><![CDATA[
+	#dim DomeinVerwerker As APPS.EC.enu.WebShopVerwerker = ##class(APPS.EC.enu.WebShopVerwerker).HaefeleBelgie()
+
+	Set KSD = ##class(APPS.EC.dto.KlantSessieData).%New()
+	Set KSD.Email = "haefele@belgie.be"
+	Set KSD.GebruikerID = "Haefele-Dummy"
+	Set KSD.KlantID = "BE12345"
+	Set KSD.KlantNaam = "Haefele belgie"
+	Set KSD.Korting = "0"
+	Set KSD.Taal = "N"
+	Set KSD.IsSalesMedewerker = $$$True
+	
+	#dim VerwachteEncryptedKlantSessieData As %String = "CTi_8MYVag/7KwJPUmSWYKH21X29ICwOeYvkCJeWYHAQtmbW6GF52dRrTs35L4JKqVhc5X6Q8n7wLj1McorSlw--"
+	
+	Do ..AssertEncryptDecryptKlantSessieData(KSD,DomeinVerwerker,VerwachteEncryptedKlantSessieData)
+]]></Implementation>
+</Method>
+
 <Method name="TestGeefEncryptedKlantSessieDataVoorAnoniemeKlantenVanDestil">
 <Implementation><![CDATA[
 	#dim DomeinVerwerker As APPS.EC.enu.WebShopVerwerker = ##class(APPS.EC.enu.WebShopVerwerker).Destil()