Index: vhUnitTest/APPS/EC/impl/KlantSessieDataBepaler/GeefKlantSessieData/Test.cls.xml
===================================================================
diff -u -r71056 -r73974
--- 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 73974)
@@ -3,38 +3,62 @@
 <Class name="vhUnitTest.APPS.EC.impl.KlantSessieDataBepaler.GeefKlantSessieData.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="TestSFSKlantSchreinereiAnton">
+<Method name="Test: SFS Klant SchreinereiAnton">
 <Implementation><![CDATA[
 	#dim EncryptedKlantSessieData As %String = ##class(vhTest.Utils.APPS.EC.dto.KlantSessieData).GeefDataOptSFSKlantSchreinereiAnton()
-	Do ..AssertKlantSessieData(EncryptedKlantSessieData,##class(APPS.EC.enu.WebShopVerwerker).SFS(), ##class(vhTest.Utils.APPS.EC.dto.KlantSessieData).SFSKlantSchreinereiAnton())
+	
+	#Dim VerwachtKlantSessieData As APPS.EC.dto.KlantSessieData = ##class(vhTest.Utils.APPS.EC.dto.KlantSessieData).SFSKlantSchreinereiAnton()
+	Set VerwachtKlantSessieData.IsSalesMedewerker = $$$False
+	
+	Do ..AssertKlantSessieData(EncryptedKlantSessieData,##class(APPS.EC.enu.WebShopVerwerker).SFS(), VerwachtKlantSessieData)
 ]]></Implementation>
 </Method>
 
-<Method name="Test : SFS Klant met korting">
+<Method name="Test: SFS Klant met korting">
 <Implementation><![CDATA[
 	#dim EncryptedKlantSessieData As %String = ##class(vhTest.Utils.APPS.EC.dto.KlantSessieData).DataOptSFSKlantMetKorting()
-	Do ..AssertKlantSessieData(EncryptedKlantSessieData,##class(APPS.EC.enu.WebShopVerwerker).SFS(), ##class(vhTest.Utils.APPS.EC.dto.KlantSessieData).SFSKlantMetKorting())
+	
+	#Dim VerwachtKlantSessieData As APPS.EC.dto.KlantSessieData = ##class(vhTest.Utils.APPS.EC.dto.KlantSessieData).SFSKlantMetKorting()
+	Set VerwachtKlantSessieData.IsSalesMedewerker = $$$False
+	
+	Do ..AssertKlantSessieData(EncryptedKlantSessieData,##class(APPS.EC.enu.WebShopVerwerker).SFS(), VerwachtKlantSessieData)
 ]]></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
+	#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())
+	#Dim EncryptedKlantSessieData As %String = KlantSessieDataBepaler.GeefEncryptedKlantSessieDataVoorHandel(TeEncrypterenKlantSessieData, ##class(APPS.EC.enu.WebShopVerwerker).SFS())
 	
-	do $$$AssertEquals(EncryptedKlantSessieData,"Nnabh_/Kao1wFGqW8ab3PsHm33WsRsoLgOkMediofecmCygZj2mKB/s08i37Bi9n/Zuu4RtQKPiferjGAIZX4A--")
+	Do $$$AssertEquals(EncryptedKlantSessieData,"Nnabh_/Kao1wFGqW8ab3PsHm33WsRsoLgOkMediofecmCygZj2mKB/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 = 25
+	#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 = 25
+	Set VerwachtKlantSessieData.IsSalesMedewerker = $$$False
 	
 	Do ..AssertKlantSessieData(EncryptedKlantSessieData,##class(APPS.EC.enu.WebShopVerwerker).SFS(),VerwachtKlantSessieData)
 ]]></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())
+	
+	#Dim VerwachtKlantSessieData As APPS.EC.dto.KlantSessieData = ##class(vhTest.Utils.APPS.EC.dto.KlantSessieData).HaefeleKlantMetIsSalesMedewerker()
+	Set VerwachtKlantSessieData.IsSalesMedewerker = $$$True
+	
+	Do ..AssertKlantSessieData(EncryptedKlantSessieData,##class(APPS.EC.enu.WebShopVerwerker).HaefeleBelgie(), VerwachtKlantSessieData)
+]]></Implementation>
+</Method>
+
 <Method name="AssertKlantSessieData">
 <FormalSpec>EncryptedKlantSessieData:%String,DomeinVerwerker:APPS.EC.enu.WebShopVerwerker,VerwachteKlantSessieData:%String</FormalSpec>
 <Private>1</Private>