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[
 /*