Index: APPS/Verpakking/DoosAanvuller.cls.xml
===================================================================
diff -u -r72242 -r73249
--- APPS/Verpakking/DoosAanvuller.cls.xml	(.../DoosAanvuller.cls.xml)	(revision 72242)
+++ APPS/Verpakking/DoosAanvuller.cls.xml	(.../DoosAanvuller.cls.xml)	(revision 73249)
@@ -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")) {
@@ -148,18 +148,22 @@
 		
 		Set BasisDoos.LogoPrint = "ORGALUX WHITE"
 		
-		If (BoxData = "") {
+		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
 		}
 		
-		Set BasisDoos.Depth = BoxData.Diepte
-		Set BasisDoos.Height = BoxData.Hoogte
-		Set BasisDoos.Width = BoxData.Breedte
-		
 		#dim ParamKey As %String
 		For ParamKey = "K1","K2" {
 			If (BoxData.Params.IsDefined(ParamKey)) {
@@ -188,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))
@@ -210,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") || (ProductGroep = "")) {
+		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>
@@ -299,18 +331,22 @@
 		Set BasisDoos.BoxSelect = "OL COMPLEX SEPARATOR"		//Meta 483 PRNr 881438
 		Set BasisDoos.LogoPrint = "ORGALUX WHITE"
 		
-		If (BoxData = "") {
+		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
 		}
 		
-		Set BasisDoos.Depth = BoxData.Diepte
-		Set BasisDoos.Height = BoxData.Hoogte
-		Set BasisDoos.Width = BoxData.Breedte
-		
 		#dim Param As %String
 		For Param = "Fold3","Fold4","Fold5","NBR" {
 			If (BoxData.Params.IsDefined(Param)) {
@@ -343,18 +379,22 @@
 	//Meta 466
 	Set BasisDoos.BoxSelect = "OL FILLER"
 	
-	If (BoxData = "") {
-		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_"'.")
+	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
 		}
-	}
 	
-	Set BasisDoos.Depth = BoxData.Diepte
-	Set BasisDoos.Height = BoxData.Hoogte
-	Set BasisDoos.Width = BoxData.Breedte
-	
 	If (BoxData.Params.IsDefined("QO")) {
 		If $$$Not(BoxData.Params.GetAt("QO").Waarde = "") {
 			Set $property(BasisDoos, "QO") = BoxData.Params.GetAt("QO").Waarde
@@ -373,17 +413,21 @@
 	//Meta 486
 	Set BasisDoos.BoxSelect = "OL FILLER SMALL"
 	
-	If (BoxData = "") {
+	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
 	}
-	
-	Set BasisDoos.Depth = BoxData.Diepte
-	Set BasisDoos.Height = BoxData.Hoogte
-	Set BasisDoos.Width = BoxData.Breedte
 ]]></Implementation>
 </Method>
 
@@ -395,18 +439,22 @@
 	//Meta 485
 	Set BasisDoos.BoxSelect = "OL WRAPAROUND BUFFER"
 	
-	If (BoxData = "") {
+	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
 	}
 	
-	Set BasisDoos.Depth = BoxData.Diepte
-	Set BasisDoos.Height = BoxData.Hoogte
-	Set BasisDoos.Width = BoxData.Breedte
-	
 	#dim Param As %String
 	For Param = "FS","LS","LT","RS","RT" {
 		If (BoxData.Params.IsDefined(Param)) {
@@ -432,18 +480,22 @@
 	//Meta 484
 	Set BasisDoos.BoxSelect = "OL SELFSTANDING"
 	
-	If (BoxData = "") {
+	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
 	}
 	
-	Set BasisDoos.Depth = BoxData.Diepte
-	Set BasisDoos.Height = BoxData.Hoogte
-	Set BasisDoos.Width = BoxData.Breedte
-	
 	If (BoxData.Params.IsDefined("Flap")) {
 		If $$$Not(BoxData.Params.GetAt("Flap").Waarde = "") {
 			Set $property(BasisDoos, "Flap") = BoxData.Params.GetAt("Flap").Waarde
@@ -471,6 +523,7 @@
 	
 	//in boxdata zit niets ivm overdoos, dat zit in de snijdata.. Snijdata op te halen adhv ObjRef = bonnr?
 	Do BasisDoos.PackageDesignItems.Insert("Item2")
+	
 	Set BasisDoos.Depth = BoxData.Diepte
 	Set BasisDoos.Height = BoxData.Hoogte
 	Set BasisDoos.Width = BoxData.Breedte
@@ -506,6 +559,46 @@
 	Quit Param
 ]]></Implementation>
 </Method>
+
+<Method name="CalcMetDefault">
+<FormalSpec>DefaultWaarde:%String,Expression:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Params("PRODAANTAL") = 1
+	Set Params("AANTAL") = 1
+	#dim Resultaat As %String = ..Calc(Expression, .Params, .varErrStr)
+	If ("" = Resultaat) {
+		Set Resultaat = DefaultWaarde
+	}
+	Quit Resultaat
+]]></Implementation>
+</Method>
+
+<Method name="Calc">
+<Description>
+Berekenen van een expressie door gebruik te maken van de waarden in Params</Description>
+<FormalSpec><![CDATA[Expression:%String,&Params:%CacheString,&varErrStr:%String]]></FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	Set:('$D(varErrStr)) varErrStr=""
+	Quit:'$D(Params) ""
+	Quit:Expression="" ""
+	New Result,$ETRAP
+	Set $ETRAP="Do CalcTrap^"_$ZN_"()"
+	Set:Expression?.N1","1.N Expression=$TR(Expression,",",".")
+	X "Set Result="_Expression
+	Quit Result
+CalcTrap()
+ 	Set varErrStr=$S(varErrStr="":"",1:varErrStr_$C(13,10))_"- "_$P($ZE,">",1)_"> "_Expression
+ 	New msg
+ 	Set $ECODE=""
+ 	Set msg="EXECUTE FOUT: "_Expression_$$ArrayToText^vhLib("Params",.Params)
+ 	Do WLFMT^vhDBG(msg,"B-Red")
+ 	Set Result="ERR"
+	Quit Result
+]]></Implementation>
+</Method>
 </Class>