Index: vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.EC.UserServer.txt
===================================================================
diff -u -r31777 -r39042
--- vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.EC.UserServer.txt	(.../WS.EC.UserServer.txt)	(revision 31777)
+++ vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.EC.UserServer.txt	(.../WS.EC.UserServer.txt)	(revision 39042)
@@ -14,6 +14,22 @@
                     <s:sequence/>
                 </s:complexType>
             </s:element>
+            <s:element name="GeefTbxWebshopUrl">
+                <s:complexType>
+                    <s:sequence>
+                        <s:element minOccurs="0" name="GebruikerNaam" type="s:string"/>
+                        <s:element minOccurs="0" name="Wachtwoord" type="s:string"/>
+                        <s:element minOccurs="0" name="IpAdres" type="s:string"/>
+                    </s:sequence>
+                </s:complexType>
+            </s:element>
+            <s:element name="GeefTbxWebshopUrlResponse">
+                <s:complexType>
+                    <s:sequence>
+                        <s:element name="GeefTbxWebshopUrlResult" type="s:string"/>
+                    </s:sequence>
+                </s:complexType>
+            </s:element>
             <s:element name="KlantInfo">
                 <s:complexType>
                     <s:sequence>
@@ -546,6 +562,12 @@
     <message name="DontShowMemoSoapOut">
         <part name="parameters" element="s0:DontShowMemoResponse"/>
     </message>
+    <message name="GeefTbxWebshopUrlSoapIn">
+        <part name="parameters" element="s0:GeefTbxWebshopUrl"/>
+    </message>
+    <message name="GeefTbxWebshopUrlSoapOut">
+        <part name="parameters" element="s0:GeefTbxWebshopUrlResponse"/>
+    </message>
     <message name="KlantInfoSoapIn">
         <part name="parameters" element="s0:KlantInfo"/>
     </message>
@@ -599,6 +621,10 @@
             <input message="s0:DontShowMemoSoapIn"/>
             <output message="s0:DontShowMemoSoapOut"/>
         </operation>
+        <operation name="GeefTbxWebshopUrl">
+            <input message="s0:GeefTbxWebshopUrlSoapIn"/>
+            <output message="s0:GeefTbxWebshopUrlSoapOut"/>
+        </operation>
         <operation name="KlantInfo">
             <input message="s0:KlantInfoSoapIn"/>
             <output message="s0:KlantInfoSoapOut"/>
@@ -643,6 +669,15 @@
                 <soap:body use="literal"/>
             </output>
         </operation>
+        <operation name="GeefTbxWebshopUrl">
+            <soap:operation soapAction="http://vhisie.vanhoecke.be/V3/WS.EC.UserServer.GeefTbxWebshopUrl" style="document"/>
+            <input>
+                <soap:body use="literal"/>
+            </input>
+            <output>
+                <soap:body use="literal"/>
+            </output>
+        </operation>
         <operation name="KlantInfo">
             <soap:operation soapAction="http://vhisie.vanhoecke.be/V3/WS.EC.UserServer.KlantInfo" style="document"/>
             <input>
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>