Index: WS/EC/UserServer.cls.xml
===================================================================
diff -u -r31560 -r39042
--- WS/EC/UserServer.cls.xml	(.../UserServer.cls.xml)	(revision 31560)
+++ WS/EC/UserServer.cls.xml	(.../UserServer.cls.xml)	(revision 39042)
@@ -221,6 +221,69 @@
 	Do %blSession.DontShowMemo("M")
 ]]></Implementation>
 </Method>
+
+<Method name="GeefTbxWebshopUrl">
+<FormalSpec>GebruikerNaam:%String,Wachtwoord:%String,IpAdres:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	#dim Taal As %String = "D"
+	
+	#dim LoginResultaat As BL.EC.pxLogIn = ..LogIn(GebruikerNaam, Wachtwoord, "00", Taal, "VH", "", "", IpAdres)
+	Do ..ValideerResultaat(LoginResultaat)
+	
+	#dim SelectKlantResultaat As BL.EC.pxKlantSettings = ..SelectKlant(LoginResultaat.SessionKey, LoginResultaat.KlantNr, Taal)
+	Do ..ValideerResultaat(SelectKlantResultaat)
+	
+	#dim HoofdMenu As BL.EC.pxemItem = SelectKlantResultaat.Toegang.GetAt(1)
+	#dim TbxSubMenu As BL.EC.pxemItem = ..GeefTbxSubMenu(HoofdMenu, GebruikerNaam)
+	Quit TbxSubMenu.URL
+]]></Implementation>
+</Method>
+
+<Method name="ValideerResultaat">
+<FormalSpec>Resultaat:%RegisteredObject</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim ErrorResultaat As BL.EC.pxStatus = ""
+	If (Resultaat.%Extends("BL.Sys.Proxy.pxStatus")) {
+		Set ErrorResultaat = Resultaat.AsECStatus()
+	}
+	ElseIf (Resultaat.%Extends("BL.EC.pxStatus")) {
+		Set ErrorResultaat = Resultaat
+	}
+	If $IsObject(ErrorResultaat) {
+		Do ##class(TECH.ExceptionHandler).Throw( ##class(TECH.Exceptions.GeneralErrorException).%New(ErrorResultaat.ErrorStatus _ " ; " _ ErrorResultaat.Omschrijving ) )
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefTbxSubMenu">
+<FormalSpec>HoofdMenu:BL.EC.pxemItem,GebruikerNaam:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>BL.EC.pxemItem</ReturnType>
+<Implementation><![CDATA[
+	#define TbxButtonCaption   "Tandem-box..."
+
+	#dim TbxSubMenu As BL.EC.pxemItem
+	#dim SubMenuGevonden As %Boolean = $$$False
+
+	Set SubMenuIterator = ##class(TECH.ListIterator).%New(HoofdMenu.Subs)
+	While (SubMenuIterator.HasNext())&&($$$Not(SubMenuGevonden)) {
+		#dim SubMenu As BL.EC.pxemItem = SubMenuIterator.Next()
+		If SubMenu.Omschrijving = $$$TbxButtonCaption {
+			Set SubMenuGevonden = $$$True
+			Set TbxSubMenu = SubMenu
+		}
+	}
+	
+	If $$$Not(SubMenuGevonden) {
+		Do ##class(TECH.ExceptionHandler).Throw( ##class(TECH.Exceptions.GeneralErrorException).%New("TBX URL niet in het menu van Vhisie3-gebruiker '" _ GebruikerNaam _ "' (of niet op verwachte plaats; '"_TbxSubMenu.Omschrijving_"').") )
+	}
+	
+	Quit TbxSubMenu
+]]></Implementation>
+</Method>
 </Class>