Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFBodemOndersteuningv001.cls.xml
===================================================================
diff -u -r30848 -r30862
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFBodemOndersteuningv001.cls.xml	(.../HFBodemOndersteuningv001.cls.xml)	(revision 30848)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFBodemOndersteuningv001.cls.xml	(.../HFBodemOndersteuningv001.cls.xml)	(revision 30862)
@@ -4,12 +4,33 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.Generated.HFBodemOndersteuningv000</Super>
 
+<Property name="BodemOndersteuningAantalBepaler">
+<Type>DOM.PM.Maatwerk.TAX.impl.BodemOndersteuningAantalBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="IngegevenKenmerkenTypeAPI">
+<Type>DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>SamengesteldHalffabItemBuilder:DOM.PM.Maatwerk.Calc.HF.ISamengesteldHalffabItemBuilder</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	set ..BodemOndersteuningAantalBepaler = ##class(DOM.PM.Maatwerk.TAX.impl.BodemOndersteuningAantalBepaler).%New()	
+	set ..IngegevenKenmerkenTypeAPI = ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenTypeAPI()
+	Quit ##super(SamengesteldHalffabItemBuilder)
+]]></Implementation>
+</Method>
+
 <Method name="PostProcessHalffabItem">
 <FormalSpec><![CDATA[&HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Context:DOM.PM.Maatwerk.Calc.HF.HalffabContext,&HalffabList:%ListOfObjects]]></FormalSpec>
 <Implementation><![CDATA[
-	set BodemOndersteuningBepaler = ##class(DOM.PM.Maatwerk.TAX.impl.BodemOndersteuningAantalBepaler).%New()
-	Set HalffabItem.Aantal = BodemOndersteuningBepaler.Bepaal(IngegevenKenmerken)
-	If (IngegevenKenmerken.IsBinnenlade) && ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenTypeAPI().IsGemonteerdeLade(IngegevenKenmerken) {
+	Set HalffabItem.Aantal = ..BodemOndersteuningAantalBepaler.Bepaal(IngegevenKenmerken)
+	If (IngegevenKenmerken.IsBinnenlade) && ..IngegevenKenmerkenTypeAPI.IsGemonteerdeLade(IngegevenKenmerken) {
 		Set HalffabItem.OpnemenInEindproduct = 1
 		Set HalffabItem.BuilderBepaaltOpnemenInEindproduct = 1
 	}