Index: APPS/Halux/PPS/TAORVerpakking/impl/DoosLade.cls.xml
===================================================================
diff -u -r31148 -r56917
--- APPS/Halux/PPS/TAORVerpakking/impl/DoosLade.cls.xml	(.../DoosLade.cls.xml)	(revision 31148)
+++ APPS/Halux/PPS/TAORVerpakking/impl/DoosLade.cls.xml	(.../DoosLade.cls.xml)	(revision 56917)
@@ -21,20 +21,27 @@
 <Default>V1 Doos met deksel</Default>
 </Parameter>
 
+<Parameter name="OptiIDFlatpack">
+<Description>
+Type = BL.Prod.OptiBox.enu.SnijDoosNaam </Description>
+<Default>V1 Flatpack</Default>
+</Parameter>
+
 <Property name="DoosType">
 <Type>APPS.Halux.PPS.Verpakking.enu.DoosTypes</Type>
 </Property>
 
 <Method name="VoegToeKartonSpecificaties">
 <FormalSpec>KartonSpecificaties:DOM.PM.Verpakking.dto.KartonSpecificaties</FormalSpec>
 <Implementation><![CDATA[
-	If ..DoosType=##class(APPS.Halux.PPS.Verpakking.enu.DoosTypes).BodemDeksel()
-	{
+	If (..DoosType=##class(APPS.Halux.PPS.Verpakking.enu.DoosTypes).BodemDeksel()) {
 		Do KartonSpecificaties.VoegToe(..GeefKartonSpecificatieBodem())
 		Do KartonSpecificaties.VoegToe(..GeefKartonSpecificatieDeksel())
-	}
-	else
-	{
+	} ElseIf (..DoosType=##class(APPS.Halux.PPS.Verpakking.enu.DoosTypes).Flatpack()) {
+		Do KartonSpecificaties.VoegToe(..GeefKartonSpecificatieFlatpack())
+	} ElseIf (..DoosType=##class(APPS.Halux.PPS.Verpakking.enu.DoosTypes).VouwErrondDoos()) {
+		Do KartonSpecificaties.VoegToe(..GeefKartonSpecificatieFlatpackProboxFront())
+	} Else {
 		Do KartonSpecificaties.VoegToe(..GeefKartonSpecificatieDoosMetDeksel())		
 	}
 ]]></Implementation>
@@ -73,16 +80,42 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKartonSpecificatieFlatpack">
+<ReturnType>DOM.PM.Verpakking.dto.KartonSpecificatie</ReturnType>
+<Implementation><![CDATA[
+	Set DikteCode=##class(DOM.PM.Verpakking.enu.KartonSamenstelling).Dun()
+	Set Dikte=4.2
+	Set Lengte= ((..Diepte * 2) + (..Hoogte * 2))
+	Set Breedte= (..K3 + (2 * ..Hoogte) + ..Breedte + ..K1 + ..K2)
+	Quit ..GeefKartonSpecificatie(##class(DOM.PM.Verpakking.enu.BenamingVerpakkingsOnderdeel).Flatpack(),Lengte,Breedte,DikteCode)
+]]></Implementation>
+</Method>
+
+<Method name="GeefKartonSpecificatieFlatpackProboxFront">
+<ReturnType>DOM.PM.Verpakking.dto.KartonSpecificatie</ReturnType>
+<Implementation><![CDATA[
+	Set DikteCode=##class(DOM.PM.Verpakking.enu.KartonSamenstelling).Dun()
+	Set Dikte=4.2
+	Set Lengte= ((..Diepte * 2) + (..Hoogte * 2))
+	Set Breedte= (..Breedte + (..Hoogte * 2) + (10 * 2))
+	Quit ..GeefKartonSpecificatie(##class(DOM.PM.Verpakking.enu.BenamingVerpakkingsOnderdeel).ErrondDoos(),Lengte,Breedte,DikteCode)
+]]></Implementation>
+</Method>
+
 <Method name="GeefKartonSpecificatie">
 <FormalSpec>Benaming:DOM.PM.Verpakking.enu.BenamingVerpakkingsOnderdeel,Lengte:%Decimal,Breedte:%Decimal,KartonSamenstelling:DOM.PM.Verpakking.enu.KartonSamenstelling</FormalSpec>
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.impl.HFBulkPerOnderdeelGegroepeerdVerpakkingKartonSpecificatie</ReturnType>
 <Implementation><![CDATA[
-	set KartonSpecificatie=##class(DOM.PM.Verpakking.dto.KartonSpecificatie).%New(Benaming,Lengte,Breedte,KartonSamenstelling)
-	set KartonSpecificatie.Volume.Hoogte = ..Hoogte
-	set KartonSpecificatie.Volume.Diepte = ..Diepte
-	set KartonSpecificatie.Volume.Breedte = ..Breedte
-	quit KartonSpecificatie
+	Set KartonSpecificatie=##class(DOM.PM.Verpakking.dto.KartonSpecificatie).%New(Benaming,Lengte,Breedte,KartonSamenstelling)
+	Set KartonSpecificatie.Volume.Hoogte = ..Hoogte
+	Set KartonSpecificatie.Volume.Diepte = ..Diepte
+	Set KartonSpecificatie.Volume.Breedte = ..Breedte
+	Set KartonSpecificatie.Volume.K1 = ..K1
+	Set KartonSpecificatie.Volume.K2 = ..K2
+	Set KartonSpecificatie.Volume.K3 = ..K3
+	
+	Quit KartonSpecificatie
 ]]></Implementation>
 </Method>
 
Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001.cls.xml
===================================================================
diff -u -r56615 -r56917
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001.cls.xml	(.../HFVerpakkingv001.cls.xml)	(revision 56615)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001.cls.xml	(.../HFVerpakkingv001.cls.xml)	(revision 56917)
@@ -254,6 +254,16 @@
 	Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.Probox.Builder.HFProboxDekseldoosv001).%New(##this))
 	Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.Probox.Builder.HFProboxOnderdelendoosv001).%New(##this))
 	Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.Probox.Builder.HFProboxHoekprofielv001).%New(##this))
+	
+	#dim DoosBerekenaar As APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar = ##class(APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar).%New(..HalffabItemsBoom, ..IngegevenKenmerken)
+	#dim Specificaties As DOM.PM.Verpakking.dto.KartonSpecificaties = DoosBerekenaar.GeefKartonSpecificaties()
+	#dim Iterator As TECH.Iterator = Specificaties.GeefIterator()
+	While Iterator.HasNext() {
+		#dim Specificatie As DOM.PM.Verpakking.dto.KartonSpecificatie = Iterator.Next()
+		#dim Builder As DOM.PM.Maatwerk.Calc.HF.impl.HFV1Verpakkingv001 = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HFV1Verpakkingv001).%New(##this, Specificatie)
+		
+		Do ..Builders.Insert(Builder)
+	}
 ]]></Implementation>
 </Method>
 
Index: APPS/Halux/PPS/TAORVerpakking/impl/DoosBerekenaar.cls.xml
===================================================================
diff -u -r40994 -r56917
--- APPS/Halux/PPS/TAORVerpakking/impl/DoosBerekenaar.cls.xml	(.../DoosBerekenaar.cls.xml)	(revision 40994)
+++ APPS/Halux/PPS/TAORVerpakking/impl/DoosBerekenaar.cls.xml	(.../DoosBerekenaar.cls.xml)	(revision 56917)
@@ -3,18 +3,29 @@
 <Class name="APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar">
 <Super>DOM.PM.Verpakking.impl.DoosBerekenaar,DOM.PM.Maatwerk.TAX.impl.Base</Super>
 
+<Property name="DoosLadeFlatpackProboxFront">
+<Type>DOM.PM.Verpakking.impl.Doos</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="IngegevenKenmerken">
 <Type>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="MaatwerkCalcAPI">
+<Type>DOM.PM.MaatwerkCalcAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,ProductID:DOM.common.ProductID="ProductID"</FormalSpec>
+<FormalSpec>HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,ProductID:DOM.common.ProductID="ProductID",MaatwerkCalcAPI:DOM.PM.MaatwerkCalcAPI=""</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Do ##super(HalffabItemsBoom, IngegevenKenmerken)
 
 	Set ..ProductID = ProductID
+	Set ..MaatwerkCalcAPI = $$$Inject(MaatwerkCalcAPI, ##class(DOM.PM.impl.MaatwerkCalcAPI).%New())
 	
 	Do ..BerekenDozen()
 	Do ..MaakKartonSpecificaties()
@@ -23,6 +34,26 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BerekenDozen">
+<Private>1</Private>
+<Implementation><![CDATA[
+	If ($$$Not(..IsFlatpackProbox())) {
+		Do ##super()
+	} Else {
+		#Dim DoosLade As APPS.Halux.PPS.TAORVerpakking.impl.DoosLade = ""
+		#Dim DoosLadeFlatpackProboxFront As APPS.Halux.PPS.TAORVerpakking.impl.DoosLade = ""
+		
+		Set DoosLade = ..BerekenDoosLadeFlatpackProboxNietFront()
+		If (..IngegevenKenmerken.IsBinnenlade) {
+			Set DoosLadeFlatpackProboxFront = ..BerekenDoosLadeFlatpackProboxFront()
+		}
+		
+		Set ..DoosLade = DoosLade
+		Set ..DoosLadeFlatpackProboxFront = DoosLadeFlatpackProboxFront
+	}
+]]></Implementation>
+</Method>
+
 <Method name="GeefLadeVariant">
 <Private>1</Private>
 <ReturnType>DOM.PM.enu.Variant</ReturnType>
@@ -37,9 +68,30 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefDoosType">
+<ReturnType>APPS.Halux.PPS.Verpakking.enu.DoosTypes</ReturnType>
+<Implementation><![CDATA[
+	#dim DoosType As APPS.Halux.PPS.Verpakking.enu.DoosTypes
+	
+	If (..IsFlatpackProbox()) {
+		Set DoosType = ##class(APPS.Halux.PPS.Verpakking.enu.DoosTypes).Flatpack()
+	} Else {
+		Set DoosType = ##class(APPS.Halux.PPS.Verpakking.enu.DoosTypes).DoosMetDeksel()
+	}
+	
+	Quit DoosType
+]]></Implementation>
+</Method>
+
+<Method name="GeefDoosLadeFlatpackProboxFront">
+<ReturnType>DOM.PM.Verpakking.impl.Doos</ReturnType>
+<Implementation><![CDATA[	Quit ..DoosLadeFlatpackProboxFront
+]]></Implementation>
+</Method>
+
 <Method name="HeeftLadeIndividueleKartonverpakking">
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ..IngegevenKenmerken.VerpakkingType = ..Enum.VerpakkingType.V1
+<Implementation><![CDATA[	Quit (..IsV1() || ..IsFlatpackProbox())
 ]]></Implementation>
 </Method>
 
@@ -57,7 +109,6 @@
 	
 	If (..HeeftOpvullijst()) {
 		#Dim VolumeOpvullijst As DOM.PM.Verpakking.Volume = ..GeefVolumeOpvullijst(..IngegevenKenmerken.LadeDiepte)
-	
 		// enkel de breedte van het volume van de opvullijst is relevant omwille van de manier van stapelen	
 		Set DoosLade.Breedte = DoosLade.Breedte + VolumeOpvullijst.Breedte
 	}
@@ -66,6 +117,64 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BerekenDoosLadeFlatpackProboxNietFront">
+<Private>1</Private>
+<ReturnType>APPS.Halux.PPS.TAORVerpakking.impl.DoosLade</ReturnType>
+<Implementation><![CDATA[
+	#Define DefaultHoogteDoosLadeFlatpackProboxNietFront	 35.50
+	#Define DefaultAfmetingK3								100
+	
+	#Dim DoosLade As APPS.Halux.PPS.TAORVerpakking.impl.DoosLade = ##class(APPS.Halux.PPS.TAORVerpakking.impl.DoosLade).%New()
+	#dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = ..MaatwerkCalcAPI.GeefLadeInfo(..HalffabItemsBoom, ..IngegevenKenmerken)
+	#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())
+	
+	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.K3 = $$$DefaultAfmetingK3
+	Set DoosLade.DoosType = ..GeefDoosType()
+	
+	Quit DoosLade
+]]></Implementation>
+</Method>
+
+<Method name="BerekenDoosLadeFlatpackProboxFront">
+<Private>1</Private>
+<ReturnType>APPS.Halux.PPS.TAORVerpakking.impl.DoosLade</ReturnType>
+<Implementation><![CDATA[
+	#Define DefaultHoogteVoorDoosLadeFlatpackProboxFront	27
+	
+	#Dim DoosLade As APPS.Halux.PPS.TAORVerpakking.impl.DoosLade = ##class(APPS.Halux.PPS.TAORVerpakking.impl.DoosLade).%New()
+	#dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = ..MaatwerkCalcAPI.GeefLadeInfo(..HalffabItemsBoom, ..IngegevenKenmerken)
+	#dim Front As DOM.PM.Maatwerk.LadeInfo.Front = ..GeefLadeOnderdeel(Lade.GeefFrontIterator())
+	
+	Set DoosLade.Diepte = Front.GeefHoogteInMM()
+	Set DoosLade.Breedte = Front.GeefBreedteInMM()  // Is inclusief gemonteerde afdekkappen
+	Set DoosLade.Hoogte = $$$DefaultHoogteVoorDoosLadeFlatpackProboxFront // Is inclusief Frontbevestigingen
+	Set DoosLade.DoosType = ##class(APPS.Halux.PPS.Verpakking.enu.DoosTypes).VouwErrondDoos()
+	
+	Quit DoosLade
+]]></Implementation>
+</Method>
+
+<Method name="MaakKartonSpecificaties">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ##super()
+	#dim KartonSpecificaties As DOM.PM.Verpakking.dto.KartonSpecificaties = ..KartonSpecificaties
+	
+	#Dim DoosLadeFlatpackProboxFront As APPS.Halux.PPS.TAORVerpakking.impl.DoosLade = ..GeefDoosLadeFlatpackProboxFront()
+	
+	If (($ISOBJECT(DoosLadeFlatpackProboxFront)) && (..IsFlatpackProbox())) {
+		Do DoosLadeFlatpackProboxFront.VoegToeKartonSpecificaties(KartonSpecificaties)
+	}
+]]></Implementation>
+</Method>
+
 <Method name="HeeftOpvullijst">
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
@@ -233,6 +342,65 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="GeefK1">
+<FormalSpec>BodemDiepte:%Numeric,RugHoogte:%Numeric</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Numeric</ReturnType>
+<Implementation><![CDATA[
+	#dim K1 As %Numeric = 100
+	
+	If ($$$Not((RugHoogte + 75) > BodemDiepte)) {
+		Set K1 = RugHoogte + 75
+	}
+	
+	Quit K1
+]]></Implementation>
+</Method>
+
+<Method name="GeefK2">
+<FormalSpec>BodemDiepte:%Numeric,RugHoogte:%Numeric</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Numeric</ReturnType>
+<Implementation><![CDATA[
+	#dim K2 As %Numeric = 0
+	
+	If ($$$Not((RugHoogte + 75) > BodemDiepte)) {
+		Set K2 = 75
+	}
+	
+	Quit K2
+]]></Implementation>
+</Method>
+
+<Method name="IsV1">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (..IngegevenKenmerken.VerpakkingType = ..Enum.VerpakkingType.V1)
+]]></Implementation>
+</Method>
+
+<Method name="IsFlatpackProbox">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (..IngegevenKenmerken.VerpakkingType = ..Enum.VerpakkingType.FlatpackProbox)
+]]></Implementation>
+</Method>
+
+<Method name="GeefLadeOnderdeel">
+<FormalSpec>LadeOnderdeelIterator:TECH.Iterator</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel</ReturnType>
+<Implementation><![CDATA[
+	#dim LadeOnderdeel As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel
+	
+	While (LadeOnderdeelIterator.HasNext()) {
+		Set LadeOnderdeel = LadeOnderdeelIterator.Next()
+	}
+	
+	Quit LadeOnderdeel
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/Halux/PPS/TAORVerpakking/TestDoos.cls.xml
===================================================================
diff -u -r40994 -r56917
--- vhUnitTest/APPS/Halux/PPS/TAORVerpakking/TestDoos.cls.xml	(.../TestDoos.cls.xml)	(revision 40994)
+++ vhUnitTest/APPS/Halux/PPS/TAORVerpakking/TestDoos.cls.xml	(.../TestDoos.cls.xml)	(revision 56917)
@@ -10,6 +10,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="MaatwerkCalcAPI">
+<Type>DOM.PM.MaatwerkCalcAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="TAORKenmerken">
 <Type>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</Type>
 <Private>1</Private>
@@ -19,6 +24,7 @@
 <Implementation><![CDATA[
 	do ##super()
 	set ..Variant = ##class(DOM.PM.enu.LadeVariant).TAOR()
+	Set ..MaatwerkCalcAPI = ##class(DOM.PM.impl.MaatwerkCalcAPI).%New()
 ]]></Implementation>
 </Method>
 
@@ -141,6 +147,96 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Niet-Binnenlade verpakt in Flatpack Probox">
+<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 Default Afmetingen 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 $$$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)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Binnenlade verpakt in Flatpack Probox">
+<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 Default Afmetingen 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 $$$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)
+]]></Implementation>
+</Method>
+
+<Method name="Test: K1 en K2 bij relatief lage RugHoogte bij niet-Binnenlade verpakt in Flatpack Probox">
+<Implementation><![CDATA[
+	#Define DefaultHoogteDoosLadeFlatpackProboxNietFront	 35.50
+	#Define DefaultAfmetingK2BijRelatiefLageRugHoogte		 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())
+	
+	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 $$$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().K3, $$$DefaultAfmetingK3)
+]]></Implementation>
+</Method>
+
 <Method name="Test: Lade met diepte 550 maakt gebruik van de standaard losse onderdelen doos">
 <Implementation><![CDATA[
 	set ..TAORKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte550
@@ -230,6 +326,21 @@
 	quit ##class(APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar).%New(..Context.HalffabItemsBoom, IngegevenKenmerken, ProductID)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefLadeOnderdeel">
+<FormalSpec>LadeOnderdeelIterator:TECH.Iterator</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel</ReturnType>
+<Implementation><![CDATA[
+	#dim LadeOnderdeel As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel
+	
+	While (LadeOnderdeelIterator.HasNext()) {
+		Set LadeOnderdeel = LadeOnderdeelIterator.Next()
+	}
+	
+	Quit LadeOnderdeel
+]]></Implementation>
+</Method>
 </Class>