Index: BL/PPS/WPVerpakOptibox.cls.xml
===================================================================
diff -u -r29059 -r69183
--- BL/PPS/WPVerpakOptibox.cls.xml	(.../WPVerpakOptibox.cls.xml)	(revision 29059)
+++ BL/PPS/WPVerpakOptibox.cls.xml	(.../WPVerpakOptibox.cls.xml)	(revision 69183)
@@ -12,7 +12,10 @@
 	
 	Do ..SnijService.SnijVoorLade(MaatwerkProduct.GeefVariant()_"."_QueueItem.TOENr_".LO", CallBack, Prioriteit, MachineID,1) ; optimize with immidiate cut
 	
-	Set QueueItem.WPVerpak.SnijStatus=$$$osOptimize ; Queued for optimalisatie
+	If (##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.Verpakking.Machine."_MachineID_"_Codepad") = "Cache") {
+		Set QueueItem.WPVerpak.SnijStatus=$$$osOptimize ; Queued for optimalisatie
+	}
+	
 	Quit ##class(BL.Sys.Proxy.pxStatus).Create(1, "Snijopdracht gegeven", "", "")
 ]]></Implementation>
 </Method>
Index: APPS/Halux/PPS/Verpakking/impl/DoosLosseOnderdelen.cls.xml
===================================================================
diff -u -r69113 -r69183
--- APPS/Halux/PPS/Verpakking/impl/DoosLosseOnderdelen.cls.xml	(.../DoosLosseOnderdelen.cls.xml)	(revision 69113)
+++ APPS/Halux/PPS/Verpakking/impl/DoosLosseOnderdelen.cls.xml	(.../DoosLosseOnderdelen.cls.xml)	(revision 69183)
@@ -89,16 +89,22 @@
 	Set Params("HOOGTE")=..Hoogte
 	Set Params("BREEDTECP")=..BreedteCorpusProfiel
 	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, 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_ " "_..#OptiIDLosseOnderdelen_"', PRNr: '"_ ProductID _"', MachineID: '"_ MachineID _"'."_Exception.GeefOmschrijving())
+	If (##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.Verpakking.Machine."_MachineID_"_Codepad") = "Cache") {
+		Set Status=OptiBox.OneBox(..#OptiGroep,..#OptiIDLosseOnderdelen, .Params, Qty, BaseRef, ProductID, .CallBack, .SnijPrioriteit, PPSOutput, .MachineID)
 	}
+	
+	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)	
+			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_ " "_..#OptiIDLosseOnderdelen_"', PRNr: '"_ ProductID _"', MachineID: '"_ MachineID _"'."_Exception.GeefOmschrijving())
+		}
+	}
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/Halux/PPS/Verpakking/impl/KartonSnijVisitor.cls.xml
===================================================================
diff -u -r69113 -r69183
--- APPS/Halux/PPS/Verpakking/impl/KartonSnijVisitor.cls.xml	(.../KartonSnijVisitor.cls.xml)	(revision 69113)
+++ APPS/Halux/PPS/Verpakking/impl/KartonSnijVisitor.cls.xml	(.../KartonSnijVisitor.cls.xml)	(revision 69183)
@@ -67,34 +67,41 @@
 	#dim CallBack As %List = $LB("APPS.Halux.PPS.Verpakking.impl.KartonSnijder", "CallBackOptimizer", UitvoeringInfo.WerklijstItemID)
 	#dim Status As %Status
 	
-	#dim ProxyStatus As BL.Sys.Proxy.pxStatus
-	Set ProxyStatus = ..Optibox.OneBox(
-			UitvoeringInfo.DoosGroep,
-			UitvoeringInfo.DoosNaam,
-			.Params,
-			UitvoeringInfo.AantalDozen,
-			"T." _ UitvoeringInfo.ToeleveringID,
-			UitvoeringInfo.ProductID,
-			CallBack,
-			$S(UitvoeringInfo.IsRework: 7, 1: UitvoeringInfo.SnijPrioriteit),
-			0,		// PPSOutput
-			UitvoeringInfo.MachineID	
-			)
-	
-	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)	
-	} 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 _"'."_Exception.GeefOmschrijving())
+	If (##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.Verpakking.Machine."_UitvoeringInfo.MachineID_"_Codepad") = "Cache") {
+		#dim ProxyStatus As BL.Sys.Proxy.pxStatus
+		Set ProxyStatus = ..Optibox.OneBox(
+				UitvoeringInfo.DoosGroep,
+				UitvoeringInfo.DoosNaam,
+				.Params,
+				UitvoeringInfo.AantalDozen,
+				"T." _ UitvoeringInfo.ToeleveringID,
+				UitvoeringInfo.ProductID,
+				CallBack,
+				$S(UitvoeringInfo.IsRework: 7, 1: UitvoeringInfo.SnijPrioriteit),
+				0,		// PPSOutput
+				UitvoeringInfo.MachineID	
+				)
+				
+		If ProxyStatus.IsOK {
+			Set Status = $$$OK 
+		} Else {
+			Do ##class(vhLib.Logger).%New("Optibox").WarningMail("SnijDoos",ProxyStatus.FullMsg()_$C(13,10)_$C(13,10)_$$GetStackToString^vhLib.System())
+			Set Status = $$$ERROR($$$GeneralError, "Optimizer fout")
+		}
 	}
-			
-	If ProxyStatus.IsOK {
-		Set Status = $$$OK 
-	} Else {
-		Do ##class(vhLib.Logger).%New("Optibox").WarningMail("SnijDoos",ProxyStatus.FullMsg()_$C(13,10)_$C(13,10)_$$GetStackToString^vhLib.System())
-		Set Status = $$$ERROR($$$GeneralError, "Optimizer fout")
-	}
+	
+	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)	
+			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. Doosgroep: '"_UitvoeringInfo.DoosGroep_"', DoosNaam: '"_ UitvoeringInfo.DoosNaam _", PRNr: '"_ UitvoeringInfo.ProductID _"', MachineID: '"_ UitvoeringInfo.MachineID _"'."_Exception.GeefOmschrijving())
+		}
+	}	
+	
 	Quit Status
 ]]></Implementation>
 </Method>
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>
Index: vhUnitTest/APPS/Verpakking/DoosService/Test.cls.xml
===================================================================
diff -u -r69163 -r69183
--- vhUnitTest/APPS/Verpakking/DoosService/Test.cls.xml	(.../Test.cls.xml)	(revision 69163)
+++ vhUnitTest/APPS/Verpakking/DoosService/Test.cls.xml	(.../Test.cls.xml)	(revision 69183)
@@ -3,7 +3,7 @@
 <Class name="vhUnitTest.APPS.Verpakking.DoosService.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test: Standaard gedrag">
+<Method name="Test: Standaard gedrag bij configsetting die naar cache staat">
 <Implementation><![CDATA[
 	Set DoosFactoryMock = ##class(vhTest.Mock.APPS.Verpakking.DoosFactory).%New()
 	Set DoosAanvullerMock = ##class(vhTest.Mock.APPS.Verpakking.DoosAanvuller).%New()
@@ -16,7 +16,7 @@
 	#dim Aantal As %Decimal = 1
 	Kill Params
 	Set PRNr = "3098795"
-	Set Prioriteit = "DummyPrioriteit"
+	Set Prioriteit = "-1"
 	Set ProductGroep = "TBX"
 	Set ReceptNaam = "V1 Boxkap doos"
 	Set MachineID = ##class(APPS.Verpakking.enu.MachineID).HALUX()
@@ -40,7 +40,7 @@
 	Do OptimizerMock.VerwachtMethodCall("Optimize", DummyDoos, ProductGroep).DanReturn(DummyDoos).ExactAantalKeer(1)
 	Do SnijRequestMakerMock.VerwachtMethodCall("MaakSnijRequest", DummyDoos, MachineTechnologie, MachineID, Prioriteit, Aantal, BaseRef).DanReturn(DummyRequest).ExactAantalKeer(1)
 	Do SnijDoosServiceMock.VerwachtMethodCall("SnijDoos", DummyRequest).DanDoeNiks().ExactAantalKeer(1)
-	Do ProductApiMock.VerwachtMethodCall("GeefProduct", PRNr).DanDoeNiks().ExactAantalKeer(1)
+	Do ProductApiMock.VerwachtMethodCall("GeefProduct", PRNr).DanDoeNiks().ExactAantalKeer(0)
 	
 	Set DoosService = ##class(APPS.Verpakking.DoosService).%New(DoosFactoryMock, DoosAanvullerMock, OptimizerMock, SnijDoosServiceMock, SnijRequestMakerMock, ProductApiMock,)
 	Do DoosService.GeefDoos(ProductGroep, ReceptNaam, MachineID, Aantal, .Params, PRNr, Prioriteit, BaseRef, CallBack)
Index: BL/PPS/KAD/OptiBox.cls.xml
===================================================================
diff -u -r69113 -r69183
--- BL/PPS/KAD/OptiBox.cls.xml	(.../OptiBox.cls.xml)	(revision 69113)
+++ BL/PPS/KAD/OptiBox.cls.xml	(.../OptiBox.cls.xml)	(revision 69183)
@@ -140,16 +140,23 @@
 	Do ..GetParams(PRNr,ProdQty,.Params)
 	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, .PRNr, .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: '"_OptiID_"', PRNr: '"_ PRNr _"', MachineID: '"_ MachineID _"'."_Exception.GeefOmschrijving())
+	If (##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.Verpakking.Machine."_MachineID_"_Codepad") = "Cache") {
+		Set Status=##class(BL.Prod.OptiBox.Optimize).OneBox($$$SplitID(OptiID), .Params, Qty, BaseRef, .PRNr, .CallBack, .SnijPrioriteit, .PPSOutput, .MachineID)
 	}
 	
+	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)
+			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").Debug("GeefDoos", "Er is iets fout gelopen bij het verwerken van GeefDoos. OptiID: '"_OptiID_"', PRNr: '"_ PRNr _"', MachineID: '"_ MachineID _"'."_Exception.GeefOmschrijving())
+		}
+	}
+	
 	Quit Status
 ]]></Implementation>
 </Method>
Index: BL/PPS/TBX/WPVerpakOptibox.cls.xml
===================================================================
diff -u -r29059 -r69183
--- BL/PPS/TBX/WPVerpakOptibox.cls.xml	(.../WPVerpakOptibox.cls.xml)	(revision 29059)
+++ BL/PPS/TBX/WPVerpakOptibox.cls.xml	(.../WPVerpakOptibox.cls.xml)	(revision 69183)
@@ -10,11 +10,15 @@
 	Set BaseRef="T."_QueueItem.TOENr
 	Set CallBack=$LB("BL.PPS.WPVerpak","CBOptimizer",QueueItem.%Id())
 	Set pxStatus=%blPPSTBXOptiBox.SnijV1(..ProductID, 1, "V1", BaseRef, CallBack , Prioriteit, PPSOutput, MachineID) ; optimize with immediate cut
-	If $$$pxStatusIsOK(pxStatus) Do ; Queued voor optimalisatie
-	. Set QueueItem.WPLosOnderdeel.SnijStatus=$$$osOptimize ; Queued for optimalisatie
-	Else  Do
-	. Set QueueItem.WPLosOnderdeel.SnijStatus=$$$osError ; Error
-	. Set QueueItem.WPLosOnderdeel.Message=pxStatus.FullMsg()
+	
+	If (##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.Verpakking.Machine."_MachineID_"_Codepad") = "Cache") {
+		If $$$pxStatusIsOK(pxStatus) Do ; Queued voor optimalisatie
+		. Set QueueItem.WPLosOnderdeel.SnijStatus=$$$osOptimize ; Queued for optimalisatie
+		Else  Do
+		. Set QueueItem.WPLosOnderdeel.SnijStatus=$$$osError ; Error //Wss wordt hier error gezet voor grote doos TBX?
+		. Set QueueItem.WPLosOnderdeel.Message=pxStatus.FullMsg()
+	}
+	
 	Quit pxStatus
 ]]></Implementation>
 </Method>
Index: APPS/Verpakking/DoosService.cls.xml
===================================================================
diff -u -r69163 -r69183
--- APPS/Verpakking/DoosService.cls.xml	(.../DoosService.cls.xml)	(revision 69163)
+++ APPS/Verpakking/DoosService.cls.xml	(.../DoosService.cls.xml)	(revision 69183)
@@ -73,23 +73,24 @@
 <FormalSpec><![CDATA[ProductGroep:%String,ReceptNaam:%String,MachineID:APPS.Verpakking.enu.MachineID,Aantal:%Integer,&Params:%String,ProductId:%String,Prioriteit:%String="-1",BaseRef:%String,&CallBack:%List=""]]></FormalSpec>
 <Implementation><![CDATA[
 	If $$$Not(MachineID = ##class(APPS.Verpakking.enu.MachineID).VH()) {
+		If $$$Not($$$Server = "CACHE01") {
+			Set Prioriteit = "-1" 
+		} Else {
+			Set ..SnijDoosService.Location = "http://docker02-prd:1880/ws/cut-request/v2"
+		}		
+		
 		Set BaseRef = $Piece(BaseRef,".",1,2) //Bij TAOR komt er nog een 3e piece achter, dit zou verder in de flow anders voor fouten zorgen
 		#dim MachineTechnologie As APPS.Verpakking.enu.MachineTechnologie = ..GeefMachineTechnologie(MachineID)
 		#dim Doos As APPS.Verpakking.Doos = ..DoosFactory.MaakDoos(ProductGroep, ReceptNaam)
 		Do ..DoosAanvuller.VulAanBasisInformatieDoos(.Doos, .Params, ProductGroep, Prioriteit, MachineTechnologie)
 		Do ..Optimizer.Optimize(.Doos, ProductGroep)
-		/*
-		If (##class(TECH.StringUtils).Equals(ProductId, "3715382", "3715383", "3715394", "3715396", "3715398", "3715400", "3098795", "1239215")) {
-			Set ..SnijDoosService.Location = "http://docker02-prd:1880/ws/cut-request/v2"
-		}
-		*/
-		#dim Product As DOM.PM.Product = ..ProductAPI.GeefProduct(ProductId)
 		
 		#dim SnijData As DS.Prod.OptiBox.SnijData = ""
 		#dim OptiData As DS.Prod.OptiBox.OptiData
 		#dim SnijDef As DS.Prod.OptiBox.sub.emSnijDef
 		
-		If $G(CallBack) && (..GeefCodePadVanMachine(MachineTechnologie) = "NodeRed") {	//Er kan ook gesneden worden zonder CallBack: zoals rechtstreekse snijopdrachten via admin via F11 -> SnijDoos
+		If $G(CallBack) {	//Er kan ook gesneden worden zonder CallBack: zoals rechtstreekse snijopdrachten via admin via F11 -> SnijDoos
+			#dim Product As DOM.PM.Product = ..ProductAPI.GeefProduct(ProductId)
 			Set OptiData = ..MaakOptiData(Doos, BaseRef, Aantal, Product, MachineID, Prioriteit)
 			Set SnijData = ..MaakSnijData(Doos, BaseRef, OptiData, Product, MachineID, Prioriteit)
 			Set SnijDef = ..MaakSnijDef(Doos, SnijData)
@@ -102,7 +103,11 @@
 				Do WerklijstItemStatusUpdater.UpdateWerklijstItemStatusViaID($LG(CallBack,3), $$$False, ##class(APPS.Halux.PPS.Verpakking.enu.KartonMachineStatus).Geoptimaliseerd())
 			} ElseIf (..ProductTypeAPI.IsTandemboxProduct(ProductId) || ..ProductTypeAPI.IsTAORboxProduct(ProductId)) {
 				Set Queue = ##class(DS.PPS.TBX.Queue).%OpenId($LG(CallBack,3))
-				Set Queue.WPVerpak.SnijStatus = "Q"
+				If ##class(TECH.StringUtils).Equals(Doos.Recipe, "214", "218") { //Losse onderdelen + complexe scheiding kartons
+					Set Queue.WPLosOnderdeel.SnijStatus = "Q" 
+				} Else {
+					Set Queue.WPVerpak.SnijStatus = "Q"
+				}
 			} Else {
 				Do ..Logger.Error("GeefDoos", "Voor dit maatwerktype is nog geen implementatie voorzien in de de VHDoosService.")
 			}
Index: BL/PPS/TBX/OptiBox.cls.xml
===================================================================
diff -u -r69113 -r69183
--- BL/PPS/TBX/OptiBox.cls.xml	(.../OptiBox.cls.xml)	(revision 69113)
+++ BL/PPS/TBX/OptiBox.cls.xml	(.../OptiBox.cls.xml)	(revision 69183)
@@ -423,42 +423,57 @@
 	Do ..GetV1Params(PRNr, Qty, .Params, .OptiID,"S")
 	Set Gewicht=$$$PRGet($$$Gewicht)
 	Set:$G(BaseRef)="" BaseRef="X."_$I(^Prod.OptiBox.BaseRefD)
+	#dim KartonViaCache As %Boolean = (##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.Verpakking.Machine."_MachineID_"_Codepad") = "Cache")
+	#dim KartonViaNodeRed As %Boolean = (##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.Verpakking.Machine."_MachineID_"_Codepad") = "NodeRed")
 	If Usage="LOS" Do
 	. If $G(Params("LOQTY"))>0 Do
 	. . Set OptiID="TBX||V1 LosseOnderdelen"
 	. . Set Params("LOQTY")=Qty
-	. . Set Status=##class(BL.Prod.OptiBox.Optimize).OneBox($$$SplitID(OptiID), .Params, Qty, BaseRef, .PRNr, .CallBack, .SnijPrioriteit, .PPSOutput, .MachineID)
-	. . Do ..GeefDoos(OptiID, .MachineID, .Qty, .Params, .PRNr, .SnijPrioriteit, BaseRef, .CallBack)
+	. . If (KartonViaCache) Do
+	. . . Set Status = ##class(BL.Prod.OptiBox.Optimize).OneBox($$$SplitID(OptiID), .Params, Qty, BaseRef, .PRNr, .CallBack, .SnijPrioriteit, .PPSOutput, .MachineID)
+	. . If (KartonViaNodeRed) Do
+	. . . Set Status = ..GeefDoos(OptiID, .MachineID, .Qty, .Params, .PRNr, .SnijPrioriteit, BaseRef, .CallBack)
 	. If $G(Params("BKQTY"))>0 Do
 	. . Set OptiID="TBX||V1 Boxkap Doos"
 	. . Set OptiID="TBX||V1 Boxkap"
 	. . Set Params("BKQTY")=Qty
-	. . Set Status=##class(BL.Prod.OptiBox.Optimize).OneBox($$$SplitID(OptiID), .Params, Qty, BaseRef, .PRNr, .CallBack, .SnijPrioriteit, .PPSOutput, .MachineID)
-	. . Do ..GeefDoos(OptiID, .MachineID, .Qty, .Params, .PRNr, .SnijPrioriteit, BaseRef, .CallBack)
+	. . If (KartonViaCache) Do
+	. . . Set Status = ##class(BL.Prod.OptiBox.Optimize).OneBox($$$SplitID(OptiID), .Params, Qty, BaseRef, .PRNr, .CallBack, .SnijPrioriteit, .PPSOutput, .MachineID)
+	. . If (KartonViaNodeRed) Do
+	. . . Set Status = ..GeefDoos(OptiID, .MachineID, .Qty, .Params, .PRNr, .SnijPrioriteit, BaseRef, .CallBack)
 	Else  If Usage="V1" Do
 	. Set Params("LOQTY")=-1
 	. Set Params("BKQTY")=-1
-	. Set Status=##class(BL.Prod.OptiBox.Optimize).OneBox($$$SplitID(OptiID), .Params, Qty, BaseRef, .PRNr, .CallBack, .SnijPrioriteit, .PPSOutput, .MachineID)
-	. Do ..GeefDoos(OptiID, .MachineID, .Qty, .Params, .PRNr, .SnijPrioriteit, BaseRef, .CallBack)
+	. If (KartonViaCache) Do
+	. . Set Status = ##class(BL.Prod.OptiBox.Optimize).OneBox($$$SplitID(OptiID), .Params, Qty, BaseRef, .PRNr, .CallBack, .SnijPrioriteit, .PPSOutput, .MachineID)
+	. If (KartonViaNodeRed) Do
+	. . Set Status = ..GeefDoos(OptiID, .MachineID, .Qty, .Params, .PRNr, .SnijPrioriteit, BaseRef, .CallBack)
 	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)
-	. Do ..GeefDoos(OptiID, .MachineID, .Qty, .Params, .PRNr, .SnijPrioriteit, BaseRef, .CallBack)
+	. If (KartonViaCache) Do
+	. . Set Status = ##class(BL.Prod.OptiBox.Optimize).OneBox($$$SplitID(OptiID), .Params, Qty, BaseRef, .PRNr, .CallBack, .SnijPrioriteit, .PPSOutput, .MachineID)
+	. If (KartonViaNodeRed) Do
+	. . Set Status = ..GeefDoos(OptiID, .MachineID, .Qty, .Params, .PRNr, .SnijPrioriteit, BaseRef, .CallBack)
 	
 	Quit $G(Status)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefDoos">
 <FormalSpec><![CDATA[OptiID:%String,&MachineID:APPS.Verpakking.enu.MachineID,&Aantal:%Integer,&Params:%String,&PRNr:%String,&Prioriteit:%String="Simulatie",BaseRef:%String,&CallBack:%List]]></FormalSpec>
+<ReturnType>%Status</ReturnType>
 <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 = $$$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").Debug("GeefDoos", "Er is iets fout gelopen bij het verwerken van GeefDoos. OptiID: '"_OptiID_"', PRNr: '"_ PRNr _"', MachineID: '"_ MachineID _"'."_Exception.GeefOmschrijving())
 	}
+	
+	Quit $G(Status)
 ]]></Implementation>
 </Method>
 
Index: BL/PPS/TBX/WPLosOnderdeelOptibox.cls.xml
===================================================================
diff -u -r29059 -r69183
--- BL/PPS/TBX/WPLosOnderdeelOptibox.cls.xml	(.../WPLosOnderdeelOptibox.cls.xml)	(revision 29059)
+++ BL/PPS/TBX/WPLosOnderdeelOptibox.cls.xml	(.../WPLosOnderdeelOptibox.cls.xml)	(revision 69183)
@@ -10,11 +10,15 @@
 	Set BaseRef="T."_QueueItem.TOENr
 	Set CallBack=$LB("BL.PPS.WPLosOnderdeel","CBOptimizer",QueueItem.%Id())
 	Set pxStatus=%blPPSTBXOptiBox.SnijV1(..ProductID, 1, "LOS", BaseRef, CallBack , Prioriteit, PPSOutput, MachineID) ; optimize with immediate cut
-	If $$$pxStatusIsOK(pxStatus) Do ; Queued voor optimalisatie
-	. Set QueueItem.WPLosOnderdeel.SnijStatus=$$$osOptimize ; Queued for optimalisatie
-	Else  Do
-	. Set QueueItem.WPLosOnderdeel.SnijStatus=$$$osError ; Error
-	. Set QueueItem.WPLosOnderdeel.Message=pxStatus.FullMsg()
+	
+	If (##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.Verpakking.Machine."_MachineID_"_Codepad") = "Cache") {
+		If $$$pxStatusIsOK(pxStatus) Do ; Queued voor optimalisatie
+		. Set QueueItem.WPLosOnderdeel.SnijStatus=$$$osOptimize ; Queued for optimalisatie
+		Else  Do
+		. Set QueueItem.WPLosOnderdeel.SnijStatus=$$$osError ; Error
+		. Set QueueItem.WPLosOnderdeel.Message=pxStatus.FullMsg()
+	}
+	
 	Quit pxStatus
 ]]></Implementation>
 </Method>
Index: BL/PPS/WPLosOnderdeelOptibox.cls.xml
===================================================================
diff -u -r29059 -r69183
--- BL/PPS/WPLosOnderdeelOptibox.cls.xml	(.../WPLosOnderdeelOptibox.cls.xml)	(revision 29059)
+++ BL/PPS/WPLosOnderdeelOptibox.cls.xml	(.../WPLosOnderdeelOptibox.cls.xml)	(revision 69183)
@@ -12,7 +12,10 @@
 	
 	Do ..SnijService.SnijVoorLosseOnderdelen(MaatwerkProduct.GeefVariant()_"."_QueueItem.TOENr_".LO", CallBack, Prioriteit, MachineID,1) ; optimize with immidiate cut
 	
-	Set QueueItem.WPLosOnderdeel.SnijStatus=$$$osOptimize ; Queued for optimalisatie
+	If (##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.Verpakking.Machine."_MachineID_"_Codepad") = "Cache") {
+		Set QueueItem.WPLosOnderdeel.SnijStatus=$$$osOptimize ; Queued for optimalisatie
+	}
+	
 	Quit ##class(BL.Sys.Proxy.pxStatus).Create(1, "Snijopdracht gegeven", "", "")
 ]]></Implementation>
 </Method>