Index: BL/PPS/OL/OptiBox.cls.xml
===================================================================
diff -u -r51418 -r68406
--- BL/PPS/OL/OptiBox.cls.xml	(.../OptiBox.cls.xml)	(revision 51418)
+++ BL/PPS/OL/OptiBox.cls.xml	(.../OptiBox.cls.xml)	(revision 68406)
@@ -158,6 +158,8 @@
 	Set BasisRef="OL."_$I(^Prod.OptiBox.BaseRefD)
 	Set MachineID=$G(MachineID,"VH")
 	Do ##class(BL.Prod.OptiBox.Optimize).OneBox("PR",PRNr,,$G(Qty,1),BasisRef,PRNr,,9,1,MachineID)
+	
+	Set Logger = ##class(vhLib.Logger).%New("VH doos service").Debug("GeefDoos", "Hier is nog geen implementatie, checken hoe vaak we hier komen: ClassMethod SnijBoxDirect.")
 ]]></Implementation>
 </Method>
 
Index: APPS/Halux/PPS/TAORVerpakking/impl/DoosLade.cls.xml
===================================================================
diff -u -r57921 -r68406
--- APPS/Halux/PPS/TAORVerpakking/impl/DoosLade.cls.xml	(.../DoosLade.cls.xml)	(revision 57921)
+++ APPS/Halux/PPS/TAORVerpakking/impl/DoosLade.cls.xml	(.../DoosLade.cls.xml)	(revision 68406)
@@ -157,6 +157,14 @@
 	} Else {
 		Set Status = OptiBox.OneBox(..#OptiGroep, ..#OptiIDDoosMetDeksel, .Params, Qty, BaseRef, ProductID, .CallBack, .SnijPrioriteit, PPSOutput, .MachineID)
 	}
+	
+	Try {
+		Set DoosService = ##class(APPS.Verpakking.DoosService).%New()
+		Do DoosService.GeefDoos(..#OptiGroep, ..#OptiIDDoosMetDeksel, .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: '"_..#OptiGroep _" "_ ..#OptiIDDoosMetDeksel_"', PRNr: '"_ ProductID _"', MachineID: '"_ MachineID _"'.")
+	}
 ]]></Implementation>
 </Method>
 </Class>
Index: WS/Prod/OptiBox/OptiServer.cls.xml
===================================================================
diff -u -r32575 -r68406
--- WS/Prod/OptiBox/OptiServer.cls.xml	(.../OptiServer.cls.xml)	(revision 32575)
+++ WS/Prod/OptiBox/OptiServer.cls.xml	(.../OptiServer.cls.xml)	(revision 68406)
@@ -547,7 +547,7 @@
 
 	Kill Params
 	Do CalcParams.AsLocal(Params)
-
+	Set Logger = ##class(vhLib.Logger).%New("VH doos service").Debug("GeefDoos", "Hier is nog geen implementatie, checken hoe vaak we hier komen: OptimizeViaProduct met PRNr: "_ProductNr)
 	Quit ##class(BL.Prod.OptiBox.Optimize).OneBox($$$bdgProduct,ProductNr,.Params,Qty,BasisRef,ProductNr,SnijPrioriteit,PPSOutput,MachineID)
 ]]></Implementation>
 </Method>
Index: BL/PPS/TBX/OptiBox.cls.xml
===================================================================
diff -u -r67823 -r68406
--- BL/PPS/TBX/OptiBox.cls.xml	(.../OptiBox.cls.xml)	(revision 67823)
+++ BL/PPS/TBX/OptiBox.cls.xml	(.../OptiBox.cls.xml)	(revision 68406)
@@ -440,6 +440,15 @@
 	Else  Do
 	. ;k %Params m %Params=Params zw %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 $G(Status)
 ]]></Implementation>
 </Method>
Index: BL/Prod/OptiBox/Diverse.cls.xml
===================================================================
diff -u -r29992 -r68406
--- BL/Prod/OptiBox/Diverse.cls.xml	(.../Diverse.cls.xml)	(revision 29992)
+++ BL/Prod/OptiBox/Diverse.cls.xml	(.../Diverse.cls.xml)	(revision 68406)
@@ -107,6 +107,7 @@
 	. 
 	. If Type="OPTI" Do 
 	. . Set pxStatus=##class(BL.Prod.OptiBox.Optimize).OneBox($$$bdgProduct, PRNr, , Aantal, BasisRef , PRNr,.CallBack,SnijPrioriteit,PPSOutput,MachineID)
+	. . Set Logger = ##class(vhLib.Logger).%New("VH doos service").Debug("GeefDoos", "Hier is nog geen implementatie, checken hoe vaak we hier komen: OneBox OPTI.")
  	.
  	. If Type="KAD" Do
  	. . Set pxStatus=##class(BL.PPS.KAD.OptiBox).%New().SnijOne(PRNr, Aantal , 1, BasisRef, .CallBack, SnijPrioriteit, PPSOutput, MachineID)
Index: APPS/Halux/PPS/Verpakking/impl/KartonSnijVisitor.cls.xml
===================================================================
diff -u -r29059 -r68406
--- APPS/Halux/PPS/Verpakking/impl/KartonSnijVisitor.cls.xml	(.../KartonSnijVisitor.cls.xml)	(revision 29059)
+++ APPS/Halux/PPS/Verpakking/impl/KartonSnijVisitor.cls.xml	(.../KartonSnijVisitor.cls.xml)	(revision 68406)
@@ -69,6 +69,14 @@
 			0,		// PPSOutput
 			UitvoeringInfo.MachineID	
 			)
+	
+	Try {
+		Set DoosService = ##class(APPS.Verpakking.DoosService).%New()
+		Do DoosService.GeefDoos(UitvoeringInfo.DoosGroep, UitvoeringInfo.DoosNaam, UitvoeringInfo.MachineID, UitvoeringInfo.AantalDozen, .Params, $S(UitvoeringInfo.IsRework: 7, 1: UitvoeringInfo.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. Doosgroep: '"_UitvoeringInfo.DoosGroep_"', DoosNaam: '"_ UitvoeringInfo.DoosNaam _", PRNr: '"_ UitvoeringInfo.ProductID _"', MachineID: '"_ UitvoeringInfo.MachineID _"'.")
+	}
 			
 	If ProxyStatus.IsOK {
 		Set Status = $$$OK 
Index: APPS/Halux/PPS/Verpakking/impl/DoosLosseOnderdelen.cls.xml
===================================================================
diff -u -r33375 -r68406
--- APPS/Halux/PPS/Verpakking/impl/DoosLosseOnderdelen.cls.xml	(.../DoosLosseOnderdelen.cls.xml)	(revision 33375)
+++ APPS/Halux/PPS/Verpakking/impl/DoosLosseOnderdelen.cls.xml	(.../DoosLosseOnderdelen.cls.xml)	(revision 68406)
@@ -91,6 +91,14 @@
 	Set PPSOutput=0 ; rechtdoor (bij een vorige machine kon men links, rechts of rechtdoor uitsluizen)
 
 	Set Status=OptiBox.OneBox(..#OptiGroep,..#OptiIDLosseOnderdelen, .Params, Qty, BaseRef, ProductID, .CallBack, .SnijPrioriteit, PPSOutput, .MachineID)
+	
+	Try {
+		Set DoosService = ##class(APPS.Verpakking.DoosService).%New()
+		Do DoosService.GeefDoos(..#OptiGroep, ..#OptiIDLosseOnderdelen, .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: '"_..#OptiGroep_ " "_..#OptiIDLosseOnderdelen_"', PRNr: '"_ ProductID _"', MachineID: '"_ MachineID _"'.")
+	}
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/Halux/PPS/Verpakking/impl/LoggendeOptiBox.cls.xml
===================================================================
diff -u -r29059 -r68406
--- APPS/Halux/PPS/Verpakking/impl/LoggendeOptiBox.cls.xml	(.../LoggendeOptiBox.cls.xml)	(revision 29059)
+++ APPS/Halux/PPS/Verpakking/impl/LoggendeOptiBox.cls.xml	(.../LoggendeOptiBox.cls.xml)	(revision 68406)
@@ -14,6 +14,7 @@
 	Set Logger = ##class(vhLib.Logger).%New("HALUX.KARTON")
 	Do Logger.Debug("Optibox DEV OneBox", "ObjType: " _ ObjType _ " ObjRef: " _ ObjRef _ " Qty: " _ Qty _ " BasisRef: " _ BasisRef _ " PRNr: " _ PRNr _ " MachineID: " _ MachineID)
 	Do $CLASSMETHOD($LG(CallBack,1), $LG(CallBack,2), ObjType, ObjRef, $LG(CallBack,3), "optiid?", "S", "F", "msg?")
+	Set Logger = ##class(vhLib.Logger).%New("VH doos service").Debug("GeefDoos", "Hier is nog geen implementatie, checken hoe vaak we hier komen: OneBox dev.")
 	Quit ##class(BL.Sys.Proxy.pxStatus).Create(1,,"OK")
 ]]></Implementation>
 </Method>
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>