Index: vhUnitTest/APPS/Halux/PPS/TAORVerpakking/TestDoos.cls.xml
===================================================================
diff -u -r57899 -r57903
--- vhUnitTest/APPS/Halux/PPS/TAORVerpakking/TestDoos.cls.xml	(.../TestDoos.cls.xml)	(revision 57899)
+++ vhUnitTest/APPS/Halux/PPS/TAORVerpakking/TestDoos.cls.xml	(.../TestDoos.cls.xml)	(revision 57903)
@@ -183,18 +183,8 @@
 	Set ..TAORKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte250 // Forceert de DefaultAfmeting voor K1 en K2
 	Set ..TAORKenmerken.RugHoogte = ..Enum.RugHoogte.F // Forceert de DefaultAfmeting voor K1 en K2
 	
-	#dim DoosBerekenaar As APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(..TAORKenmerken)
-	#dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = ..MaatwerkCalcAPI.GeefLadeInfo(..Context.HalffabItemsBoom, ..TAORKenmerken)
-	#dim Bodem As DOM.PM.Maatwerk.LadeInfo.Bodem = ..GeefLadeOnderdeel(Lade.GeefBodemIterator())
-	#dim Zijkant As DOM.PM.Maatwerk.LadeInfo.Zijkant = ..GeefLadeOnderdeel(Lade.GeefZijkantIterator())
-	#dim DoosLade As DOM.PM.Verpakking.impl.Doos = DoosBerekenaar.GeefDoosLade()
-	
-	Do $$$AssertEquals(DoosBerekenaar.GeefKartonSpecificaties().Kinderen.Count(), 1, "DoosLade")
-	Do $$$AssertEquals(DoosLade.DoosType, ##class(APPS.Halux.PPS.Verpakking.enu.DoosTypes).Flatpack())
-	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 ..AssertFlatpackV1DoosLade(DoosLade, ..#DefaultHoogteDoosLadeFlatpackV1NietFront, 237, 569, ..#DefaultAfmetingK1, ..#DefaultAfmetingK2, ..#DefaultAfmetingK3)
+	Do ..AssertFlatpackV1Dozen(..TAORKenmerken, 1, ##class(APPS.Halux.PPS.Verpakking.enu.DoosTypes).Flatpack(), $$$False, $$$False)
+	Do ..AssertFlatpackV1DoosLadeAfmetingen(..TAORKenmerken, ..#DefaultHoogteDoosLadeFlatpackV1NietFront, 237, 569, ..#DefaultAfmetingK1, ..#DefaultAfmetingK2, ..#DefaultAfmetingK3)
 ]]></Implementation>
 </Method>
 
@@ -204,44 +194,18 @@
 	Set ..TAORKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte250 // Forceert de DefaultAfmeting voor K1 en K2
 	Set ..TAORKenmerken.RugHoogte = ..Enum.RugHoogte.F // Forceert de DefaultAfmeting voor K1 en K2
 	
-	#dim DoosBerekenaar As APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(..TAORKenmerken)
-	#dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = ..MaatwerkCalcAPI.GeefLadeInfo(..Context.HalffabItemsBoom, ..TAORKenmerken)
-	#dim Bodem As DOM.PM.Maatwerk.LadeInfo.Bodem = ..GeefLadeOnderdeel(Lade.GeefBodemIterator())
-	#dim Zijkant As DOM.PM.Maatwerk.LadeInfo.Zijkant = ..GeefLadeOnderdeel(Lade.GeefZijkantIterator())
-	#dim Front As DOM.PM.Maatwerk.LadeInfo.Front = ..GeefLadeOnderdeel(Lade.GeefFrontIterator())
-	#dim DoosLade As DOM.PM.Verpakking.impl.Doos = DoosBerekenaar.GeefDoosLade()
-	#dim DoosLadeFlatpackV1Front As DOM.PM.Verpakking.impl.Doos = DoosBerekenaar.GeefDoosLadeFlatpackV1Front()
-	
-	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 ..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)
+	Do ..AssertFlatpackV1Dozen(..TAORKenmerken, 2, ##class(APPS.Halux.PPS.Verpakking.enu.DoosTypes).Flatpack(), $$$True, $$$False)
+	Do ..AssertFlatpackV1DoosLadeAfmetingen(..TAORKenmerken, ..#DefaultHoogteDoosLadeFlatpackV1NietFront, 237, 569, ..#DefaultAfmetingK1, ..#DefaultAfmetingK2, ..#DefaultAfmetingK3)
+	Do ..AssertFlatpackV1DoosFront(..TAORKenmerken, ##class(APPS.Halux.PPS.Verpakking.enu.DoosTypes).VouwErrondDoos(), ..#DefaultHoogteVoorDoosLadeFlatpackV1Front, 590, 191.5)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Relatief grote LadeDiepte bij niet-Binnenlade verpakt in FlatpackV1 - Grotere default waarde voor K2 en verlengde waarde K1">
 <Implementation><![CDATA[
 	Set ..TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLadeVerpaktIn(##class(DOM.PM.enu.TAORVerpakkingType).FlatpackV1())
 	
-	#dim DoosBerekenaar As APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(..TAORKenmerken)
-	#dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = ..MaatwerkCalcAPI.GeefLadeInfo(..Context.HalffabItemsBoom, ..TAORKenmerken)
-	#dim Bodem As DOM.PM.Maatwerk.LadeInfo.Bodem = ..GeefLadeOnderdeel(Lade.GeefBodemIterator())
-	#dim Zijkant As DOM.PM.Maatwerk.LadeInfo.Zijkant = ..GeefLadeOnderdeel(Lade.GeefZijkantIterator())
-	#dim Rug As DOM.PM.Maatwerk.LadeInfo.Rug = ..GeefLadeOnderdeel(Lade.GeefRugIterator())
-	#dim DoosLade As DOM.PM.Verpakking.impl.Doos = DoosBerekenaar.GeefDoosLade()
-	
-	Do $$$AssertEquals(DoosBerekenaar.GeefKartonSpecificaties().Kinderen.Count(), 1, "DoosLade")
-	Do $$$AssertEquals(DoosLade.DoosType, ##class(APPS.Halux.PPS.Verpakking.enu.DoosTypes).Flatpack())
-	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 ..AssertFlatpackV1DoosLade(DoosLade, ..#DefaultHoogteDoosLadeFlatpackV1NietFront, 495, 569, 239.5, ..#DefaultAfmetingK2BijRelatiefGroteLadeDiepte, ..#DefaultAfmetingK3)
+	Do ..AssertFlatpackV1Dozen(..TAORKenmerken, 1, ##class(APPS.Halux.PPS.Verpakking.enu.DoosTypes).Flatpack(), $$$False, $$$False)
+	Do ..AssertFlatpackV1DoosLadeAfmetingen(..TAORKenmerken, ..#DefaultHoogteDoosLadeFlatpackV1NietFront, 495, 569, 239.5, ..#DefaultAfmetingK2BijRelatiefGroteLadeDiepte, ..#DefaultAfmetingK3)
 ]]></Implementation>
 </Method>
 
@@ -331,17 +295,46 @@
 ]]></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>
+<Method name="AssertFlatpackV1Dozen">
+<FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,VerwachtAantalDozen:%Integer,VerwachtDoosType:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,VerwachtAanwezigDoosLadeFlatpackV1Front:%Boolean,VerwachtAanwezigDoosLosseOnderdelen:%Boolean</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
+	#dim DoosBerekenaar As APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(TAORKenmerken)
+	#dim DoosLade As DOM.PM.Verpakking.impl.Doos = DoosBerekenaar.GeefDoosLade()
+	
+	Do $$$AssertEquals(DoosBerekenaar.GeefKartonSpecificaties().Kinderen.Count(), VerwachtAantalDozen)
+	Do $$$AssertEquals(DoosLade.DoosType, VerwachtDoosType)
+	Do $$$AssertEquals($IsObject(DoosBerekenaar.GeefDoosLadeFlatpackV1Front()), VerwachtAanwezigDoosLadeFlatpackV1Front)
+	Do $$$AssertEquals($IsObject(DoosBerekenaar.GeefDoosLosseOnderdelen()), VerwachtAanwezigDoosLosseOnderdelen)
+]]></Implementation>
+</Method>
+
+<Method name="AssertFlatpackV1DoosLadeAfmetingen">
+<FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,VerwachteHoogte:TECH.Numeric,VerwachteBreedte:TECH.Numeric,VerwachteDiepte:TECH.Numeric,VerwachteK1:TECH.Numeric,VerwachteK2:TECH.Numeric,VerwachteK3:TECH.Numeric</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim DoosBerekenaar As APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(TAORKenmerken)
+	#dim DoosLade As DOM.PM.Verpakking.impl.Doos = DoosBerekenaar.GeefDoosLade()
+	
 	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="AssertFlatpackV1DoosFront">
+<FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,VerwachtDoosType:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,VerwachteHoogte:TECH.Numeric,VerwachteBreedte:TECH.Numeric,VerwachteDiepte:TECH.Numeric</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim DoosBerekenaar As APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(..TAORKenmerken)
+	#dim DoosLadeFlatpackV1Front As DOM.PM.Verpakking.impl.Doos = DoosBerekenaar.GeefDoosLadeFlatpackV1Front()
+	
+	Do $$$AssertEquals(DoosLadeFlatpackV1Front.DoosType, VerwachtDoosType)
+	Do ..AssertDoos(DoosLadeFlatpackV1Front, VerwachteHoogte, VerwachteBreedte, VerwachteDiepte)
+]]></Implementation>
+</Method>
+
 <Method name="GeefDoosBerekenaar">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,ProductID:DOM.common.ProductID="ProductID"</FormalSpec>
 <Private>1</Private>