Index: WSimpl/Unishop/Login/Aanmelder.cls.xml
===================================================================
diff -u -r33387 -r34640
--- WSimpl/Unishop/Login/Aanmelder.cls.xml	(.../Aanmelder.cls.xml)	(revision 33387)
+++ WSimpl/Unishop/Login/Aanmelder.cls.xml	(.../Aanmelder.cls.xml)	(revision 34640)
@@ -48,7 +48,6 @@
 <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 LoginParameters As WSimpl.Unishop.Login.Parameters = ..LoginParameterBepaler.GeefLoginParameters(Ref, DataOpt, Taal, RemoteIP)
 	Do ##class(TECH.Context.RuntimeContext).Instance().ZetPersonalityID(LoginParameters.PersonalityID)
Index: WS/EC/Unishop/dto/Session.cls.xml
===================================================================
diff -u
--- WS/EC/Unishop/dto/Session.cls.xml	(revision 0)
+++ WS/EC/Unishop/dto/Session.cls.xml	(revision 34640)
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.EC.Unishop.dto.Session">
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Property name="ID">
+<Type>%String</Type>
+</Property>
+
+<Property name="Url">
+<Type>%String</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: WS/EC/Unishop/Login/Service.cls.xml
===================================================================
diff -u
--- WS/EC/Unishop/Login/Service.cls.xml	(revision 0)
+++ WS/EC/Unishop/Login/Service.cls.xml	(revision 34640)
@@ -0,0 +1,26 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.EC.Unishop.Login.Service">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="LoginUser">
+<FormalSpec>Gebruiker:%String,Paswoord:%String="",Taal:%String=""</FormalSpec>
+<ReturnType>WS.EC.Unishop.dto.Session</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	if (Gebruiker = "INTRACTO EXPORT") && (Paswoord = "HZD;606")
+	{
+		#dim Session As WS.EC.Unishop.dto.Session = ##class(WS.EC.Unishop.dto.Session).%New()
+		Set Session.Url = "http://legrabox.accounts.intracto.com/login?Taal=N&REF=KifeOwBXXSTSV5JAsFJwRU/iJg7ff2yWp_eBffg9Vxs-&DATAOPT=VwEGDfsh4YEzXFbapVzobMKUhlQEEFC/716VeK2tfMlH5Yw3B9vnV3a9VPbEoPGka/WaF_8UQ68O4WH/5zeA8w--"
+		Set Session.ID = 1
+		Quit Session 
+	} Else {
+		set Exception = ##class(TECH.Exceptions.InvalidUserInputException).%New("Ongeldige gebruiker of paswoord.")	
+		do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>