Index: WS/EC/WebshopSessionService.cls.xml
===================================================================
diff -u -r36117 -r36175
--- WS/EC/WebshopSessionService.cls.xml	(.../WebshopSessionService.cls.xml)	(revision 36117)
+++ WS/EC/WebshopSessionService.cls.xml	(.../WebshopSessionService.cls.xml)	(revision 36175)
@@ -40,52 +40,76 @@
 	#dim Personality As DOM.common.Personality = ##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(PersonalityId)
 	#dim RefSessieData As APPS.EC.dto.RefSessieData = ##class(APPS.EC.dto.RefSessieData).%New()
 	
-	Set RefSessieData.KlantID = Personality.GeefKlantID()
+	//Set RefSessieData.KlantID = Personality.GeefKlantID()
 	Set RefSessieData.Verwerker = DomeinVerwerker
 	Set RefSessieData.WebshopModus = Modus
 	
 	Quit ##class(APPS.EC.impl.RefSessieDataBepaler).%New().GeefEncryptedRefSessieData(RefSessieData)
 ]]></Implementation>
 </Method>
 
+<Method name="DecrypteerRef">
+<FormalSpec>Ref:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	#dim RefSessieData As APPS.EC.dto.RefSessieData = ##class(APPS.EC.impl.RefSessieDataBepaler).%New().GeefRefSessieData(Ref)
+	
+	Quit "Verwerker:" _ RefSessieData.Verwerker _ "; WebshopModus:" _ RefSessieData.WebshopModus _ "; WSID:" _ RefSessieData.WSID _ "; KlantId:" _ RefSessieData.KlantID _ "; OfferteId:" _ RefSessieData.OfferteID
+]]></Implementation>
+</Method>
+
+<Method name="DecrypteerDataOpt">
+<FormalSpec>DataOpt:%String,PersonalityId:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	#dim DomeinVerwerker As APPS.EC.enu.UniShopVerwerker = ..WebshopSessionService.GeefDomeinVerwerkerVoorPersonality(PersonalityId)
+	#dim KlantSessieData As APPS.EC.dto.KlantSessieData = ##class(APPS.EC.impl.KlantSessieDataBepaler).%New().GeefKlantSessieData(DataOpt, DomeinVerwerker)
+
+	Quit "Taal:" _ KlantSessieData.Taal _ "; KlantNaam:" _ KlantSessieData.KlantNaam _ "; KlantId:" _ KlantSessieData.KlantID _ "; Email:" _ KlantSessieData.Email _ "; Korting:" _ KlantSessieData.Korting _ "; GebruikerID:" _ KlantSessieData.GebruikerID
+]]></Implementation>
+</Method>
+
 <Method name="GenereerDataOpt">
 <Description><![CDATA[
 - <b>PersonalityId:</b> DOM.common.enu.Personality <br/>
+- <b>KlantId:</b> String <br/>
 - <b>GebruikerId:</b> String <br/>
 - <b>Email:</b> String <br/>
 - <b>Taal:</b> DOM.enu.Taal <br/>]]></Description>
-<FormalSpec>PersonalityId:%String,GebruikerId:%String,Email:%String="ict_development@vanhoecke.be",Taal:%String="N"</FormalSpec>
+<FormalSpec>PersonalityId:%String,KlantId:%String,GebruikerId:%String,Email:%String="ict_development@vanhoecke.be",Taal:%String="N"</FormalSpec>
 <ReturnType>%String</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
 	#dim Personality As DOM.common.Personality = ##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(PersonalityId)
-	#dim KlantID As DOM.VKP.VanHoeckeKlantID = Personality.GeefKlantID()
 	#dim DomeinVerwerker As APPS.EC.enu.UniShopVerwerker = ..WebshopSessionService.GeefDomeinVerwerkerVoorPersonality(PersonalityId)
 	#dim KlantSessieDataBepaler As APPS.EC.KlantSessieDataBepaler = ##class(APPS.EC.impl.KlantSessieDataBepaler).%New()
 	#dim KlantSessieData As APPS.EC.dto.KlantSessieData = ##class(APPS.EC.dto.KlantSessieData).%New()
 	
 	Set KlantSessieData.Email = Email
 	Set KlantSessieData.GebruikerID = GebruikerId
-	Set KlantSessieData.KlantID = Personality.GeefKlantID()
+	Set KlantSessieData.KlantID = KlantId
 	Set KlantSessieData.KlantNaam = Personality.GeefNaam()
-	Set KlantSessieData.Korting = ""
+	Set KlantSessieData.Korting = 0
 	Set KlantSessieData.Taal = Taal
 	
 	Quit KlantSessieDataBepaler.GeefEncryptedKlantSessieData(KlantSessieData, DomeinVerwerker)
 ]]></Implementation>
 </Method>
 
-<Method name="GeefUrl">
+<Method name="GeefLoginUrl">
 <Description><![CDATA[
 - <b>PersonalityId:</b> DOM.common.enu.Personality <br/>
+- <b>KlantId:</b> String <br/>
 - <b>GebruikerId:</b> String <br/>
 - <b>Email:</b> String <br/>
 - <b>Taal:</b> DOM.enu.Taal <br/>
 - <b>Modus:</b> APPS.EC.enu.WebshopModus <br/>]]></Description>
-<FormalSpec>PersonalityId:%String,GebruikerId:%String,Email:%String="ict_development@vanhoecke.be",Taal:%String="N",Modus:%String="Normaal"</FormalSpec>
+<FormalSpec>PersonalityId:%String,KlantId:%String,GebruikerId:%String,Email:%String="ict_development@vanhoecke.be",Taal:%String="N",Modus:%String="Normaal"</FormalSpec>
 <ReturnType>%String</ReturnType>
 <WebMethod>1</WebMethod>
-<Implementation><![CDATA[	Quit ..GeefDomein(PersonalityId) _ ..GenereerLoginQueryString(PersonalityId, GebruikerId, Email, Taal)
+<Implementation><![CDATA[	Quit ..GeefDomein(PersonalityId) _ ..GenereerLoginQueryString(PersonalityId, KlantId, GebruikerId, Email, Taal)
 ]]></Implementation>
 </Method>
 
@@ -100,10 +124,10 @@
 </Method>
 
 <Method name="GenereerLoginQueryString">
-<FormalSpec>PersonalityId:%String,GebruikerId:%String,Email:%String="ict_development@vanhoecke.be",Taal:%String="N",Modus:%String="Normaal"</FormalSpec>
+<FormalSpec>PersonalityId:%String,KlantId:%String,GebruikerId:%String,Email:%String="ict_development@vanhoecke.be",Taal:%String="N",Modus:%String="Normaal"</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit "/login?TAAL=" _ Taal _ "&REF=" _ ..GenereerRef(PersonalityId, Modus) _ "&DATAOPT=" _ ..GenereerDataOpt(PersonalityId, GebruikerId, Email, Taal)
+<Implementation><![CDATA[	Quit "/login?TAAL=" _ Taal _ "&REF=" _ ..GenereerRef(PersonalityId, Modus) _ "&DATAOPT=" _ ..GenereerDataOpt(PersonalityId, KlantId, GebruikerId, Email, Taal)
 ]]></Implementation>
 </Method>
 </Class>