Index: WS/PM/Perfion/Vertaling/DataService/GetData.cls.xml
===================================================================
diff -u -r60131 -r60132
--- WS/PM/Perfion/Vertaling/DataService/GetData.cls.xml	(.../GetData.cls.xml)	(revision 60131)
+++ WS/PM/Perfion/Vertaling/DataService/GetData.cls.xml	(.../GetData.cls.xml)	(revision 60132)
@@ -2,7 +2,7 @@
 <Export generator="Cache" version="24">
 <Class name="WS.PM.Perfion.Vertaling.DataService.GetData">
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%SOAP.WebClient</Super>
+<Super>vhLib.WebClient</Super>
 
 <Parameter name="LOCATION">
 <Description>
@@ -33,6 +33,20 @@
 This service supports both SOAP 1.1 and SOAP 1.2.</Description>
 </Parameter>
 
+<Method name="%OnNew">
+<FormalSpec>initvalue:%CacheString</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..Location = ##class(TECH.Config.ConfigMgr).Instance().GetString("Perfion.Vertaling.DataService.Url")
+	
+	Set ..Location = "http://192.168.1.163/PerfionAPI/PROD/Perfion/GetData.asmx"
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="ExecuteQuery">
 <Final>1</Final>
 <FormalSpec>query:%String</FormalSpec>
@@ -41,7 +55,14 @@
 <WebMethod>1</WebMethod>
 <SoapBindingStyle>document</SoapBindingStyle>
 <SoapBodyUse>literal</SoapBodyUse>
-<Implementation><![CDATA[	Quit ..WebMethod("ExecuteQuery").Invoke($this,"http://perfion.com/ExecuteQuery",.query)
+<Implementation><![CDATA[
+	#dim Response As %String = ""
+	Try {
+		Set Response = ..WebMethod("ExecuteQuery").Invoke($this,"http://perfion.com/ExecuteQuery",.query)
+	} Catch {
+		Do ..RaiseException($$$CurrentMethod)
+	}
+	Quit Response
 ]]></Implementation>
 </Method>
 
@@ -52,7 +73,14 @@
 <WebMethod>1</WebMethod>
 <SoapBindingStyle>document</SoapBindingStyle>
 <SoapBodyUse>literal</SoapBodyUse>
-<Implementation><![CDATA[	Quit ..WebMethod("GetLanguages").Invoke($this,"http://perfion.com/GetLanguages")
+<Implementation><![CDATA[
+	#dim Response As %String = ""
+	Try {
+		Set Response = ..WebMethod("GetLanguages").Invoke($this,"http://perfion.com/GetLanguages")
+	} Catch {
+		Do ..RaiseException($$$CurrentMethod)
+	}
+	Quit Response
 ]]></Implementation>
 </Method>