Index: vhUnitTest/APPS/Halux/PPS/TAORVerpakking/TestDoos.cls.xml
===================================================================
diff -u -r56920 -r56927
--- vhUnitTest/APPS/Halux/PPS/TAORVerpakking/TestDoos.cls.xml	(.../TestDoos.cls.xml)	(revision 56920)
+++ vhUnitTest/APPS/Halux/PPS/TAORVerpakking/TestDoos.cls.xml	(.../TestDoos.cls.xml)	(revision 56927)
@@ -302,6 +302,27 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Snijden FlatpackProbox">
+<Implementation><![CDATA[
+	#Define DefaultAfmetingK2BijRelatiefGroteLadeDiepte		 75
+	#Define DefaultAfmetingK3								100
+	
+	Set ..TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLadeVerpaktIn(##class(DOM.PM.enu.TAORVerpakkingType).FlatpackProbox())
+	
+	#dim SnijService As vhUnitTest.APPS.Halux.PPS.TAORVerpakking.KartonSnijService = ##class(vhUnitTest.APPS.Halux.PPS.TAORVerpakking.KartonSnijService).%New(1000, ..GeefDoosBerekenaar(..TAORKenmerken))
+	#dim OptiBoxStub As vhUnitTest.APPS.Halux.PPS.TAORVerpakking.OptiBoxStub = SnijService.GeefOptibox()
+	
+	Do SnijService.SnijVoorLade("TEST.DO", "", 1, ##class(BL.Prod.OptiBox.enu.SnijMachine).Halux(), 1)
+	Do $$$AssertEquals(OptiBoxStub.BasisRef, "TEST.DO")
+	Do $$$AssertEquals(+$Justify(OptiBoxStub.Params("BREEDTE"), 0, 0), 495, "Lade")
+	Do $$$AssertEquals(+$Justify(OptiBoxStub.Params("DIEPTE"), 0, 0), 569, "Lade")
+	Do $$$AssertEquals(+$Justify(OptiBoxStub.Params("HOOGTE"), 0, 0), 36, "Lade")
+	Do $$$AssertEquals(+$Justify(OptiBoxStub.Params("K1"), 0, 0), 240, "Lade")
+	Do $$$AssertEquals(+$Justify(OptiBoxStub.Params("K2"), 0, 0), $$$DefaultAfmetingK2BijRelatiefGroteLadeDiepte, "Lade")
+	Do $$$AssertEquals(+$Justify(OptiBoxStub.Params("K3"), 0, 0), $$$DefaultAfmetingK3, "Lade")
+]]></Implementation>
+</Method>
+
 <Method name="AssertDoosLade">
 <FormalSpec>LBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken,ProductId:%String,VerwachteHoogte:TECH.Numeric,VerwachteBreedte:TECH.Numeric,VerwachteDiepte:TECH.Numeric</FormalSpec>
 <Private>1</Private>