Index: APPS/Verpakking/DoosService.cls.xml
===================================================================
diff -u -r68405 -r68501
--- APPS/Verpakking/DoosService.cls.xml	(.../DoosService.cls.xml)	(revision 68405)
+++ APPS/Verpakking/DoosService.cls.xml	(.../DoosService.cls.xml)	(revision 68501)
@@ -28,6 +28,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>DoosFactory:APPS.Verpakking.DoosFactory="",DoosAanvuller:APPS.Verpakking.DoosAanvuller="",Optimizer:APPS.Verpakking.Optimizer="",SnijDoosService:WS.APPS.Verpakking.SnijDoosService="",SnijRequestMaker:WS.APPS.Verpakking.Service.MaakSnijRequest=""</FormalSpec>
 <Private>1</Private>
@@ -40,6 +45,7 @@
 	Set ..Optimizer = $$$Inject(Optimizer, ##class(APPS.Verpakking.Optimizer).%New())
 	Set ..SnijDoosService = $$$Inject(SnijDoosService, ##class(WS.APPS.Verpakking.SnijDoosService).%New())
 	Set ..SnijRequestMaker = $$$Inject(SnijRequestMaker, ##class(WS.APPS.Verpakking.Service.MaakSnijRequest).%New())
+	Set ..Logger = ##class(vhLib.Logger).%New(..%ClassName(1))
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -54,7 +60,10 @@
 	Do ..Optimizer.Optimize(.Doos, ProductGroep)
 	
 	#dim SnijRequest As WS.APPS.Verpakking.SnijDoosRequest = ..SnijRequestMaker.MaakSnijRequest(Doos, MachineTechnologie, MachineID, Prioriteit, Aantal)
-	Do ..SnijDoosService.SnijDoos(SnijRequest)
+	Do ..LogXmlObject(SnijRequest, "GeefDoos OUT")
+		
+	#dim SnijResponse As WS.APPS.Verpakking.SnijDoosResponse = ..SnijDoosService.SnijDoos(SnijRequest)
+	Do ..LogXmlObject(SnijResponse, "GeefDoos IN")
 	
 	//Is Onderstaande nodig?
 	/*
@@ -95,6 +104,20 @@
 	Quit MachineTechnologie
 ]]></Implementation>
 </Method>
+
+<Method name="LogXmlObject">
+<FormalSpec>XmlObject:%XML.Adaptor,Actie:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Try {
+		#dim TeLoggenObject as %String
+		Do XmlObject.XMLExportToString(.TeLoggenObject)
+		Do ..Logger.Info(Actie, TeLoggenObject)	
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+	}
+]]></Implementation>
+</Method>
 </Class>