Index: vhUnitTest/APPS/Halux/PPS/TAORVerpakking/TestDoos.cls.xml
===================================================================
diff -u -r57898 -r57899
--- vhUnitTest/APPS/Halux/PPS/TAORVerpakking/TestDoos.cls.xml	(.../TestDoos.cls.xml)	(revision 57898)
+++ vhUnitTest/APPS/Halux/PPS/TAORVerpakking/TestDoos.cls.xml	(.../TestDoos.cls.xml)	(revision 57899)
@@ -194,12 +194,7 @@
 	Do $$$AssertFalse($IsObject(DoosBerekenaar.GeefDoosLadeFlatpackV1Front()), "Geen DoosLadeFlatpackV1Front, want is geen Binnenlade")
 	Do $$$AssertFalse($IsObject(DoosBerekenaar.GeefDoosLosseOnderdelen()), "Geen losse-onderdelen-doos, want is vast product in builders bij FlatpackV1")
 	
-	Do $$$AssertEquals(DoosLade.Diepte, 569, "BreedteInMM van Bodem") // Per default dwarsliggend
-	Do $$$AssertEquals(DoosLade.Breedte, 237, "LengteInMM van Zijkant") // Per default dwarsliggend
-	Do $$$AssertEquals(DoosLade.Hoogte, ..#DefaultHoogteDoosLadeFlatpackV1NietFront)
-	Do $$$AssertEquals(DoosLade.K1, ..#DefaultAfmetingK1)
-	Do $$$AssertEquals(DoosLade.K2, ..#DefaultAfmetingK2)
-	Do $$$AssertEquals(DoosLade.K3, ..#DefaultAfmetingK3)
+	Do ..AssertFlatpackV1DoosLade(DoosLade, ..#DefaultHoogteDoosLadeFlatpackV1NietFront, 237, 569, ..#DefaultAfmetingK1, ..#DefaultAfmetingK2, ..#DefaultAfmetingK3)
 ]]></Implementation>
 </Method>
 
@@ -220,14 +215,10 @@
 	Do $$$AssertEquals(DoosBerekenaar.GeefKartonSpecificaties().Kinderen.Count(), 2, "DoosLade en DoosLadeFlatpackV1Front")
 	Do $$$AssertEquals(DoosLade.DoosType, ##class(APPS.Halux.PPS.Verpakking.enu.DoosTypes).Flatpack())
 	Do $$$AssertEquals(DoosLadeFlatpackV1Front.DoosType, ##class(APPS.Halux.PPS.Verpakking.enu.DoosTypes).VouwErrondDoos())
+	Do $$$AssertTrue($IsObject(DoosBerekenaar.GeefDoosLadeFlatpackV1Front()), "Wel DoosLadeFlatpackV1Front, want is een Binnenlade")
 	Do $$$AssertFalse($IsObject(DoosBerekenaar.GeefDoosLosseOnderdelen()), "Geen losse-onderdelen-doos, want is vast product in builders bij FlatpackV1")
 	
-	Do $$$AssertEquals(DoosLade.Diepte, 569, "BreedteInMM van Bodem") // Per default dwarsliggend
-	Do $$$AssertEquals(DoosLade.Breedte, 237, "LengteInMM van Zijkant") // Per default dwarsliggend
-	Do $$$AssertEquals(DoosLade.Hoogte, ..#DefaultHoogteDoosLadeFlatpackV1NietFront)
-	Do $$$AssertEquals(DoosLade.K1, ..#DefaultAfmetingK1)
-	Do $$$AssertEquals(DoosLade.K2, ..#DefaultAfmetingK2)
-	Do $$$AssertEquals(DoosLade.K3, ..#DefaultAfmetingK3)
+	Do ..AssertFlatpackV1DoosLade(DoosLade, ..#DefaultHoogteDoosLadeFlatpackV1NietFront, 237, 569, ..#DefaultAfmetingK1, ..#DefaultAfmetingK2, ..#DefaultAfmetingK3)
 	Do $$$AssertEquals(DoosLadeFlatpackV1Front.Diepte, 191.5, "HoogteInMM van Front")
 	Do $$$AssertEquals(DoosLadeFlatpackV1Front.Breedte, 590, "BreedteInMM van Front")
 	Do $$$AssertEquals(DoosLadeFlatpackV1Front.Hoogte, ..#DefaultHoogteVoorDoosLadeFlatpackV1Front)
@@ -250,12 +241,7 @@
 	Do $$$AssertFalse($IsObject(DoosBerekenaar.GeefDoosLadeFlatpackV1Front()), "Geen DoosLadeFlatpackV1Front, want is geen Binnenlade")
 	Do $$$AssertFalse($IsObject(DoosBerekenaar.GeefDoosLosseOnderdelen()), "Geen losse-onderdelen-doos, want is vast product in builders bij FlatpackV1")
 	
-	Do $$$AssertEquals(DoosLade.Diepte, 569, "BreedteInMM van Bodem") // Per default dwarsliggend
-	Do $$$AssertEquals(DoosLade.Breedte, 495, "LengteInMM van Zijkant") // Per default dwarsliggend
-	Do $$$AssertEquals(DoosLade.Hoogte, ..#DefaultHoogteDoosLadeFlatpackV1NietFront)
-	Do $$$AssertEquals(DoosLade.K1, 239.5, "HoogteInMM van Rug + DefaultAfmetingK2BijRelatiefGroteLadeDiepte")
-	Do $$$AssertEquals(DoosLade.K2, ..#DefaultAfmetingK2BijRelatiefGroteLadeDiepte)
-	Do $$$AssertEquals(DoosLade.K3, ..#DefaultAfmetingK3)
+	Do ..AssertFlatpackV1DoosLade(DoosLade, ..#DefaultHoogteDoosLadeFlatpackV1NietFront, 495, 569, 239.5, ..#DefaultAfmetingK2BijRelatiefGroteLadeDiepte, ..#DefaultAfmetingK3)
 ]]></Implementation>
 </Method>
 
@@ -345,6 +331,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="AssertFlatpackV1DoosLade">
+<FormalSpec>DoosLade:APPS.Halux.PPS.TAORVerpakking.impl.DoosLade,VerwachteHoogte:TECH.Numeric,VerwachteBreedte:TECH.Numeric,VerwachteDiepte:TECH.Numeric,VerwachteK1:TECH.Numeric,VerwachteK2:TECH.Numeric,VerwachteK3:TECH.Numeric</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..AssertDoos(DoosLade, VerwachteHoogte, VerwachteBreedte, VerwachteDiepte)
+	Do $$$AssertEquals(DoosLade.K1, VerwachteK1)
+	Do $$$AssertEquals(DoosLade.K2, VerwachteK2)
+	Do $$$AssertEquals(DoosLade.K3, VerwachteK3)
+]]></Implementation>
+</Method>
+
 <Method name="GeefDoosBerekenaar">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,ProductID:DOM.common.ProductID="ProductID"</FormalSpec>
 <Private>1</Private>