Index: WS/EC/UserServer.cls.xml
===================================================================
diff -u -r39042 -r40048
--- WS/EC/UserServer.cls.xml	(.../UserServer.cls.xml)	(revision 39042)
+++ WS/EC/UserServer.cls.xml	(.../UserServer.cls.xml)	(revision 40048)
@@ -221,69 +221,6 @@
 	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>