Index: BL/PPS/KAD/OptiBox.cls.xml
===================================================================
diff -u -r29059 -r68406
--- BL/PPS/KAD/OptiBox.cls.xml	(.../OptiBox.cls.xml)	(revision 29059)
+++ BL/PPS/KAD/OptiBox.cls.xml	(.../OptiBox.cls.xml)	(revision 68406)
@@ -141,7 +141,15 @@
 	Set OptiID=..#obSimple
 	;do WAIP^vhDBG(15,"KAD Params",.Params)
 	Set Status=##class(BL.Prod.OptiBox.Optimize).OneBox($$$SplitID(OptiID), .Params, Qty, BaseRef, .PRNr, .CallBack, .SnijPrioriteit, .PPSOutput, .MachineID)
-
+	
+	Try {
+		Set DoosService = ##class(APPS.Verpakking.DoosService).%New()
+		Do DoosService.GeefDoos($$$SplitID(OptiID), .MachineID, .Qty, .Params, .SnijPrioriteit)	
+	} Catch {
+		#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 _"'.")
+	}
+	
 	Quit Status
 ]]></Implementation>
 </Method>