Index: vhTest/Fake/APPS/EC/impl/KlantSessieDataBepaler.cls.xml
===================================================================
diff -u -r52120 -r73931
--- vhTest/Fake/APPS/EC/impl/KlantSessieDataBepaler.cls.xml	(.../KlantSessieDataBepaler.cls.xml)	(revision 52120)
+++ vhTest/Fake/APPS/EC/impl/KlantSessieDataBepaler.cls.xml	(.../KlantSessieDataBepaler.cls.xml)	(revision 73931)
@@ -21,6 +21,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsEenHaefeleWebshopVerwerker">
+<FormalSpec>DomeinVerwerker:APPS.EC.enu.WebShopVerwerker</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="GeefEncryptedKlantSessieDataVoorVHShop">
 <FormalSpec>KlantSessieData:APPS.EC.dto.KlantSessieData</FormalSpec>
 <ReturnType>%String</ReturnType>
Index: vhUnitTest/WSimpl/Unishop/Login/ParameterBepaler/GeefLoginParameters/Test.cls.xml
===================================================================
diff -u -r52120 -r73931
--- vhUnitTest/WSimpl/Unishop/Login/ParameterBepaler/GeefLoginParameters/Test.cls.xml	(.../Test.cls.xml)	(revision 52120)
+++ vhUnitTest/WSimpl/Unishop/Login/ParameterBepaler/GeefLoginParameters/Test.cls.xml	(.../Test.cls.xml)	(revision 73931)
@@ -8,6 +8,11 @@
 <Default>9LZLj_OcHCYCeOdo7noiyFxoPc4jHxU/HNcaZPKffZQ-</Default>
 </Parameter>
 
+<Parameter name="HaefeleBelgieRef">
+<Type>%String</Type>
+<Default>1M9fXkoSzZUyRCS3GjKxQQ--</Default>
+</Parameter>
+
 <Method name="Test">
 <Implementation><![CDATA[
 	#dim KlantSessieDataBepalerMock As vhTest.Mock.APPS.EC.impl.KlantSessieDataBepaler = ##class(vhTest.Mock.APPS.EC.impl.KlantSessieDataBepaler).%New()
@@ -79,6 +84,15 @@
 	Do LoginParameterBepaler.GeefLoginParameters(..#Kisch, WerkendeDataOpt, "", "")
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Haefele klant met ingevulde IsSalesMedewerker">
+<Implementation><![CDATA[
+	#dim WerkendeDataOpt As %String = "kNo6yd_bjb3F9tQBAS_lH74IMdDMXf5Fv2_YdRk3HD6cNYDc_aNCTNV429koVyNYjFR6VoHBdiSnwsZpLhkzK61Q4lKKNvkHYcwEQPYZpu8-"
+	
+	#dim LoginParameterBepaler As WSimpl.Unishop.Login.ParameterBepaler = ##class(WSimpl.Unishop.Login.ParameterBepaler).%New()
+	Do LoginParameterBepaler.GeefLoginParameters(..#HaefeleBelgieRef, WerkendeDataOpt, "", "")
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/APPS/EC/impl/KlantSessieDataBepaler.cls.xml
===================================================================
diff -u -r52120 -r73931
--- vhTest/Mock/APPS/EC/impl/KlantSessieDataBepaler.cls.xml	(.../KlantSessieDataBepaler.cls.xml)	(revision 52120)
+++ vhTest/Mock/APPS/EC/impl/KlantSessieDataBepaler.cls.xml	(.../KlantSessieDataBepaler.cls.xml)	(revision 73931)
@@ -35,6 +35,13 @@
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefKlantSessieData",EncryptedKlantSessieData,DomeinVerwerker)
 ]]></Implementation>
 </Method>
+
+<Method name="IsEenHaefeleWebshopVerwerker">
+<FormalSpec>DomeinVerwerker:APPS.EC.enu.WebShopVerwerker</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("IsEenHaefeleWebshopVerwerker",DomeinVerwerker)
+]]></Implementation>
+</Method>
 </Class>
 
 
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>
Index: vhTest/Utils/APPS/EC/dto/KlantSessieData.cls.xml
===================================================================
diff -u -r55147 -r73931
--- vhTest/Utils/APPS/EC/dto/KlantSessieData.cls.xml	(.../KlantSessieData.cls.xml)	(revision 55147)
+++ vhTest/Utils/APPS/EC/dto/KlantSessieData.cls.xml	(.../KlantSessieData.cls.xml)	(revision 73931)
@@ -15,13 +15,13 @@
 <ClassMethod>1</ClassMethod>
 <ReturnType>APPS.EC.dto.KlantSessieData</ReturnType>
 <Implementation><![CDATA[
-	set KlantSessieData = ##class(APPS.EC.dto.KlantSessieData).%New()
-	set KlantSessieData.Email = "anton@aus-tirol.ch"
-	set KlantSessieData.GebruikerID = "SFS-Dummy"
-	set KlantSessieData.KlantID = 999999
-	set KlantSessieData.KlantNaam = "Schreinerei Anton"
-	set KlantSessieData.Korting = 0
-	set KlantSessieData.Taal = "F"
+	Set KlantSessieData = ##class(APPS.EC.dto.KlantSessieData).%New()
+	Set KlantSessieData.Email = "anton@aus-tirol.ch"
+	Set KlantSessieData.GebruikerID = "SFS-Dummy"
+	Set KlantSessieData.KlantID = 999999
+	Set KlantSessieData.KlantNaam = "Schreinerei Anton"
+	Set KlantSessieData.Korting = 0
+	Set KlantSessieData.Taal = "F"
 	quit KlantSessieData
 ]]></Implementation>
 </Method>
@@ -39,14 +39,14 @@
 <ClassMethod>1</ClassMethod>
 <ReturnType>APPS.EC.dto.KlantSessieData</ReturnType>
 <Implementation><![CDATA[
-	set KlantSessieData = ##class(APPS.EC.dto.KlantSessieData).%New()
-	set KlantSessieData.Email = ""
-	set KlantSessieData.GebruikerID = "gebruikersfsklant"
-	set KlantSessieData.KlantID = 8974
-	set KlantSessieData.KlantNaam = "sfsklant"
-	set KlantSessieData.Korting = 10
-	set KlantSessieData.Taal = "F"
-	set KlantSessieData.Email = "test@sfsklant.ch"
+	Set KlantSessieData = ##class(APPS.EC.dto.KlantSessieData).%New()
+	Set KlantSessieData.Email = ""
+	Set KlantSessieData.GebruikerID = "gebruikersfsklant"
+	Set KlantSessieData.KlantID = 8974
+	Set KlantSessieData.KlantNaam = "sfsklant"
+	Set KlantSessieData.Korting = 10
+	Set KlantSessieData.Taal = "F"
+	Set KlantSessieData.Email = "test@sfsklant.ch"
 	Quit KlantSessieData
 ]]></Implementation>
 </Method>
@@ -55,17 +55,34 @@
 <ClassMethod>1</ClassMethod>
 <ReturnType>APPS.EC.dto.KlantSessieData</ReturnType>
 <Implementation><![CDATA[
-	set KlantSessieData = ##class(APPS.EC.dto.KlantSessieData).%New()
-	set KlantSessieData.Email = ""
-	set KlantSessieData.GebruikerID = "gebruikerGalimbertiklant"
-	set KlantSessieData.KlantID = 8974
-	set KlantSessieData.KlantNaam = "galimbertiklant"
-	set KlantSessieData.Korting = 10
-	set KlantSessieData.Taal = "IT"
-	set KlantSessieData.Email = "test@galimberti.galimbertiland"
+	Set KlantSessieData = ##class(APPS.EC.dto.KlantSessieData).%New()
+	Set KlantSessieData.Email = ""
+	Set KlantSessieData.GebruikerID = "gebruikerGalimbertiklant"
+	Set KlantSessieData.KlantID = 8974
+	Set KlantSessieData.KlantNaam = "galimbertiklant"
+	Set KlantSessieData.Korting = 10
+	Set KlantSessieData.Taal = "IT"
+	Set KlantSessieData.Email = "test@galimberti.galimbertiland"
 	Quit KlantSessieData
 ]]></Implementation>
 </Method>
+
+<Method name="HaefeleKlantMetIsSalesMedewerker">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.EC.dto.KlantSessieData</ReturnType>
+<Implementation><![CDATA[
+	Set KlantSessieData = ##class(APPS.EC.dto.KlantSessieData).%New()
+	Set KlantSessieData.Email = ""
+	Set KlantSessieData.GebruikerID = "gebruikerhaefeleklant"
+	Set KlantSessieData.KlantID = 8974
+	Set KlantSessieData.KlantNaam = "haefeleklant"
+	Set KlantSessieData.Korting = 10
+	Set KlantSessieData.Taal = "N"
+	Set KlantSessieData.Email = "test@haefeleklant.be"
+	Set KlantSessieData.IsSalesMedewerker = "true"
+	Quit KlantSessieData
+]]></Implementation>
+</Method>
 </Class>