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>
Index: WSimpl/Unishop/Login/Aanmelder.cls.xml
===================================================================
diff -u -r33289 -r33290
--- WSimpl/Unishop/Login/Aanmelder.cls.xml	(.../Aanmelder.cls.xml)	(revision 33289)
+++ WSimpl/Unishop/Login/Aanmelder.cls.xml	(.../Aanmelder.cls.xml)	(revision 33290)
@@ -1,35 +1,58 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="WSimpl.Unishop.Login.Aanmelder">
-<Super>%RegisteredObject</Super>
+<Super>TECH.RegisteredObject</Super>
 
-<Method name="LoginMetEncryptedCredentials">
-<FormalSpec>GebruikerNaam:%String,EncryptedWachtwoord:%String,KlantID:%String,Taal:%String,LandCode:%String,RemoteIP:%String</FormalSpec>
+<Property name="LoginParameterBepaler">
+<Type>WSimpl.Unishop.Login.ParameterBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LoginKortingBewaarder">
+<Type>WSimpl.Unishop.Login.KortingBewaarder</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>LoginParameterBepaler:WSimpl.Unishop.Login.ParameterBepaler,LoginKortingBewaarder:WSimpl.Unishop.Login.KortingBewaarder</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..LoginParameterBepaler = $$$Implementation(LoginParameterBepaler,##class(WSimpl.Unishop.Login.ParameterBepaler).%New())
+	Set ..LoginKortingBewaarder = $$$Implementation(LoginKortingBewaarder,##class(WSimpl.Unishop.Login.KortingBewaarder).%New())
+	quit $$$OK
+]]></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[
-	//// 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
+	#dim LoginParameters As WSimpl.Unishop.Login.Parameters = ..LoginParameterBepaler.GeefLoginParameters(Ref, DataOpt, Taal, RemoteIP)
+	Do ##class(TECH.Context.RuntimeContext).Instance().ZetPersonalityID(LoginParameters.PersonalityID)
 	
-	/// 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()
+ 	Do ..LoginKortingBewaarder.BewaarMeegegevenKorting(Ref,DataOpt)
 	
-	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)
+	#dim WebshopSessie As APPS.EC.dto.WebshopSessie = SessionService.Login(LoginParameters)
 	
-	Do ##class(TECH.Context.RuntimeContext).Instance().ZetSessieID( WebshopSessie.VhintraSessie.SessieSleutel )
+	Do ..ZetRefOpSessie(Ref,WebshopSessie.VhintraSessie.SessieSleutel)
+	
+	quit WebshopSessie
+]]></Implementation>
+</Method>
 
-	Quit WebshopSessie
+<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>
 </Class>