Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/LosseComponentenZRF/DoosConfiguratieBepaler.cls.xml
===================================================================
diff -u -r55896 -r55941
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/LosseComponentenZRF/DoosConfiguratieBepaler.cls.xml	(.../DoosConfiguratieBepaler.cls.xml)	(revision 55896)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/LosseComponentenZRF/DoosConfiguratieBepaler.cls.xml	(.../DoosConfiguratieBepaler.cls.xml)	(revision 55941)
@@ -57,12 +57,13 @@
 	}
 	
 	#dim BuilderInputDoos As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.VerpakkingOnderdeelInput = ..GeefBuilderInputDoos(LadeOnderdeel, BestelEenheid)
-	;Do BuilderInputDoos.ZetVerpakkingen(..GeefVerpakkingen(BestelEenheid))
+	Do BuilderInputDoos.ZetVerpakkingen(..GeefVerpakkingen(BestelEenheid))
 	Do ..InsertBuilderInLijst(BuilderList, BuilderInputDoos)
-	Do ..InsertBuilderInLijst(BuilderList, ..GeefBuilderInputVerdeelplaat(BestelEenheid))
-	Do ..InsertBuilderInLijst(BuilderList, ..GeefBuilderInputInsert(BestelEenheid))
+	
+	Do ..InsertBuilderInLijst(BuilderList, ..GeefBuilderInputVerdeelplaat(LadeOnderdeel, BestelEenheid))
+	Do ..InsertBuilderInLijst(BuilderList, ..GeefBuilderInputInsert(LadeOnderdeel, BestelEenheid))
 	Do ..InsertBuilderInLijst(BuilderList, ..GeefBuilderInputSpacers(LadeOnderdeel, BestelEenheid))
-	Do ..InsertBuilderInLijst(BuilderList, ..GeefBuilderInputVulplaten(BestelEenheid))
+	Do ..InsertBuilderInLijst(BuilderList, ..GeefBuilderInputVulplaten(LadeOnderdeel, BestelEenheid))
 	
 	Quit
 ]]></Implementation>
@@ -84,12 +85,12 @@
 	#dim BuilderInputProductID As DOM.common.ProductID = ..DoosBepaler.GeefDoosProductId(LadeOnderdeel)
 	#dim BuilderInputAantal As %Integer = (1 / BestelEenheid)
 	
-	Quit ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.VerpakkingOnderdeelInput).%New(BuilderInputNaam, BuilderInputProductID, BuilderInputAantal)
+	Quit ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.VerpakkingOnderdeelInput).%New(BuilderInputNaam, BuilderInputProductID, BuilderInputAantal, LadeOnderdeel)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefBuilderInputVerdeelplaat">
-<FormalSpec>BestelEenheid:%Integer</FormalSpec>
+<FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel,BestelEenheid:%Integer</FormalSpec>
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.VerpakkingOnderdeelInput</ReturnType>
 <Implementation><![CDATA[
@@ -99,12 +100,12 @@
 	#dim BuilderInputProductID As DOM.common.ProductID = $$$VPKVRDLPLAAT2TAXBLKB
 	#dim BuilderInputAantal As %Integer = (1 / BestelEenheid)
 	
-	Quit ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.VerpakkingOnderdeelInput).%New(BuilderInputNaam, BuilderInputProductID, BuilderInputAantal)
+	Quit ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.VerpakkingOnderdeelInput).%New(BuilderInputNaam, BuilderInputProductID, BuilderInputAantal, LadeOnderdeel)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefBuilderInputInsert">
-<FormalSpec>BestelEenheid:%Integer</FormalSpec>
+<FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel,BestelEenheid:%Integer</FormalSpec>
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.VerpakkingOnderdeelInput</ReturnType>
 <Implementation><![CDATA[
@@ -114,7 +115,7 @@
 	#dim BuilderInputProductID As DOM.common.ProductID = $$$VPKINSERTTAXBLKB
 	#dim BuilderInputAantal As %Integer = (1 / BestelEenheid)
 	
-	Quit ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.VerpakkingOnderdeelInput).%New(BuilderInputNaam, BuilderInputProductID, BuilderInputAantal)
+	Quit ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.VerpakkingOnderdeelInput).%New(BuilderInputNaam, BuilderInputProductID, BuilderInputAantal, LadeOnderdeel)
 ]]></Implementation>
 </Method>
 
@@ -127,12 +128,12 @@
 	#dim BuilderInputProductID As DOM.common.ProductID = ..SpacerBepaler.GeefSpacerProductId(LadeOnderdeel)
 	#dim BuilderInputAantal As %Integer = (..SpacerBepaler.GeefAantalSpacersPerDoos(LadeOnderdeel, BestelEenheid) / BestelEenheid)
 	
-	Quit ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.VerpakkingOnderdeelInput).%New(BuilderInputNaam, BuilderInputProductID, BuilderInputAantal)
+	Quit ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.VerpakkingOnderdeelInput).%New(BuilderInputNaam, BuilderInputProductID, BuilderInputAantal, LadeOnderdeel)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefBuilderInputVulplaten">
-<FormalSpec>BestelEenheid:%Integer</FormalSpec>
+<FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel,BestelEenheid:%Integer</FormalSpec>
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.VerpakkingOnderdeelInput</ReturnType>
 <Implementation><![CDATA[
@@ -143,7 +144,7 @@
 	#dim BuilderInputProductID As DOM.common.ProductID = $$$VPKEINDPLAATBCTAXBLKB
 	#dim BuilderInputAantal As %Integer = ($$$AantalVulplatenPerDoos / BestelEenheid)
 	
-	Quit ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.VerpakkingOnderdeelInput).%New(BuilderInputNaam, BuilderInputProductID, BuilderInputAantal)
+	Quit ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.VerpakkingOnderdeelInput).%New(BuilderInputNaam, BuilderInputProductID, BuilderInputAantal, LadeOnderdeel)
 ]]></Implementation>
 </Method>
 
@@ -153,14 +154,17 @@
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.VerpakkingOnderdeelInput.Verpakking</ReturnType>
 <Implementation><![CDATA[
 	#dim Verpakkingen = ##class(%ListOfObjects).%New()
-	#dim DoosInhoudAantallen As %Integer
+	#dim DoosInhoudAantal As %Integer
+	#dim Index As %Integer = 1
 	
 	#dim DoosInhoudAantallenLijst As %ListOfDataTypes = ..GeefDoosInhoudAantallenLijst(BestelEenheid)
+	;Do ..VoegToe(Verpakkingen, DoosInhoudAantallenLijst.Count())
+	
 	#dim DoosInhoudAantallenLijstIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(DoosInhoudAantallenLijst)
 	
 	While DoosInhoudAantallenLijstIterator.HasNext() {
-		Set DoosInhoudAantallen = DoosInhoudAantallenLijstIterator.Next()
-		Do ..VoegToe(Verpakkingen, DoosInhoudAantallen)
+		Set DoosInhoudAantal = DoosInhoudAantallenLijstIterator.Next()
+		Do ..VoegToe(Verpakkingen, Index, DoosInhoudAantal, BestelEenheid)
 	}
 	
 	Quit Verpakkingen
@@ -170,6 +174,7 @@
 <Method name="GeefDoosInhoudAantallenLijst">
 <FormalSpec>BestelEenheid:%Integer</FormalSpec>
 <Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
 	#dim DoosInhoudAantallenLijst As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
 	#dim Rest As %Integer = ..TotaalAantalTeVerpakken
@@ -189,11 +194,9 @@
 </Method>
 
 <Method name="VoegToe">
-<FormalSpec>Verpakkingen:%ListOfObjects,AantalDozen:TECH.Integer</FormalSpec>
+<FormalSpec>Verpakkingen:%ListOfObjects,DoosNummer:%Integer,Aantal:%Integer,BestelEenheid:%Integer</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[
-	// In  "DoosBerekenaar" gebruikt die "AantalDozen" als parameter, maar moet dat niet gewoon "Aantal" zijn?
-	;Do Verpakkingen.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.VerpakkingOnderdeelInput.Verpakking).%New(AantalDozen))
+<Implementation><![CDATA[	Do Verpakkingen.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.VerpakkingOnderdeelInput.Verpakking).%New(DoosNummer, Aantal, BestelEenheid))
 ]]></Implementation>
 </Method>
 </Class>
Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/HalffabItem/Verpakkingv001LosseComponentenZRFFront.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/HalffabItem/Verpakkingv001LosseComponentenZRFFront.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/HalffabItem/Verpakkingv001LosseComponentenZRFFront.cls.xml	(revision 55941)
@@ -0,0 +1,14 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.Verpakkingv001LosseComponentenZRFFront">
+<Super>DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.Verpakkingv001LosseComponentenZRF</Super>
+
+<Method name="GeefComponent">
+<ReturnType>DOM.PM.Maatwerk.Lade.enu.LosseComponent</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.PM.Maatwerk.Lade.enu.LosseComponent).Front()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/HalffabItem/Verpakkingv001LosseComponentenZRF.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/HalffabItem/Verpakkingv001LosseComponentenZRF.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/HalffabItem/Verpakkingv001LosseComponentenZRF.cls.xml	(revision 55941)
@@ -0,0 +1,66 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.Verpakkingv001LosseComponentenZRF">
+<Super>DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem</Super>
+
+<Property name="AantalPerVerpakking">
+<Type>%Integer</Type>
+<Collection>array</Collection>
+<Private>1</Private>
+</Property>
+
+<Property name="AantalVerpakkingen">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="TotaalAantalTeVerpakken">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="ZetAantalPerVerpakking">
+<FormalSpec>VerpakkingAantal:%Integer,Aantal:%Integer</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	do ..AantalPerVerpakking.SetAt(Aantal,VerpakkingAantal)
+]]></Implementation>
+</Method>
+
+<Method name="GeefAantalVerpakkingen">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	quit ..AantalVerpakkingen
+]]></Implementation>
+</Method>
+
+<Method name="GeefTotaalAantalTeVerpakken">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	quit ..TotaalAantalTeVerpakken
+]]></Implementation>
+</Method>
+
+<Method name="ZetAantalVerpakkingen">
+<FormalSpec>AantalVerpakkingen:%Integer</FormalSpec>
+<Implementation><![CDATA[	set ..AantalVerpakkingen = AantalVerpakkingen
+]]></Implementation>
+</Method>
+
+<Method name="ZetTotaalAantalTeVerpakken">
+<FormalSpec>TotaalAantalTeVerpakken:%Integer</FormalSpec>
+<Implementation><![CDATA[	set ..TotaalAantalTeVerpakken = TotaalAantalTeVerpakken
+]]></Implementation>
+</Method>
+
+<Method name="GeefAantallenPerVerpakking">
+<ReturnType>%ArrayOfDataTypes</ReturnType>
+<Implementation><![CDATA[	quit ..AantalPerVerpakking
+]]></Implementation>
+</Method>
+
+<Method name="GeefComponent">
+<Abstract>1</Abstract>
+<ReturnType>DOM.PM.Maatwerk.Lade.enu.LosseComponent</ReturnType>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/HalffabItem/Verpakkingv001LosseComponentenZRFZijkantRechts.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/HalffabItem/Verpakkingv001LosseComponentenZRFZijkantRechts.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/HalffabItem/Verpakkingv001LosseComponentenZRFZijkantRechts.cls.xml	(revision 55941)
@@ -0,0 +1,14 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.Verpakkingv001LosseComponentenZRFZijkantRechts">
+<Super>DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.Verpakkingv001LosseComponentenZRF</Super>
+
+<Method name="GeefComponent">
+<ReturnType>DOM.PM.Maatwerk.Lade.enu.LosseComponent</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.PM.Maatwerk.Lade.enu.LosseComponent).ZijkantRechts()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/Maatwerk/Calc/HF/impl/Processor/GeneratorStandaardHalffabItem.cls.xml
===================================================================
diff -u -r29059 -r55941
--- DOM/PM/Maatwerk/Calc/HF/impl/Processor/GeneratorStandaardHalffabItem.cls.xml	(.../GeneratorStandaardHalffabItem.cls.xml)	(revision 29059)
+++ DOM/PM/Maatwerk/Calc/HF/impl/Processor/GeneratorStandaardHalffabItem.cls.xml	(.../GeneratorStandaardHalffabItem.cls.xml)	(revision 55941)
@@ -3,13 +3,41 @@
 <Class name="DOM.PM.Maatwerk.Calc.HF.impl.Processor.GeneratorStandaardHalffabItem">
 <Super>%RegisteredObject</Super>
 
+<Property name="HalffabItemClassName">
+<Type>TECH.ClassName</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>HalffabItemClassName:TECH.ClassName="DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem"</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..HalffabItemClassName = HalffabItemClassName
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="HalffabItemClassNameSet">
+<FormalSpec>ClassName:TECH.ClassName</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	do ##class(TECH.ClassName).Validate(ClassName)
+	set i%HalffabItemClassName = ClassName
+	quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GenereerHalffabItem">
 <FormalSpec><![CDATA[&HalffabList:%ListOfObjects,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Context:DOM.PM.Maatwerk.Calc.HF.HalffabContext,BuilderRol:%String]]></FormalSpec>
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabItem</ReturnType>
 <Implementation><![CDATA[
 	// HalffabItem maken op basis van het "uniek-geselecteerde" Halffab
 	#dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = HalffabList.GetNext("")
-	Set HalffabItem=##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New(Context, BuilderRol, Halffab)
+	#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem = $classmethod(..HalffabItemClassName,"%New",Context, BuilderRol, Halffab)
 	Set HalffabItem.Aantal=1
 	Quit HalffabItem
 ]]></Implementation>
Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/LosseComponentenZRF/VerpakkingOnderdeelInput/Verpakking.cls.xml
===================================================================
diff -u -r55897 -r55941
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/LosseComponentenZRF/VerpakkingOnderdeelInput/Verpakking.cls.xml	(.../Verpakking.cls.xml)	(revision 55897)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/LosseComponentenZRF/VerpakkingOnderdeelInput/Verpakking.cls.xml	(.../Verpakking.cls.xml)	(revision 55941)
@@ -4,17 +4,27 @@
 <Super>TECH.RegisteredObject</Super>
 
 <Property name="Aantal">
-<Type>TECH.Integer</Type>
+<Type>%Integer</Type>
 </Property>
 
+<Property name="BestelEenheid">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="DoosNummer">
+<Type>%Integer</Type>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>Aantal:TECH.Integer</FormalSpec>
+<FormalSpec>DoosNummer:%Integer,Aantal:%Integer,BestelEenheid:%Integer</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
+	Set ..DoosNummer = DoosNummer
 	Set ..Aantal = Aantal
+	Set ..BestelEenheid = BestelEenheid
 	
 	Quit $$$OK
 ]]></Implementation>
Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/LosseComponentenZRF/VerpakkingOnderdeelBuilder.cls.xml
===================================================================
diff -u -r55893 -r55941
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/LosseComponentenZRF/VerpakkingOnderdeelBuilder.cls.xml	(.../VerpakkingOnderdeelBuilder.cls.xml)	(revision 55893)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/LosseComponentenZRF/VerpakkingOnderdeelBuilder.cls.xml	(.../VerpakkingOnderdeelBuilder.cls.xml)	(revision 55941)
@@ -29,7 +29,15 @@
 <Method name="GeefHalffabListToItemProcessor">
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabListToItemProcessor</ReturnType>
-<Implementation><![CDATA[	Quit ##class(DOM.PM.Maatwerk.Calc.HF.impl.Processor.HFItemProcessorExactEen).%New()
+<Implementation><![CDATA[
+	#dim LadeOnderdeel As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = ..Input.LadeOnderdeel.GeefRol()
+	#dim SubRol As TECH.String = ""
+	If LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Zijkant() {
+		Set SubRol = ..Input.LadeOnderdeel.GeefZijkantRol()
+	}
+	#dim ClassName As TECH.ClassName = "DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.Verpakkingv001LosseComponentenZRF"_LadeOnderdeel_SubRol
+	
+	Quit ##class(DOM.PM.Maatwerk.Calc.HF.impl.Processor.HFItemProcessorExactEen).%New(ClassName)
 ]]></Implementation>
 </Method>
 
@@ -51,12 +59,22 @@
 </Method>
 
 <Method name="PostProcessHalffabItem">
-<FormalSpec><![CDATA[&HalffabItem:DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Context:DOM.PM.Maatwerk.Calc.HF.HalffabContext,&HalffabList:%ListOfObjects]]></FormalSpec>
+<FormalSpec><![CDATA[&HalffabItem:DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.Verpakkingv001LosseComponentenZRF,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Context:DOM.PM.Maatwerk.Calc.HF.HalffabContext,&HalffabList:%ListOfObjects]]></FormalSpec>
 <Implementation><![CDATA[
 	Do ##super(HalffabItem, IngegevenKenmerken, Context, .HalffabList)
 	Do HalffabItem.ZetOmschrijvingVoorDocs(..GeefRol())
 	Set HalffabItem.Aantal = ..Input.Aantal
-	;Do HalffabItem.ZetTotaalAantalTeVerpakken(..TotaalAantalTeVerpakken)
+	
+	#dim AantalVerpakkingen As %Integer = 0
+	Set Iterator = ##class(TECH.ListIterator).%New(..Input.Verpakkingen)
+	While Iterator.HasNext() {
+		#dim Verpakking As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.VerpakkingOnderdeelInput.Verpakking = Iterator.Next()
+		Do HalffabItem.ZetAantalPerVerpakking(Verpakking.BestelEenheid, Verpakking.DoosNummer)
+		Set AantalVerpakkingen = AantalVerpakkingen + 1
+	}
+	
+	Do HalffabItem.ZetTotaalAantalTeVerpakken(..TotaalAantalTeVerpakken)
+	Do HalffabItem.ZetAantalVerpakkingen(AantalVerpakkingen)
 ]]></Implementation>
 </Method>
 </Class>
Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/HalffabItem/Verpakkingv001LosseComponentenZRFRug.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/HalffabItem/Verpakkingv001LosseComponentenZRFRug.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/HalffabItem/Verpakkingv001LosseComponentenZRFRug.cls.xml	(revision 55941)
@@ -0,0 +1,14 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.Verpakkingv001LosseComponentenZRFRug">
+<Super>DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.Verpakkingv001LosseComponentenZRF</Super>
+
+<Method name="GeefComponent">
+<ReturnType>DOM.PM.Maatwerk.Lade.enu.LosseComponent</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.PM.Maatwerk.Lade.enu.LosseComponent).Rug()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/HalffabItem/Verpakkingv001LosseComponentenZRFZijkantLinks.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/HalffabItem/Verpakkingv001LosseComponentenZRFZijkantLinks.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/HalffabItem/Verpakkingv001LosseComponentenZRFZijkantLinks.cls.xml	(revision 55941)
@@ -0,0 +1,14 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.Verpakkingv001LosseComponentenZRFZijkantLinks">
+<Super>DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.Verpakkingv001LosseComponentenZRF</Super>
+
+<Method name="GeefComponent">
+<ReturnType>DOM.PM.Maatwerk.Lade.enu.LosseComponent</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.PM.Maatwerk.Lade.enu.LosseComponent).ZijkantLinks()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/LosseComponentenZRF/VerpakkingOnderdeelInput.cls.xml
===================================================================
diff -u -r55897 -r55941
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/LosseComponentenZRF/VerpakkingOnderdeelInput.cls.xml	(.../VerpakkingOnderdeelInput.cls.xml)	(revision 55897)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/LosseComponentenZRF/VerpakkingOnderdeelInput.cls.xml	(.../VerpakkingOnderdeelInput.cls.xml)	(revision 55941)
@@ -15,13 +15,17 @@
 <Type>%Integer</Type>
 </Property>
 
+<Property name="LadeOnderdeel">
+<Type>DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel</Type>
+</Property>
+
 <Property name="Verpakkingen">
 <Type>DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.VerpakkingOnderdeelInput.Verpakking</Type>
 <Collection>list</Collection>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>Naam:TECH.String="",ProductID:DOM.common.ProductID,Aantal:%Integer=1</FormalSpec>
+<FormalSpec>Naam:TECH.String="",ProductID:DOM.common.ProductID,Aantal:%Integer=1,LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -30,6 +34,7 @@
 	Set ..Naam = Naam
 	Set ..ProductID = ProductID
 	Set ..Aantal = Aantal
+	Set ..LadeOnderdeel = LadeOnderdeel
 	Quit $$$OK
 ]]></Implementation>
 </Method>