Index: WSimpl/Unishop/Login/Aanmelder.cls.xml
===================================================================
diff -u
--- WSimpl/Unishop/Login/Aanmelder.cls.xml	(revision 0)
+++ WSimpl/Unishop/Login/Aanmelder.cls.xml	(revision 33289)
@@ -0,0 +1,38 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Unishop.Login.Aanmelder">
+<Super>%RegisteredObject</Super>
+
+<Method name="LoginMetEncryptedCredentials">
+<FormalSpec>GebruikerNaam:%String,EncryptedWachtwoord:%String,KlantID:%String,Taal:%String,LandCode:%String,RemoteIP:%String</FormalSpec>
+<ReturnType>APPS.EC.dto.WebshopSessie</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	//// Wordt enkel nog gebruikt voor flashversie TAORBOX website 
+	#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>
+</Class>
+
+
+</Export>
Index: WS/EC/SessionService.cls.xml
===================================================================
diff -u -r33288 -r33289
--- WS/EC/SessionService.cls.xml	(.../SessionService.cls.xml)	(revision 33288)
+++ WS/EC/SessionService.cls.xml	(.../SessionService.cls.xml)	(revision 33289)
@@ -19,27 +19,7 @@
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
 	//// Wordt enkel nog gebruikt voor flashversie TAORBOX website 
-	#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
+	Quit ##class(WSimpl.Unishop.Login.Aanmelder).%New().LoginMetEncryptedCredentials(GebruikerNaam,EncryptedWachtwoord,KlantID,Taal,LandCode, RemoteIP)
 ]]></Implementation>
 </Method>