Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001.cls.xml
===================================================================
diff -u -r31650 -r31671
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001.cls.xml	(.../HFVerpakkingv001.cls.xml)	(revision 31650)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001.cls.xml	(.../HFVerpakkingv001.cls.xml)	(revision 31671)
@@ -34,11 +34,6 @@
 <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>
@@ -91,100 +86,25 @@
 
 <Method name="VerwerkLosseComponentenInBulk">
 <Private>1</Private>
-<Implementation><![CDATA[	do ..VerwerkBulkPerOnderdeelGegroepeerd()
+<Implementation><![CDATA[	Do ..VoegToeLosseComponentenBuilders()
 ]]></Implementation>
 </Method>
 
-<Method name="VoegToeDoos">
-<FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel,BenamingVerpakkingsOnderdeel:DOM.PM.Verpakking.enu.BenamingVerpakkingsOnderdeel</FormalSpec>
+<Method name="VerwerkBulkPerOnderdeelGegroepeerd">
 <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><![CDATA[	Do ..VoegToeLosseComponentenBuilders()
 ]]></Implementation>
 </Method>
 
-<Method name="VoegToeTussenschot">
-<FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel,Orientation:TECH.enu.Orientation</FormalSpec>
+<Method name="VoegToeLosseComponentenBuilders">
 <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.")
-	}
+	Set LosseComponentenBuilder = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenBuilder).%New(##this)
+	Set ..Builders = LosseComponentenBuilder.GeefRuntimeBuilders(..IngegevenKenmerken, ..HalffabItemsBoom, ..Context.GeefHoeveelheid())
+	;Do ##class(TECH.ListUtils).AppendList(..Builders, LosseComponentenBuilder.GeefRuntimeBuilders(..IngegevenKenmerken, ..HalffabItemsBoom, ..Context.GeefHoeveelheid()))
 ]]></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()
-	
-	#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 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())
-	}
-	
-	
-	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())
-	}
-	
-	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 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())
-	}
-	
-	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()
-		Set Doos.Diepte = Lade.GeefDiepteInMM()
-		Set Doos.Breedte = 200
-		Set Doos.Hoogte = 120
-		#dim AantalDozen As TECH.Numeric = ##class(TECH.Math).Ceil(..Context.GeefHoeveelheid()/10)
-		Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdOnderdelenDoos).%New(##this, Doos.GeefKartonSpecificatieBodem(), AantalDozen, ..Context.GeefHoeveelheid()))
-		Set Doos.Hoogte = 100
-		Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdOnderdelenDoos).%New(##this, Doos.GeefKartonSpecificatieDeksel(), AantalDozen, ..Context.GeefHoeveelheid()))
-	}
-]]></Implementation>
-</Method>
-
 <Method name="VerwerkFlatpackV1">
 <Private>1</Private>
 <Implementation><![CDATA[
Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/LosseComponentenBuilder.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/LosseComponentenBuilder.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/LosseComponentenBuilder.cls.xml	(revision 31671)
@@ -0,0 +1,156 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenBuilder">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="HalffabItemBuilder">
+<Type>DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DoosBerekenaar">
+<Type>zTryout.PBO.TAXBOG.impl.DoosBerekenaar</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="MaatwerkCalcAPI">
+<Type>DOM.PM.MaatwerkCalcAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Hoeveelheid">
+<Type>TECH.Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="IngegevenKenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="HalffabItemsBoom">
+<Type>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="BenamingVerpakkingen">
+<Type>DOM.PM.Verpakking.enu.BenamingVerpakkingsOnderdeel.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Builders">
+<Type>%ListOfObjects</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>HalffabItemBuilder:DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..HalffabItemBuilder = HalffabItemBuilder
+	Set ..DoosBerekenaar = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaar).%New()
+	set ..MaatwerkCalcAPI = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefRuntimeBuilders">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,Hoeveelheid:TECH.Integer</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set ..Builders = ##class(%ListOfObjects).%New()
+	Set ..Hoeveelheid = Hoeveelheid
+	Set ..IngegevenKenmerken = IngegevenKenmerken
+	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 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())
+	}
+	
+	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())
+	}
+	
+	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 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())
+	}
+	
+	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()
+		Set Doos.Diepte = Lade.GeefDiepteInMM()
+		Set Doos.Breedte = 200
+		Set Doos.Hoogte = 120
+		#dim AantalDozen As TECH.Numeric = ##class(TECH.Math).Ceil(..Hoeveelheid/10)
+		Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdOnderdelenDoos).%New(..HalffabItemBuilder, Doos.GeefKartonSpecificatieBodem(), AantalDozen, ..Hoeveelheid))
+		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="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,..Hoeveelheid)
+	Set DoosBerekenaarInput = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaarInput).%New(LadeOnderdeel,..Hoeveelheid,BenamingVerpakkingsOnderdeel)
+	Do BuilderInput.ZetVerpakkingen(..DoosBerekenaar.GeefVerpakkingen(DoosBerekenaarInput))
+	Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerd).%New(..HalffabItemBuilder, 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,..Hoeveelheid)
+	Set DoosBerekenaarInput = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaarInput).%New(LadeOnderdeel,..Hoeveelheid,..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(..HalffabItemBuilder, BuilderInput))
+	} ElseIf Orientation = ##class(TECH.enu.Orientation).Vertical() {
+		Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdVerticaalTussenschot).%New(..HalffabItemBuilder, BuilderInput))
+	} Else {
+		Do ##class(TECH.Exceptions.InvalidInputException).Throw("Orientatie ("_Orientation_") is niet gekend.")
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>