Index: APPS/Verpakking/DoosFactory.cls.xml
===================================================================
diff -u -r69608 -r69844
--- APPS/Verpakking/DoosFactory.cls.xml	(.../DoosFactory.cls.xml)	(revision 69608)
+++ APPS/Verpakking/DoosFactory.cls.xml	(.../DoosFactory.cls.xml)	(revision 69844)
@@ -9,7 +9,7 @@
 <Implementation><![CDATA[
 	;select "Prod"."OptiBox_BoxData".ID, Name, Meta, "Prod"."OptiBox_BoxMeta".Boxselect from "Prod"."OptiBox_BoxData" join "Prod"."OptiBox_BoxMeta" on "Prod"."OptiBox_BoxData".Meta = "Prod"."OptiBox_BoxMeta".ID where"Prod"."OptiBox_BoxData".ID like 'TAORBOX%'
 	
-	#dim Doos As APPS.Verpakking.Doos
+	#dim Doos As APPS.Verpakking.Doos = ""
 	If (ProductGroep = "TBX") {
 		If (ReceptNaam = "V1 Lage rug") { Set Doos = ##class(APPS.Verpakking.V1LageRug).%New() } 
 		ElseIf (ReceptNaam = "V1 Hoge rug") { Set Doos = ##class(APPS.Verpakking.V1HogeRug).%New() } 
@@ -27,21 +27,23 @@
 		ElseIf (ReceptNaam = "V1 LosseOnderdelen") { Set Doos = ##class(APPS.Verpakking.V1LosseOnderdelen).%New() } 
 		ElseIf (ReceptNaam = "Vouw errond doos") { Set Doos = ##class(APPS.Verpakking.VouwErrondDoos).%New() }
 	
-	} ElseIf (ProductGroep = "OL") {
-		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") { Set Doos = ##class(APPS.Verpakking.Vulstuk).%New() }
-		ElseIf (ReceptNaam = "FILLER SMALL") { Set Doos = ##class(APPS.Verpakking.VulstukKlein).%New() }
-		ElseIf (ReceptNaam = "WRAPAROUND BUFFER") { Set Doos = ##class(APPS.Verpakking.VouwErrondDoosBuffer).%New() }
-		ElseIf (ReceptNaam = "COMPLEX SEPARATOR") { Set Doos = ##class(APPS.Verpakking.ComplexeScheiding).%New() }
-		ElseIf (ReceptNaam = "WRAPAROUND") { Set Doos = ##class(APPS.Verpakking.VouwErrondDoos).%New() }
-		ElseIf (ReceptNaam = "SELFSTANDING") { Set Doos = ##class(APPS.Verpakking.ZelfstaandMetDeksel).%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() } 
+		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() }
+		ElseIf ((ReceptNaam = "COMPLEX SEPARATOR") || (ReceptNaam = "Complexe scheiding")) { Set Doos = ##class(APPS.Verpakking.ComplexeScheiding).%New() }
+		ElseIf ((ReceptNaam = "WRAPAROUND") || (ReceptNaam = "Vouw errond doos")) { Set Doos = ##class(APPS.Verpakking.VouwErrondDoos).%New() }
+		ElseIf ((ReceptNaam = "SELFSTANDING") || (ReceptNaam = "Zelfstaand met deksel")) { Set Doos = ##class(APPS.Verpakking.ZelfstaandMetDeksel).%New() }
 	
+	//NOG TAOR INDELINGEN OUTER te behandelen
 	} ElseIf (ProductGroep = "TAOR indelingen") {
 		If (ReceptNaam = "Mat groep") { Set Doos = ##class(APPS.Verpakking.VouwErrondDoos).%New() }	
 	}
 	
 	If $$$Not($IsObject(Doos)) {
-		Do ##class(vhLib.Logger).%New("DoosService").ErrorMail("APPS.Verpakking.Doosfactory", "Geen doos gevonden voor Productgroep: '"_ProductGroep_"' en ReceptNaam: '"_ReceptNaam_"'.'") 	
+		Set Exception = ##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).Unimplemented(), "Geen doos gevonden voor Productgroep: '"_ProductGroep_"' en ReceptNaam: '"_ReceptNaam_"'.'")
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
 	}
 	
 	Quit Doos
Index: APPS/Verpakking/DoosAanvuller.cls.xml
===================================================================
diff -u -r69827 -r69844
--- APPS/Verpakking/DoosAanvuller.cls.xml	(.../DoosAanvuller.cls.xml)	(revision 69827)
+++ APPS/Verpakking/DoosAanvuller.cls.xml	(.../DoosAanvuller.cls.xml)	(revision 69844)
@@ -120,8 +120,12 @@
 		Set BasisDoos.Height = BoxData.HoogteExec
 		Set BasisDoos.Width = BoxData.BreedteExec
 		
-		Set BasisDoos.K1 = $Select($D(BoxData.Params.GetAt("K1")): BoxData.Params.GetAt("K1").WaardeExec, 1: BasisDoos.K1)
-		Set BasisDoos.K2 = $Select($D(BoxData.Params.GetAt("K2")): BoxData.Params.GetAt("K2").WaardeExec, 1: BasisDoos.K2)
+		#dim ParamKey As %String
+		For ParamKey = "K1","K2" {
+			If (BoxData.Params.IsDefined(ParamKey)) {
+				Set $property(BasisDoos, ParamKey) = BoxData.Params.GetAt(ParamKey).WaardeExec
+			}
+		}
 		
 		Set Param = ##class(APPS.Verpakking.Doos.Param).%New()
 		Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"1", 1: "K1")
@@ -325,10 +329,12 @@
 		Set BasisDoos.Height = BoxData.HoogteExec
 		Set BasisDoos.Width = BoxData.BreedteExec
 		
-		Set BasisDoos.Fold3 = $Select($D(BoxData.Params.GetAt("Fold3")): BoxData.Params.GetAt("Fold3").WaardeExec, 1: BasisDoos.Fold3)
-		Set BasisDoos.Fold4 = $Select($D(BoxData.Params.GetAt("Fold4")): BoxData.Params.GetAt("Fold4").WaardeExec, 1: BasisDoos.Fold4)
-		Set BasisDoos.Fold5 = $Select($D(BoxData.Params.GetAt("Fold5")): BoxData.Params.GetAt("Fold5").WaardeExec, 1: BasisDoos.Fold5)
-		Set BasisDoos.NBR = $Select($D(BoxData.Params.GetAt("NBR")): BoxData.Params.GetAt("NBR").WaardeExec, 1: BasisDoos.NBR)
+		#dim Param As %String
+		For Param = "Fold3","Fold4","Fold5","NBR" {
+			If (BoxData.Params.IsDefined(Param)) {
+				Set $property(BasisDoos, Param) = BoxData.Params.GetAt(Param).WaardeExec
+			}
+		}
 	}
 	
 	Set Param = ##class(APPS.Verpakking.Doos.Param).%New()
@@ -395,7 +401,9 @@
 	Set BasisDoos.Height = BoxData.HoogteExec
 	Set BasisDoos.Width = BoxData.BreedteExec
 	
-	Set BasisDoos.QO = $Select($D(BoxData.Params.GetAt("QO")): BoxData.Params.GetAt("QO").WaardeExec, 1: BasisDoos.QO)
+	If (BoxData.Params.IsDefined("QO")) {
+		Set $property(BasisDoos, "QO") = BoxData.Params.GetAt("QO").WaardeExec
+	}
 	
 	Set Param = ##class(APPS.Verpakking.Doos.Param).%New()
 	Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"1", 1: "QO")
@@ -440,11 +448,12 @@
 	Set BasisDoos.Height = BoxData.HoogteExec
 	Set BasisDoos.Width = BoxData.BreedteExec
 	
-	Set BasisDoos.FS = $Select($D(BoxData.Params.GetAt("FS")): BoxData.Params.GetAt("FS").WaardeExec, 1: BasisDoos.FS)
-	Set BasisDoos.LS = $Select($D(BoxData.Params.GetAt("LS")): BoxData.Params.GetAt("LS").WaardeExec, 1: BasisDoos.LS)
-	Set BasisDoos.LT = $Select($D(BoxData.Params.GetAt("LT")): BoxData.Params.GetAt("LT").WaardeExec, 1: BasisDoos.LT)
-	Set BasisDoos.RS = $Select($D(BoxData.Params.GetAt("RS")): BoxData.Params.GetAt("RS").WaardeExec, 1: BasisDoos.RS)
-	Set BasisDoos.RT = $Select($D(BoxData.Params.GetAt("RT")): BoxData.Params.GetAt("RT").WaardeExec, 1: BasisDoos.RT)
+	#dim Param As %String
+	For Param = "FS","LS","LT","RS","RT" {
+		If (BoxData.Params.IsDefined(Param)) {
+			Set $property(BasisDoos, Param) = BoxData.Params.GetAt(Param).WaardeExec
+		}
+	}
 	
 	Set Param = ##class(APPS.Verpakking.Doos.Param).%New()
 	Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"1", 1: "FS")
@@ -490,7 +499,9 @@
 	Set BasisDoos.Height = BoxData.HoogteExec
 	Set BasisDoos.Width = BoxData.BreedteExec
 	
-	Set BasisDoos.Flap = $Select($D(BoxData.Params.GetAt("Flap")): BoxData.Params.GetAt("Flap").WaardeExec, 1: BasisDoos.Flap)
+	If (BoxData.Params.IsDefined("Flap")) {
+		Set $property(BasisDoos, "Flap") = BoxData.Params.GetAt("Flap").WaardeExec
+	}
 	
 	Set Param = ##class(APPS.Verpakking.Doos.Param).%New()
 	Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"1", 1: "Flap")
Index: APPS/Verpakking/DoosService.cls.xml
===================================================================
diff -u -r69828 -r69844
--- APPS/Verpakking/DoosService.cls.xml	(.../DoosService.cls.xml)	(revision 69828)
+++ APPS/Verpakking/DoosService.cls.xml	(.../DoosService.cls.xml)	(revision 69844)
@@ -72,67 +72,87 @@
 <Method name="GeefDoos">
 <FormalSpec><![CDATA[ProductGroep:%String,ReceptNaam:%String,MachineID:APPS.Verpakking.enu.MachineID,Aantal:%Integer,&Params:%String,ProductId:%String,Prioriteit:%String="-1",BaseRef:%String,&CallBack:%List="",BoxDataID:%String=""]]></FormalSpec>
 <Implementation><![CDATA[
-	If ($$$Not(MachineID = ##class(APPS.Verpakking.enu.MachineID).VH()) || (ProductGroep = "KAD")) {
-		If $$$Not($$$Server = "CACHE01") {
-			Set Prioriteit = "-1" 
-		} Else {
-			Set ..SnijDoosService.Location = "http://docker02-prd:1880/ws/cut-request"
-		}		
-		
-		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, BoxDataID)
-		Do ..Optimizer.Optimize(.Doos, ProductGroep, MachineTechnologie)
-		
-		If (MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Kraft()) {
-			If (MachineID = ##class(APPS.Verpakking.enu.MachineID).KraftKlein()) {
-				Set Doos.CardBoardThickness = 3
-				Set Doos.CardBoardID = "TBX DRAWER EB 1430"
+	try {
+		If ($$$Not(MachineID = ##class(APPS.Verpakking.enu.MachineID).VH()) || (ProductGroep = "KAD") || (ProductGroep = "PR")) {
+			If $$$Not($$$Server = "CACHE01") {
+				Set Prioriteit = "-1" 
+			} Else {
+				Set ..SnijDoosService.Location = "http://docker02-prd:1880/ws/cut-request"
 			}
-			If ((MachineID = ##class(APPS.Verpakking.enu.MachineID).HALUX()) || (MachineID = ##class(APPS.Verpakking.enu.MachineID).TAOR())) {
-				Set Doos.CardBoardThickness = 4
+			
+			If ((ProductGroep = "PR") && (BoxDataID = "")) {
+				Set ResultSetLink=##class(TECH.ResultSet).%New("BL.Prod.OptiBox.BoxData:GetBoxDataIDsViaObjTypeAndRef")
+				Do ResultSetLink.Execute("PR" ,ProductId)
+				
+				While ResultSetLink.Next() {
+				 	Set oData = ##class(DS.Prod.OptiBox.BoxData).%OpenId(ResultSetLink.Data("ID"))
+				 	Do ..GeefDoos(ProductGroep, oData.Meta.Name, MachineID, Aantal, "", ProductId, Prioriteit, BaseRef, CallBack, BoxDataID)
+				}
+				Do ResultSetLink.Close()
+				
+				If (oData = "") {
+					#dim Logger = ##class(vhLib.Logger).%New("VH doos service").ErrorMail("Geen boxdata gevonden voor product: '"_ProductId_"'.")
+				}
 			}
-		}
-		#dim SnijData As DS.Prod.OptiBox.SnijData = ""
-		#dim OptiData As DS.Prod.OptiBox.OptiData
-		#dim SnijDef As DS.Prod.OptiBox.sub.emSnijDef
-		
-		If $Length(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)
-			Do SnijData.SnijDefs.SetAt(SnijDef, MachineID)		
-			Do SnijData.%Save()
 			
-			#dim OptiboxQueue = ..MaakOptiboxQueue(SnijData, Prioriteit, CallBack, OptiData)
-			If (..ProductTypeAPI.IsLegraboxProduct(ProductId) || ..ProductTypeAPI.IsMerivoboxProduct(ProductId)) {
-				Set WerklijstItemStatusUpdater = ##class(APPS.Halux.PPS.Verpakking.impl.KartonSnijder.WerklijstItemStatusUpdater).%New()
-				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))
-				If ##class(TECH.StringUtils).Equals(Doos.Recipe, "214", "218") { //Losse onderdelen + complexe scheiding kartons
-					Set Queue.WPLosOnderdeel.SnijStatus = "Q" 
+			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, BoxDataID) //SnijdataID toevoegen voor overdozen?
+			Do ..Optimizer.Optimize(.Doos, ProductGroep, MachineTechnologie)
+			
+			If (MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Kraft()) {
+				If (MachineID = ##class(APPS.Verpakking.enu.MachineID).KraftKlein()) {
+					Set Doos.CardBoardThickness = 3
+					Set Doos.CardBoardID = "TBX DRAWER EB 1430"
+				}
+				If ((MachineID = ##class(APPS.Verpakking.enu.MachineID).HALUX()) || (MachineID = ##class(APPS.Verpakking.enu.MachineID).TAOR())) {
+					Set Doos.CardBoardThickness = 4
+				}
+			}
+			#dim SnijData As DS.Prod.OptiBox.SnijData = ""
+			#dim OptiData As DS.Prod.OptiBox.OptiData
+			#dim SnijDef As DS.Prod.OptiBox.sub.emSnijDef
+			
+			If $Length(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)
+				Do SnijData.SnijDefs.SetAt(SnijDef, MachineID)		
+				Do SnijData.%Save()
+				
+				#dim OptiboxQueue = ..MaakOptiboxQueue(SnijData, Prioriteit, CallBack, OptiData)
+				If (..ProductTypeAPI.IsLegraboxProduct(ProductId) || ..ProductTypeAPI.IsMerivoboxProduct(ProductId)) {
+					Set WerklijstItemStatusUpdater = ##class(APPS.Halux.PPS.Verpakking.impl.KartonSnijder.WerklijstItemStatusUpdater).%New()
+					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))
+					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 {
-					Set Queue.WPVerpak.SnijStatus = "Q"
+					Do ..Logger.ErrorMail("GeefDoos", "Voor dit maatwerktype is nog geen implementatie voorzien in de de VHDoosService.")
 				}
-			} Else {
-				Do ..Logger.ErrorMail("GeefDoos", "Voor dit maatwerktype is nog geen implementatie voorzien in de de VHDoosService.")
 			}
+			
+			#dim Referentie As %String = $Select($$$Not(SnijData = ""): SnijData.Reference, 1: BaseRef)
+			#dim SnijRequest As WS.APPS.Verpakking.SnijDoosRequest = ..SnijRequestMaker.MaakSnijRequest(Doos, MachineTechnologie, MachineID, Prioriteit, Aantal, Referentie)
+			Do ..LogXmlObject(SnijRequest, "GeefDoos OUT")
+			
+			#dim SnijResponse As WS.APPS.Verpakking.SnijDoosResponse = ..SnijDoosService.SnijDoos(SnijRequest)
+			Do ..LogXmlObject(SnijResponse, "GeefDoos IN")
+			
+			#dim RequestXml as %String
+			Do SnijRequest.XMLExportToString(.RequestXml)
+			
+			Set ^LogKartonOpdrachten2(ProductId, "VH Doos", $Increment(^LogKartonOpdrachten2)) = RequestXml
 		}
-		
-		#dim Referentie As %String = $Select($$$Not(SnijData = ""): SnijData.Reference, 1: BaseRef)
-		#dim SnijRequest As WS.APPS.Verpakking.SnijDoosRequest = ..SnijRequestMaker.MaakSnijRequest(Doos, MachineTechnologie, MachineID, Prioriteit, Aantal, Referentie)
-		Do ..LogXmlObject(SnijRequest, "GeefDoos OUT")
-		
-		#dim SnijResponse As WS.APPS.Verpakking.SnijDoosResponse = ..SnijDoosService.SnijDoos(SnijRequest)
-		Do ..LogXmlObject(SnijResponse, "GeefDoos IN")
-		
-		#dim RequestXml as %String
-		Do SnijRequest.XMLExportToString(.RequestXml)
-		
-		Set ^LogKartonOpdrachten2(ProductId, "VH Doos", $Increment(^LogKartonOpdrachten2)) = RequestXml
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do ..Logger.ErrorMail("GeefDoos", "Er is iets fout gelopen bij het verwerken van GeefDoos. "_Exception.GeefOmschrijving())
 	}
 ]]></Implementation>
 </Method>