Index: APPS/Verpakking/DoosAanvuller.cls.xml
===================================================================
diff -u -r69606 -r69607
--- APPS/Verpakking/DoosAanvuller.cls.xml	(.../DoosAanvuller.cls.xml)	(revision 69606)
+++ APPS/Verpakking/DoosAanvuller.cls.xml	(.../DoosAanvuller.cls.xml)	(revision 69607)
@@ -20,7 +20,7 @@
 	} ElseIf (BasisDoos.%Extends("APPS.Verpakking.V1LosseOnderdelen")) {
 		Do ..VulAanV1LosseOnderdelen(.BasisDoos, .Params, ProductGroep)
 	} ElseIf (BasisDoos.%Extends("APPS.Verpakking.VouwErrondDoos")) {
-		Do ..VulAanVouwErrondDoos(.BasisDoos, .Params, ProductGroep)
+		Do ..VulAanVouwErrondDoos(.BasisDoos, .Params, ProductGroep, BoxDataID)
 	} ElseIf (BasisDoos.%Extends("APPS.Verpakking.V1DoosMetDeksel")) {
 		Do ..VulAanV1DoosMetDeksel(.BasisDoos, .Params, ProductGroep)
 	} ElseIf (BasisDoos.%Extends("APPS.Verpakking.V1Flatpack")) {
@@ -56,7 +56,7 @@
 </Method>
 
 <Method name="VulAanVouwErrondDoos">
-<FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.VouwErrondDoos,&Params:%String,ProductGroep:%String]]></FormalSpec>
+<FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.VouwErrondDoos,&Params:%String,ProductGroep:%String,BoxDataID:%String]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	If (ProductGroep = "KAD") {
@@ -99,31 +99,39 @@
 		Set Param.Value = BasisDoos.K2
 		Do BasisDoos.Params.Insert(Param)
 		
-	} /*ElseIf ((ProductGroep = "OL") || (ProductGroep = "TAOR INDELINGEN")) {
+	} ElseIf (ProductGroep = "OL") { //|| (ProductGroep = "TAOR INDELINGEN")
 		If (ProductGroep = "OL") { 
 			Set BasisDoos.RecipeName = "OL WRAPAROUND"				//Meta 469
-		} ElseIf (ProductGroep = "TAOR INDELINGEN") {
+		}/* ElseIf (ProductGroep = "TAOR INDELINGEN") {
 			Set BasisDoos.RecipeName = "TAOR INDELINGEN WRAPAROUND" //Meta 508
-		}
+		}*/
 		
 		Set BasisDoos.LogoPrint = "ORGALUX WHITE"
-		Set BasisDoos.Depth = 474
-		Set BasisDoos.Height = 62
-		Set BasisDoos.Width = 218
-		Set BasisDoos.K1 = 60
-		Set BasisDoos.K2 = 110
 		
+		If (##class(DS.Prod.OptiBox.BoxData).%ExistsId(BoxDataID)) {
+			Set BoxData = ##class(DS.Prod.OptiBox.BoxData).%OpenId(BoxDataID)
+		} Else {
+			#dim Logger = ##class(vhLib.Logger).%New("VH doos service").ErrorMail("Geen boxdata gevonden voor boxdataID: '"_BoxDataID_"'.")
+		}
+		
+		Set BasisDoos.Depth = BoxData.DiepteExec
+		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)
+		
 		Set Param = ##class(APPS.Verpakking.Doos.Param).%New()
-		Set Param.Key = "1"
+		Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"1", 1: "K1")
 		Set Param.Value = BasisDoos.K1
 		Do BasisDoos.Params.Insert(Param)
 		
 		Set Param = ##class(APPS.Verpakking.Doos.Param).%New()
-		Set Param.Key = "2"
+		Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"2", 1: "K2")
 		Set Param.Value = BasisDoos.K2
 		Do BasisDoos.Params.Insert(Param)
 		
-	} */ElseIf (ProductGroep = "TBX") {
+	} ElseIf (ProductGroep = "TBX") {
 		Set BasisDoos.RecipeName = "TBX WRAPAROUND"				//Meta 498
 		Set BasisDoos.LogoPrint = "TBX DRAWER"
 		Set BasisDoos.Depth = Params("BKDIEPTE")
Index: APPS/Verpakking/DoosFactory.cls.xml
===================================================================
diff -u -r69606 -r69607
--- APPS/Verpakking/DoosFactory.cls.xml	(.../DoosFactory.cls.xml)	(revision 69606)
+++ APPS/Verpakking/DoosFactory.cls.xml	(.../DoosFactory.cls.xml)	(revision 69607)
@@ -33,6 +33,7 @@
 		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 (ProductGroep = "TAOR indelingen") {
 		If (ReceptNaam = "Mat groep") { Set Doos = ##class(APPS.Verpakking.VouwErrondDoos).%New() }