Index: BL/Prod/OptiBox/Snijden.cls.xml
===================================================================
diff -u -r31340 -r68305
--- BL/Prod/OptiBox/Snijden.cls.xml	(.../Snijden.cls.xml)	(revision 31340)
+++ BL/Prod/OptiBox/Snijden.cls.xml	(.../Snijden.cls.xml)	(revision 68305)
@@ -594,14 +594,34 @@
 	Lock +PanOptimizer:2 ;serialize requests to OptiBox server
 	
 	do ..ProcessAPI.Sleep(.2)
-	
+	try {
+		#dim RequestXml as %String
+		Do ..oRequest.XMLExportToString(.RequestXml)
+
+		if '##class(TECH.Config.ConfigMgr).Instance().GetBoolean("BL.Prod.OptiBox.Snijden_SimuleerIpvUitvoeren")&&'..Simulate {
+			Do ##class(vhLib.Logger).%New().Info(..%ClassName(1),"Snijden met prioriteit " _ ..oRequest.Prioriteit_$$$CRLF _ RequestXml)
+		} else {
+			Do ##class(vhLib.Logger).%New().Info(..%ClassName(1),"simulatie snijden met prioriteit " _ ..oRequest.Prioriteit _ $$$CRLF _ RequestXml)
+		}
+	} catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+	}
+
 	If '##class(TECH.Config.ConfigMgr).Instance().GetBoolean("BL.Prod.OptiBox.Snijden_SimuleerIpvUitvoeren")&&'..Simulate {
 		Set Status=wsOptimizer.QueueCutting(..oRequest)
 	} Else {
 		Set Status=wsOptimizer.SimulateCutting(..oRequest)
 	}
 	Lock -PanOptimizer	
 
+	try {
+		#dim ResponseXml as %String
+		Do Status.XMLExportToString(.ResponseXml)
+		Do ##class(vhLib.Logger).%New().Info(..%ClassName(1),ResponseXml)
+	} catch {
+		Set Exception = ##class(TECH.ExceptionHandler).Catch()
+	}
+
 	If $isObject(Status) Do
 	. If (Status.ID'="")&&(Status.STATUS=$$$PanOptiStatusOK) Do
 	. .	Merge Refs=..QueueRefs