Index: vhUnitTest/APPS/Halux/PPS/TAORVerpakking/TestDoos.cls.xml
===================================================================
diff -u -r56927 -r57051
--- vhUnitTest/APPS/Halux/PPS/TAORVerpakking/TestDoos.cls.xml	(.../TestDoos.cls.xml)	(revision 56927)
+++ vhUnitTest/APPS/Halux/PPS/TAORVerpakking/TestDoos.cls.xml	(.../TestDoos.cls.xml)	(revision 57051)
@@ -5,6 +5,36 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.DOM.PM.Verpakking.impl.DoosBerekenaar.TestDoos,DOM.PM.Maatwerk.TAX.impl.Base</Super>
 
+<Parameter name="DefaultAfmetingK1">
+<Type>%Numeric</Type>
+<Default>100</Default>
+</Parameter>
+
+<Parameter name="DefaultAfmetingK2">
+<Type>%Numeric</Type>
+<Default>0</Default>
+</Parameter>
+
+<Parameter name="DefaultAfmetingK2BijRelatiefGroteLadeDiepte">
+<Type>%Numeric</Type>
+<Default>75</Default>
+</Parameter>
+
+<Parameter name="DefaultAfmetingK3">
+<Type>%Numeric</Type>
+<Default>100</Default>
+</Parameter>
+
+<Parameter name="DefaultHoogteDoosLadeFlatpackProboxNietFront">
+<Type>%Numeric</Type>
+<Default>35.5</Default>
+</Parameter>
+
+<Parameter name="DefaultHoogteVoorDoosLadeFlatpackProboxFront">
+<Type>%Numeric</Type>
+<Default>27</Default>
+</Parameter>
+
 <Property name="Context">
 <Type>DOM.PM.Maatwerk.Calc.HF.HalffabContext</Type>
 <Private>1</Private>
@@ -147,13 +177,8 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Niet-Binnenlade verpakt in Flatpack Probox">
+<Method name="Test: Niet-Binnenlade verpakt in Flatpack Probox - Default waarden voor Hoogte, K1, K2 en K3 van DoosLade">
 <Implementation><![CDATA[
-	#Define DefaultHoogteDoosLadeFlatpackProboxNietFront	 35.50
-	#Define DefaultAfmetingK1								100
-	#Define DefaultAfmetingK2								  0
-	#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 DefaultAfmeting voor K1 en K2
 	Set ..TAORKenmerken.RugHoogte = ..Enum.RugHoogte.F // Forceert de DefaultAfmeting voor K1 en K2
@@ -162,28 +187,24 @@
 	#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(DoosBerekenaar.GeefDoosLade().DoosType, ##class(APPS.Halux.PPS.Verpakking.enu.DoosTypes).Flatpack())
+	Do $$$AssertEquals(DoosLade.DoosType, ##class(APPS.Halux.PPS.Verpakking.enu.DoosTypes).Flatpack())
 	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, $$$DefaultAfmetingK1)
-	Do $$$AssertEquals(DoosBerekenaar.GeefDoosLade().K2, $$$DefaultAfmetingK2)
-	Do $$$AssertEquals(DoosBerekenaar.GeefDoosLade().K3, $$$DefaultAfmetingK3)
+	
+	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, ..#DefaultHoogteDoosLadeFlatpackProboxNietFront)
+	Do $$$AssertEquals(DoosLade.K1, ..#DefaultAfmetingK1)
+	Do $$$AssertEquals(DoosLade.K2, ..#DefaultAfmetingK2)
+	Do $$$AssertEquals(DoosLade.K3, ..#DefaultAfmetingK3)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Binnenlade verpakt in Flatpack Probox">
+<Method name="Test: Binnenlade verpakt in Flatpack Probox - Default waarden voor Hoogte, K1, K2 en K3 van DoosLade en Hoogte van DoosLadeFlatpackProboxFront">
 <Implementation><![CDATA[
-	#Define DefaultHoogteDoosLadeFlatpackProboxNietFront	 35.50
-	#Define DefaultHoogteVoorDoosLadeFlatpackProboxFront	 27
-	#Define DefaultAfmetingK1								100
-	#Define DefaultAfmetingK2								  0
-	#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 DefaultAfmeting voor K1 en K2
 	Set ..TAORKenmerken.RugHoogte = ..Enum.RugHoogte.F // Forceert de DefaultAfmeting voor K1 en K2
@@ -193,47 +214,48 @@
 	#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 DoosLadeFlatpackProboxFront As DOM.PM.Verpakking.impl.Doos = DoosBerekenaar.GeefDoosLadeFlatpackProboxFront()
 	
 	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 $$$AssertEquals(DoosLade.DoosType, ##class(APPS.Halux.PPS.Verpakking.enu.DoosTypes).Flatpack())
+	Do $$$AssertEquals(DoosLadeFlatpackProboxFront.DoosType, ##class(APPS.Halux.PPS.Verpakking.enu.DoosTypes).VouwErrondDoos())
 	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, $$$DefaultAfmetingK1)
-	Do $$$AssertEquals(DoosBerekenaar.GeefDoosLade().K2, $$$DefaultAfmetingK2)
-	Do $$$AssertEquals(DoosBerekenaar.GeefDoosLade().K3, $$$DefaultAfmetingK3)
-	Do $$$AssertEquals(DoosBerekenaar.GeefDoosLadeFlatpackProboxFront().Diepte, Front.GeefHoogteInMM())
-	Do $$$AssertEquals(DoosBerekenaar.GeefDoosLadeFlatpackProboxFront().Breedte, Front.GeefBreedteInMM())
-	Do $$$AssertEquals(DoosBerekenaar.GeefDoosLadeFlatpackProboxFront().Hoogte, $$$DefaultHoogteVoorDoosLadeFlatpackProboxFront)
+	
+	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, ..#DefaultHoogteDoosLadeFlatpackProboxNietFront)
+	Do $$$AssertEquals(DoosLade.K1, ..#DefaultAfmetingK1)
+	Do $$$AssertEquals(DoosLade.K2, ..#DefaultAfmetingK2)
+	Do $$$AssertEquals(DoosLade.K3, ..#DefaultAfmetingK3)
+	Do $$$AssertEquals(DoosLadeFlatpackProboxFront.Diepte, 191.5, "HoogteInMM van Front")
+	Do $$$AssertEquals(DoosLadeFlatpackProboxFront.Breedte, 590, "BreedteInMM van Front")
+	Do $$$AssertEquals(DoosLadeFlatpackProboxFront.Hoogte, ..#DefaultHoogteVoorDoosLadeFlatpackProboxFront)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: K1 en K2 bij relatief grote LadeDiepte bij niet-Binnenlade verpakt in Flatpack Probox">
+<Method name="Test: Relatief grote LadeDiepte bij niet-Binnenlade verpakt in Flatpack Probox - Grotere default waarde voor K2 en verlengde waarde K1">
 <Implementation><![CDATA[
-	#Define DefaultHoogteDoosLadeFlatpackProboxNietFront	 35.50
-	#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 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(DoosBerekenaar.GeefDoosLade().DoosType, ##class(APPS.Halux.PPS.Verpakking.enu.DoosTypes).Flatpack())
+	Do $$$AssertEquals(DoosLade.DoosType, ##class(APPS.Halux.PPS.Verpakking.enu.DoosTypes).Flatpack())
 	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, Rug.GeefHoogteInMM() + $$$DefaultAfmetingK2BijRelatiefGroteLadeDiepte)
-	Do $$$AssertEquals(DoosBerekenaar.GeefDoosLade().K2, $$$DefaultAfmetingK2BijRelatiefGroteLadeDiepte)
-	Do $$$AssertEquals(DoosBerekenaar.GeefDoosLade().K3, $$$DefaultAfmetingK3)
+	
+	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, ..#DefaultHoogteDoosLadeFlatpackProboxNietFront)
+	Do $$$AssertEquals(DoosLade.K1, 239.5, "HoogteInMM van Rug + DefaultAfmetingK2BijRelatiefGroteLadeDiepte")
+	Do $$$AssertEquals(DoosLade.K2, ..#DefaultAfmetingK2BijRelatiefGroteLadeDiepte)
+	Do $$$AssertEquals(DoosLade.K3, ..#DefaultAfmetingK3)
 ]]></Implementation>
 </Method>
 
Index: APPS/Halux/PPS/TAORVerpakking/impl/KartonSnijService.cls.xml
===================================================================
diff -u -r56939 -r57051
--- APPS/Halux/PPS/TAORVerpakking/impl/KartonSnijService.cls.xml	(.../KartonSnijService.cls.xml)	(revision 56939)
+++ APPS/Halux/PPS/TAORVerpakking/impl/KartonSnijService.cls.xml	(.../KartonSnijService.cls.xml)	(revision 57051)
@@ -34,7 +34,7 @@
 	#dim MaatwerkProduct As DOM.PM.MaatwerkProduct = ProductTypeAPI.GeefMaatwerkProduct(ProductID)
 	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = MaatwerkProduct.GeefHalffabItemsBoom(##class(DOM.PM.Maatwerk.Calc.Common.enu.BerekeningWijze).ProductieAansturing())
 	
-	Set ..IngegevenKenmerken = MaatwerkProduct.GeefProductSpecificatie().GeefIngegevenKenmerken()
+	Set ..IngegevenKenmerken = MaatwerkProduct.GeefIngegevenKenmerken()
 	Set ..ProductID = ProductID
 	Set ..Optibox = ##class(BL.Prod.OptiBox.Optimize).%New()
 	Set ..DoosBerekenaar = ##class(APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar).%New(HalffabItemsBoom, ..IngegevenKenmerken, ProductID)