Index: WS/TBX/CalcSoap.cls.xml
===================================================================
diff -u -r27 -r253
--- WS/TBX/CalcSoap.cls.xml	(.../CalcSoap.cls.xml)	(revision 27)
+++ WS/TBX/CalcSoap.cls.xml	(.../CalcSoap.cls.xml)	(revision 253)
@@ -27,16 +27,26 @@
 ]]></Implementation>
 </Method>
 
-<Method name="WSOrdToAdmin">
+<Method name="VerwerkWebOrder">
 <Description>
 WSOrder To Admin</Description>
-<FormalSpec>WSOrd:WS.TBX.Order,Opties:%String,ClientAddress:%String</FormalSpec>
-<ReturnType>%List</ReturnType>
+<FormalSpec>WebOrder:WS.TBX.Order</FormalSpec>
+<ReturnType>%String</ReturnType>
 <WebMethod>1</WebMethod>
-<Implementation><![CDATA[ Quit ..WebMethod("WSOrdToAdmin").Invoke(##this,"http://tempuri.org/WS.TBX.Calc.WSOrdToAdmin",.WSOrd, .Opties, .ClientAddress)
+<Implementation><![CDATA[ Quit ..WebMethod("VerwerkWebOrder").Invoke(##this,"http://tempuri.org/WS.TBX.Calc.VerwerkWebOrder",.WebOrder)
 ]]></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>
@@ -60,29 +70,14 @@
 ]]></Implementation>
 </Method>
 
-<Method name="PrepareWSOrdToAdmin">
+<Method name="PrepareVerwerkWebOrder">
 <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=$LB(Location)
-	Set locNdx=1
+	Set lbLocations = $listbuild(Location)
+	Set locNdx = 1
 	Do ..SetLocation(Location)
 	Do ..SetTimeOut(60)   ; Default
 	Quit $$$True