Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/LosseComponentenBuilder.cls.xml
===================================================================
diff -u -r31671 -r31672
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/LosseComponentenBuilder.cls.xml	(.../LosseComponentenBuilder.cls.xml)	(revision 31671)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/LosseComponentenBuilder.cls.xml	(.../LosseComponentenBuilder.cls.xml)	(revision 31672)
@@ -67,46 +67,35 @@
 	Set ..HalffabItemsBoom = HalffabItemsBoom
 	#dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = ..MaatwerkCalcAPI.GeefLadeInfo(..HalffabItemsBoom, ..IngegevenKenmerken)
 	
-	#dim Bodem As DOM.PM.Maatwerk.LadeInfo.Bodem = Lade.GeefBodems().GetAt(1)
-	if $IsObject(Bodem) {
-		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 BodemIterator As TECH.Iterator = Lade.GeefBodemIterator()
+	While BodemIterator.HasNext() {
+		Do ..VoegToeDoosVoorBodem(BodemIterator.Next())
 	}
 	
-	#dim Rug As DOM.PM.Maatwerk.LadeInfo.Rug = Lade.GeefRuggen().GetAt(1)
-	if $IsObject(Rug) {
-		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())
+	#dim RugIterator As TECH.Iterator = Lade.GeefRugIterator()
+	While RugIterator.HasNext() {
+		Do ..VoegToeDoosVoorRug(RugIterator.Next())
 	}
 	
-	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())
-		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())
+	#dim ZijkantIterator As TECH.Iterator = Lade.GeefZijkantIterator()
+	While ZijkantIterator.HasNext() {
+		Do ..VoegToeDoosVoorZijkant(ZijkantIterator.Next())
 	}
 	
-	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())
-		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 FrontIterator As TECH.Iterator = Lade.GeefFrontIterator()
+	While FrontIterator.HasNext() {
+		Do ..VoegToeDoosVoorFront(FrontIterator.Next())
 	}
 	
-	#dim Front As DOM.PM.Maatwerk.LadeInfo.Front = Lade.GeefFronten().GetAt(1)
-	if $IsObject(Front) {
-		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())
-	}
-	
+	Do ..VoegToeOnderdelenDoos(Lade)
+	Quit ..Builders
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeOnderdelenDoos">
+<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
 	Set HeeftOnderdelenDoosBepaler = ##class(DOM.PM.Maatwerk.Calc.Common.impl.Evaluator.HeeftOnderdelenDoos).%New()
 	If HeeftOnderdelenDoosBepaler.HeeftOnderdelenDoos(..IngegevenKenmerken, ..HalffabItemsBoom) {
 		Set Doos = ##class(zTryout.PBO.TAXBOG.impl.Doos).%New()
@@ -118,10 +107,53 @@
 		Set Doos.Hoogte = 100
 		Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdOnderdelenDoos).%New(..HalffabItemBuilder, Doos.GeefKartonSpecificatieDeksel(), AantalDozen, ..Hoeveelheid))
 	}
-	Quit ..Builders
 ]]></Implementation>
 </Method>
 
+<Method name="VoegToeDoosVoorBodem">
+<FormalSpec>Bodem:DOM.PM.Maatwerk.LadeInfo.Bodem</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	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())
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeDoosVoorRug">
+<FormalSpec>Rug:DOM.PM.Maatwerk.LadeInfo.Rug</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	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())
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeDoosVoorZijkant">
+<FormalSpec>Zijkant:DOM.PM.Maatwerk.LadeInfo.Zijkant</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..VoegToeDoos(Zijkant, ..BenamingVerpakkingen.Bodem)
+	Do ..VoegToeDoos(Zijkant, ..BenamingVerpakkingen.Deksel)
+	Do ..VoegToeTussenschot(Zijkant, ##class(TECH.enu.Orientation).Horizontal())
+	Do ..VoegToeTussenschot(Zijkant, ##class(TECH.enu.Orientation).Vertical())
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeDoosVoorFront">
+<FormalSpec>Front:DOM.PM.Maatwerk.LadeInfo.Front</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	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())
+]]></Implementation>
+</Method>
+
 <Method name="VoegToeDoos">
 <FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel,BenamingVerpakkingsOnderdeel:DOM.PM.Verpakking.enu.BenamingVerpakkingsOnderdeel</FormalSpec>
 <Private>1</Private>