Index: APPS/Verpakking/DoosAanvuller.cls.xml
===================================================================
diff -u -r70225 -r70228
--- APPS/Verpakking/DoosAanvuller.cls.xml	(.../DoosAanvuller.cls.xml)	(revision 70225)
+++ APPS/Verpakking/DoosAanvuller.cls.xml	(.../DoosAanvuller.cls.xml)	(revision 70228)
@@ -16,14 +16,6 @@
 	Do ListOfPackageDesignItems.Insert("Item1")
 	Set BasisDoos.PackageDesignItems = ListOfPackageDesignItems	
 	
-	If ($$$Not(MachineId = ##class(APPS.Verpakking.enu.MachineID).VH()) && (ProductGroep = "PR")) {
-		Set BasisDoos.LogoPrint = "TBX DRAWER"
-	}
-	
-	If (MachineId = ##class(APPS.Verpakking.enu.MachineID).KraftKlein()) {
-		Set BasisDoos.CardBoardThickness = 3
-	}
-	
 	If (BasisDoos.%Extends("APPS.Verpakking.V1HogeRug")) {
 		Do ..VulAanV1HogeRug(.BasisDoos, .Params)
 	} ElseIf (BasisDoos.%Extends("APPS.Verpakking.V1LageRug")) {
@@ -54,6 +46,14 @@
 	Set BasisDoos.Height = ##class(TECH.Math).Round(BasisDoos.Height,0)
 	Set BasisDoos.Width = ##class(TECH.Math).Round(BasisDoos.Width,0)
 	
+	If ($$$Not(MachineId = ##class(APPS.Verpakking.enu.MachineID).VH()) && (ProductGroep = "PR")) {
+		Set BasisDoos.LogoPrint = "TBX DRAWER"
+	}
+	
+	If (MachineId = ##class(APPS.Verpakking.enu.MachineID).KraftKlein()) {
+		Set BasisDoos.CardBoardThickness = 3
+	}
+	
 	Quit BasisDoos
 ]]></Implementation>
 </Method>