Index: vhUnitTest/APPS/PM/Maatwerk/TBX/Probox/TestCalculator.cls.xml
===================================================================
diff -u -r2198 -r2209
--- vhUnitTest/APPS/PM/Maatwerk/TBX/Probox/TestCalculator.cls.xml	(.../TestCalculator.cls.xml)	(revision 2198)
+++ vhUnitTest/APPS/PM/Maatwerk/TBX/Probox/TestCalculator.cls.xml	(.../TestCalculator.cls.xml)	(revision 2209)
@@ -56,16 +56,16 @@
 <Method name="TestGeefHoogteAandeel">
 <Implementation><![CDATA[
 	Set HoogteAandeel=##class(APPS.PM.Maatwerk.TBX.Probox.Calculator).GeefHoogteAandeel(300)
-	Do $$$AssertEquals(HoogteAandeel,0.5,"Het HoogteAandeel is correct berekend voor Breedte 300mm")
+	Do $$$AssertEquals(HoogteAandeel,0.8,"Het HoogteAandeel is correct berekend voor Breedte 300mm")
 	
 	Set HoogteAandeel=##class(APPS.PM.Maatwerk.TBX.Probox.Calculator).GeefHoogteAandeel(590)
-	Do $$$AssertEquals(HoogteAandeel,0.6166666666666666667,"Het HoogteAandeel is correct berekend voor Breedte 590mm")
+	Do $$$AssertEquals(HoogteAandeel,0.8,"Het HoogteAandeel is correct berekend voor Breedte 590mm")
 	
 	Set HoogteAandeel=##class(APPS.PM.Maatwerk.TBX.Probox.Calculator).GeefHoogteAandeel(720)
-	Do $$$AssertEquals(HoogteAandeel,0.725,"Het HoogteAandeel is correct berekend voor Breedte 720mm")
+	Do $$$AssertEquals(HoogteAandeel,0.84,"Het HoogteAandeel is correct berekend voor Breedte 720mm")
 	
 	Set HoogteAandeel=##class(APPS.PM.Maatwerk.TBX.Probox.Calculator).GeefHoogteAandeel(840)
-	Do $$$AssertEquals(HoogteAandeel,0.825,"Het HoogteAandeel is correct berekend voor Breedte 840mm")
+	Do $$$AssertEquals(HoogteAandeel,0.88,"Het HoogteAandeel is correct berekend voor Breedte 840mm")
 	
 	Set HoogteAandeel=##class(APPS.PM.Maatwerk.TBX.Probox.Calculator).GeefHoogteAandeel(1200)
 	Do $$$AssertEquals(HoogteAandeel,1.0,"Het HoogteAandeel is correct berekend voor Breedte 1200mm")
@@ -81,7 +81,7 @@
 <Implementation><![CDATA[
 	Set VolumeAandeel=##class(APPS.PM.Maatwerk.TBX.Probox.Calculator).GeefVolumeAandeel(##class(DOM.PM.enu.LadeVariant).TBXPlus(),0,500,"M",840)
 	Do $$$AssertTrue($$$ValIsBetween(VolumeAandeel,0.001,1),"Het VolumeAandeel ligt tussen 0 en 100%")
-	Do $$$AssertEquals(VolumeAandeel,(0.825*0.13),"Het VolumeAandeel is correct berekend")
+	Do $$$AssertEquals(VolumeAandeel,(0.88*0.13),"Het VolumeAandeel is correct berekend")
 ]]></Implementation>
 </Method>
 
Index: APPS/PM/Maatwerk/TBX/Probox/Calculator.cls.xml
===================================================================
diff -u -r2180 -r2209
--- APPS/PM/Maatwerk/TBX/Probox/Calculator.cls.xml	(.../Calculator.cls.xml)	(revision 2180)
+++ APPS/PM/Maatwerk/TBX/Probox/Calculator.cls.xml	(.../Calculator.cls.xml)	(revision 2209)
@@ -163,18 +163,18 @@
 			              /               		
 			             /                		
 			       _____/                 		
-			  0.5                         		
+			  0.8                         		
 			                              		
  */
 
-	#define MinHoogteAandeel   0.5
+	#define MinHoogteAandeel   0.8
 	
 	Set HoogteAandeel=""
-	If LadeBreedte'>450 {
+	If LadeBreedte'>600 {
 		Set HoogteAandeel = $$$MinHoogteAandeel
 	}
 	Else {
-		Set HoogteAandeel = ((LadeBreedte-450)*(1/1200)) + $$$MinHoogteAandeel
+		Set HoogteAandeel = ((LadeBreedte-600)*(1/3000)) + $$$MinHoogteAandeel
 	}
 	Set:(HoogteAandeel>1) HoogteAandeel=1
 	Quit HoogteAandeel
Index: zTryout/FM/probox/VolumeTest.cls.xml
===================================================================
diff -u -r2189 -r2209
--- zTryout/FM/probox/VolumeTest.cls.xml	(.../VolumeTest.cls.xml)	(revision 2189)
+++ zTryout/FM/probox/VolumeTest.cls.xml	(.../VolumeTest.cls.xml)	(revision 2209)
@@ -7,8 +7,36 @@
 
 <Method name="Main">
 <ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	//LadeVariant As DOM.PM.enu.LadeVariant, 
+	//IsBinnenlade As %Boolean, LadeDiepte As %Integer, LadeHoogte As %String, LadeBreedte As %Float
+	//
+	// Hardcoded probox testbestelling (toelevering is al weg)
+	Set VolumeAandeel1=##class(APPS.PM.Maatwerk.TBX.Probox.Calculator).GeefVolumeAandeel(
+			##class(DOM.PM.enu.LadeVariant).TBXPlus(),
+			0,450,"K",763)
+	Set VolumeAandeel2=##class(APPS.PM.Maatwerk.TBX.Probox.Calculator).GeefVolumeAandeel(
+			##class(DOM.PM.enu.LadeVariant).TBXPlus(),
+			0,550,"M",563)
+	Set VolumeAandeel3=##class(APPS.PM.Maatwerk.TBX.Probox.Calculator).GeefVolumeAandeel(
+			##class(DOM.PM.enu.LadeVariant).TBXPlus(),
+			0,550,"D",763)
+	Set VolumeAandeel4=##class(APPS.PM.Maatwerk.TBX.Probox.Calculator).GeefVolumeAandeel(
+			##class(DOM.PM.enu.LadeVariant).TBXPlus(),
+			1,500,"B",763)
+	Set Totaal = (VolumeAandeel1 *1) + (VolumeAandeel2 * 3) + (VolumeAandeel3 *4) + (VolumeAandeel4 * 2)
+	
+	Write "Totaal aandeel: ", Totaal, !
+	set AantalEtiketten = ##class(TECH.Math).Ceil(Totaal)
+	Write "Aantal etiketten: ", AantalEtiketten
+]]></Implementation>
+</Method>
+
+<Method name="VolumeVanToelevering">
+<ClassMethod>1</ClassMethod>
 <FormalSpec>ToeNr:%Integer</FormalSpec>
 <Implementation><![CDATA[
+	// Geen error handling, crasht als de toelevering niet bestaat.
 	Set ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
 	Set Toelevering = ToeleveringAPI.GeefToelevering(ToeNr)
 	set VolumeAandeel = 0