Index: APPS/TBXWeb/LoginBypass/TandemboxUrlBepaler.cls.xml
===================================================================
diff -u
--- APPS/TBXWeb/LoginBypass/TandemboxUrlBepaler.cls.xml	(revision 0)
+++ APPS/TBXWeb/LoginBypass/TandemboxUrlBepaler.cls.xml	(revision 770)
@@ -0,0 +1,61 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.TBXWeb.LoginBypass.TandemboxUrlBepaler">
+<Super>TECH.RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Taal">
+<Type>DOM.enu.Taal</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Taal:DOM.enu.Taal=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	If $$$Trim(Taal) = "" {
+		Set Taal = ##class(DOM.enu.Taal).Duits()
+	}
+	Set ..Taal = Taal
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefTandemboxUrl">
+<FormalSpec>GebruikerNaam:%String,Wachtwoord:%String,IpAdres:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set TandemboxUrl = ""
+	Set Result = ..LogInEnGeefResultAmai(GebruikerNaam, Wachtwoord, IpAdres)  ; Dit Result is "" (leeg) indien Error, of Url indien succes :-P 
+	
+	If $L(Result) {
+		Set TandemboxUrl = ..GeefVolledigeTandemboxUrl(Result)
+	}
+	Quit TandemboxUrl
+]]></Implementation>
+</Method>
+
+<Method name="LogInEnGeefResultAmai">
+<FormalSpec>GebruikerNaam:%String,Wachtwoord:%String,IpAdres:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	; Do Soap-call naar WS.EC.ToegangServer tralala 
+	Quit "SoapCallResultaat"
+]]></Implementation>
+</Method>
+
+<Method name="GeefVolledigeTandemboxUrl">
+<FormalSpec>OorspronkelijkeUrl:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Quit ""
+	;Quit "http://localdev.tandem-box.com/VHISIE/TBX/Main.csp?HIST=0&REF=_6k9XujZFR3P0g95/SwVVKuazmkYsVt_Cb7lBI3sufU-&Taal="_..Taal
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/TBXWeb/LoginBypass/dto/Result.cls.xml
===================================================================
diff -u
--- APPS/TBXWeb/LoginBypass/dto/Result.cls.xml	(revision 0)
+++ APPS/TBXWeb/LoginBypass/dto/Result.cls.xml	(revision 770)
@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.TBXWeb.LoginBypass.dto.Result">
+<Super>TECH.RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="IsLogonRequested">
+<Type>%Boolean</Type>
+<InitialExpression>0</InitialExpression>
+</Property>
+
+<Property name="IsLoginAccepted">
+<Type>%Boolean</Type>
+<InitialExpression>0</InitialExpression>
+</Property>
+
+<Property name="TandemboxUrl">
+<Type>%String</Type>
+</Property>
+
+<Property name="ErrorMessage">
+<Type>%String</Type>
+</Property>
+</Class>
+</Export>
Index: APPS/TBXWeb/LoginBypass/UrlBepaler.cls.xml
===================================================================
diff -u
--- APPS/TBXWeb/LoginBypass/UrlBepaler.cls.xml	(revision 0)
+++ APPS/TBXWeb/LoginBypass/UrlBepaler.cls.xml	(revision 770)
@@ -0,0 +1,36 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.TBXWeb.LoginBypass.UrlBepaler">
+<Super>TECH.RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Taal">
+<Type>DOM.enu.Taal</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Taal:DOM.enu.Taal=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	If $$$Trim(Taal) = "" {
+		Set Taal = ##class(DOM.enu.Taal).Duits()
+	}
+	Set ..Taal = Taal
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefTandemboxUrl">
+<FormalSpec>GebruikersNaam:%String,Wachtwoord:%String,IpAdres:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	;Quit ""
+	Quit "http://localdev.tandem-box.com/VHISIE/TBX/Main.csp?HIST=0&REF=_6k9XujZFR3P0g95/SwVVKuazmkYsVt_Cb7lBI3sufU-&Taal="_..Taal
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/TBXWeb/LoginBypass/LogonRequestVerwerker.cls.xml
===================================================================
diff -u
--- APPS/TBXWeb/LoginBypass/LogonRequestVerwerker.cls.xml	(revision 0)
+++ APPS/TBXWeb/LoginBypass/LogonRequestVerwerker.cls.xml	(revision 770)
@@ -0,0 +1,58 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.TBXWeb.LoginBypass.LogonRequestVerwerker">
+<Super>TECH.RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Taal">
+<Type>DOM.enu.Taal</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Taal:DOM.enu.Taal=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	If $$$Trim(Taal) = "" {
+		Set Taal = ##class(DOM.enu.Taal).Duits()
+	}
+	Set ..Taal = Taal
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefLogonResult">
+<FormalSpec>CspRequest:%CSP.Request,IpAdres:%String</FormalSpec>
+<ReturnType>APPS.TBXWeb.LoginBypass.dto.Result</ReturnType>
+<Implementation><![CDATA[
+	Set LogonResult = ##class(APPS.TBXWeb.LoginBypass.dto.Result).%New()
+
+	Set RqSubmit = $G(CspRequest.Data("LOGON",1))
+	Set LogonResult.IsLogonRequested = ($L(RqSubmit) > 0)
+	
+	If ($$$UCase(RqSubmit) = "LOGIN") {
+		Set RqUsername = $G(CspRequest.Data("USERNAME",1))
+		Set RqPassword = $G(CspRequest.Data("PSW",1))
+
+		Set UrlBepaler = ##class(APPS.TBXWeb.LoginBypass.TandemboxUrlBepaler).%New(..Taal)
+		Set TandemboxUrl = UrlBepaler.GeefTandemboxUrl(RqUsername,RqPassword,IpAdres)
+		
+		If $L(TandemboxUrl) > 0 {
+			Set LogonResult.IsLoginAccepted = $$$True
+			Set LogonResult.TandemboxUrl = TandemboxUrl
+		}
+		Else {
+			Set LogonResult.IsLoginAccepted = $$$False
+			Set LogonResult.TandemboxUrl = ""
+			Set LogonResult.ErrorMessage = "Fout bij inloggen. Probeer opnieuw."
+		}
+	}
+	
+	Quit LogonResult
+]]></Implementation>
+</Method>
+</Class>
+</Export>