Index: vhUnitTest/APPS/EC/impl/KlantSessieDataBepaler/GeefKlantSessieData/Test.cls.xml
===================================================================
diff -u -r71056 -r73931
--- vhUnitTest/APPS/EC/impl/KlantSessieDataBepaler/GeefKlantSessieData/Test.cls.xml	(.../Test.cls.xml)	(revision 71056)
+++ vhUnitTest/APPS/EC/impl/KlantSessieDataBepaler/GeefKlantSessieData/Test.cls.xml	(.../Test.cls.xml)	(revision 73931)
@@ -35,6 +35,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test : Haefele Klant met IsSalesMedewerker parameter">
+<Implementation><![CDATA[
+	#dim TeEncrypterenKlantSessieData As APPS.EC.dto.KlantSessieData  = ##class(vhTest.Utils.APPS.EC.dto.KlantSessieData).HaefeleKlantMetIsSalesMedewerker()
+	set TeEncrypterenKlantSessieData.KlantID = "8974"
+	set TeEncrypterenKlantSessieData.Korting = 10
+	Set KlantSessieDataBepaler = ##class(APPS.EC.impl.KlantSessieDataBepaler).%New()
+	#dim EncryptedKlantSessieData As %String = KlantSessieDataBepaler.GeefEncryptedKlantSessieDataVoorHandel(TeEncrypterenKlantSessieData, ##class(APPS.EC.enu.WebShopVerwerker).HaefeleBelgie())
+	
+	Do ..AssertKlantSessieData(EncryptedKlantSessieData,##class(APPS.EC.enu.WebShopVerwerker).HaefeleBelgie(), ##class(vhTest.Utils.APPS.EC.dto.KlantSessieData).HaefeleKlantMetIsSalesMedewerker())
+]]></Implementation>
+</Method>
+
 <Method name="AssertKlantSessieData">
 <FormalSpec>EncryptedKlantSessieData:%String,DomeinVerwerker:APPS.EC.enu.WebShopVerwerker,VerwachteKlantSessieData:%String</FormalSpec>
 <Private>1</Private>