Index: WS/AX/CalculatedProduct/CalculatedProductService.cls.xml
===================================================================
diff -u -r49237 -r49877
--- WS/AX/CalculatedProduct/CalculatedProductService.cls.xml	(.../CalculatedProductService.cls.xml)	(revision 49237)
+++ WS/AX/CalculatedProduct/CalculatedProductService.cls.xml	(.../CalculatedProductService.cls.xml)	(revision 49877)
@@ -47,6 +47,9 @@
 <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")
+	
 	#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")
 	#dim BOMBOLInQuery As AXif.Dynamics.CalculatedProductOut.MessageParts.AxdADUMsgBOMBOLInQuery = ..Converter.Convert(BOMBOLOutQuery, GUID)
Index: vhUnitTest/WS/AX/CalculatedProduct/CalculatedProductService/Test.cls.xml
===================================================================
diff -u -r44847 -r49877
--- vhUnitTest/WS/AX/CalculatedProduct/CalculatedProductService/Test.cls.xml	(.../Test.cls.xml)	(revision 44847)
+++ vhUnitTest/WS/AX/CalculatedProduct/CalculatedProductService/Test.cls.xml	(.../Test.cls.xml)	(revision 49877)
@@ -6,6 +6,7 @@
 <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"