Index: APPS/Verpakking/KartonRepository.cls.xml
===================================================================
diff -u -r70219 -r70301
--- APPS/Verpakking/KartonRepository.cls.xml	(.../KartonRepository.cls.xml)	(revision 70219)
+++ APPS/Verpakking/KartonRepository.cls.xml	(.../KartonRepository.cls.xml)	(revision 70301)
@@ -9,13 +9,17 @@
 </Parameter>
 
 <Method name="GeefKartonBreedte">
+<Description>
+Deze method geeft de kartonbreedte terug van het eerste resultaat dat hij vindt. Het resultaat zou altijd maar 1 karton mogen opleveren, anders is de data niet uniek en niet bruikbaar</Description>
 <FormalSpec>Dikte:%Decimal,Breedte:%Decimal,LogoPrint:%String,MachineId:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	Quit ..GeefVeldViaFilter("Breedte", "Dikte = ? AND Breedte >= ? AND LogoPrint = ? AND MachineId = ? ORDER BY BREEDTE ASC", $LB(Dikte, Breedte, LogoPrint, MachineId))
 ]]></Implementation>
 </Method>
 
 <Method name="GeefKartonID">
+<Description>
+Deze method geeft de kartonID terug van het eerste resultaat dat hij vindt. Het resultaat zou altijd maar 1 karton mogen opleveren, anders is de data niet uniek en niet bruikbaar</Description>
 <FormalSpec>Dikte:%Decimal,Breedte:%Decimal,LogoPrint:%String,MachineId:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	Quit ..GeefVeldViaFilter("CardboardID", "Dikte = ? AND Breedte >= ? AND LogoPrint = ? AND MachineId = ? ORDER BY BREEDTE ASC", $LB(Dikte, Breedte, LogoPrint, MachineId))
FishEye: Tag 70301 refers to a dead (removed) revision in file `DS/Prod/OptiBox/sub/btCardboardRepository.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: BL/PPS/TBX/OptiBox.cls.xml
===================================================================
diff -u -r70273 -r70301
--- BL/PPS/TBX/OptiBox.cls.xml	(.../OptiBox.cls.xml)	(revision 70273)
+++ BL/PPS/TBX/OptiBox.cls.xml	(.../OptiBox.cls.xml)	(revision 70301)
@@ -463,15 +463,9 @@
 <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, "")
-		Set Status = ##class(BL.Sys.Proxy.pxStatus).Create(1)	
-	} Catch {
-		Set Status = ##class(BL.Sys.Proxy.pxStatus).Create(0, "GeefDoos fout")
-		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-		#dim Logger = ##class(vhLib.Logger).%New("VH doos service").ErrorMail("GeefDoos", "Er is iets fout gelopen bij het verwerken van GeefDoos. OptiID: '"_OptiID_"', PRNr: '"_ PRNr _"', MachineID: '"_ MachineID _"'."_Exception.GeefOmschrijving())
-	}
+	Set DoosService = ##class(APPS.Verpakking.DoosService).%New()
+	Do DoosService.GeefDoos($$$SplitID(OptiID), .MachineID, .Aantal, .Params, .PRNr, .Prioriteit, BaseRef, .CallBack, "")
+	Set Status = ##class(BL.Sys.Proxy.pxStatus).Create(1)
 	
 	Quit $G(Status)
 ]]></Implementation>
Index: APPS/Verpakking/Optimizer.cls.xml
===================================================================
diff -u -r70225 -r70301
--- APPS/Verpakking/Optimizer.cls.xml	(.../Optimizer.cls.xml)	(revision 70225)
+++ APPS/Verpakking/Optimizer.cls.xml	(.../Optimizer.cls.xml)	(revision 70301)
@@ -4,6 +4,12 @@
 <Super>TECH.Mockable</Super>
 
 <Parameter name="AfmetingBreedsteKarton">
+<Description><![CDATA[
+Swap parameters zijn te vinden op het doos object
+Swap = 0 -> Geen swap
+Swap = 1 -> Breedte en diepte worden sowieso geswapt
+Swap = 2 -> Conditionele swap: enkel swappen indien de plano te breed is voor het breedste karton
+Sommige recepten hebben zowel swap 0 als 1 beschikbaar, in deze situatie moet worden gekekend welk recept het minste karton verbruikt]]></Description>
 <Default>2400</Default>
 </Parameter>
 
@@ -67,9 +73,7 @@
 		}
 		
 		If (BasisDoos.Swap = 1) {
-			#dim OrigineleWidth As %Decimal = BasisDoos.Width
-			Set BasisDoos.Width = BasisDoos.Depth
-			Set BasisDoos.Depth = OrigineleWidth
+			Do ..SwapDimensies(.BasisDoos)
 		}
 	}
 	
@@ -406,6 +410,16 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="SwapDimensies">
+<FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.Doos]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim OrigineleWidth As %Decimal = BasisDoos.Width
+	Set BasisDoos.Width = BasisDoos.Depth
+	Set BasisDoos.Depth = OrigineleWidth
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: BL/Prod/OptiBox/Snijden.cls.xml
===================================================================
diff -u -r69830 -r70301
--- BL/Prod/OptiBox/Snijden.cls.xml	(.../Snijden.cls.xml)	(revision 69830)
+++ BL/Prod/OptiBox/Snijden.cls.xml	(.../Snijden.cls.xml)	(revision 70301)
@@ -618,7 +618,8 @@
 			If (..ProductIdCutRequest > 0) {
 				Set ^LogKartonOpdrachtenOL(..ProductIdCutRequest, "Origineel", $Increment(^LogKartonOpdrachtenOL)) = RequestXml
 			} Else {
-				Set ^LogKartonOpdrachtenOL($Increment(^LogKartonOpdrachtenOL), "Origineel", $Increment(^LogKartonOpdrachtenOL)) = RequestXml
+				#dim SubNode As %Integer = $Increment(^LogKartonOpdrachtenOL)
+				Set ^LogKartonOpdrachtenOL(SubNode, "Origineel", SubNode) = RequestXml
 			}
 		}
 	} catch {
Index: vhUnitTest/APPS/Verpakking/DoosFactory/MaakDoos/TestAlleMogelijkheden.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Verpakking/DoosFactory/MaakDoos/TestAlleMogelijkheden.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Verpakking/DoosFactory/MaakDoos/TestAlleMogelijkheden.cls.xml	(revision 70301)
@@ -0,0 +1,75 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Verpakking.DoosFactory.MaakDoos.TestAlleMogelijkheden">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="DoosFactory">
+<Type>APPS.Verpakking.DoosFactory</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+ 	Do ##super()
+ 	
+ 	Set ..DoosFactory = ##class(APPS.Verpakking.DoosFactory).%New()
+]]></Implementation>
+</Method>
+
+<Method name="TestMaakDoos">
+<Implementation><![CDATA[
+	#dim Doos As APPS.Verpakking.Doos
+	
+	Do ..AssertDoos("TBX", "V1 Lage rug", ##class(APPS.Verpakking.V1LageRug).%New())
+	Do ..AssertDoos("TBX", "V1 Hoge rug", ##class(APPS.Verpakking.V1HogeRug).%New())
+	Do ..AssertDoos("TBX", "V1 LosseOnderdelen", ##class(APPS.Verpakking.V1LosseOnderdelen).%New())
+	Do ..AssertDoos("TBX", "V1 Boxkap", ##class(APPS.Verpakking.ComplexeScheiding).%New())
+	Do ..AssertDoos("TBX", "V1 Boxkap doos", ##class(APPS.Verpakking.VouwErrondDoos).%New() )
+	
+	Do ..AssertDoos("KAD", "Vouw errond", ##class(APPS.Verpakking.VouwErrondDoos).%New() )
+	
+	Do ..AssertDoos("TAORBOX", "V1 Flatpack", ##class(APPS.Verpakking.V1Flatpack).%New() )
+	Do ..AssertDoos("TAORBOX", "V1 Doos met deksel", ##class(APPS.Verpakking.V1DoosMetDeksel).%New() )
+	Do ..AssertDoos("TAORBOX", "V1 LosseOnderdelen", ##class(APPS.Verpakking.V1LosseOnderdelen).%New() )
+	Do ..AssertDoos("TAORBOX", "Vouw errond doos", ##class(APPS.Verpakking.VouwErrondDoos).%New() )
+	
+	Do ..AssertDoos("OL", "Afval los groep", ##class(APPS.Verpakking.VouwErrondDoos).%New() )
+	Do ..AssertDoos("OL", "Antislipmat groep", ##class(APPS.Verpakking.VouwErrondDoos).%New() )
+	Do ..AssertDoos("OL", "Kruidenrek groep", ##class(APPS.Verpakking.VouwErrondDoos).%New() )
+	Do ..AssertDoos("OL", "Zilverbestekhouder groep", ##class(APPS.Verpakking.VouwErrondDoos).%New() )
+	Do ..AssertDoos("OL", "FILLER", ##class(APPS.Verpakking.Vulstuk).%New() )
+	Do ..AssertDoos("OL", "FILLER SMALL", ##class(APPS.Verpakking.VulstukKlein).%New() )
+	Do ..AssertDoos("OL", "WRAPAROUND BUFFER", ##class(APPS.Verpakking.VouwErrondDoosBuffer).%New() )
+	Do ..AssertDoos("OL", "COMPLEX SEPARATOR", ##class(APPS.Verpakking.ComplexeScheiding).%New() )
+	Do ..AssertDoos("OL", "WRAPAROUND", ##class(APPS.Verpakking.VouwErrondDoos).%New() )
+	Do ..AssertDoos("OL", "SELFSTANDING", ##class(APPS.Verpakking.ZelfstaandMetDeksel).%New() )
+	Do ..AssertDoos("OL", "OUTER", ##class(APPS.Verpakking.Overdoos).%New() )
+	Do ..AssertDoos("OL", "Vulstuk", ##class(APPS.Verpakking.Vulstuk).%New() )
+	Do ..AssertDoos("OL", "Vulstuk klein", ##class(APPS.Verpakking.VulstukKlein).%New() )
+	Do ..AssertDoos("OL", "Vouw errond doos met buffer", ##class(APPS.Verpakking.VouwErrondDoosBuffer).%New() )
+	Do ..AssertDoos("OL", "Complexe scheiding", ##class(APPS.Verpakking.ComplexeScheiding).%New() )
+	Do ..AssertDoos("OL", "Vouw errond doos", ##class(APPS.Verpakking.VouwErrondDoos).%New() )
+	Do ..AssertDoos("OL", "Zelfstaand met deksel", ##class(APPS.Verpakking.ZelfstaandMetDeksel).%New() )
+	Do ..AssertDoos("OL", "Overdoos", ##class(APPS.Verpakking.Overdoos).%New() )
+	
+	Do ..AssertDoos("TAOR indelingen", "Mat groep", ##class(APPS.Verpakking.VouwErrondDoos).%New() )
+	Do ..AssertDoos("UT_Groep", "UT_Recept", ##class(APPS.Verpakking.VouwErrondDoos).%New(), $$$True )
+]]></Implementation>
+</Method>
+
+<Method name="AssertDoos">
+<FormalSpec>ProductGroep:%String,ReceptNaam:%String,VerwachteDoos:APPS.Verpakking.Doos,ThrowtException:%Boolean=$$$False</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If (ThrowtException) {
+		#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen doos gevonden voor Productgroep: 'UT_Groep' en ReceptNaam: 'UT_Recept'.'")
+		Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.BaseException", Substrings))
+	}
+	
+	Do $$$AssertEquals(VerwachteDoos.%ClassName(1), ..DoosFactory.MaakDoos(ProductGroep, ReceptNaam).%ClassName(1))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 70301 refers to a dead (removed) revision in file `vhUnitTest/APPS/Verpakking/DoosFactory/Test.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/Halux/PPS/TAORVerpakking/impl/DoosLade.cls.xml
===================================================================
diff -u -r70218 -r70301
--- APPS/Halux/PPS/TAORVerpakking/impl/DoosLade.cls.xml	(.../DoosLade.cls.xml)	(revision 70218)
+++ APPS/Halux/PPS/TAORVerpakking/impl/DoosLade.cls.xml	(.../DoosLade.cls.xml)	(revision 70301)
@@ -168,19 +168,13 @@
 	}
 	
 	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 = ##class(BL.Sys.Proxy.pxStatus).Create(1) 
-		} Catch {
-			Set Status = ##class(BL.Sys.Proxy.pxStatus).Create(0, "GeefDoos fout")
-			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-			#dim Logger = ##class(vhLib.Logger).%New("VH doos service").ErrorMail("GeefDoos", "Er is iets fout gelopen bij het verwerken van GeefDoos. OptiID: '"_..#OptiGroep _" "_ ..#OptiIDDoosMetDeksel_"', PRNr: '"_ ProductID _"', MachineID: '"_ MachineID _"'."_Exception.GeefOmschrijving())
-		}
+		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 = ##class(BL.Sys.Proxy.pxStatus).Create(1)
 	}
 ]]></Implementation>
 </Method>
Index: APPS/Verpakking/Data/Karton.cls.xml
===================================================================
diff -u -r70219 -r70301
--- APPS/Verpakking/Data/Karton.cls.xml	(.../Karton.cls.xml)	(revision 70219)
+++ APPS/Verpakking/Data/Karton.cls.xml	(.../Karton.cls.xml)	(revision 70301)
@@ -14,15 +14,15 @@
 </Property>
 
 <Property name="Dikte">
-<Type>%Float</Type>
+<Type>%Decimal</Type>
 </Property>
 
 <Property name="Breedte">
 <Type>%Decimal</Type>
 </Property>
 
 <Property name="Kost">
-<Type>%Float</Type>
+<Type>%Decimal</Type>
 </Property>
 
 <Property name="Actief">
Index: APPS/Halux/PPS/Verpakking/impl/KartonSnijVisitor.cls.xml
===================================================================
diff -u -r69603 -r70301
--- APPS/Halux/PPS/Verpakking/impl/KartonSnijVisitor.cls.xml	(.../KartonSnijVisitor.cls.xml)	(revision 69603)
+++ APPS/Halux/PPS/Verpakking/impl/KartonSnijVisitor.cls.xml	(.../KartonSnijVisitor.cls.xml)	(revision 70301)
@@ -91,15 +91,9 @@
 	}
 	
 	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").ErrorMail("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())
-		}
+		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
 	}	
 	
 	Quit Status
Index: APPS/Halux/PPS/Verpakking/impl/DoosLosseOnderdelen.cls.xml
===================================================================
diff -u -r69847 -r70301
--- APPS/Halux/PPS/Verpakking/impl/DoosLosseOnderdelen.cls.xml	(.../DoosLosseOnderdelen.cls.xml)	(revision 69847)
+++ APPS/Halux/PPS/Verpakking/impl/DoosLosseOnderdelen.cls.xml	(.../DoosLosseOnderdelen.cls.xml)	(revision 70301)
@@ -102,15 +102,9 @@
 	}
 	
 	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 = ##class(BL.Sys.Proxy.pxStatus).Create(1)
-		} Catch {
-			Set Status = ##class(BL.Sys.Proxy.pxStatus).Create(0, "GeefDoos fout")
-			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-			#dim Logger = ##class(vhLib.Logger).%New("VH doos service").ErrorMail("GeefDoos", "Er is iets fout gelopen bij het verwerken van GeefDoos. OptiID: '"_..#OptiGroep_ " "_..#OptiIDLosseOnderdelen_"', PRNr: '"_ ProductID _"', MachineID: '"_ MachineID _"'."_Exception.GeefOmschrijving())
-		}
+		Set DoosService = ##class(APPS.Verpakking.DoosService).%New()
+		Do DoosService.GeefDoos(..#OptiGroep, ..#OptiIDLosseOnderdelen, .MachineID, .Qty, .Params, ProductID, .SnijPrioriteit, BaseRef, .CallBack, "")	
+		Set Status = ##class(BL.Sys.Proxy.pxStatus).Create(1)
 	}
 ]]></Implementation>
 </Method>
Index: vhUnitTest/APPS/Verpakking/DoosService/Test.cls.xml
===================================================================
diff -u -r70225 -r70301
--- vhUnitTest/APPS/Verpakking/DoosService/Test.cls.xml	(.../Test.cls.xml)	(revision 70225)
+++ vhUnitTest/APPS/Verpakking/DoosService/Test.cls.xml	(.../Test.cls.xml)	(revision 70301)
@@ -3,7 +3,7 @@
 <Class name="vhUnitTest.APPS.Verpakking.DoosService.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test: Standaard gedrag bij configsetting die naar cache staat">
+<Method name="Test: Standaard gedrag">
 <Implementation><![CDATA[
 	Set DoosFactoryMock = ##class(vhTest.Mock.APPS.Verpakking.DoosFactory).%New()
 	Set DoosAanvullerMock = ##class(vhTest.Mock.APPS.Verpakking.DoosAanvuller).%New()
Index: BL/PPS/KAD/OptiBox.cls.xml
===================================================================
diff -u -r69828 -r70301
--- BL/PPS/KAD/OptiBox.cls.xml	(.../OptiBox.cls.xml)	(revision 69828)
+++ BL/PPS/KAD/OptiBox.cls.xml	(.../OptiBox.cls.xml)	(revision 70301)
@@ -146,15 +146,9 @@
 	}
 	
 	If ((##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.Verpakking.Machine."_MachineID_"_Codepad") = "NodeRed") || (OptiID = "KAD||Vouw errond")) {
-		Try {
-			Set DoosService = ##class(APPS.Verpakking.DoosService).%New()
-			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")
-			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-			#dim Logger = ##class(vhLib.Logger).%New("VH doos service").ErrorMail("GeefDoos", "Er is iets fout gelopen bij het verwerken van GeefDoos. OptiID: '"_OptiID_"', PRNr: '"_ PRNr _"', MachineID: '"_ MachineID _"'."_Exception.GeefOmschrijving())
-		}
+		Set DoosService = ##class(APPS.Verpakking.DoosService).%New()
+		Do DoosService.GeefDoos($$$SplitID(OptiID), .MachineID, .Qty, .Params, .PRNr, .SnijPrioriteit, BaseRef, .CallBack, "")
+		Set Status = ##class(BL.Sys.Proxy.pxStatus).Create(1)
 	}
 	
 	Quit Status
Index: APPS/Verpakking/DoosFactory.cls.xml
===================================================================
diff -u -r70081 -r70301
--- APPS/Verpakking/DoosFactory.cls.xml	(.../DoosFactory.cls.xml)	(revision 70081)
+++ APPS/Verpakking/DoosFactory.cls.xml	(.../DoosFactory.cls.xml)	(revision 70301)
@@ -28,7 +28,7 @@
 		ElseIf (ReceptNaam = "Vouw errond doos") { Set Doos = ##class(APPS.Verpakking.VouwErrondDoos).%New() }
 	
 	} ElseIf ((ProductGroep = "OL") || (ProductGroep = "PR")) {
-		If (##class(TECH.StringUtils).Equals(ReceptNaam, "Afval los groep", "Antislipmat groep", "Kruidenrek groep", "Zilverbestekhouder groep",)) { Set Doos = ##class(APPS.Verpakking.VouwErrondDoos).%New() } 
+		If (##class(TECH.StringUtils).Equals(ReceptNaam, "Afval los groep", "Antislipmat groep", "Kruidenrek groep", "Zilverbestekhouder groep")) { Set Doos = ##class(APPS.Verpakking.VouwErrondDoos).%New() } 
 		ElseIf ((ReceptNaam = "FILLER") || (ReceptNaam = "Vulstuk")) { Set Doos = ##class(APPS.Verpakking.Vulstuk).%New() }
 		ElseIf ((ReceptNaam = "FILLER SMALL") || (ReceptNaam = "Vulstuk klein")) { Set Doos = ##class(APPS.Verpakking.VulstukKlein).%New() }
 		ElseIf ((ReceptNaam = "WRAPAROUND BUFFER") || (ReceptNaam = "Vouw errond doos met buffer")) { Set Doos = ##class(APPS.Verpakking.VouwErrondDoosBuffer).%New() }