Index: WS/TBX/CalcSoap.cls.xml
===================================================================
diff -u -r253 -r319
--- WS/TBX/CalcSoap.cls.xml	(.../CalcSoap.cls.xml)	(revision 253)
+++ WS/TBX/CalcSoap.cls.xml	(.../CalcSoap.cls.xml)	(revision 319)
@@ -27,26 +27,16 @@
 ]]></Implementation>
 </Method>
 
-<Method name="VerwerkWebOrder">
+<Method name="WSOrdToAdmin">
 <Description>
 WSOrder To Admin</Description>
-<FormalSpec>WebOrder:WS.TBX.Order</FormalSpec>
-<ReturnType>%String</ReturnType>
+<FormalSpec>WSOrd:WS.TBX.Order,Opties:%String,ClientAddress:%String</FormalSpec>
+<ReturnType>%List</ReturnType>
 <WebMethod>1</WebMethod>
-<Implementation><![CDATA[ Quit ..WebMethod("VerwerkWebOrder").Invoke(##this,"http://tempuri.org/WS.TBX.Calc.VerwerkWebOrder",.WebOrder)
+<Implementation><![CDATA[ Quit ..WebMethod("WSOrdToAdmin").Invoke(##this,"http://tempuri.org/WS.TBX.Calc.WSOrdToAdmin",.WSOrd, .Opties, .ClientAddress)
 ]]></Implementation>
 </Method>
 
-<Method name="VerwerkWebGroepOrder">
-<Description>
-WSOrder To Admin</Description>
-<FormalSpec>WebGroepOrder:WS.TBX.GroepOrder</FormalSpec>
-<ReturnType>%String</ReturnType>
-<WebMethod>1</WebMethod>
-<Implementation><![CDATA[ Quit ..WebMethod("VerwerkWebGroepOrder").Invoke(##this,"http://tempuri.org/WS.TBX.Calc.VerwerkWebGroepOrder",.WebGroepOrder)
-]]></Implementation>
-</Method>
-
 <Method name="PeekServer">
 <Final>1</Final>
 <ReturnType>%String</ReturnType>
@@ -70,14 +60,29 @@
 ]]></Implementation>
 </Method>
 
-<Method name="PrepareVerwerkWebOrder">
+<Method name="PrepareWSOrdToAdmin">
 <FormalSpec><![CDATA[&lbLocations:%String,&locNdx:%Integer,blnPeekServer:%Boolean,TimeOut:%Integer]]></FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
+#define SoapLoc      "cache01\ADMIN1"	
+#define SoapLocDEV   "cache02\DEV-ADMIN1"	
+
+	/*
+
+	;Set blnPeekServer=1
+	;Set MailParamType="TBX_ERR"
+	Set lbLocations=..GetLocations($LB($$$SoapLoc))
+	;Set lbLocations=..GetLocations($S(%RemoteIP="192.168.1.97":$LB($$$SoapLocDEV), 1:$LB($$$SoapLoc)))
+	Set locNdx=1   ; =..PeekSOAPServer(lbLocations,1,MailParamType)
+	Do ..SetLocation($LG(lbLocations,locNdx))
+	Do ..SetTimeOut(60)   ; Default
+	Quit $S(locNdx<0:0, 1:1)
+	*/
+	
 	Set WebServiceRoot = ##class(TECH.Config.ConfigMgr).Instance().GetString("SOAPlib_ProductieWebServiceLocation")
 	Set Location = ##class(TECH.Files).AppendFile(WebServiceRoot,"WS.TBX.Calc.cls")
-	Set lbLocations = $listbuild(Location)
-	Set locNdx = 1
+	Set lbLocations=$LB(Location)
+	Set locNdx=1
 	Do ..SetLocation(Location)
 	Do ..SetTimeOut(60)   ; Default
 	Quit $$$True