Index: APPS/Halux/PPS/TAORVerpakking/impl/DoosLade.cls.xml
===================================================================
diff -u -r69113 -r69183
--- APPS/Halux/PPS/TAORVerpakking/impl/DoosLade.cls.xml	(.../DoosLade.cls.xml)	(revision 69113)
+++ APPS/Halux/PPS/TAORVerpakking/impl/DoosLade.cls.xml	(.../DoosLade.cls.xml)	(revision 69183)
@@ -139,35 +139,41 @@
 <Implementation><![CDATA[
 	Set MachineID=##class(BL.Prod.OptiBox.enu.SnijMachine).Taor() ; quick and dirty
 	/* TO DO : MachineID moet afgeleid worden van werkpost (VerpakLookAhead) of bij herwerken via de login van de oude vHintra applicatie*/
-
+	
 	Kill Params ; labels moeten in kapitalen
 	Set Params("BREEDTE") = ..Breedte
 	Set Params("DIEPTE") = ..Diepte
 	Set Params("HOOGTE") = ..Hoogte
 	Set PPSOutput=0 ; rechtdoor (bij een vorige machine kon men links, rechts of rechtdoor uitsluizen)
-	If (..DoosType = ##class(APPS.Halux.PPS.Verpakking.enu.DoosTypes).BodemDeksel()) {
-		Set Status = OptiBox.OneBox(..#OptiGroep, ..#OptiIDBodemDeksel, .Params, Qty, BaseRef, ProductID, .CallBack, .SnijPrioriteit, PPSOutput, .MachineID)
-	} ElseIf (..DoosType = ##class(APPS.Halux.PPS.Verpakking.enu.DoosTypes).Flatpack()) {
-		Set Params("K1") = ..K1
-		Set Params("K2") = ..K2
-		Set Params("K3") = ..K3
-		Set Status = OptiBox.OneBox(..#OptiGroep, ..#OptiIDFlatpack, .Params, Qty, BaseRef, ProductID, .CallBack, .SnijPrioriteit, PPSOutput, .MachineID)
-	} ElseIf (..DoosType=##class(APPS.Halux.PPS.Verpakking.enu.DoosTypes).VouwErrondDoos()) {
-		Set Status = OptiBox.OneBox(..#OptiGroep, ..#OptiIDVouwErrondDoos, .Params, Qty, BaseRef, ProductID, .CallBack, .SnijPrioriteit, PPSOutput, .MachineID)
-	} Else {
-		Set Status = OptiBox.OneBox(..#OptiGroep, ..#OptiIDDoosMetDeksel, .Params, Qty, BaseRef, ProductID, .CallBack, .SnijPrioriteit, PPSOutput, .MachineID)
+	If (##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.Verpakking.Machine."_MachineID_"_Codepad") = "Cache") {
+		If (..DoosType = ##class(APPS.Halux.PPS.Verpakking.enu.DoosTypes).BodemDeksel()) {
+			Set Status = OptiBox.OneBox(..#OptiGroep, ..#OptiIDBodemDeksel, .Params, Qty, BaseRef, ProductID, .CallBack, .SnijPrioriteit, PPSOutput, .MachineID)
+		} ElseIf (..DoosType = ##class(APPS.Halux.PPS.Verpakking.enu.DoosTypes).Flatpack()) {
+			Set Params("K1") = ..K1
+			Set Params("K2") = ..K2
+			Set Params("K3") = ..K3
+			Set Status = OptiBox.OneBox(..#OptiGroep, ..#OptiIDFlatpack, .Params, Qty, BaseRef, ProductID, .CallBack, .SnijPrioriteit, PPSOutput, .MachineID)
+		} ElseIf (..DoosType=##class(APPS.Halux.PPS.Verpakking.enu.DoosTypes).VouwErrondDoos()) {
+			Set Status = OptiBox.OneBox(..#OptiGroep, ..#OptiIDVouwErrondDoos, .Params, Qty, BaseRef, ProductID, .CallBack, .SnijPrioriteit, PPSOutput, .MachineID)
+		} Else {
+			Set Status = OptiBox.OneBox(..#OptiGroep, ..#OptiIDDoosMetDeksel, .Params, Qty, BaseRef, ProductID, .CallBack, .SnijPrioriteit, PPSOutput, .MachineID)
+		}
 	}
 	
-	Try {
-		Set DoosService = ##class(APPS.Verpakking.DoosService).%New()
-		#dim OptiID As %String = $Select(..DoosType = ##class(APPS.Halux.PPS.Verpakking.enu.DoosTypes).BodemDeksel(): ..#OptiIDBodemDeksel,
-		..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)	
-	} 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 _"'."_Exception.GeefOmschrijving())
+	If (##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.Verpakking.Machine."_MachineID_"_Codepad") = "NodeRed") {
+		Try {
+			Set DoosService = ##class(APPS.Verpakking.DoosService).%New()
+			#dim OptiID As %String = $Select(..DoosType = ##class(APPS.Halux.PPS.Verpakking.enu.DoosTypes).BodemDeksel(): ..#OptiIDBodemDeksel,
+			..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)	
+			Set Status = $$$OK 
+		} Catch {
+			Set Status = $$$ERROR($$$GeneralError, "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())
+		}
 	}
 ]]></Implementation>
 </Method>