Index: WS/TBX/DataIOWWW.cls.xml
===================================================================
diff -u -r2 -r8
--- WS/TBX/DataIOWWW.cls.xml	(.../DataIOWWW.cls.xml)	(revision 2)
+++ WS/TBX/DataIOWWW.cls.xml	(.../DataIOWWW.cls.xml)	(revision 8)
@@ -1,12 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
 <Class name="WS.TBX.DataIOWWW">
-<Description>
-Web Service voor Import/Export van data
-Class WS.TBX.DataIOWWW Extends %VHSys.SOAP.WebService [ ProcedureBlock ]</Description>
-<IncludeCode>%VHMacro,BL.EC.Common</IncludeCode>
+<IncludeCode>vhLib.Macro,BL.EC.Common</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%SOAP.WebService</Super>
+<Super>WS.WebService</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Parameter name="SERVICENAME">
@@ -15,19 +12,11 @@
 <Default>TBX.DataIOWWW</Default>
 </Parameter>
 
-<Parameter name="LOCATION">
-<Description>
-This is the URL used to access the web service. 
-  Location on CacheWWW/hadev  : "http://iserv.vanhoecke.be/csp/hadev"; 
-  Location on CacheWWW/demo   : "http://iserv.vanhoecke.be/csp/demo";  </Description>
-<Default>http://iserv.vanhoecke.be/csp/hadev</Default>
-</Parameter>
-
 <Parameter name="NAMESPACE">
 <Description>
 TODO: change this to actual SOAP namespace.
 SOAP Namespace for the WebService</Description>
-<Default>http://tempuri.org</Default>
+<Default>http://vhisie.vanhoecke.be</Default>
 </Parameter>
 
 <Method name="WSOrdToWWW">
@@ -83,11 +72,14 @@
 <ReturnType>%String</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
+	s ^zJCL(+$H,$zts)="Order Id "_WSOrderID_" Sec : "_SecureKey_" ProptName "_ProptName_" ProptValue : "_ProptValue
 	Quit:('$G(WSOrderID)) ""
 	// Check secure key and client's IP-address 
 	Set sc=$S('..CheckAccessWS(SecureKey):$$$ERROR($$$GeneralError,"No Access. SecureKey not accepted."), 1:$$$OK)
 	Quit:($$$ISERR(sc)) $$ParseStatus^vhLib(sc)
-	Quit ##class(BL.PR.GA.TandemBox).UpdateWSOrdPropts(.WSOrderID,.ProptName,.ProptValue)
+	set result = ##class(BL.PR.GA.TandemBox).UpdateWSOrdPropts(.WSOrderID,.ProptName,.ProptValue)
+	s ^zJCL(+$H,$zts)="result : "_result
+	quit result
 ]]></Implementation>
 </Method>