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>