Index: DOM/PM/impl/MaatwerkLangtekstBepaler.cls.xml
===================================================================
diff -u -r62147 -r62175
--- DOM/PM/impl/MaatwerkLangtekstBepaler.cls.xml	(.../MaatwerkLangtekstBepaler.cls.xml)	(revision 62147)
+++ DOM/PM/impl/MaatwerkLangtekstBepaler.cls.xml	(.../MaatwerkLangtekstBepaler.cls.xml)	(revision 62175)
@@ -23,6 +23,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="HalffabItemsBoomOnherwerktBepaler">
+<Type>DOM.PM.impl.HalffabItemsBoomOnherwerktBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>MaatwerkCalcAPI:DOM.PM.MaatwerkCalcAPI=""</FormalSpec>
 <Private>1</Private>
@@ -33,30 +38,16 @@
 	Set ..LangtekstCreatorFactory = ##class(DOM.PM.impl.LangtekstCreatorFactory).%New()
 	Set ..Personality = ##class(DOM.common.VanHoeckePersonality).Instance()
 	Set ..KlantID = ##class(DOM.VKP.enu.Klant).Halux()
-	
+	Set ..HalffabItemsBoomOnherwerktBepaler = ##class(DOM.PM.impl.HalffabItemsBoomOnherwerktBepaler).%New()
 	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 HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..HalffabItemsBoomOnherwerktBepaler.InitieerHalffabItemsBoomOnherwerkt(IngegevenKenmerken)
 	#dim LangtekstCreator As DOM.PM.impl.LangtekstCreator = ..LangtekstCreatorFactory.MaakLangtekstCreator(IngegevenKenmerken)
 	#dim HalffabItemsBoomOnherwerkt As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..MaatwerkCalcAPI.GeefHalffabItemsBoom(IngegevenKenmerken, 1, ..KlantID, ..Personality)