Index: WS/EC/SessionService.cls.xml
===================================================================
diff -u -r33289 -r33290
--- WS/EC/SessionService.cls.xml	(.../SessionService.cls.xml)	(revision 33289)
+++ WS/EC/SessionService.cls.xml	(.../SessionService.cls.xml)	(revision 33290)
@@ -19,42 +19,38 @@
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
 	//// Wordt enkel nog gebruikt voor flashversie TAORBOX website 
-	Quit ##class(WSimpl.Unishop.Login.Aanmelder).%New().LoginMetEncryptedCredentials(GebruikerNaam,EncryptedWachtwoord,KlantID,Taal,LandCode, RemoteIP)
+	#dim LoginParameters As WSimpl.Unishop.Login.Parameters = ##class(WSimpl.Unishop.Login.ParametersVanHoecke).%New()
+	Set LoginParameters.PersonalityID = ##class(DOM.common.enu.Personality).VanHoecke()
+	Set LoginParameters.KlantID = KlantID
+	Set LoginParameters.Taal = Taal
+	Set LoginParameters.RemoteIP = RemoteIP
+	Set LoginParameters.GebruikerNaam = GebruikerNaam
+	Set LoginParameters.EncryptedWachtwoord = EncryptedWachtwoord
+	Set LoginParameters.LandCode = LandCode
+	
+	/// Doet zowel een controle op de credentials en permissies, als maakt een WebshopSessie.
+	/// Dat laatste is in principe overbodig, maar het is niet meer de moeite om dit nog te refactoren, wetende dat de TA'OR BOX webshop uitgefaseerd wordt.
+	#dim WebshopSessie As APPS.EC.dto.WebshopSessie = ##class(APPS.EC.SessionService).%New().LoginMetEncryptedCredentials(LoginParameters)
+	#dim SessieDataService As APPS.common.SessieDataService = ##class(APPS.ApplicatieContext).Instance().GeefCommonAPI().GeefSessieDataService()
+	
+	Set LoginParameters.GebruikerID = "Vhisie||" _ KlantID _ "||" _ ##class(TECH.StringUtils).GetLastPart( WebshopSessie.VhintraSessie.GebruikerData.ID, "||" )
+	#dim SessionService As APPS.EC.WebshopSessionService = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWebshopSessionService()
+	Set WebshopSessie = SessionService.Login(LoginParameters)
+	
+	Do ##class(TECH.Context.RuntimeContext).Instance().ZetSessieID( WebshopSessie.VhintraSessie.SessieSleutel )
+
+	Quit WebshopSessie
 ]]></Implementation>
 </Method>
 
 <Method name="LoginMetEncryptedParameters">
 <FormalSpec>Ref:%String,DataOpt:%String="",Taal:%String="",RemoteIP:%String</FormalSpec>
 <ReturnType>APPS.EC.dto.WebshopSessie</ReturnType>
 <WebMethod>1</WebMethod>
-<Implementation><![CDATA[
-	#dim LoginParameterBepaler As WSimpl.Unishop.Login.ParameterBepaler = ##class(WSimpl.Unishop.Login.ParameterBepaler).%New()	
-	#dim LoginParameters As WSimpl.Unishop.Login.Parameters = LoginParameterBepaler.GeefLoginParameters(Ref, DataOpt, Taal, RemoteIP)
-	Do ##class(TECH.Context.RuntimeContext).Instance().ZetPersonalityID(LoginParameters.PersonalityID)
-	
- 	Set LoginKortingBewaarder = ##class(WSimpl.Unishop.Login.KortingBewaarder).%New()
- 	Do LoginKortingBewaarder.BewaarMeegegevenKorting(Ref,DataOpt)
-	
-	#dim SessionService As APPS.EC.WebshopSessionService = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWebshopSessionService()
-	#dim WebshopSessie As APPS.EC.dto.WebshopSessie = SessionService.Login(LoginParameters)
-	
-	Do ..ZetRefOpSessie(Ref,WebshopSessie.VhintraSessie.SessieSleutel)
-	
-	quit WebshopSessie
+<Implementation><![CDATA[	quit ##class(WSimpl.Unishop.Login.Aanmelder).%New().LoginMetEncryptedParameters(Ref, DataOpt, Taal, RemoteIP)
 ]]></Implementation>
 </Method>
 
-<Method name="ZetRefOpSessie">
-<FormalSpec>Ref:%String,SessieID:%String</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	#dim RefSessieData As APPS.EC.dto.RefSessieData = ##class(APPS.EC.impl.RefSessieDataBepaler).%New().GeefRefSessieData(Ref)	
-	#dim WebshopSessieObject As APPS.EC.impl.WebshopSessie = ##class(APPS.EC.impl.WebshopSessie).OpenId(SessieID)
-	Do WebshopSessieObject.ZetWebshopModus(RefSessieData.WebshopModus)
-	Do WebshopSessieObject.Save()
-]]></Implementation>
-</Method>
-
 <Method name="UpdateSessieMetContactGegevens">
 <Description>
 Via deze method kan de web-laag de contactgegevens doorgeven, in geval van een handelswebsite "zonder handelsverificatie".</Description>