Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001.cls.xml
===================================================================
diff -u -r30191 -r31649
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001.cls.xml	(.../HFVerpakkingv001.cls.xml)	(revision 30191)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001.cls.xml	(.../HFVerpakkingv001.cls.xml)	(revision 31649)
@@ -34,6 +34,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="DoosBerekenaar">
+<Type>zTryout.PBO.TAXBOG.impl.DoosBerekenaar</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>SamengesteldHalffabItemBuilder:DOM.PM.Maatwerk.Calc.HF.ISamengesteldHalffabItemBuilder</FormalSpec>
 <Private>1</Private>
@@ -90,156 +95,80 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VoegToeDoos">
+<FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel,BenamingVerpakkingsOnderdeel:DOM.PM.Verpakking.enu.BenamingVerpakkingsOnderdeel</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set BuilderInput = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput).%New(LadeOnderdeel,..Context.GeefHoeveelheid())
+	Set DoosBerekenaarInput = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaarInput).%New(LadeOnderdeel,..Context.GeefHoeveelheid(),BenamingVerpakkingsOnderdeel)
+	Do BuilderInput.ZetVerpakkingen(..DoosBerekenaar.GeefVerpakkingen(DoosBerekenaarInput))
+	Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerd).%New(##this, BuilderInput))
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeTussenschot">
+<FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel,Orientation:TECH.enu.Orientation</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set BuilderInput = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput).%New(LadeOnderdeel,..Context.GeefHoeveelheid())
+	Set DoosBerekenaarInput = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaarInput).%New(LadeOnderdeel,..Context.GeefHoeveelheid(),..BenamingVerpakkingen.Vlak)
+	Do ..DoosBerekenaar.ZetVlakOrientatie(Orientation)
+	Do BuilderInput.ZetVerpakkingen(..DoosBerekenaar.GeefVerpakkingen(DoosBerekenaarInput))
+	If Orientation = ##class(TECH.enu.Orientation).Horizontal() {
+		Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdHorizontaalTussenschot).%New(##this, BuilderInput))
+	} ElseIf Orientation = ##class(TECH.enu.Orientation).Vertical() {
+		Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdVerticaalTussenschot).%New(##this, BuilderInput))
+	} Else {
+		Do ##class(TECH.Exceptions.InvalidInputException).Throw("Orientatie ("_Orientation_") is niet gekend.")
+	}
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkBulkPerOnderdeelGegroepeerd">
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = ..MaatwerkCalcAPI.GeefLadeInfo(..Context.HalffabItemsBoom, ..IngegevenKenmerken)
-	Set DoosBerekenaar = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaar).%New()
+	Set ..DoosBerekenaar = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaar).%New()
 	
 	#dim Bodem As DOM.PM.Maatwerk.LadeInfo.Bodem = Lade.GeefBodems().GetAt(1)
 	if $IsObject(Bodem) {
-		; Bodem - BodemDoos
-		Set BuilderInput = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput).%New(Bodem,..Context.GeefHoeveelheid())
-		Set DoosBerekenaarInput = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaarInput).%New(Bodem,..Context.GeefHoeveelheid(),..BenamingVerpakkingen.Bodem)
-		Do BuilderInput.ZetVerpakkingen(DoosBerekenaar.GeefVerpakkingen(DoosBerekenaarInput))
-		Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerd).%New(##this, BuilderInput))
-	
-		; Bodem - Deksel
-		Set BuilderInput = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput).%New(Bodem,..Context.GeefHoeveelheid())
-		Set DoosBerekenaarInput = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaarInput).%New(Bodem,..Context.GeefHoeveelheid(),..BenamingVerpakkingen.Deksel)
-		Do BuilderInput.ZetVerpakkingen(DoosBerekenaar.GeefVerpakkingen(DoosBerekenaarInput))
-		Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerd).%New(##this, BuilderInput))
-	
-		; Bodem - Horizontaal tussenschot
-		Set BuilderInput = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput).%New(Bodem,..Context.GeefHoeveelheid())
-		Set DoosBerekenaarInput = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaarInput).%New(Bodem,..Context.GeefHoeveelheid(),..BenamingVerpakkingen.Vlak)
-		Do DoosBerekenaar.ZetVlakOrientatie(##class(TECH.enu.Orientation).Horizontal())
-		Do BuilderInput.ZetVerpakkingen(DoosBerekenaar.GeefVerpakkingen(DoosBerekenaarInput))
-		Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdHorizontaalTussenschot).%New(##this, BuilderInput))
-	
-		; Bodem - Verticaal tussenschot
-		Set BuilderInput = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput).%New(Bodem,..Context.GeefHoeveelheid())
-		Set DoosBerekenaarInput = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaarInput).%New(Bodem,..Context.GeefHoeveelheid(),..BenamingVerpakkingen.Vlak)
-		Do DoosBerekenaar.ZetVlakOrientatie(##class(TECH.enu.Orientation).Vertical())
-		Do BuilderInput.ZetVerpakkingen(DoosBerekenaar.GeefVerpakkingen(DoosBerekenaarInput))
-		Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdVerticaalTussenschot).%New(##this, BuilderInput))
+		Do ..VoegToeDoos(Bodem, ..BenamingVerpakkingen.Bodem)
+		Do ..VoegToeDoos(Bodem, ..BenamingVerpakkingen.Deksel)
+		Do ..VoegToeTussenschot(Bodem, ##class(TECH.enu.Orientation).Horizontal())
+		Do ..VoegToeTussenschot(Bodem, ##class(TECH.enu.Orientation).Vertical())
 	}
 	
 	#dim Rug As DOM.PM.Maatwerk.LadeInfo.Rug = Lade.GeefRuggen().GetAt(1)
 	if $IsObject(Rug) {
-		; Rug - Bodemdoos
-		Set BuilderInput = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput).%New(Rug,..Context.GeefHoeveelheid())
-		Set DoosBerekenaarInput = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaarInput).%New(Rug,..Context.GeefHoeveelheid(),..BenamingVerpakkingen.Bodem)
-		Do BuilderInput.ZetVerpakkingen(DoosBerekenaar.GeefVerpakkingen(DoosBerekenaarInput))
-		Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerd).%New(##this, BuilderInput))
-
-		; Rug - Dekseldoos
-		Set BuilderInput = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput).%New(Rug,..Context.GeefHoeveelheid())
-		Set DoosBerekenaarInput = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaarInput).%New(Rug,..Context.GeefHoeveelheid(),..BenamingVerpakkingen.Deksel)
-		Do BuilderInput.ZetVerpakkingen(DoosBerekenaar.GeefVerpakkingen(DoosBerekenaarInput))
-		Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerd).%New(##this, BuilderInput))
-		
-		; Rug - Horizontaal tussenschot
-		Set BuilderInput = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput).%New(Rug,..Context.GeefHoeveelheid())
-		Set DoosBerekenaarInput = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaarInput).%New(Rug,..Context.GeefHoeveelheid(),..BenamingVerpakkingen.Vlak)
-		Do DoosBerekenaar.ZetVlakOrientatie(##class(TECH.enu.Orientation).Horizontal())
-		Do BuilderInput.ZetVerpakkingen(DoosBerekenaar.GeefVerpakkingen(DoosBerekenaarInput))
-		Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdHorizontaalTussenschot).%New(##this, BuilderInput))
-		
-		; Rug - Verticaal tussenschot
-		Set BuilderInput = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput).%New(Rug,..Context.GeefHoeveelheid())
-		Set DoosBerekenaarInput = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaarInput).%New(Rug,..Context.GeefHoeveelheid(),..BenamingVerpakkingen.Vlak)
-		Do DoosBerekenaar.ZetVlakOrientatie(##class(TECH.enu.Orientation).Vertical())
-		Do BuilderInput.ZetVerpakkingen(DoosBerekenaar.GeefVerpakkingen(DoosBerekenaarInput))
-		Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdVerticaalTussenschot).%New(##this, BuilderInput))
+		Do ..VoegToeDoos(Rug, ..BenamingVerpakkingen.Bodem)
+		Do ..VoegToeDoos(Rug, ..BenamingVerpakkingen.Deksel)
+		Do ..VoegToeTussenschot(Rug, ##class(TECH.enu.Orientation).Horizontal())
+		Do ..VoegToeTussenschot(Rug, ##class(TECH.enu.Orientation).Vertical())
 	}
 	
 	
 	if Lade.HeeftZijkant(##class(DOM.PM.Maatwerk.Lade.enu.ZijkantRol).Links()) {
 		#dim ZijkantLinks As DOM.PM.Maatwerk.LadeInfo.Zijkant = Lade.GeefZijkant(##class(DOM.PM.Maatwerk.Lade.enu.ZijkantRol).Links())
-		; Zijkant - Bodemdoos
-		Set BuilderInput = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput).%New(ZijkantLinks,..Context.GeefHoeveelheid())
-		Set DoosBerekenaarInput = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaarInput).%New(ZijkantLinks,..Context.GeefHoeveelheid(),..BenamingVerpakkingen.Bodem)
-		Do BuilderInput.ZetVerpakkingen(DoosBerekenaar.GeefVerpakkingen(DoosBerekenaarInput))
-		Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerd).%New(##this, BuilderInput))
-
-		; Zijkant - Dekseldoos
-		Set BuilderInput = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput).%New(ZijkantLinks,..Context.GeefHoeveelheid())
-		Set DoosBerekenaarInput = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaarInput).%New(ZijkantLinks,..Context.GeefHoeveelheid(),..BenamingVerpakkingen.Deksel)
-		Do BuilderInput.ZetVerpakkingen(DoosBerekenaar.GeefVerpakkingen(DoosBerekenaarInput))
-		Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerd).%New(##this, BuilderInput))
-		
-		; Zijkant - Horizontaal tussenschot
-		Set BuilderInput = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput).%New(ZijkantLinks,..Context.GeefHoeveelheid())
-		Set DoosBerekenaarInput = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaarInput).%New(ZijkantLinks,..Context.GeefHoeveelheid(),..BenamingVerpakkingen.Vlak)
-		Do DoosBerekenaar.ZetVlakOrientatie(##class(TECH.enu.Orientation).Horizontal())
-		Do BuilderInput.ZetVerpakkingen(DoosBerekenaar.GeefVerpakkingen(DoosBerekenaarInput))
-		Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdHorizontaalTussenschot).%New(##this, BuilderInput))
-		
-		; Zijkant - Verticaal tussenschot
-		Set BuilderInput = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput).%New(ZijkantLinks,..Context.GeefHoeveelheid())
-		Set DoosBerekenaarInput = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaarInput).%New(ZijkantLinks,..Context.GeefHoeveelheid(),..BenamingVerpakkingen.Vlak)
-		Do DoosBerekenaar.ZetVlakOrientatie(##class(TECH.enu.Orientation).Vertical())
-		Do BuilderInput.ZetVerpakkingen(DoosBerekenaar.GeefVerpakkingen(DoosBerekenaarInput))
-		Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdVerticaalTussenschot).%New(##this, BuilderInput))
+		Do ..VoegToeDoos(ZijkantLinks, ..BenamingVerpakkingen.Bodem)
+		Do ..VoegToeDoos(ZijkantLinks, ..BenamingVerpakkingen.Deksel)
+		Do ..VoegToeTussenschot(ZijkantLinks, ##class(TECH.enu.Orientation).Horizontal())
+		Do ..VoegToeTussenschot(ZijkantLinks, ##class(TECH.enu.Orientation).Vertical())
 	}
 	
 	if Lade.HeeftZijkant(##class(DOM.PM.Maatwerk.Lade.enu.ZijkantRol).Rechts()) {
 		#dim ZijkantRechts As DOM.PM.Maatwerk.LadeInfo.Zijkant = Lade.GeefZijkant(##class(DOM.PM.Maatwerk.Lade.enu.ZijkantRol).Rechts())
-		; Zijkant - Bodemdoos
-		Set BuilderInput = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput).%New(ZijkantRechts,..Context.GeefHoeveelheid())
-		Set DoosBerekenaarInput = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaarInput).%New(ZijkantRechts,..Context.GeefHoeveelheid(),..BenamingVerpakkingen.Bodem)
-		Do BuilderInput.ZetVerpakkingen(DoosBerekenaar.GeefVerpakkingen(DoosBerekenaarInput))
-		Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerd).%New(##this, BuilderInput))
-
-		; Zijkant - Dekseldoos
-		Set BuilderInput = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput).%New(ZijkantRechts,..Context.GeefHoeveelheid())
-		Set DoosBerekenaarInput = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaarInput).%New(ZijkantRechts,..Context.GeefHoeveelheid(),..BenamingVerpakkingen.Deksel)
-		Do BuilderInput.ZetVerpakkingen(DoosBerekenaar.GeefVerpakkingen(DoosBerekenaarInput))
-		Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerd).%New(##this, BuilderInput))
-		
-		; Zijkant - Horizontaal tussenschot
-		Set BuilderInput = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput).%New(ZijkantRechts,..Context.GeefHoeveelheid())
-		Set DoosBerekenaarInput = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaarInput).%New(ZijkantRechts,..Context.GeefHoeveelheid(),..BenamingVerpakkingen.Vlak)
-		Do DoosBerekenaar.ZetVlakOrientatie(##class(TECH.enu.Orientation).Horizontal())
-		Do BuilderInput.ZetVerpakkingen(DoosBerekenaar.GeefVerpakkingen(DoosBerekenaarInput))
-		Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdHorizontaalTussenschot).%New(##this, BuilderInput))
-		
-		; Zijkant - Verticaal tussenschot
-		Set BuilderInput = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput).%New(ZijkantRechts,..Context.GeefHoeveelheid())
-		Set DoosBerekenaarInput = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaarInput).%New(ZijkantRechts,..Context.GeefHoeveelheid(),..BenamingVerpakkingen.Vlak)
-		Do DoosBerekenaar.ZetVlakOrientatie(##class(TECH.enu.Orientation).Vertical())
-		Do BuilderInput.ZetVerpakkingen(DoosBerekenaar.GeefVerpakkingen(DoosBerekenaarInput))
-		Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdVerticaalTussenschot).%New(##this, BuilderInput))
+		Do ..VoegToeDoos(ZijkantRechts, ..BenamingVerpakkingen.Bodem)
+		Do ..VoegToeDoos(ZijkantRechts, ..BenamingVerpakkingen.Deksel)
+		Do ..VoegToeTussenschot(ZijkantRechts, ##class(TECH.enu.Orientation).Horizontal())
+		Do ..VoegToeTussenschot(ZijkantRechts, ##class(TECH.enu.Orientation).Vertical())
 	}
 	
 	#dim Front As DOM.PM.Maatwerk.LadeInfo.Front = Lade.GeefFronten().GetAt(1)
 	if $IsObject(Front) {
-		; Front - Bodemdoos
-		Set BuilderInput = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput).%New(Front,..Context.GeefHoeveelheid())
-		Set DoosBerekenaarInput = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaarInput).%New(Front,..Context.GeefHoeveelheid(),..BenamingVerpakkingen.Bodem)
-		Do BuilderInput.ZetVerpakkingen(DoosBerekenaar.GeefVerpakkingen(DoosBerekenaarInput))
-		Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerd).%New(##this, BuilderInput))
-
-		; Front - Dekseldoos
-		Set BuilderInput = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput).%New(Front,..Context.GeefHoeveelheid())
-		Set DoosBerekenaarInput = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaarInput).%New(Front,..Context.GeefHoeveelheid(),..BenamingVerpakkingen.Deksel)
-		Do BuilderInput.ZetVerpakkingen(DoosBerekenaar.GeefVerpakkingen(DoosBerekenaarInput))
-		Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerd).%New(##this, BuilderInput))
-
-		; Front - Horizontaal tussenschot
-		Set BuilderInput = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput).%New(Front,..Context.GeefHoeveelheid())
-		Set DoosBerekenaarInput = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaarInput).%New(Front,..Context.GeefHoeveelheid(),..BenamingVerpakkingen.Vlak)
-		Do DoosBerekenaar.ZetVlakOrientatie(##class(TECH.enu.Orientation).Horizontal())
-		Do BuilderInput.ZetVerpakkingen(DoosBerekenaar.GeefVerpakkingen(DoosBerekenaarInput))
-		Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdHorizontaalTussenschot).%New(##this, BuilderInput))
-
-		; Front - Verticaal tussenschot
-		Set BuilderInput = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput).%New(Front,..Context.GeefHoeveelheid())
-		Set DoosBerekenaarInput = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaarInput).%New(Front,..Context.GeefHoeveelheid(),..BenamingVerpakkingen.Vlak)
-		Do DoosBerekenaar.ZetVlakOrientatie(##class(TECH.enu.Orientation).Vertical())
-		Do BuilderInput.ZetVerpakkingen(DoosBerekenaar.GeefVerpakkingen(DoosBerekenaarInput))
-		Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdVerticaalTussenschot).%New(##this, BuilderInput))
+		Do ..VoegToeDoos(Front, ..BenamingVerpakkingen.Bodem)
+		Do ..VoegToeDoos(Front, ..BenamingVerpakkingen.Deksel)
+		Do ..VoegToeTussenschot(Front, ##class(TECH.enu.Orientation).Horizontal())
+		Do ..VoegToeTussenschot(Front, ##class(TECH.enu.Orientation).Vertical())
 	}
 	
 	Set HeeftOnderdelenDoosBepaler = ##class(DOM.PM.Maatwerk.Calc.Common.impl.Evaluator.HeeftOnderdelenDoos).%New()