Index: APPS/Verpakking/DoosAanvuller.cls.xml
===================================================================
diff -u -r72581 -r72914
--- APPS/Verpakking/DoosAanvuller.cls.xml	(.../DoosAanvuller.cls.xml)	(revision 72581)
+++ APPS/Verpakking/DoosAanvuller.cls.xml	(.../DoosAanvuller.cls.xml)	(revision 72914)
@@ -21,7 +21,7 @@
 	} ElseIf (BasisDoos.%Extends("APPS.Verpakking.dto.V1LageRug")) {
 		Do ..VulAanV1LageRug(.BasisDoos, .Params)
 	} ElseIf (BasisDoos.%Extends("APPS.Verpakking.dto.V1LosseOnderdelen")) {
-		Do ..VulAanV1LosseOnderdelen(.BasisDoos, .Params, ProductGroep)
+		Do ..VulAanV1LosseOnderdelen(.BasisDoos, .Params, ProductGroep, BoxDataID, BoxData)
 	} ElseIf (BasisDoos.%Extends("APPS.Verpakking.dto.VouwErrondDoos")) {
 		Do ..VulAanVouwErrondDoos(.BasisDoos, .Params, ProductGroep, BoxDataID, BoxData, MachineId)
 	} ElseIf (BasisDoos.%Extends("APPS.Verpakking.dto.V1DoosMetDeksel")) {
@@ -192,7 +192,7 @@
 </Method>
 
 <Method name="VulAanV1LosseOnderdelen">
-<FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.dto.V1LosseOnderdelen,&Params:%String,ProductGroep:%String]]></FormalSpec>
+<FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.dto.V1LosseOnderdelen,&Params:%String,ProductGroep:%String,BoxDataID:%String="",BoxData:DS.Prod.OptiBox.BoxData=""]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Do BasisDoos.Params.Insert(..GeefDoosParam($Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"1", 1: "K1"), BasisDoos.K1))
@@ -214,6 +214,34 @@
 		Set BasisDoos.T = $Select($D(Params("BREEDTECP")): Params("BREEDTECP"), 1: BasisDoos.T)
 		
 		Do BasisDoos.Params.Insert(..GeefDoosParam($Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"3", 1: "T"), BasisDoos.T))
+	} ElseIf ((ProductGroep = "OL") || (ProductGroep = "PR")) {
+		Set BasisDoos.LogoPrint = "ORGALUX WHITE"	
+		Set BasisDoos.BoxSelect = "TBX V1 LOOSE COMP"		//Meta 456		
+		
+		If (BoxData = "") { //Pad voor herbereken verpakking in admin
+			If (##class(DS.Prod.OptiBox.BoxData).%ExistsId(BoxDataID)) {
+				Set BoxData = ##class(DS.Prod.OptiBox.BoxData).%OpenId(BoxDataID)
+				
+				Set BasisDoos.Depth = ..CalcMetDefault(1, BoxData.DiepteExec)
+				Set BasisDoos.Height = ..CalcMetDefault(1, BoxData.HoogteExec)
+				Set BasisDoos.Width = ..CalcMetDefault(1, BoxData.BreedteExec)
+			} Else {
+				#dim Logger = ##class(vhLib.Logger).%New("VH doos service").ErrorMail("Geen boxdata gevonden voor boxdataID: '"_BoxDataID_"'.")
+			}
+		} Else { //Pad voor Snijdata te maken voor orgaluxbonnen
+			Set BasisDoos.Depth = BoxData.Diepte
+			Set BasisDoos.Height = BoxData.Hoogte
+			Set BasisDoos.Width = BoxData.Breedte
+		}
+		
+		#dim Param As %String
+		For Param = "T" {
+			If (BoxData.Params.IsDefined(Param)) {
+				If $$$Not(BoxData.Params.GetAt(Param).Waarde = "") {
+					Set $property(BasisDoos, Param) = BoxData.Params.GetAt(Param).Waarde
+				}
+			}
+		}
 	}
 ]]></Implementation>
 </Method>
Index: APPS/Verpakking/DoosFactory.cls.xml
===================================================================
diff -u -r70436 -r72914
--- APPS/Verpakking/DoosFactory.cls.xml	(.../DoosFactory.cls.xml)	(revision 70436)
+++ APPS/Verpakking/DoosFactory.cls.xml	(.../DoosFactory.cls.xml)	(revision 72914)
@@ -36,6 +36,8 @@
 		ElseIf ((ReceptNaam = "WRAPAROUND") || (ReceptNaam = "Vouw errond doos")) { Set Doos = ##class(APPS.Verpakking.dto.VouwErrondDoos).%New() }
 		ElseIf ((ReceptNaam = "SELFSTANDING") || (ReceptNaam = "Zelfstaand met deksel")) { Set Doos = ##class(APPS.Verpakking.dto.ZelfstaandMetDeksel).%New() }
 		ElseIf ((ReceptNaam = "OUTER") || (ReceptNaam = "Overdoos")) { Set Doos = ##class(APPS.Verpakking.dto.Overdoos).%New() }
+		ElseIf (ReceptNaam = "Bodem Deksel") { Set Doos = ##class(APPS.Verpakking.dto.Overdoos).%New() }
+		ElseIf ((ReceptNaam = "Onderdelen") || (ReceptNaam = "V1 Onderdelen")) { Set Doos = ##class(APPS.Verpakking.dto.V1LosseOnderdelen).%New() }
 	//NOG TAOR INDELINGEN OUTER te behandelen
 	} ElseIf (ProductGroep = "TAOR indelingen") {
 		If (ReceptNaam = "Mat groep") { Set Doos = ##class(APPS.Verpakking.dto.VouwErrondDoos).%New() }