Index: WS/VisiDot/OperatorServer.cls.xml
===================================================================
diff -u -r1847 -r1861
--- WS/VisiDot/OperatorServer.cls.xml	(.../OperatorServer.cls.xml)	(revision 1847)
+++ WS/VisiDot/OperatorServer.cls.xml	(.../OperatorServer.cls.xml)	(revision 1861)
@@ -49,14 +49,18 @@
 <Method name="UpdateData">
 <Description>
 </Description>
-<FormalSpec><![CDATA[ActionType:APPS.VisiDot.enu.ActionCodes,CaptureInfo:%String(XMLNAME="Capture_Info"),&ResultDesc:%String,&ProcessedData:%GlobalCharacterStream]]></FormalSpec>
+<FormalSpec><![CDATA[ActionType:APPS.VisiDot.enu.ActionCodes,CaptureInfo:%GlobalCharacterStream(XMLNAME="Capture_Info"),&ResultDesc:%String,&ProcessedData:%GlobalCharacterStream]]></FormalSpec>
+<ReturnType>%Integer</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
 	$$$TECHErrorTrapOn
 	Set ProcessedData = ##class(%GlobalCharacterStream).%New()
 	Set ComputerNaam = ##class(TECH.Context.RuntimeContext).Instance().GeefComputerNaam()
-	Do ##class(vhLib.Logger).%New("WS.VisiDot").Info("CaptureInfo IN", "["_ComputerNaam_"] "_ActionType_" -> "_CaptureInfo)
 	
+    Set CaptureString = CaptureInfo.Read(32000)
+    Do CaptureInfo.Rewind()
+	Do ##class(vhLib.Logger).%New("WS.VisiDot").Info("CaptureInfo IN", "["_ComputerNaam_"] "_ActionType_" -> "_CaptureString)
+	
 	/*
  	Set String = CaptureInfo
 	Set Prefix = "&"
@@ -75,7 +79,7 @@
 	}
 	*/		
 	Set XMLReader = ##class(%XML.Reader).%New()
-	Do XMLReader.OpenString(CaptureInfo)
+	Do XMLReader.OpenStream(CaptureInfo)
 	Do XMLReader.Correlate("Capture_Info","APPS.VisiDot.dto.CaptureInfo") 
 	
 	Set CorrelatedCaptureInfo = ""
@@ -89,19 +93,27 @@
 	Do ..Controleur.UpdateData(.ResultDesc,.ProcessedDataObject)
 	
 	/// XML-object omzetten naar Stream
-	Set ProcessedDataStream = ##class(%GlobalCharacterStream).%New()
-	Set Status = ProcessedDataObject.XMLExportToStream(ProcessedDataStream,,"literal")
+	Set ProcessedData = ##class(%GlobalCharacterStream).%New()
+	Set Status = ProcessedDataObject.XMLExportToStream(ProcessedData,,"literal,indent")
 	
+	/*
 	/// In stream HTML Entities omzetten
 	While (ProcessedDataStream.AtEnd = 0) {
         Set Data = ProcessedDataStream.Read(10000)
         Set Data = ##class(TECH.StringUtils).HTMLEntities(Data)
         Do ProcessedData.Write(Data)
     }
-    Do ProcessedData.Flush()	
+    Do ProcessedData.Flush()
+    */
+    
+    Set ProcesseDataString = ProcessedData.Read(32000)
+    Do ProcessedData.Rewind()
+	Do ##class(vhLib.Logger).%New("WS.VisiDot").Info("ProcessedData OUT", "["_ComputerNaam_"] "_ActionType_" -> "_ProcesseDataString)	
 	
+	Kill CorrelatedCaptureInfo
+	
 	$$$TECHErrorTrapOff
-	Quit
+	Quit 0
 ]]></Implementation>
 </Method>