Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/LosseComponentenBuilder.cls.xml
===================================================================
diff -u -r31672 -r32516
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/LosseComponentenBuilder.cls.xml	(.../LosseComponentenBuilder.cls.xml)	(revision 31672)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/LosseComponentenBuilder.cls.xml	(.../LosseComponentenBuilder.cls.xml)	(revision 32516)
@@ -52,7 +52,8 @@
 <Implementation><![CDATA[
 	Set ..HalffabItemBuilder = HalffabItemBuilder
 	Set ..DoosBerekenaar = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaar).%New()
-	set ..MaatwerkCalcAPI = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI()
+	Set ..MaatwerkCalcAPI = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI()
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -65,123 +66,99 @@
 	Set ..Hoeveelheid = Hoeveelheid
 	Set ..IngegevenKenmerken = IngegevenKenmerken
 	Set ..HalffabItemsBoom = HalffabItemsBoom
+	
 	#dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = ..MaatwerkCalcAPI.GeefLadeInfo(..HalffabItemsBoom, ..IngegevenKenmerken)
 	
-	#dim BodemIterator As TECH.Iterator = Lade.GeefBodemIterator()
-	While BodemIterator.HasNext() {
-		Do ..VoegToeDoosVoorBodem(BodemIterator.Next())
-	}
+	Do ..VoegToeDoosEnTussenschotVoorLadeOnderdeel(Lade.GeefBodemIterator())
+	Do ..VoegToeDoosEnTussenschotVoorLadeOnderdeel(Lade.GeefRugIterator())
+	Do ..VoegToeDoosEnTussenschotVoorLadeOnderdeel(Lade.GeefZijkantIterator())
+	Do ..VoegToeDoosEnTussenschotVoorLadeOnderdeel(Lade.GeefFrontIterator())
 	
-	#dim RugIterator As TECH.Iterator = Lade.GeefRugIterator()
-	While RugIterator.HasNext() {
-		Do ..VoegToeDoosVoorRug(RugIterator.Next())
-	}
-	
-	#dim ZijkantIterator As TECH.Iterator = Lade.GeefZijkantIterator()
-	While ZijkantIterator.HasNext() {
-		Do ..VoegToeDoosVoorZijkant(ZijkantIterator.Next())
-	}
-	
-	#dim FrontIterator As TECH.Iterator = Lade.GeefFrontIterator()
-	While FrontIterator.HasNext() {
-		Do ..VoegToeDoosVoorFront(FrontIterator.Next())
-	}
-	
 	Do ..VoegToeOnderdelenDoos(Lade)
+	
 	Quit ..Builders
 ]]></Implementation>
 </Method>
 
+<Method name="VoegToeDoosEnTussenschotVoorLadeOnderdeel">
+<FormalSpec>Iterator:TECH.Iterator</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	While (Iterator.HasNext()) {
+		#dim LadeOnderdeel As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = Iterator.Next()
+		
+		Do ..VoegToeDoos(LadeOnderdeel, ..BenamingVerpakkingen.Bodem)
+		Do ..VoegToeDoos(LadeOnderdeel, ..BenamingVerpakkingen.Deksel)
+		
+		Do ..VoegToeTussenschot(LadeOnderdeel, ##class(TECH.enu.Orientation).Horizontal())
+		Do ..VoegToeTussenschot(LadeOnderdeel, ##class(TECH.enu.Orientation).Vertical())
+	}
+]]></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()
+	#dim HeeftOnderdelenDoosEvaluator As DOM.PM.Maatwerk.Calc.Common.impl.Evaluator.HeeftOnderdelenDoos = ##class(DOM.PM.Maatwerk.Calc.Common.impl.Evaluator.HeeftOnderdelenDoos).%New()
+	
+	If (HeeftOnderdelenDoosEvaluator.HeeftOnderdelenDoos(..IngegevenKenmerken, ..HalffabItemsBoom)) {
+		#dim AantalDozen As TECH.Numeric = ##class(TECH.Math).Ceil(..Hoeveelheid / 10)
+		#dim Doos As DOM.PM.Verpakking.Volume = ##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))
 	}
 ]]></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>
+<FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel,Benaming: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))
+	#dim BuilderInput As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput = ..GeefBuilderInput(LadeOnderdeel, Benaming)
+
 	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>
+<FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel,Orientatie: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() {
+	#dim BuilderInput As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput = ..GeefBuilderInput(LadeOnderdeel, ..BenamingVerpakkingen.Vlak, Orientatie)
+	
+	If (Orientatie = ##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() {
+	} ElseIf (Orientatie = ##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.")
+		Do ##class(TECH.Exceptions.InvalidInputException).Throw("Orientatie (" _ Orientatie _ ") is niet gekend.")
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="GeefBuilderInput">
+<FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel,Benaming:DOM.PM.Verpakking.enu.BenamingVerpakkingsOnderdeel,Orientatie:TECH.enu.Orientation=""</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput</ReturnType>
+<Implementation><![CDATA[
+	#dim BuilderInput As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput).%New(LadeOnderdeel, ..Hoeveelheid)
+	#dim DoosBerekenaarInput As zTryout.PBO.TAXBOG.impl.DoosBerekenaarInput = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaarInput).%New(LadeOnderdeel, ..Hoeveelheid, Benaming)
+	
+	Do:$$$Not(Orientatie = "") ..DoosBerekenaar.ZetVlakOrientatie(Orientatie)
+	Do BuilderInput.ZetVerpakkingen(..DoosBerekenaar.GeefVerpakkingen(DoosBerekenaarInput))
+	
+	Quit BuilderInput
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001BulkPerOnderdeelGegroepeerdHorizontaalTussenschot.cls.xml
===================================================================
diff -u -r30572 -r32516
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001BulkPerOnderdeelGegroepeerdHorizontaalTussenschot.cls.xml	(.../HFVerpakkingv001BulkPerOnderdeelGegroepeerdHorizontaalTussenschot.cls.xml)	(revision 30572)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001BulkPerOnderdeelGegroepeerdHorizontaalTussenschot.cls.xml	(.../HFVerpakkingv001BulkPerOnderdeelGegroepeerdHorizontaalTussenschot.cls.xml)	(revision 32516)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdHorizontaalTussenschot">
-<Super>DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder,DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel.Verwerker</Super>
+<Super>DOM.PM.Maatwerk.TAX.impl.Base,DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder,DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel.Verwerker</Super>
 
 <Property name="Input">
 <Type>DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput</Type>
@@ -25,8 +25,9 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..Input = Input
-	Set ..Rol = Input.Naam_" Horizontaal" 
-	Quit ##super(SamengesteldHalffabItemBuilder)
+	Set ..Rol = Input.Naam _ " Horizontaal"
+	
+	Quit ##class(DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder)##this.%OnNew(SamengesteldHalffabItemBuilder)
 ]]></Implementation>
 </Method>
 
@@ -50,56 +51,65 @@
 <ReturnType>%ListOfObjects</ReturnType>
 <ReturnTypeParams>ELEMENTTYPE="DOM.PM.Maatwerk.Calc.HF.Halffab"</ReturnTypeParams>
 <Implementation><![CDATA[
-	set ..ProductID = ""
-	do ..Verwerk(..Input.LadeOnderdeel.GeefRol())
-	Set Lijst = ##class(%ListOfObjects).%New()
-	Do:$length(..ProductID) Lijst.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabVerpakkingBulkPerOnderdeelGegroepeerdHorizontaalTussenschot).%New(..ProductID))
+	Set ..ProductID = ""
+	
+	Do ..Verwerk(..Input.LadeOnderdeel.GeefRol())
+	
+	#dim Lijst As %ListOfObjects = ##class(%ListOfObjects).%New()
+	
+	Do:$Length(..ProductID) Lijst.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabVerpakkingBulkPerOnderdeelGegroepeerdHorizontaalTussenschot).%New(..ProductID))
+	
 	Quit Lijst
 ]]></Implementation>
 </Method>
 
 <Method name="PostProcessHalffabItem">
 <FormalSpec><![CDATA[&HalffabItem:DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,Context:DOM.PM.Maatwerk.Calc.HF.HalffabContext,&HalffabList:%ListOfObjects]]></FormalSpec>
 <Implementation><![CDATA[
-	set ..Aantal = 0
-	do ..Verwerk(..Input.LadeOnderdeel.GeefRol())
-	Set HalffabItem.Aantal  = ##class(TECH.Math).Round(..Aantal,2)
+	Set ..Aantal = 0
+	
+	Do ..Verwerk(..Input.LadeOnderdeel.GeefRol())
+	
+	Set HalffabItem.Aantal  = ##class(TECH.Math).Round(..Aantal, 2)
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkBodem">
 <Private>1</Private>
 <Implementation><![CDATA[
-	set ..ProductID = 1234456
 	#dim Bodem As DOM.PM.Maatwerk.LadeInfo.Bodem = ..Input.LadeOnderdeel
-	set ..Aantal = ##class(TECH.Math).Floor(Bodem.GeefBreedteInMM() / 385)
-	set:(..Aantal<1) ..Aantal=1
+	
+	Set ..ProductID = 1234456
+	Set ..Aantal = ##class(TECH.Math).Floor(Bodem.GeefBreedteInMM() / 385)
+	Set:(..Aantal < 1) ..Aantal = 1
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkFront">
 <Private>1</Private>
 <Implementation><![CDATA[
-	set ..ProductID = 1234485
 	#dim Front As DOM.PM.Maatwerk.LadeInfo.Front = ..Input.LadeOnderdeel
-	set ..Aantal = $select(Front.GeefBreedteInMM()<800:3,$$$true:4) * ..Input.TotaalAantalVerpakkingen / ..Input.TotaalTeVerpakken
+	
+	Set ..ProductID = 1234485
+	Set ..Aantal = $Select(Front.GeefBreedteInMM() < 800:3, $$$True:4) * ..Input.TotaalAantalVerpakkingen / ..Input.TotaalTeVerpakken
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkRug">
 <Private>1</Private>
 <Implementation><![CDATA[
-	set ..ProductID = 1234463
-	set ..Aantal = 2
+	Set ..ProductID = 1234463
+	Set ..Aantal = 2
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkZijkant">
 <Private>1</Private>
 <Implementation><![CDATA[
-	set ..ProductID = 1230395
 	#dim Zijkant As DOM.PM.Maatwerk.LadeInfo.Zijkant = ..Input.LadeOnderdeel
-	set ..Aantal = ( $select(Zijkant.GeefLengteInMM()<580:1,$$$true:2))
+	
+	Set ..ProductID = 1230395
+	Set ..Aantal = $Select(Zijkant.GeefLengteInMM() < 580:1, $$$True:2)
 ]]></Implementation>
 </Method>
 </Class>
Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001.cls.xml
===================================================================
diff -u -r31687 -r32516
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001.cls.xml	(.../HFVerpakkingv001.cls.xml)	(revision 31687)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001.cls.xml	(.../HFVerpakkingv001.cls.xml)	(revision 32516)
@@ -2,7 +2,7 @@
 <Export generator="Cache" version="24">
 <Class name="DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001">
 <ProcedureBlock>1</ProcedureBlock>
-<Super>DOM.PM.Maatwerk.Calc.HF.IDynamischSamengesteldHalffabItemBuilder,DOM.PM.enu.TAORVerpakkingType.Verwerker</Super>
+<Super>DOM.PM.Maatwerk.TAX.impl.Base,DOM.PM.Maatwerk.Calc.HF.IDynamischSamengesteldHalffabItemBuilder,DOM.PM.enu.TAORVerpakkingType.Verwerker</Super>
 
 <Property name="MaatwerkCalcAPI">
 <Type>DOM.PM.MaatwerkCalcAPI</Type>
@@ -40,33 +40,31 @@
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set ..Rol=##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Verpakking()
+	Set ..Rol = ..Enum.Rol.Verpakking
+	Set ..MaatwerkCalcAPI = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI()
 	
-	set ..MaatwerkCalcAPI = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI()
-	
-	set ..AfhankelijkVan = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).BodemOndersteuning()_";"
-						  _##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Glijder()_";"
-						  _##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).FrontBevestiging()_";"
-						  _##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Tipon()_";"
-						  _##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).DiepteVerstelling()_";"
-						  _##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Zijstabilisering()_";"
-						  _##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Opvullijst()_";"
-						  _##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).BodemPlaat()_";"
-						  _##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Front()_";"
-						  _##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).ZijkantLinks()_";"
-						  _##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).ZijkantRechts()_";"
-						  _##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Rug()
+	Set ..AfhankelijkVan = ..AfhankelijkVan _ ..Enum.Rol.BodemOndersteuning _ ";"
+	Set ..AfhankelijkVan = ..AfhankelijkVan _ ..Enum.Rol.Glijder _ ";"
+	Set ..AfhankelijkVan = ..AfhankelijkVan _ ..Enum.Rol.FrontBevestiging _ ";"
+	Set ..AfhankelijkVan = ..AfhankelijkVan _ ..Enum.Rol.Tipon _ ";"
+	Set ..AfhankelijkVan = ..AfhankelijkVan _ ..Enum.Rol.DiepteVerstelling _ ";"
+	Set ..AfhankelijkVan = ..AfhankelijkVan _ ..Enum.Rol.Zijstabilisering _ ";"
+	Set ..AfhankelijkVan = ..AfhankelijkVan _ ..Enum.Rol.Opvullijst _ ";"
+	Set ..AfhankelijkVan = ..AfhankelijkVan _ ..Enum.Rol.BodemPlaat _ ";"
+	Set ..AfhankelijkVan = ..AfhankelijkVan _ ..Enum.Rol.Front _ ";"
+	Set ..AfhankelijkVan = ..AfhankelijkVan _ ..Enum.Rol.ZijkantLinks _ ";"
+	Set ..AfhankelijkVan = ..AfhankelijkVan _ ..Enum.Rol.ZijkantRechts _ ";"
+	Set ..AfhankelijkVan = ..AfhankelijkVan _ ..Enum.Rol.Rug
 
-	
-	Quit ##super(SamengesteldHalffabItemBuilder)
+	Quit ##class(DOM.PM.Maatwerk.Calc.HF.IDynamischSamengesteldHalffabItemBuilder)##this.%OnNew(SamengesteldHalffabItemBuilder)
 ]]></Implementation>
 </Method>
 
 <Method name="BuilderMoetWerken">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Context:DOM.PM.Maatwerk.Calc.HF.HalffabContext</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit $Length(IngegevenKenmerken.VerpakkingType)>0
+<Implementation><![CDATA[	Quit ($Length(IngegevenKenmerken.VerpakkingType) > 0)
 ]]></Implementation>
 </Method>
 
@@ -76,10 +74,12 @@
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[
 	Set ..IngegevenKenmerken = IngegevenKenmerken
-	set ..Context = Context
+	Set ..Context = Context
 	Set ..HalffabItemsBoom = Context.HalffabItemsBoom
 	Set ..Builders = ##class(%ListOfObjects).%New()
+	
 	Do ..Verwerk(IngegevenKenmerken.VerpakkingType)
+	
 	Quit ##class(TECH.ListIterator).%New(..Builders)
 ]]></Implementation>
 </Method>
@@ -115,45 +115,64 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = ..MaatwerkCalcAPI.GeefLadeInfo(..HalffabItemsBoom, ..IngegevenKenmerken)
-
-	Set FlatpackV1Service = ##class(zTryout.WV.FPV1.DOM.impl.FlatpackV1Service).%New()
+	#dim FlatpackV1Service As zTryout.WV.FPV1.DOM.impl.FlatpackV1Service = ##class(zTryout.WV.FPV1.DOM.impl.FlatpackV1Service).%New()
+	
 	#dim DraagPlaat As zTryout.WV.FPV1.DOM.dto.DraagPlaat = FlatpackV1Service.GeefDraagPlaatVoorOnderdelen(Lade)
 	#dim DraagPlaatProductID As %String = ##class(zTryout.WV.FPV1.DOM.impl.DraagPlaatProductIDBepaler).%New().GeefProductID(DraagPlaat)
 
-	Set FlatpackV1VorkBepaler = ##class(zTryout.WV.FPV1.DOM.impl.FlatpackV1VorkBepaler).%New()
+	#dim FlatpackV1VorkBepaler As zTryout.WV.FPV1.DOM.impl.FlatpackV1VorkBepaler = ##class(zTryout.WV.FPV1.DOM.impl.FlatpackV1VorkBepaler).%New()
 	#dim Vork As zTryout.WV.FPV1.DOM.dto.FlatpackV1Vork = FlatpackV1VorkBepaler.GeefVorkVoorOpeningBreedte(DraagPlaat.Breedte)
 	#dim VorkProductID As %String = ##class(zTryout.WV.FPV1.DOM.impl.FlatpackV1VorkProductIDBepaler).%New().GeefProductID(Vork)
 
-	Set FlatpackV1DoosBepaler = ##class(zTryout.WV.FPV1.DOM.impl.FlatpackV1DoosBepaler).%New()
+	#dim FlatpackV1DoosBepaler As zTryout.WV.FPV1.DOM.impl.FlatpackV1DoosBepaler = ##class(zTryout.WV.FPV1.DOM.impl.FlatpackV1DoosBepaler).%New()
 	#dim Doos As zTryout.WV.FPV1.DOM.dto.FlatpackV1Doos = FlatpackV1DoosBepaler.GeefDoos(DraagPlaat.Lengte, Vork.BuitenBreedte)
 	#dim DoosProductID As %String = ##class(zTryout.WV.FPV1.DOM.impl.FlatpackV1DoosProductIDBepaler).%New().GeefProductID(Doos)
+	
+	#dim WikkelFolieProductID As DOM.common.ProductID = FlatpackV1Service.GeefWikkelFolieProductID()
+	#dim WikkelFolieGewichtInGram As %Numeric = FlatpackV1Service.GeefWikkelFolieGewichtInGram(DraagPlaat)
 
-	Set Input = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001FlatpackV1Input).%New("FPV1_draagplaat",DraagPlaatProductID,1)
-	Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001FlatpackV1).%New(##this,Input))
-
-	Set Input = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001FlatpackV1Input).%New("FPV1_vork",VorkProductID,2)
-	Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001FlatpackV1).%New(##this,Input))
-
-	Set Input = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001FlatpackV1Input).%New("FPV1_omdoos",DoosProductID,1)
-	Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001FlatpackV1).%New(##this,Input))
+	Do ..Builders.Insert(..GeefBuilderVoorHFVerpakkingv001FlatpackV1("FPV1_draagplaat", DraagPlaatProductID, 1))
+	Do ..Builders.Insert(..GeefBuilderVoorHFVerpakkingv001FlatpackV1("FPV1_vork", VorkProductID, 2))
+	Do ..Builders.Insert(..GeefBuilderVoorHFVerpakkingv001FlatpackV1("FPV1_omdoos", DoosProductID, 1))
+	Do ..Builders.Insert(..GeefBuilderVoorHFVerpakkingv001FlatpackV1WikkelFolie("FPV1_wikkelfolie", WikkelFolieProductID, 1, WikkelFolieGewichtInGram))
 	
 	// Tussenlaag karton 
 	#dim Rug As DOM.PM.Maatwerk.LadeInfo.Rug = Lade.GeefRuggen().GetAt(1)
-	if ($IsObject(Rug)) && (Lade.HeeftFront()) {
+	
+	If ($IsObject(Rug)) && (Lade.HeeftFront()) {
 		Set DoosBerekenaar = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaar).%New()
-		Set BuilderInput = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput).%New(Rug,1)
-		Set DoosBerekenaarInput = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaarInput).%New(Rug,1,..BenamingVerpakkingen.Deksel)
+		Set BuilderInput = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput).%New(Rug, 1)
+		Set DoosBerekenaarInput = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaarInput).%New(Rug, 1, ..BenamingVerpakkingen.Deksel)
+		
 		Do BuilderInput.ZetVerpakkingen(DoosBerekenaar.GeefVerpakkingen(DoosBerekenaarInput))
 		Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdHorizontaalTussenschot).%New(##this, BuilderInput))
 	}
+
+	// KartonTape (staat voorlopig bij Calc.Kost.impl.TAOR.v003.Inpakken)
+]]></Implementation>
+</Method>
+
+<Method name="GeefBuilderVoorHFVerpakkingv001FlatpackV1">
+<FormalSpec>Naam:TECH.String,ProductID:DOM.common.ProductID,Aantal:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001FlatpackV1Input</ReturnType>
+<Implementation><![CDATA[
+	#dim BuilderInput As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001FlatpackV1Input = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001FlatpackV1Input).%New(Naam, ProductID, Aantal)
+	#dim Builder As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001FlatpackV1 = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001FlatpackV1).%New(##this, BuilderInput)
 	
-	// WikkelFolie 
-	#dim WikkelFolieProductID As DOM.common.ProductID = FlatpackV1Service.GeefWikkelFolieProductID()
-	#dim WikkelFolieGewichtInGram As %Numeric = FlatpackV1Service.GeefWikkelFolieGewichtInGram(DraagPlaat)
-	Set Input = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001FlatpackV1WikkelFolieInput).%New("FPV1_wikkelfolie",WikkelFolieProductID,1,WikkelFolieGewichtInGram)
-	Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001FlatpackV1WikkelFolie).%New(##this,Input))
+	Quit Builder
+]]></Implementation>
+</Method>
+
+<Method name="GeefBuilderVoorHFVerpakkingv001FlatpackV1WikkelFolie">
+<FormalSpec>Naam:TECH.String,ProductID:DOM.common.ProductID,Aantal:%Integer,GewichtInGram:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001FlatpackV1WikkelFolie</ReturnType>
+<Implementation><![CDATA[
+	#dim BuilderInput As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001FlatpackV1WikkelFolieInput = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001FlatpackV1WikkelFolieInput).%New(Naam, ProductID, Aantal, GewichtInGram)
+	#dim Builder As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001FlatpackV1WikkelFolie = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001FlatpackV1WikkelFolie).%New(##this, BuilderInput)
 	
-	// KartonTape (staat voorlopig bij Calc.Kost.impl.TAOR.v003.Inpakken)
+	Quit Builder
 ]]></Implementation>
 </Method>
 
@@ -171,12 +190,14 @@
 <Method name="VerwerkV1">
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set DoosBerekenaar = ##class(APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar).%New(..HalffabItemsBoom, ..IngegevenKenmerken)
-	#dim Specs As DOM.PM.Verpakking.dto.KartonSpecificaties = DoosBerekenaar.GeefKartonSpecificaties()
-	#dim Iterator As TECH.Iterator = Specs.GeefIterator()
+	#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 Spec As DOM.PM.Verpakking.dto.KartonSpecificatie = Iterator.Next()
-		Set Builder = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HFV1Verpakkingv001).%New(##this, Spec)
+		#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>
Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001BulkPerOnderdeelGegroepeerdVerticaalTussenschot.cls.xml
===================================================================
diff -u -r29721 -r32516
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001BulkPerOnderdeelGegroepeerdVerticaalTussenschot.cls.xml	(.../HFVerpakkingv001BulkPerOnderdeelGegroepeerdVerticaalTussenschot.cls.xml)	(revision 29721)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001BulkPerOnderdeelGegroepeerdVerticaalTussenschot.cls.xml	(.../HFVerpakkingv001BulkPerOnderdeelGegroepeerdVerticaalTussenschot.cls.xml)	(revision 32516)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdVerticaalTussenschot">
-<Super>DOM.PM.Maatwerk.Calc.HF.IBewerktHalffabItemBuilder,DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel.Verwerker</Super>
+<Super>DOM.PM.Maatwerk.TAX.impl.Base,DOM.PM.Maatwerk.Calc.HF.IBewerktHalffabItemBuilder,DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel.Verwerker</Super>
 
 <Property name="KartonSpecificatie">
 <Type>DOM.PM.Maatwerk.Calc.HF.impl.HFBulkPerOnderdeelGegroepeerdVerpakkingKartonSpecificatie</Type>
@@ -20,17 +20,19 @@
 <Implementation><![CDATA[
 	Set ..KartonSpecificatie = Input.Verpakkingen.GetAt(1).KartonSpecificatie
 	Set ..Input = Input
-	Set ..Rol = Input.Naam_" Verticaal" 
-	Quit ##super(SamengesteldHalffabItemBuilder)
+	Set ..Rol = Input.Naam _ " Verticaal" 
+	
+	Quit ##class(DOM.PM.Maatwerk.Calc.HF.IBewerktHalffabItemBuilder)##this.%OnNew(SamengesteldHalffabItemBuilder)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefBewerkteDimensies">
 <Private>1</Private>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
-	Set Dimensies = ##class(%ListOfDataTypes).%New()
+	#dim Dimensies As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
 	Do Dimensies.Insert(##class(DOM.PM.enu.BewerkingDimensie).Lengte())
+	
 	Quit Dimensies
 ]]></Implementation>
 </Method>
@@ -41,8 +43,9 @@
 <ReturnType>%ArrayOfDataTypes</ReturnType>
 <ReturnTypeParams>ELEMENTTYPE="%Decimal"</ReturnTypeParams>
 <Implementation><![CDATA[
-	Set Dimensies = ##class(%ArrayOfDataTypes).%New()
-	Do Dimensies.SetAt(..KartonSpecificatie.NodigeLengte,##class(DOM.PM.enu.BewerkingDimensie).Lengte())
+	#dim Dimensies As %ArrayOfDataTypes = ##class(%ArrayOfDataTypes).%New()
+	Do Dimensies.SetAt(..KartonSpecificatie.NodigeLengte, ##class(DOM.PM.enu.BewerkingDimensie).Lengte())
+	
 	Quit Dimensies
 ]]></Implementation>
 </Method>
@@ -51,8 +54,9 @@
 <Private>1</Private>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
- 	Set Filters = ##class(%ListOfObjects).%New()
+ 	#dim Filters As %ListOfObjects = ##class(%ListOfObjects).%New()
  	Do Filters.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.Filter.HFListFilterKleinsteGroterDan).%New("Kartonbreedte", ..KartonSpecificatie.NodigeBreedte))
+ 	
  	Quit Filters
 ]]></Implementation>
 </Method>
@@ -61,23 +65,24 @@
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <ReturnType>%ArrayOfDataTypes</ReturnType>
 <Implementation><![CDATA[
-	Set SelectieKenmerken = ##class(%ArrayOfDataTypes).%New()
-	Do SelectieKenmerken.SetAt(..KartonSpecificatie.KartonSamenstelling,"Samenstelling")
+	#dim SelectieKenmerken As %ListOfDataTypes = ##class(%ArrayOfDataTypes).%New()
+	Do SelectieKenmerken.SetAt(..KartonSpecificatie.KartonSamenstelling, "Samenstelling")
+	
 	Quit SelectieKenmerken
 ]]></Implementation>
 </Method>
 
 <Method name="GeefRolVoorHalffabSelectie">
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit "Verpakking"
+<Implementation><![CDATA[	Quit ..Enum.Rol.Verpakking
 ]]></Implementation>
 </Method>
 
 <Method name="BuilderMoetWerken">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Context:DOM.PM.Maatwerk.Calc.HF.HalffabContext</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit $$$Not(##class(TECH.StringUtils).Equals(..Input.LadeOnderdeel.GeefRol(),"Bodem","Front"))
+<Implementation><![CDATA[	Quit $$$Not(##class(TECH.StringUtils).Equals(..Input.LadeOnderdeel.GeefRol(), "Bodem", "Front"))
 ]]></Implementation>
 </Method>
 
@@ -101,11 +106,13 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim Aantal As TECH.Integer = 0
-	set Iterator = ##class(TECH.ListIterator).%New(Verpakkingen)
-	While Iterator.HasNext() {
+	#dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Verpakkingen)
+	
+	While (Iterator.HasNext()) {
 		#dim Verpakking As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput.Verpakking = Iterator.Next()
 		Set Aantal = Aantal + Verpakking.Aantal
 	}
+	
 	Quit Aantal
 ]]></Implementation>
 </Method>
@@ -116,11 +123,13 @@
 <ReturnType>TECH.Integer</ReturnType>
 <Implementation><![CDATA[
 	#dim Max As TECH.Integer = 0
-	set Iterator = ##class(TECH.ListIterator).%New(Verpakkingen)
-	While Iterator.HasNext() {
+	#dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Verpakkingen)
+	
+	While (Iterator.HasNext()) {
 		#dim Verpakking As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput.Verpakking = Iterator.Next()
 		Set Max = Max + (Verpakking.Aantal * Verpakking.KartonSpecificatie.MaxInVerpakking)
 	}
+	
 	Quit Max
 ]]></Implementation>
 </Method>