Index: APPS/Verpakking/DoosAanvuller.cls.xml
===================================================================
diff -u -r72545 -r72581
--- APPS/Verpakking/DoosAanvuller.cls.xml	(.../DoosAanvuller.cls.xml)	(revision 72545)
+++ APPS/Verpakking/DoosAanvuller.cls.xml	(.../DoosAanvuller.cls.xml)	(revision 72581)
@@ -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 = ..CalcMetDefault(1, BoxData.DiepteExec)
-		Set BasisDoos.Height = ..CalcMetDefault(1, BoxData.HoogteExec)
-		Set BasisDoos.Width = ..CalcMetDefault(1, BoxData.BreedteExec)
-		
 		#dim ParamKey As %String
 		For ParamKey = "K1","K2" {
 			If (BoxData.Params.IsDefined(ParamKey)) {
@@ -299,18 +303,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 = ..CalcMetDefault(1, BoxData.DiepteExec)
-		Set BasisDoos.Height = ..CalcMetDefault(1, BoxData.HoogteExec)
-		Set BasisDoos.Width = ..CalcMetDefault(1, BoxData.BreedteExec)
-		
 		#dim Param As %String
 		For Param = "Fold3","Fold4","Fold5","NBR" {
 			If (BoxData.Params.IsDefined(Param)) {
@@ -343,18 +351,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 = ..CalcMetDefault(1, BoxData.DiepteExec)
-	Set BasisDoos.Height = ..CalcMetDefault(1, BoxData.HoogteExec)
-	Set BasisDoos.Width = ..CalcMetDefault(1, BoxData.BreedteExec)
-	
 	If (BoxData.Params.IsDefined("QO")) {
 		If $$$Not(BoxData.Params.GetAt("QO").Waarde = "") {
 			Set $property(BasisDoos, "QO") = BoxData.Params.GetAt("QO").Waarde
@@ -373,17 +385,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 = ..CalcMetDefault(1, BoxData.DiepteExec)
-	Set BasisDoos.Height = ..CalcMetDefault(1, BoxData.HoogteExec)
-	Set BasisDoos.Width = ..CalcMetDefault(1, BoxData.BreedteExec)
 ]]></Implementation>
 </Method>
 
@@ -395,18 +411,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 = ..CalcMetDefault(1, BoxData.DiepteExec)
-	Set BasisDoos.Height = ..CalcMetDefault(1, BoxData.HoogteExec)
-	Set BasisDoos.Width = ..CalcMetDefault(1, BoxData.BreedteExec)
-	
 	#dim Param As %String
 	For Param = "FS","LS","LT","RS","RT" {
 		If (BoxData.Params.IsDefined(Param)) {
@@ -432,18 +452,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 = ..CalcMetDefault(1, BoxData.DiepteExec)
-	Set BasisDoos.Height = ..CalcMetDefault(1, BoxData.HoogteExec)
-	Set BasisDoos.Width = ..CalcMetDefault(1, BoxData.BreedteExec)
-	
 	If (BoxData.Params.IsDefined("Flap")) {
 		If $$$Not(BoxData.Params.GetAt("Flap").Waarde = "") {
 			Set $property(BasisDoos, "Flap") = BoxData.Params.GetAt("Flap").Waarde
@@ -471,10 +495,11 @@
 	
 	//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 = ..CalcMetDefault(1, BoxData.DiepteExec)
-	Set BasisDoos.Height = ..CalcMetDefault(1, BoxData.HoogteExec)
-	Set BasisDoos.Width = ..CalcMetDefault(1, BoxData.BreedteExec)
 	
+	Set BasisDoos.Depth = BoxData.Diepte
+	Set BasisDoos.Height = BoxData.Hoogte
+	Set BasisDoos.Width = BoxData.Breedte
+	
 	If (BasisDoos.Height > 330) {
 		Set BasisDoos.AG = 1
 	}