Index: WS/AX/CalculatedProduct/CalculatedProductService.cls.xml
===================================================================
diff -u -r49877 -r49878
--- WS/AX/CalculatedProduct/CalculatedProductService.cls.xml	(.../CalculatedProductService.cls.xml)	(revision 49877)
+++ WS/AX/CalculatedProduct/CalculatedProductService.cls.xml	(.../CalculatedProductService.cls.xml)	(revision 49878)
@@ -47,8 +47,7 @@
 <ReturnType>%GlobalCharacterStream</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	#dim BOMBOLOutQueryStream As %FileCharacterStream = ##class(TECH.StreamUtils).FormateerXmlStream(In)
-	Do ##class(vhLib.WebServiceLogger.LogService).LogStream(BOMBOLOutQueryStream,"IN","WS.AX.CalculatedProduct.CalculatedProductService")
+	Do ##class(vhLib.Logger).%New().Debug("MessageManager",In)
 	
 	#dim GUID As %String = ..MessageManager.GenerateID()
 	#dim BOMBOLOutQuery As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdADUMsgBOMBOLOutQuery = ..XmlCorrelater.FromStream(In, ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdADUMsgBOMBOLOutQuery).%ClassName($$$True), "ADUMsgBOMBOLOutQuery")
Index: vhUnitTest/WS/AX/CalculatedProduct/CalculatedProductService/Test.cls.xml
===================================================================
diff -u -r49877 -r49878
--- vhUnitTest/WS/AX/CalculatedProduct/CalculatedProductService/Test.cls.xml	(.../Test.cls.xml)	(revision 49877)
+++ vhUnitTest/WS/AX/CalculatedProduct/CalculatedProductService/Test.cls.xml	(.../Test.cls.xml)	(revision 49878)
@@ -6,7 +6,6 @@
 <Method name="Test: In stream wordt geconverteerd naar Out stream">
 <Implementation><![CDATA[
 	#dim DummyStreamIn As %GlobalCharacterStream = ##class(%GlobalCharacterStream).%New()
-	Do DummyStreamIn.WriteLine("<DummyElement></DummyElement>")
 	#dim DummyBOMBOLOutQuery As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdADUMsgBOMBOLOutQuery = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdADUMsgBOMBOLOutQuery).%New()
 	#dim DummyBOMBOLInQuery As AXif.Dynamics.CalculatedProductOut.MessageParts.AxdADUMsgBOMBOLInQuery = ##class(AXif.Dynamics.CalculatedProductOut.MessageParts.AxdADUMsgBOMBOLInQuery).%New()
 	#dim RandomGUID As %String = "RandomGUID"