Index: BL/Prod/OptiBox/Optimize.cls.xml
===================================================================
diff -u -r30742 -r31340
--- BL/Prod/OptiBox/Optimize.cls.xml	(.../Optimize.cls.xml)	(revision 30742)
+++ BL/Prod/OptiBox/Optimize.cls.xml	(.../Optimize.cls.xml)	(revision 31340)
@@ -612,9 +612,9 @@
 	Do ..Instantiate()
 	Do %blProdOptiBoxOptimize.Create("", 9, .CallBack, .SnijPrioriteit, .PPSOutput, .MachineID)
 	Do %blProdOptiBoxOptimize.AddOptiRef(%blProdOptiBoxOptimize.oRequest, ,ObjType, ObjRef, .Params, .Opties, Qty, BasisRef, , , $S($G(PRNr)'="":PRNr,ObjType=$$$bdgProduct:ObjRef,1:""))
-	Set Status=%blProdOptiBoxOptimize.Send2Optimizer()
-	Quit:Status="" $$$pxStatusErrorEx("Geen optidata aanwezig","(ObjType: "_ObjType_", ObjRef: "_ObjRef_")")
-	Quit:(Status.STATUS'=0) $$$pxStatusErrorEx("Fout tijdens optimalisatie.","ERR# "_Status.STATUS_", "_Status.MESSAGE_$C(13,10)_"(ObjType: "_ObjType_", ObjRef: "_ObjRef_")")
+	#dim Status As WS.Prod.PanOpti.q1.STATUSRES = %blProdOptiBoxOptimize.Send2Optimizer()
+	Quit:($$$Not($IsObject(Status))) $$$pxStatusErrorEx("Geen optidata aanwezig","(ObjType: "_ObjType_", ObjRef: "_ObjRef_")")
+	Quit:(Status.STATUS'=$$$PanOptiStatusOK) $$$pxStatusErrorEx("Fout tijdens optimalisatie.","ERR# "_Status.STATUS_", "_Status.MESSAGE_$C(13,10)_"(ObjType: "_ObjType_", ObjRef: "_ObjRef_")")
 	Quit $$$pxSmartStatusOK(Status.ID)
 ]]></Implementation>
 </Method>
@@ -736,7 +736,7 @@
 	Lock -PanOptimizer	
 	Do:..DebugInfo WX^vhDBG(Status,1)
 	If $isObject(Status) Do
-	. If Status.ID'="",Status.STATUS=0 Do ; Goed verwerkt
+	. If (Status.ID'="")&&(Status.STATUS=$$$PanOptiStatusOK) Do ; Goed verwerkt
 	. . Merge tmpRefs=..QueueRefs
 	. . Do ##class(BL.Prod.OptiBox.Queue).AddRefs(.tmpRefs,$$$qtOptimizer,Status.ID,$$$qsQueued,..oRequest.CallBack)    ; Onthouden dat het op de queue van de optimizer is geplaatst
 	. . Kill ..QueueRefs
@@ -749,16 +749,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="DummyStatus">
-<Implementation><![CDATA[
-	Set Status=##class(WS.Prod.PanOpti.q1.STATUSRES).%New()
-	Set Status.TYPE="O"
-	Set Status.ID=$RANDOM(20000)
-	Set Status.STATUS="1"
-	Quit Status
-]]></Implementation>
-</Method>
-
 <UDLText name="T">
 <Content><![CDATA[
 /*
Index: BL/Prod/OptiBox/Snijden.cls.xml
===================================================================
diff -u -r30106 -r31340
--- BL/Prod/OptiBox/Snijden.cls.xml	(.../Snijden.cls.xml)	(revision 30106)
+++ BL/Prod/OptiBox/Snijden.cls.xml	(.../Snijden.cls.xml)	(revision 31340)
@@ -603,7 +603,7 @@
 	Lock -PanOptimizer	
 
 	If $isObject(Status) Do
-	. If Status.ID'="",Status.STATUS=0 Do
+	. If (Status.ID'="")&&(Status.STATUS=$$$PanOptiStatusOK) Do
 	. .	Merge Refs=..QueueRefs
 	. .	; Elke cutrequest komt in de queue terecht
 	. . Do ##class(BL.Prod.OptiBox.Queue).AddRefs(.Refs,$$$qtSnijden,Status.ID,$$$qsQueued,..oRequest.CallBack,..Simulate) ; Onthouden dat het op de queue van de cutting is geplaatst
@@ -619,16 +619,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="DummyStatus">
-<Implementation><![CDATA[
-	Set Status=##class(WS.Prod.PanOpti.q1.STATUSRES).%New()
-	Set Status.TYPE="C"
-	Set Status.ID=$RANDOM(20000)
-	Set Status.STATUS="1"
-	Quit Status
-]]></Implementation>
-</Method>
-
 <Method name="OpenSnijData">
 <FormalSpec>SnijID</FormalSpec>
 <Implementation><![CDATA[	Quit $S(SnijID="":"",$isObject(SnijID):SnijID,1:##class(DS.Prod.OptiBox.SnijData).%OpenId(SnijID))
@@ -736,7 +726,7 @@
 	
 	Set PanStatus=%blProdOptiBoxSnijden.SnijReDo(MachineID,lbSnijOpdracht,Prioriteit,PPSOutput, .CallBack)
 	
-	Quit:(Status.STATUS'=0) $$$pxStatusErrorEx("Fout tijdens snijden.",Status.MESSAGE_$C(13,10)_$$LCVT^vhLib(lbSnijOpdracht))
+	Quit:(PanStatus.STATUS'=$$$PanOptiStatusOK) $$$pxStatusErrorEx("Fout tijdens snijden.",PanStatus.MESSAGE_$C(13,10)_$$LCVT^vhLib(lbSnijOpdracht))
 
 	Quit $$$pxStatusOK
 ]]></Implementation>
Index: BL/Prod/OptiBox.inc.rou
===================================================================
diff -u -r29059 -r31340
--- BL/Prod/OptiBox.inc.rou	(.../OptiBox.inc.rou)	(revision 29059)
+++ BL/Prod/OptiBox.inc.rou	(.../OptiBox.inc.rou)	(revision 31340)
@@ -9,6 +9,8 @@
 	#Define blBoxData              	Set:('$D(%blBoxData)) %blBoxData=##class(BL.Prod.OptiBox.BoxData).%New()
 	#Define blBoxMeta  							Set:('$D(%blBoxMeta)) %blBoxMeta=##class(BL.Prod.OptiBox.BoxMeta).%New()
 	#Define blOptimize							Set:('$D(%blProdOptiBoxOptimize)) %blProdOptiBoxOptimize=##class(BL.Prod.OptiBox.Optimize).%New()
+
+	#Define PanOptiStatusOK   0
 	
 	;BoxData groep (ObjType)
 	#Define bdgProduct							"PR"