Index: BL/PPS/KAD/OptiBox.cls.xml
===================================================================
diff -u -r69388 -r69603
--- BL/PPS/KAD/OptiBox.cls.xml	(.../OptiBox.cls.xml)	(revision 69388)
+++ BL/PPS/KAD/OptiBox.cls.xml	(.../OptiBox.cls.xml)	(revision 69603)
@@ -148,7 +148,7 @@
 	If (##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.Verpakking.Machine."_MachineID_"_Codepad") = "NodeRed") {
 		Try {
 			Set DoosService = ##class(APPS.Verpakking.DoosService).%New()
-			Do DoosService.GeefDoos($$$SplitID(OptiID), .MachineID, .Qty, .Params, .PRNr, .SnijPrioriteit, BaseRef, .CallBack)
+			Do DoosService.GeefDoos($$$SplitID(OptiID), .MachineID, .Qty, .Params, .PRNr, .SnijPrioriteit, BaseRef, .CallBack, "")
 			Set Status = ##class(BL.Sys.Proxy.pxStatus).Create(1) 
 		} Catch {
 			Set Status = ##class(BL.Sys.Proxy.pxStatus).Create(0, "GeefDoos fout")
Index: APPS/Halux/PPS/Verpakking/impl/DoosLosseOnderdelen.cls.xml
===================================================================
diff -u -r69388 -r69603
--- APPS/Halux/PPS/Verpakking/impl/DoosLosseOnderdelen.cls.xml	(.../DoosLosseOnderdelen.cls.xml)	(revision 69388)
+++ APPS/Halux/PPS/Verpakking/impl/DoosLosseOnderdelen.cls.xml	(.../DoosLosseOnderdelen.cls.xml)	(revision 69603)
@@ -97,7 +97,7 @@
 	If (##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.Verpakking.Machine."_MachineID_"_Codepad") = "NodeRed") {
 		Try {
 			Set DoosService = ##class(APPS.Verpakking.DoosService).%New()
-			Do DoosService.GeefDoos(..#OptiGroep, ..#OptiIDLosseOnderdelen, .MachineID, .Qty, .Params, ProductID, .SnijPrioriteit, BaseRef, .CallBack)	
+			Do DoosService.GeefDoos(..#OptiGroep, ..#OptiIDLosseOnderdelen, .MachineID, .Qty, .Params, ProductID, .SnijPrioriteit, BaseRef, .CallBack, "")	
 			Set Status = ##class(BL.Sys.Proxy.pxStatus).Create(1)
 		} Catch {
 			Set Status = ##class(BL.Sys.Proxy.pxStatus).Create(0, "GeefDoos fout")
Index: APPS/Halux/PPS/TAORVerpakking/impl/DoosLade.cls.xml
===================================================================
diff -u -r69388 -r69603
--- APPS/Halux/PPS/TAORVerpakking/impl/DoosLade.cls.xml	(.../DoosLade.cls.xml)	(revision 69388)
+++ APPS/Halux/PPS/TAORVerpakking/impl/DoosLade.cls.xml	(.../DoosLade.cls.xml)	(revision 69603)
@@ -167,7 +167,7 @@
 			..DoosType = ##class(APPS.Halux.PPS.Verpakking.enu.DoosTypes).Flatpack(): ..#OptiIDFlatpack,
 			..DoosType = ##class(APPS.Halux.PPS.Verpakking.enu.DoosTypes).VouwErrondDoos(): ..#OptiIDVouwErrondDoos,
 			1: ..#OptiIDDoosMetDeksel)
-			Do DoosService.GeefDoos(..#OptiGroep, OptiID, .MachineID, Qty, .Params, ProductID, .SnijPrioriteit, BaseRef, .CallBack)	
+			Do DoosService.GeefDoos(..#OptiGroep, OptiID, .MachineID, Qty, .Params, ProductID, .SnijPrioriteit, BaseRef, .CallBack, "")	
 			Set Status = ##class(BL.Sys.Proxy.pxStatus).Create(1) 
 		} Catch {
 			Set Status = ##class(BL.Sys.Proxy.pxStatus).Create(0, "GeefDoos fout")
Index: BL/PPS/TBX/OptiBox.cls.xml
===================================================================
diff -u -r69388 -r69603
--- BL/PPS/TBX/OptiBox.cls.xml	(.../OptiBox.cls.xml)	(revision 69388)
+++ BL/PPS/TBX/OptiBox.cls.xml	(.../OptiBox.cls.xml)	(revision 69603)
@@ -465,7 +465,7 @@
 <Implementation><![CDATA[
 	Try {
 		Set DoosService = ##class(APPS.Verpakking.DoosService).%New()
-		Do DoosService.GeefDoos($$$SplitID(OptiID), .MachineID, .Aantal, .Params, .PRNr, .Prioriteit, BaseRef, .CallBack)
+		Do DoosService.GeefDoos($$$SplitID(OptiID), .MachineID, .Aantal, .Params, .PRNr, .Prioriteit, BaseRef, .CallBack, "")
 		Set Status = ##class(BL.Sys.Proxy.pxStatus).Create(1)	
 	} Catch {
 		Set Status = ##class(BL.Sys.Proxy.pxStatus).Create(0, "GeefDoos fout")
Index: APPS/Halux/PPS/Verpakking/impl/KartonSnijVisitor.cls.xml
===================================================================
diff -u -r69388 -r69603
--- APPS/Halux/PPS/Verpakking/impl/KartonSnijVisitor.cls.xml	(.../KartonSnijVisitor.cls.xml)	(revision 69388)
+++ APPS/Halux/PPS/Verpakking/impl/KartonSnijVisitor.cls.xml	(.../KartonSnijVisitor.cls.xml)	(revision 69603)
@@ -93,7 +93,7 @@
 	If (##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.Verpakking.Machine."_UitvoeringInfo.MachineID_"_Codepad") = "NodeRed") {
 		Try {
 			Set DoosService = ##class(APPS.Verpakking.DoosService).%New()
-			Do DoosService.GeefDoos(UitvoeringInfo.DoosGroep, UitvoeringInfo.DoosNaam, UitvoeringInfo.MachineID, UitvoeringInfo.AantalDozen, .Params, UitvoeringInfo.ProductID, $S(UitvoeringInfo.IsRework: 7, 1: UitvoeringInfo.SnijPrioriteit), "T." _ UitvoeringInfo.ToeleveringID, CallBack)	
+			Do DoosService.GeefDoos(UitvoeringInfo.DoosGroep, UitvoeringInfo.DoosNaam, UitvoeringInfo.MachineID, UitvoeringInfo.AantalDozen, .Params, UitvoeringInfo.ProductID, $S(UitvoeringInfo.IsRework: 7, 1: UitvoeringInfo.SnijPrioriteit), "T." _ UitvoeringInfo.ToeleveringID, CallBack, "")	
 			Set Status = $$$OK 
 		} Catch {
 			Set Status = $$$ERROR($$$GeneralError, "GeefDoos fout")