Index: vhUnitTest/APPS/Halux/PPS/TAORVerpakking/TestDoos.cls.xml
===================================================================
diff -u -r56917 -r56920
--- vhUnitTest/APPS/Halux/PPS/TAORVerpakking/TestDoos.cls.xml	(.../TestDoos.cls.xml)	(revision 56917)
+++ vhUnitTest/APPS/Halux/PPS/TAORVerpakking/TestDoos.cls.xml	(.../TestDoos.cls.xml)	(revision 56920)
@@ -155,18 +155,18 @@
 	#Define DefaultAfmetingK3								100
 	
 	Set ..TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLadeVerpaktIn(##class(DOM.PM.enu.TAORVerpakkingType).FlatpackProbox())
-	Set ..TAORKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte250 // Forceert de Default Afmetingen voor K1 en K2
+	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 Rug As DOM.PM.Maatwerk.LadeInfo.Rug = ..GeefLadeOnderdeel(Lade.GeefRugIterator())
 	
 	Do $$$AssertEquals(DoosBerekenaar.GeefKartonSpecificaties().Kinderen.Count(), 1, "DoosLade")
 	Do $$$AssertEquals(DoosBerekenaar.GeefDoosLade().DoosType, ##class(APPS.Halux.PPS.Verpakking.enu.DoosTypes).Flatpack())
-	Do $$$AssertFalse($IsObject(DoosBerekenaar.GeefDoosLadeFlatpackProboxFront()), "Geen doos voor front")
-	Do $$$AssertFalse($IsObject(DoosBerekenaar.GeefDoosLosseOnderdelen()), "Geen losse onderdelen")
+	Do $$$AssertFalse($IsObject(DoosBerekenaar.GeefDoosLadeFlatpackProboxFront()), "Geen DoosLadeFlatpackProboxFront, want is geen Binnenlade")
+	Do $$$AssertFalse($IsObject(DoosBerekenaar.GeefDoosLosseOnderdelen()), "Geen losse-onderdelen-doos, want is vast product in builders bij FlatpackProbox")
 	Do $$$AssertEquals(DoosBerekenaar.GeefDoosLade().Diepte, Bodem.GeefBreedteInMM()) // Per default dwarsliggend
 	Do $$$AssertEquals(DoosBerekenaar.GeefDoosLade().Breedte, Zijkant.GeefLengteInMM()) // Per default dwarsliggend
 	Do $$$AssertEquals(DoosBerekenaar.GeefDoosLade().Hoogte, $$$DefaultHoogteDoosLadeFlatpackProboxNietFront)
@@ -185,19 +185,19 @@
 	#Define DefaultAfmetingK3								100
 	
 	Set ..TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardBinnenladeVerpaktIn(##class(DOM.PM.enu.TAORVerpakkingType).FlatpackProbox())
-	Set ..TAORKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte250 // Forceert de Default Afmetingen voor K1 en K2
+	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 Rug As DOM.PM.Maatwerk.LadeInfo.Rug = ..GeefLadeOnderdeel(Lade.GeefRugIterator())
 	#dim Front As DOM.PM.Maatwerk.LadeInfo.Front = ..GeefLadeOnderdeel(Lade.GeefFrontIterator())
 	
 	Do $$$AssertEquals(DoosBerekenaar.GeefKartonSpecificaties().Kinderen.Count(), 2, "DoosLade en DoosLadeFlatpackProboxFront")
 	Do $$$AssertEquals(DoosBerekenaar.GeefDoosLade().DoosType, ##class(APPS.Halux.PPS.Verpakking.enu.DoosTypes).Flatpack())
 	Do $$$AssertEquals(DoosBerekenaar.GeefDoosLadeFlatpackProboxFront().DoosType, ##class(APPS.Halux.PPS.Verpakking.enu.DoosTypes).VouwErrondDoos())
-	Do $$$AssertFalse($IsObject(DoosBerekenaar.GeefDoosLosseOnderdelen()), "Geen losse onderdelen")
+	Do $$$AssertFalse($IsObject(DoosBerekenaar.GeefDoosLosseOnderdelen()), "Geen losse-onderdelen-doos, want is vast product in builders bij FlatpackProbox")
 	Do $$$AssertEquals(DoosBerekenaar.GeefDoosLade().Diepte, Bodem.GeefBreedteInMM()) // Per default dwarsliggend
 	Do $$$AssertEquals(DoosBerekenaar.GeefDoosLade().Breedte, Zijkant.GeefLengteInMM()) // Per default dwarsliggend
 	Do $$$AssertEquals(DoosBerekenaar.GeefDoosLade().Hoogte, $$$DefaultHoogteDoosLadeFlatpackProboxNietFront)
@@ -210,10 +210,10 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: K1 en K2 bij relatief lage RugHoogte bij niet-Binnenlade verpakt in Flatpack Probox">
+<Method name="Test: K1 en K2 bij relatief grote LadeDiepte bij niet-Binnenlade verpakt in Flatpack Probox">
 <Implementation><![CDATA[
 	#Define DefaultHoogteDoosLadeFlatpackProboxNietFront	 35.50
-	#Define DefaultAfmetingK2BijRelatiefLageRugHoogte		 75
+	#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())
@@ -226,13 +226,13 @@
 	
 	Do $$$AssertEquals(DoosBerekenaar.GeefKartonSpecificaties().Kinderen.Count(), 1, "DoosLade")
 	Do $$$AssertEquals(DoosBerekenaar.GeefDoosLade().DoosType, ##class(APPS.Halux.PPS.Verpakking.enu.DoosTypes).Flatpack())
-	Do $$$AssertFalse($IsObject(DoosBerekenaar.GeefDoosLadeFlatpackProboxFront()), "Geen doos voor front")
-	Do $$$AssertFalse($IsObject(DoosBerekenaar.GeefDoosLosseOnderdelen()), "Geen losse onderdelen")
+	Do $$$AssertFalse($IsObject(DoosBerekenaar.GeefDoosLadeFlatpackProboxFront()), "Geen DoosLadeFlatpackProboxFront, want is geen Binnenlade")
+	Do $$$AssertFalse($IsObject(DoosBerekenaar.GeefDoosLosseOnderdelen()), "Geen losse-onderdelen-doos, want is vast product in builders bij FlatpackProbox")
 	Do $$$AssertEquals(DoosBerekenaar.GeefDoosLade().Diepte, Bodem.GeefBreedteInMM()) // Per default dwarsliggend
 	Do $$$AssertEquals(DoosBerekenaar.GeefDoosLade().Breedte, Zijkant.GeefLengteInMM()) // Per default dwarsliggend
 	Do $$$AssertEquals(DoosBerekenaar.GeefDoosLade().Hoogte, $$$DefaultHoogteDoosLadeFlatpackProboxNietFront)
-	Do $$$AssertEquals(DoosBerekenaar.GeefDoosLade().K1, 239.5)
-	Do $$$AssertEquals(DoosBerekenaar.GeefDoosLade().K2, $$$DefaultAfmetingK2BijRelatiefLageRugHoogte)
+	Do $$$AssertEquals(DoosBerekenaar.GeefDoosLade().K1, Rug.GeefHoogteInMM() + $$$DefaultAfmetingK2BijRelatiefGroteLadeDiepte)
+	Do $$$AssertEquals(DoosBerekenaar.GeefDoosLade().K2, $$$DefaultAfmetingK2BijRelatiefGroteLadeDiepte)
 	Do $$$AssertEquals(DoosBerekenaar.GeefDoosLade().K3, $$$DefaultAfmetingK3)
 ]]></Implementation>
 </Method>
Index: APPS/Halux/PPS/TAORVerpakking/impl/DoosBerekenaar.cls.xml
===================================================================
diff -u -r56917 -r56920
--- APPS/Halux/PPS/TAORVerpakking/impl/DoosBerekenaar.cls.xml	(.../DoosBerekenaar.cls.xml)	(revision 56917)
+++ APPS/Halux/PPS/TAORVerpakking/impl/DoosBerekenaar.cls.xml	(.../DoosBerekenaar.cls.xml)	(revision 56920)
@@ -133,8 +133,8 @@
 	Set DoosLade.Diepte = Bodem.GeefBreedteInMM() // Per default dwarsliggend
 	Set DoosLade.Breedte = Zijkant.GeefLengteInMM() // Per default dwarsliggend
 	Set DoosLade.Hoogte = $$$DefaultHoogteDoosLadeFlatpackProboxNietFront
-	Set DoosLade.K1 = ..GeefK1(Bodem.GeefDiepteInMM(), Rug.GeefHoogteInMM())
-	Set DoosLade.K2 = ..GeefK2(Bodem.GeefDiepteInMM(), Rug.GeefHoogteInMM())
+	Set DoosLade.K1 = ..GeefK1(Zijkant.GeefLengteInMM(), Rug.GeefHoogteInMM())
+	Set DoosLade.K2 = ..GeefK2(Zijkant.GeefLengteInMM(), Rug.GeefHoogteInMM())
 	Set DoosLade.K3 = $$$DefaultAfmetingK3
 	Set DoosLade.DoosType = ..GeefDoosType()
 	
@@ -344,13 +344,13 @@
 </Method>
 
 <Method name="GeefK1">
-<FormalSpec>BodemDiepte:%Numeric,RugHoogte:%Numeric</FormalSpec>
+<FormalSpec>ZijkantLengte:%Numeric,RugHoogte:%Numeric</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Numeric</ReturnType>
 <Implementation><![CDATA[
 	#dim K1 As %Numeric = 100
 	
-	If ($$$Not((RugHoogte + 75) > BodemDiepte)) {
+	If ($$$Not((RugHoogte + 75) > ZijkantLengte)) {
 		Set K1 = RugHoogte + 75
 	}
 	
@@ -359,13 +359,13 @@
 </Method>
 
 <Method name="GeefK2">
-<FormalSpec>BodemDiepte:%Numeric,RugHoogte:%Numeric</FormalSpec>
+<FormalSpec>ZijkantLengte:%Numeric,RugHoogte:%Numeric</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Numeric</ReturnType>
 <Implementation><![CDATA[
 	#dim K2 As %Numeric = 0
 	
-	If ($$$Not((RugHoogte + 75) > BodemDiepte)) {
+	If ($$$Not((RugHoogte + 75) > ZijkantLengte)) {
 		Set K2 = 75
 	}