Index: APPS/Halux/PPS/TAORVerpakking/impl/DoosBerekenaar.cls.xml
===================================================================
diff -u -r30396 -r30446
--- APPS/Halux/PPS/TAORVerpakking/impl/DoosBerekenaar.cls.xml	(.../DoosBerekenaar.cls.xml)	(revision 30396)
+++ APPS/Halux/PPS/TAORVerpakking/impl/DoosBerekenaar.cls.xml	(.../DoosBerekenaar.cls.xml)	(revision 30446)
@@ -17,9 +17,8 @@
 <FormalSpec>HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,ProductID:DOM.common.ProductID="ProductID"</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Do ##super(HalffabItemsBoom)
-	
-	Set ..IngegevenKenmerken = IngegevenKenmerken
+	Do ##super(HalffabItemsBoom, IngegevenKenmerken)
+
 	Set ..ProductID = ProductID
 	
 	Do ..BerekenDozen()
@@ -29,18 +28,13 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefDoosLade">
-<ReturnType>APPS.Halux.PPS.TAORVerpakking.impl.DoosLade</ReturnType>
-<Implementation><![CDATA[	Quit ..DoosLade
+<Method name="GeefLadeVariant">
+<Private>1</Private>
+<ReturnType>DOM.PM.enu.Variant</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.PM.enu.Variant).Taorbox()
 ]]></Implementation>
 </Method>
 
-<Method name="GeefDoosLosseOnderdelen">
-<ReturnType>APPS.Halux.PPS.TAORVerpakking.impl.DoosLosseOnderdelen</ReturnType>
-<Implementation><![CDATA[	Quit ..DoosLosseOnderdelen
-]]></Implementation>
-</Method>
-
 <Method name="BerekenDozen">
 <Private>1</Private>
 <Implementation><![CDATA[
@@ -226,20 +220,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="VergrootDoosLosseOnderdelenTotZijkantHoogte">
-<FormalSpec>DoosLosseOnderdelen:APPS.Halux.PPS.TAORVerpakking.impl.DoosLosseOnderdelen</FormalSpec>
-<Implementation><![CDATA[
-	Set LadeUtils = ##class(DOM.PM.Maatwerk.Lade.LadeUtils.impl.TAORLadeUtils).%New()
-	#Dim FysiekeLadeHoogteMM As %Decimal = LadeUtils.GeefFysiekeLadeHoogteMM(..IngegevenKenmerken.LadeHoogte, ..IngegevenKenmerken.IsBinnenlade)
-	
-	If ((FysiekeLadeHoogteMM < 120) && (DoosLosseOnderdelen.GeefExterneHoogte() < FysiekeLadeHoogteMM))	{
-		Do DoosLosseOnderdelen.ZetExterneHoogte(FysiekeLadeHoogteMM)
-	} ElseIf (DoosLosseOnderdelen.GeefExterneBreedte() < FysiekeLadeHoogteMM) {
-		Set DoosLosseOnderdelen.BreedteAndere = DoosLosseOnderdelen.BreedteAndere + (FysiekeLadeHoogteMM - DoosLosseOnderdelen.GeefExterneBreedte() - 5)
-	}
-]]></Implementation>
-</Method>
-
 <Method name="VergrootDoosLadeMetLosseOnderdelenDoos">
 <FormalSpec>DoosLade:APPS.Halux.PPS.TAORVerpakking.impl.DoosLade,DoosLosseOnderdelen:APPS.Halux.PPS.TAORVerpakking.impl.DoosLosseOnderdelen</FormalSpec>
 <Private>1</Private>
@@ -258,24 +238,6 @@
 	}
 ]]></Implementation>
 </Method>
-
-<Method name="MaakKartonSpecificaties">
-<Implementation><![CDATA[
-	#Dim DoosLade As APPS.Halux.PPS.TAORVerpakking.impl.DoosLade = ..GeefDoosLade()
-	#Dim DoosLosseOnderdelen As APPS.Halux.PPS.TAORVerpakking.impl.DoosLosseOnderdelen = ..GeefDoosLosseOnderdelen()
-	#Dim KartonSpecificaties As DOM.PM.Verpakking.dto.KartonSpecificaties = ##class(DOM.PM.Verpakking.dto.KartonSpecificaties).%New()
-	
-	If ($ISOBJECT(DoosLade)) {
-		Do DoosLade.VoegToeKartonSpecificaties(KartonSpecificaties)
-	}
-	
-	If $ISOBJECT(DoosLosseOnderdelen) {
-		Do DoosLosseOnderdelen.VoegToeKartonSpecificaties(KartonSpecificaties)
-	}
-	
-	Set ..KartonSpecificaties = KartonSpecificaties
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: DOM/PM/Verpakking/impl/DoosBerekenaar.cls.xml
===================================================================
diff -u -r29462 -r30446
--- DOM/PM/Verpakking/impl/DoosBerekenaar.cls.xml	(.../DoosBerekenaar.cls.xml)	(revision 29462)
+++ DOM/PM/Verpakking/impl/DoosBerekenaar.cls.xml	(.../DoosBerekenaar.cls.xml)	(revision 30446)
@@ -18,16 +18,22 @@
 <Private>1</Private>
 </Property>
 
+<Property name="IngegevenKenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="KartonSpecificaties">
 <Type>DOM.PM.Verpakking.dto.KartonSpecificaties</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</FormalSpec>
+<FormalSpec>HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..HalffabItemsBoom = HalffabItemsBoom
+	Set ..IngegevenKenmerken = IngegevenKenmerken
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -105,6 +111,54 @@
 <Implementation><![CDATA[	Quit (##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemUtils).GeefAantalInVerpakkingVoorRol(..HalffabItemsBoom,RolNaam) > 0)
 ]]></Implementation>
 </Method>
+
+<Method name="VergrootDoosLosseOnderdelenTotZijkantHoogte">
+<FormalSpec>DoosLosseOnderdelen:APPS.Halux.PPS.TAORVerpakking.impl.DoosLosseOnderdelen</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#Dim FysiekeLadeHoogteMM As %Decimal = ..GeefFysiekeLadeHoogteMM()
+	
+	If ((FysiekeLadeHoogteMM < 120) && (DoosLosseOnderdelen.GeefExterneHoogte() < FysiekeLadeHoogteMM))	{
+		Do DoosLosseOnderdelen.ZetExterneHoogte(FysiekeLadeHoogteMM)
+	} ElseIf (DoosLosseOnderdelen.GeefExterneBreedte() < FysiekeLadeHoogteMM) {
+		Set DoosLosseOnderdelen.BreedteAndere = DoosLosseOnderdelen.BreedteAndere + (FysiekeLadeHoogteMM - DoosLosseOnderdelen.GeefExterneBreedte() - 5)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefFysiekeLadeHoogteMM">
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#Dim LadeUtils As DOM.PM.Maatwerk.Lade.LadeUtils = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI().GeefLadeUtils(..GeefLadeVariant())
+	Quit LadeUtils.GeefFysiekeLadeHoogteMM(..IngegevenKenmerken.LadeHoogte, ..IngegevenKenmerken.IsBinnenlade)
+]]></Implementation>
+</Method>
+
+<Method name="GeefLadeVariant">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<ReturnType>DOM.PM.enu.Variant</ReturnType>
+</Method>
+
+<Method name="MaakKartonSpecificaties">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#Dim DoosLade As APPS.Halux.PPS.TAORVerpakking.impl.DoosLade = ..GeefDoosLade()
+	#Dim DoosLosseOnderdelen As APPS.Halux.PPS.TAORVerpakking.impl.DoosLosseOnderdelen = ..GeefDoosLosseOnderdelen()
+	Set KartonSpecificaties = ##class(DOM.PM.Verpakking.dto.KartonSpecificaties).%New()
+	
+	If ($ISOBJECT(DoosLade)) {
+		Do DoosLade.VoegToeKartonSpecificaties(KartonSpecificaties)
+	}
+	
+	If $ISOBJECT(DoosLosseOnderdelen) {
+		Do DoosLosseOnderdelen.VoegToeKartonSpecificaties(KartonSpecificaties)
+	}
+	
+	Set ..KartonSpecificaties = KartonSpecificaties
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/Halux/PPS/LBXVerpakking/impl/DoosBerekenaar.cls.xml
===================================================================
diff -u -r30424 -r30446
--- APPS/Halux/PPS/LBXVerpakking/impl/DoosBerekenaar.cls.xml	(.../DoosBerekenaar.cls.xml)	(revision 30424)
+++ APPS/Halux/PPS/LBXVerpakking/impl/DoosBerekenaar.cls.xml	(.../DoosBerekenaar.cls.xml)	(revision 30446)
@@ -25,10 +25,9 @@
 <FormalSpec>HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken,BreedteBepaler:APPS.PM.Maatwerk.impl.Verpakking.BreedteBepaler,ProductID:DOM.common.ProductID="ProductID"</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Do ##super(HalffabItemsBoom)
+	Do ##super(HalffabItemsBoom, IngegevenKenmerken)
 	
 	Set ..BreedteBepaler = $$$Implementation(BreedteBepaler, ##class(APPS.PM.Maatwerk.impl.Verpakking.BreedteBepaler).%New())
-	Set ..IngegevenKenmerken = IngegevenKenmerken
 	Set ..ProductID = ProductID
 	
 	Do ..BerekenDozen()
@@ -38,6 +37,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLadeVariant">
+<Private>1</Private>
+<ReturnType>DOM.PM.enu.Variant</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.PM.enu.Variant).LegraboxPure()
+]]></Implementation>
+</Method>
+
 <Method name="HeeftLadeIndividueleKartonverpakking">
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	Quit (..IngegevenKenmerken.VerpakkingType = ##class(DOM.PM.enu.LBXVerpakkingType).V1())
@@ -106,16 +112,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefFysiekeLadeHoogteMM">
-<Private>1</Private>
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[
-	// Gemeten: M, C, M/Z
-	#Dim LadeUtils As DOM.PM.Maatwerk.Lade.LadeUtils = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI().GeefLadeUtils(##class(DOM.PM.enu.Variant).LegraboxPure())
-	Quit LadeUtils.GeefFysiekeLadeHoogteMM(..IngegevenKenmerken.LadeHoogte, ..IngegevenKenmerken.IsBinnenlade)
-]]></Implementation>
-</Method>
-
 <Method name="GeefFysiekeLadeDiepteMM">
 <Private>1</Private>
 <ReturnType>%Integer</ReturnType>
@@ -182,18 +178,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="VergrootDoosLosseOnderdelenTotZijkantHoogte">
-<FormalSpec>DoosLosseOnderdelen:DOM.PM.Verpakking.DoosLosseOnderdelen</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	If ((..GeefFysiekeLadeHoogteMM() < 120) && (DoosLosseOnderdelen.GeefExterneHoogte() < ..GeefFysiekeLadeHoogteMM())) {
-		Do DoosLosseOnderdelen.ZetExterneHoogte(..GeefFysiekeLadeHoogteMM())
-	} ElseIf (DoosLosseOnderdelen.GeefExterneBreedte() < ..GeefFysiekeLadeHoogteMM()) {
-		Set DoosLosseOnderdelen.BreedteAndere = DoosLosseOnderdelen.BreedteAndere + (..GeefFysiekeLadeHoogteMM() - DoosLosseOnderdelen.GeefExterneBreedte() - 5)
-	}
-]]></Implementation>
-</Method>
-
 <Method name="VergrootDoosLadeMetLosseOnderdelenDoos">
 <FormalSpec>DoosLade:APPS.Halux.PPS.TAORVerpakking.impl.DoosLade,DoosLosseOnderdelen:DOM.PM.Verpakking.DoosLosseOnderdelen</FormalSpec>
 <Private>1</Private>
@@ -216,26 +200,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="MaakKartonSpecificaties">
-<Private>1</Private>
-<Implementation><![CDATA[
-	#Dim DoosLade As APPS.Halux.PPS.Verpakking.Doos = ..GeefDoosLade()
-	#Dim DoosLosseOnderdelen As APPS.Halux.PPS.Verpakking.DoosLosseOnderdelen = ..GeefDoosLosseOnderdelen()
-	
-	Set KartonSpecificaties = ##class(DOM.PM.Verpakking.dto.KartonSpecificaties).%New()
-	
-	If ($ISOBJECT(DoosLade)) {
-		Do DoosLade.VoegToeKartonSpecificaties(KartonSpecificaties)
-	}
-	
-	If ($ISOBJECT(DoosLosseOnderdelen))	{
-		Do DoosLosseOnderdelen.VoegToeKartonSpecificaties(KartonSpecificaties)
-	}
-	
-	Set ..KartonSpecificaties = KartonSpecificaties
-]]></Implementation>
-</Method>
-
 <Method name="IsGeleiderTechnologieTipon">
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>