Index: cspBasis/GAProdTBox.cls.xml
===================================================================
diff -u -r769 -r773
--- cspBasis/GAProdTBox.cls.xml	(.../GAProdTBox.cls.xml)	(revision 769)
+++ cspBasis/GAProdTBox.cls.xml	(.../GAProdTBox.cls.xml)	(revision 773)
@@ -284,6 +284,49 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefTbxWebshopUrl">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>GebruikerNaam:%String,Wachtwoord:%String,IpAdres:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	set TbxWebshopUrl=$$GeefTbxWebshopUrlViaSoap(GebruikerNaam,Wachtwoord,IpAdres)
+	quit TbxWebshopUrl
+	
+GeefTbxWebshopUrlViaSoap(GebruikerNaam,Wachtwoord,IpAdres)
+	New TbxWebshopUrl
+	Do GeefTbxWebshopUrlViaSoapSub("WS.TBX.DataIOSoap","GeefTbxWebshopUrl")
+	Quit $G(TbxWebshopUrl)
+
+GeefTbxWebshopUrlViaSoapSub(SoapClass,method)
+	New Client,Result,lbLocations,locNdx
+	Set Client=$System.OBJ.New(SoapClass)
+	Set Result=Client.PrepareGetKlant(.lbLocations,.locNdx)   ; Uses PeekServer  and  TimeOut=(120-1)sec
+	  //d WLIP^vhDBG(195,"PeekServer (PrepareBuildWS) finished ==>  locNdx="_$G(locNdx)_" "_$$$LCVT(lbLocations))
+	Do:(locNdx<0) gwuSoapAddToLog2   ; Problem: no location
+	Quit:('Result)
+	Do:(locNdx>1) gwuSoapAddToLog2   ; Not the first location
+	Set $ZTRAP="gwuSoapErrorLW"
+	Set TbxWebshopUrl=Client.GeefTbxWebshopUrl(GebruikerNaam,Wachtwoord,IpAdres)
+	Set $ZTRAP=""
+	Quit
+
+gwuSoapAddToLog2
+	New lbExtras
+	Set lbExtras=$$PeekSOAPBuildLog^cspBasis.SOAPlib(SoapClass,method,lbLocations,locNdx)
+	Do ##class(cspBasis.GAProdTBox).AddToLog("SOAP_BACKUP",$G(%session.Data("DOMAIN")),$G(%session.Data("KLNR")),$G(%session.Data("MODE")),wsID,$G(%session.Data("VERW")),$G(Taal),,lbExtras)
+	Quit	
+ 
+gwuSoapErrorLW
+	Set $ZTRAP=""
+	New CustomMsg
+	Set CustomMsg=SoapClass_" - "_method_"() : KLNr"_$G(KLNr)_"."_$S(locNdx>1:"  ["_$LG(lbLocations,locNdx)_"]" ,1:"")
+	Do SOAPErrorMail^cspBasis.SOAPlib("TBX_ERR",,CustomMsg,,Client)
+	Set KLMini=""
+	;Set $ZE="" 
+	Quit
+]]></Implementation>
+</Method>
+
 <Method name="GetEmailAdressenLB">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>KLNr:%String</FormalSpec>