Index: APPS/Halux/PPS/Verpakking/impl/DoosLosseOnderdelen.cls.xml
===================================================================
diff -u -r69183 -r69271
--- APPS/Halux/PPS/Verpakking/impl/DoosLosseOnderdelen.cls.xml	(.../DoosLosseOnderdelen.cls.xml)	(revision 69183)
+++ APPS/Halux/PPS/Verpakking/impl/DoosLosseOnderdelen.cls.xml	(.../DoosLosseOnderdelen.cls.xml)	(revision 69271)
@@ -98,9 +98,9 @@
 		Try {
 			Set DoosService = ##class(APPS.Verpakking.DoosService).%New()
 			Do DoosService.GeefDoos(..#OptiGroep, ..#OptiIDLosseOnderdelen, .MachineID, .Qty, .Params, ProductID, .SnijPrioriteit, BaseRef, .CallBack)	
-			Set Status = $$$OK
+			Set Status = ##class(BL.Sys.Proxy.pxStatus).Create(1)
 		} Catch {
-			Set Status = $$$ERROR($$$GeneralError, "GeefDoos fout")
+			Set Status = ##class(BL.Sys.Proxy.pxStatus).Create(0, "GeefDoos fout")
 			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 			#dim Logger = ##class(vhLib.Logger).%New("VH doos service").Error("GeefDoos", "Er is iets fout gelopen bij het verwerken van GeefDoos. OptiID: '"_..#OptiGroep_ " "_..#OptiIDLosseOnderdelen_"', PRNr: '"_ ProductID _"', MachineID: '"_ MachineID _"'."_Exception.GeefOmschrijving())
 		}
Index: BL/PPS/KAD/OptiBox.cls.xml
===================================================================
diff -u -r69183 -r69271
--- BL/PPS/KAD/OptiBox.cls.xml	(.../OptiBox.cls.xml)	(revision 69183)
+++ BL/PPS/KAD/OptiBox.cls.xml	(.../OptiBox.cls.xml)	(revision 69271)
@@ -149,9 +149,9 @@
 		Try {
 			Set DoosService = ##class(APPS.Verpakking.DoosService).%New()
 			Do DoosService.GeefDoos($$$SplitID(OptiID), .MachineID, .Qty, .Params, .PRNr, .SnijPrioriteit, BaseRef, .CallBack)
-			Set Status = $$$OK 
+			Set Status = ##class(BL.Sys.Proxy.pxStatus).Create(1) 
 		} Catch {
-			Set Status = $$$ERROR($$$GeneralError, "GeefDoos fout")
+			Set Status = ##class(BL.Sys.Proxy.pxStatus).Create(0, "GeefDoos fout")
 			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 			#dim Logger = ##class(vhLib.Logger).%New("VH doos service").Debug("GeefDoos", "Er is iets fout gelopen bij het verwerken van GeefDoos. OptiID: '"_OptiID_"', PRNr: '"_ PRNr _"', MachineID: '"_ MachineID _"'."_Exception.GeefOmschrijving())
 		}
Index: BL/PPS/TBX/OptiBox.cls.xml
===================================================================
diff -u -r69183 -r69271
--- BL/PPS/TBX/OptiBox.cls.xml	(.../OptiBox.cls.xml)	(revision 69183)
+++ BL/PPS/TBX/OptiBox.cls.xml	(.../OptiBox.cls.xml)	(revision 69271)
@@ -466,9 +466,9 @@
 	Try {
 		Set DoosService = ##class(APPS.Verpakking.DoosService).%New()
 		Do DoosService.GeefDoos($$$SplitID(OptiID), .MachineID, .Aantal, .Params, .PRNr, .Prioriteit, BaseRef, .CallBack)
-		Set Status = $$$OK 	
+		Set Status = ##class(BL.Sys.Proxy.pxStatus).Create(1)	
 	} Catch {
-		Set Status = $$$ERROR($$$GeneralError, "GeefDoos fout")
+		Set Status = ##class(BL.Sys.Proxy.pxStatus).Create(0, "GeefDoos fout")
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		#dim Logger = ##class(vhLib.Logger).%New("VH doos service").Debug("GeefDoos", "Er is iets fout gelopen bij het verwerken van GeefDoos. OptiID: '"_OptiID_"', PRNr: '"_ PRNr _"', MachineID: '"_ MachineID _"'."_Exception.GeefOmschrijving())
 	}
Index: APPS/Halux/PPS/TAORVerpakking/impl/DoosLade.cls.xml
===================================================================
diff -u -r69183 -r69271
--- APPS/Halux/PPS/TAORVerpakking/impl/DoosLade.cls.xml	(.../DoosLade.cls.xml)	(revision 69183)
+++ APPS/Halux/PPS/TAORVerpakking/impl/DoosLade.cls.xml	(.../DoosLade.cls.xml)	(revision 69271)
@@ -168,9 +168,9 @@
 			..DoosType = ##class(APPS.Halux.PPS.Verpakking.enu.DoosTypes).VouwErrondDoos(): ..#OptiIDVouwErrondDoos,
 			1: ..#OptiIDDoosMetDeksel)
 			Do DoosService.GeefDoos(..#OptiGroep, OptiID, .MachineID, Qty, .Params, ProductID, .SnijPrioriteit, BaseRef, .CallBack)	
-			Set Status = $$$OK 
+			Set Status = ##class(BL.Sys.Proxy.pxStatus).Create(1) 
 		} Catch {
-			Set Status = $$$ERROR($$$GeneralError, "GeefDoos fout")
+			Set Status = ##class(BL.Sys.Proxy.pxStatus).Create(0, "GeefDoos fout")
 			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 			#dim Logger = ##class(vhLib.Logger).%New("VH doos service").Error("GeefDoos", "Er is iets fout gelopen bij het verwerken van GeefDoos. OptiID: '"_..#OptiGroep _" "_ ..#OptiIDDoosMetDeksel_"', PRNr: '"_ ProductID _"', MachineID: '"_ MachineID _"'."_Exception.GeefOmschrijving())
 		}