Index: WS/Vhisie4/Auth/DecrypteerResponse.cls.xml
===================================================================
diff -u -r73933 -r73974
--- WS/Vhisie4/Auth/DecrypteerResponse.cls.xml	(.../DecrypteerResponse.cls.xml)	(revision 73933)
+++ WS/Vhisie4/Auth/DecrypteerResponse.cls.xml	(.../DecrypteerResponse.cls.xml)	(revision 73974)
@@ -60,7 +60,7 @@
 </Property>
 
 <Property name="IsSalesMedewerker">
-<Type>TECH.String</Type>
+<Type>%Boolean</Type>
 </Property>
 
 <Storage name="Default">
Index: APPS/EC/impl/KlantSessieDataBepaler.cls.xml
===================================================================
diff -u -r73929 -r73974
--- APPS/EC/impl/KlantSessieDataBepaler.cls.xml	(.../KlantSessieDataBepaler.cls.xml)	(revision 73929)
+++ APPS/EC/impl/KlantSessieDataBepaler.cls.xml	(.../KlantSessieDataBepaler.cls.xml)	(revision 73974)
@@ -18,7 +18,12 @@
 	Set KlantSessieData.KlantID = $Get(DataOptArray("KLNummer"))
 	Set KlantSessieData.KlantNaam = $Get(DataOptArray("KLNaam"))
 	Set KlantSessieData.Korting = $Get(DataOptArray("Korting"))
-	Set KlantSessieData.IsSalesMedewerker = $Get(DataOptArray("IsSalesMedewerker"))
+	#dim IsSalesMedewerker As %String = $Get(DataOptArray("IsSalesMedewerker"))
+	If ((##class(TECH.StringUtils).ToLower(IsSalesMedewerker) = "true") || IsSalesMedewerker = "1") {
+		Set KlantSessieData.IsSalesMedewerker = $$$True
+	} Else {
+		Set KlantSessieData.IsSalesMedewerker = $$$False
+	}
 
 	If (DomeinVerwerker = ##class(APPS.EC.enu.WebShopVerwerker).VHEPN()) {
 		Set KlantSessieData.KlantID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID($Get(DataOptArray("KLNummer")))
Index: WSimpl/Unishop/Login/Parameters.cls.xml
===================================================================
diff -u -r73933 -r73974
--- WSimpl/Unishop/Login/Parameters.cls.xml	(.../Parameters.cls.xml)	(revision 73933)
+++ WSimpl/Unishop/Login/Parameters.cls.xml	(.../Parameters.cls.xml)	(revision 73974)
@@ -25,7 +25,7 @@
 </Property>
 
 <Property name="IsSalesMedewerker">
-<Type>%String</Type>
+<Type>%Boolean</Type>
 </Property>
 </Class>
 
Index: vhUnitTest/APPS/EC/impl/KlantSessieDataBepaler/EncryptDecryptKlantSessieData/Test.cls.xml
===================================================================
diff -u -r36117 -r73974
--- vhUnitTest/APPS/EC/impl/KlantSessieDataBepaler/EncryptDecryptKlantSessieData/Test.cls.xml	(.../Test.cls.xml)	(revision 36117)
+++ vhUnitTest/APPS/EC/impl/KlantSessieDataBepaler/EncryptDecryptKlantSessieData/Test.cls.xml	(.../Test.cls.xml)	(revision 73974)
@@ -14,6 +14,7 @@
 	Set KSD.KlantNaam = "TestKlantVanHoecke"
 	Set KSD.Korting = "10"
 	Set KSD.Taal = "N"
+	Set KSD.IsSalesMedewerker = $$$False
 	
 	#dim VerwachteEncryptedKlantSessieData As %String = "dqeZ75RGtNUN4i9ZYp4ZVDf/HTx1uUucDITPFsFDNPVSgvvlgtPJtbY0qDOF_/CF0ipwADvXD3l08QG9P/1OSA--"
 
@@ -32,6 +33,7 @@
 	set KSD.KlantNaam = "TestKlantVanHoecke"
 	set KSD.Korting = "10%"
 	set KSD.Taal = "N" 
+	Set KSD.IsSalesMedewerker = $$$False
 	
 	#dim VerwachteEncryptedKlantSessieData As %String = "dqeZ75RGtNUN4i9ZYp4ZVDf/HTx1uUucDITPFsFDNPUp5_c/JqvBuGFceaKfMFhY6IOcBBOLsx7dF6Z0X7ngfg--"
 
@@ -50,6 +52,7 @@
 	Set KSD.KlantNaam = "UT-SFSUNIMARKET"
 	Set KSD.Korting = "10"
 	Set KSD.Taal = "D"
+	Set KSD.IsSalesMedewerker = $$$False
 	
 	#dim VerwachteEncryptedKlantSessieData As %String = "kt2ijlqAK/QLgcDhOELfqTg1ORp5xZXnO7lMBPy7bSNSwabj6K2SBz_k0jVRqxEZeajfZH8OdYzbAkBsW23sSg--"
 
@@ -68,6 +71,7 @@
 	Set KSD.KlantNaam = "Schreinerei Anton"
 	Set KSD.Korting = "0"
 	Set KSD.Taal = "F"
+	Set KSD.IsSalesMedewerker = $$$False
 	
 	#dim VerwachteEncryptedKlantSessieData As %String = "PNTQqhNs4YqtgBPNCDRo1f5U7r0goCzt4RPxi4S3zFR/hR8wi1CVG4eGZ2p59CdiAbUb/WeViTR/bjxxeUDY4A--"
 
@@ -86,8 +90,9 @@
 	Set KSD.KlantNaam = "Haefele belgie"
 	Set KSD.Korting = "0"
 	Set KSD.Taal = "N"
+	Set KSD.IsSalesMedewerker = $$$False
 	
-	#dim VerwachteEncryptedKlantSessieData As %String = "CTi_8MYVag/7KwJPUmSWYKH21X29ICwOeYvkCJeWYHAQtmbW6GF52dRrTs35L4JKwT0WmDbFdE5KOvagkdDRow--"
+	#dim VerwachteEncryptedKlantSessieData As %String = "CTi_8MYVag/7KwJPUmSWYKH21X29ICwOeYvkCJeWYHAQtmbW6GF52dRrTs35L4JKkps_OSJVGlybz/CyVjtZMw--"
 	
 	Do ..AssertEncryptDecryptKlantSessieData(KSD,DomeinVerwerker,VerwachteEncryptedKlantSessieData)
 ]]></Implementation>
@@ -104,6 +109,7 @@
 	Set KSD.KlantNaam = ""
 	Set KSD.Korting = "0"
 	Set KSD.Taal = "N"
+	Set KSD.IsSalesMedewerker = $$$False
 	
 	#dim VerwachteEncryptedKlantSessieData As %String = "VrI634ZlapA3E679/OZ6Qg--"
 
@@ -122,6 +128,7 @@
 	Set KSD.KlantNaam = "Tom Gillespy"
 	Set KSD.Korting = "10"
 	Set KSD.Taal = "E"
+	Set KSD.IsSalesMedewerker = $$$False
 
 	#dim VerwachteEncryptedKlantSessieData As %String = "yZQMHTjTWCJEw7H3A70iJVJ6cc1ZzQvCgOyEGLX5cfHhNmxwOYnNzv4ilwDJz1tv"
 
Index: vhUnitTest/APPS/EC/impl/KlantSessieDataBepaler/GeefKlantSessieData/Test.cls.xml
===================================================================
diff -u -r73931 -r73974
--- vhUnitTest/APPS/EC/impl/KlantSessieDataBepaler/GeefKlantSessieData/Test.cls.xml	(.../Test.cls.xml)	(revision 73931)
+++ vhUnitTest/APPS/EC/impl/KlantSessieDataBepaler/GeefKlantSessieData/Test.cls.xml	(.../Test.cls.xml)	(revision 73974)
@@ -3,47 +3,59 @@
 <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">
+<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()
+	#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())
+	#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>
 
Index: APPS/EC/dto/KlantSessieData.cls.xml
===================================================================
diff -u -r73929 -r73974
--- APPS/EC/dto/KlantSessieData.cls.xml	(.../KlantSessieData.cls.xml)	(revision 73929)
+++ APPS/EC/dto/KlantSessieData.cls.xml	(.../KlantSessieData.cls.xml)	(revision 73974)
@@ -28,7 +28,7 @@
 </Property>
 
 <Property name="IsSalesMedewerker">
-<Type>%String</Type>
+<Type>%Boolean</Type>
 </Property>
 </Class>