Index: BL/Prod/OptiBox/Optimize.cls.xml
===================================================================
diff -u -r30106 -r30742
--- BL/Prod/OptiBox/Optimize.cls.xml	(.../Optimize.cls.xml)	(revision 30106)
+++ BL/Prod/OptiBox/Optimize.cls.xml	(.../Optimize.cls.xml)	(revision 30742)
@@ -732,7 +732,7 @@
 	Do:..DebugInfo WX^vhDBG(..oRequest,1)
 	Lock +PanOptimizer:2  ;serialize requests to OptiBox server
 	do ..ProcessAPI.Sleep(.2)
-	Set Status=wsOptimizer.QueueOptimization(..oRequest)
+	#dim Status As WS.Prod.PanOpti.q1.STATUSRES = wsOptimizer.QueueOptimization(..oRequest)
 	Lock -PanOptimizer	
 	Do:..DebugInfo WX^vhDBG(Status,1)
 	If $isObject(Status) Do
Index: WS/Prod/OptiBox/OptiServer.cls.xml
===================================================================
diff -u -r30551 -r30742
--- WS/Prod/OptiBox/OptiServer.cls.xml	(.../OptiServer.cls.xml)	(revision 30551)
+++ WS/Prod/OptiBox/OptiServer.cls.xml	(.../OptiServer.cls.xml)	(revision 30742)
@@ -724,7 +724,6 @@
 	{
 
 		Set WPClassName=##class(BL.PPS.TBX.OptiBox).GetWPClassName(Werkpost)
-			d WLIP^vhDBG(97,"GetWPQueueViaBatchID "_WPClassName)
 		Set:(WPClassName="") pxStatus=$$$pxStatusErrorEx("Onbekende werkpost.",Werkpost)
 		If $$$pxStatusIsOK(pxStatus)
 		{
@@ -735,7 +734,6 @@
 	Else  ; Nieuwe verwerking
 	{
 		#dim WerkpostImpl As APPS.Halux.PPS.Verpakking.KartonWerkpost = ..GeefWerkpostImpl(Werkpost)
-			d WLIP^vhDBG(97,"GetWPQueueViaBatchID impl:"_WerkpostImpl)
 		If (WerkpostImpl = "") {
 			Set pxStatus = $$$pxStatusErrorEx("Onbekende werkpost " _ Werkpost, Werkpost)
 		} Else {