Index: DOM/PM/impl/MaatwerkLangtekstBepaler.cls.xml
===================================================================
diff -u -r45360 -r62147
--- DOM/PM/impl/MaatwerkLangtekstBepaler.cls.xml	(.../MaatwerkLangtekstBepaler.cls.xml)	(revision 45360)
+++ DOM/PM/impl/MaatwerkLangtekstBepaler.cls.xml	(.../MaatwerkLangtekstBepaler.cls.xml)	(revision 62147)
@@ -33,19 +33,34 @@
 	Set ..LangtekstCreatorFactory = ##class(DOM.PM.impl.LangtekstCreatorFactory).%New()
 	Set ..Personality = ##class(DOM.common.VanHoeckePersonality).Instance()
 	Set ..KlantID = ##class(DOM.VKP.enu.Klant).Halux()
-
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
+<Method name="InitieerHalffabItemsBoomOnherwerkt">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</ReturnType>
+<Implementation><![CDATA[
+	#dim BerekeningSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1,##class(DOM.VKP.enu.Klant).Halux(),##class(DOM.common.VanHoeckePersonality).Instance())
+	Do BerekeningSpecificatie.ZetBerekeningWijze(##class(DOM.PM.Maatwerk.Calc.Common.enu.BerekeningWijze).ProductieAansturing())
+	#dim HalffabContext As DOM.PM.Maatwerk.Calc.HF.HalffabContext = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(IngegevenKenmerken.GeefFamilie(), IngegevenKenmerken.GeefVariant(), BerekeningSpecificatie)
+	#dim HalffabSpec As DOM.PM.Maatwerk.Calc.HF.HalffabSpec = HalffabContext.GeefHalffabSpec()
+	Do HalffabSpec.BerekenHalffabBerekeningDetails(HalffabContext, IngegevenKenmerken)
+	Quit HalffabContext.HalffabItemsBoom
+]]></Implementation>
+</Method>
+
 <Method name="GeefLangtekst">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Taal:DOM.enu.Taal</FormalSpec>
 <ReturnType>DOM.PM.ProductLangtekst</ReturnType>
 <Implementation><![CDATA[
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..InitieerHalffabItemsBoomOnherwerkt(IngegevenKenmerken)
 	#dim LangtekstCreator As DOM.PM.impl.LangtekstCreator = ..LangtekstCreatorFactory.MaakLangtekstCreator(IngegevenKenmerken)
-	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..MaatwerkCalcAPI.GeefHalffabItemsBoom(IngegevenKenmerken, 1, ..KlantID, ..Personality)
+	#dim HalffabItemsBoomOnherwerkt As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..MaatwerkCalcAPI.GeefHalffabItemsBoom(IngegevenKenmerken, 1, ..KlantID, ..Personality)
 	
-	Quit LangtekstCreator.GeefLangtekst(IngegevenKenmerken,HalffabItemsBoom,Taal)
+	Quit LangtekstCreator.GeefLangtekst(IngegevenKenmerken,HalffabItemsBoom,Taal,, HalffabItemsBoomOnherwerkt)
 ]]></Implementation>
 </Method>
 </Class>