Index: WS/Halux/PPS/MatService.cls.xml
===================================================================
diff -u
--- WS/Halux/PPS/MatService.cls.xml	(revision 0)
+++ WS/Halux/PPS/MatService.cls.xml	(revision 66505)
@@ -0,0 +1,70 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.Halux.PPS.MatService">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WS.OngeauthenticeerdeWebService</Super>
+
+<Parameter name="SERVICENAME">
+<Default>MatService</Default>
+</Parameter>
+
+<Parameter name="NAMESPACE">
+<Default>http://www.vanhoecke.be/Halux/PPS/MatService</Default>
+</Parameter>
+
+<Property name="MatService">
+<Type>WSimpl.Halux.PPS.MatService</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Do ##super()
+	Set ..MatService = ##class(WSimpl.Halux.PPS.MatService).%New()
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefAfmetingenViaBatchId">
+<FormalSpec>GeefAfmetingenRequest:WS.Halux.PPS.MatService.GeefAfmetingenRequest</FormalSpec>
+<ReturnType>WS.Halux.PPS.MatService.GeefAfmetingenResponse</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Quit ..VerwerkRequest(GeefAfmetingenRequest, $$$CurrentMethod)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkRequest">
+<FormalSpec>Request:%CacheString,UitTeVoerenMethod:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.Halux.PPS.MatService.GeefAfmetingenResponse</ReturnType>
+<Implementation><![CDATA[
+	Set Result = ##class(WS.Halux.PPS.MatService.GeefAfmetingenResponse).%New()
+	Try {
+		Set Result = $Method(..MatService, UitTeVoerenMethod, Request)
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Set Result.Header.Status = Exception.GeefExceptionCode()
+		Set Result.Header.Omschrijving = Exception.GeefOmschrijving()
+	}
+	If $$$HasLength(Result.Header.Omschrijving) {
+		#dim TeLoggenTekst As %String = ""
+		If $$$HasLength(Result.Header.OmschrijvingVoorLogging) {
+			Set TeLoggenTekst = Result.Header.OmschrijvingVoorLogging
+		} Else {
+			Set TeLoggenTekst = Result.Header.Omschrijving
+		}
+		Do ##class(vhLib.Logger).%New("WS.Halux.PPS.Matservice").Warning(UitTeVoerenMethod,Request.Header.Status_" - "_UitTeVoerenMethod,Request.Header.ComputerNaam_" - "_TeLoggenTekst)
+	}
+	Quit Result
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>