Index: vhUnitTest/DOM/PM/impl/MaatwerkLangtekstCreator/Test.cls.xml
===================================================================
diff -u -r62134 -r62175
--- vhUnitTest/DOM/PM/impl/MaatwerkLangtekstCreator/Test.cls.xml	(.../Test.cls.xml)	(revision 62134)
+++ vhUnitTest/DOM/PM/impl/MaatwerkLangtekstCreator/Test.cls.xml	(.../Test.cls.xml)	(revision 62175)
@@ -44,23 +44,12 @@
  	
 	Set ..Kenmerken = ..GeefKenmerken()
 	Set ..HalffabItemsBoom = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI().GeefHalffabItemsBoom(..Kenmerken)
-	Do ..InitieerHalffabItemsBoomOnherwerkt()
+	Set HalffabItemsBoomOnherwerktBepaler = ##class(DOM.PM.impl.HalffabItemsBoomOnherwerktBepaler).%New()
+	Set ..HalffabItemsBoomOnHerwerkt = HalffabItemsBoomOnherwerktBepaler.InitieerHalffabItemsBoomOnherwerkt(..Kenmerken)
 	Set ..LangtekstCreator = ..GeefLangtekstCreator()
 ]]></Implementation>
 </Method>
 
-<Method name="InitieerHalffabItemsBoomOnherwerkt">
-<Private>1</Private>
-<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(..Kenmerken.GeefFamilie(),..Kenmerken.GeefVariant(), BerekeningSpecificatie)
-	#dim HalffabSpec As DOM.PM.Maatwerk.Calc.HF.HalffabSpec = HalffabContext.GeefHalffabSpec()
-	Do HalffabSpec.BerekenHalffabBerekeningDetails(HalffabContext, ..Kenmerken)
-	set ..HalffabItemsBoomOnHerwerkt = HalffabContext.HalffabItemsBoom
-]]></Implementation>
-</Method>
-
 <Method name="Test">
 <Implementation><![CDATA[
 	#dim Langtekst As DOM.PM.ProductLangtekst = ..LangtekstCreator.GeefLangtekst(..Kenmerken,..HalffabItemsBoom,##class(DOM.enu.Taal).Nederlands(),, ..HalffabItemsBoomOnHerwerkt)
Index: vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/GeefLangtekst/TestBaseSpecifiek.cls.xml
===================================================================
diff -u -r62134 -r62175
--- vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/GeefLangtekst/TestBaseSpecifiek.cls.xml	(.../TestBaseSpecifiek.cls.xml)	(revision 62134)
+++ vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/GeefLangtekst/TestBaseSpecifiek.cls.xml	(.../TestBaseSpecifiek.cls.xml)	(revision 62175)
@@ -29,6 +29,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="HalffabItemsBoomOnherwerktBepaler">
+<Type>DOM.PM.impl.HalffabItemsBoomOnherwerktBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -37,22 +42,10 @@
 	set ..LangtekstCreator = ##class(DOM.PM.impl.TAORLangtekstCreator).%New()
 	set ..Taal = ##class(DOM.enu.Taal).Nederlands()
 	set ..Korttekst = ""
+	Set ..HalffabItemsBoomOnherwerktBepaler = ##class(DOM.PM.impl.HalffabItemsBoomOnherwerktBepaler).%New()
 ]]></Implementation>
 </Method>
 
-<Method name="InitieerHalffabItemsBoomOnherwerkt">
-<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(..TAORKenmerken.GeefFamilie(),..TAORKenmerken.GeefVariant(), BerekeningSpecificatie)
-	#dim HalffabSpec As DOM.PM.Maatwerk.Calc.HF.HalffabSpec = HalffabContext.GeefHalffabSpec()
-	Do HalffabSpec.BerekenHalffabBerekeningDetails(HalffabContext, ..TAORKenmerken)
-	Quit HalffabContext.HalffabItemsBoom
-]]></Implementation>
-</Method>
-
 <Method name="Test: hoofding start met &apos;TA&apos;OR BOX &apos;">
 <Implementation><![CDATA[	do $$$AssertEquals($Extract(..GeefHoofding(), 1, 10), "TA'OR BOX ")
 ]]></Implementation>
@@ -77,7 +70,7 @@
 <ReturnType>DOM.PM.ProductLangtekst</ReturnType>
 <Implementation><![CDATA[
 	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..GeefHalffabItemsBoom(..TAORKenmerken)
-	#dim HalffabItemsBoomOnHerwerkt As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..InitieerHalffabItemsBoomOnherwerkt()
+	#dim HalffabItemsBoomOnHerwerkt As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..HalffabItemsBoomOnherwerktBepaler.InitieerHalffabItemsBoomOnherwerkt(..TAORKenmerken)
 
 	quit ..LangtekstCreator.GeefLangtekst(..TAORKenmerken, HalffabItemsBoom, ..Taal,..Korttekst, HalffabItemsBoomOnHerwerkt)
 ]]></Implementation>
Index: vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/Standaard/Test.cls.xml
===================================================================
diff -u -r62134 -r62175
--- vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/Standaard/Test.cls.xml	(.../Test.cls.xml)	(revision 62134)
+++ vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/Standaard/Test.cls.xml	(.../Test.cls.xml)	(revision 62175)
@@ -13,29 +13,22 @@
 <Private>1</Private>
 </Property>
 
+<Property name="HalffabItemsBoomOnherwerktBepaler">
+<Type>DOM.PM.impl.HalffabItemsBoomOnherwerktBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
 	do ##super(aTestName)
 	
 	set ..LangtekstCreator = ##class(DOM.PM.impl.TAORLangtekstCreator).%New()
 	set ..TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
+	Set ..HalffabItemsBoomOnherwerktBepaler = ##class(DOM.PM.impl.HalffabItemsBoomOnherwerktBepaler).%New()
 ]]></Implementation>
 </Method>
 
-<Method name="InitieerHalffabItemsBoomOnherwerkt">
-<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(..TAORKenmerken.GeefFamilie(),..TAORKenmerken.GeefVariant(), BerekeningSpecificatie)
-	#dim HalffabSpec As DOM.PM.Maatwerk.Calc.HF.HalffabSpec = HalffabContext.GeefHalffabSpec()
-	Do HalffabSpec.BerekenHalffabBerekeningDetails(HalffabContext, ..TAORKenmerken)
-	Quit HalffabContext.HalffabItemsBoom
-]]></Implementation>
-</Method>
-
 <Method name="Test: Standaard hoofding start met &apos;TA&apos;OR BOX &apos;">
 <Implementation><![CDATA[
 	#dim Hoofding As TECH.String = ..MaakStandaardHoofding()
@@ -50,7 +43,7 @@
 <Implementation><![CDATA[
 	#dim Taal As DOM.enu.Taal = ##class(DOM.enu.Taal).Nederlands()
 	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..GeefHalffabItemsBoom(..TAORKenmerken)
-	#dim HalffabItemsBoomOnherwerkt As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..InitieerHalffabItemsBoomOnherwerkt()
+	#dim HalffabItemsBoomOnherwerkt As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..HalffabItemsBoomOnherwerktBepaler.InitieerHalffabItemsBoomOnherwerkt(..TAORKenmerken)
 	#dim Langtekst As DOM.PM.ProductLangtekst = ..LangtekstCreator.GeefLangtekst(..TAORKenmerken, HalffabItemsBoom, Taal,,HalffabItemsBoomOnherwerkt)
 	
 	quit Langtekst.GeefHoofding()
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)
 	
Index: DOM/PM/impl/DataM/DataMProductCreator.cls.xml
===================================================================
diff -u -r62134 -r62175
--- DOM/PM/impl/DataM/DataMProductCreator.cls.xml	(.../DataMProductCreator.cls.xml)	(revision 62134)
+++ DOM/PM/impl/DataM/DataMProductCreator.cls.xml	(.../DataMProductCreator.cls.xml)	(revision 62175)
@@ -75,6 +75,7 @@
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	
 	Set ..LangtekstPieces = ##class(DOM.PM.impl.LangtekstBewaarderPieces).%New()
 	Set ..ProductSpecificatie = ProductSpecificatie
 	Set ..BerekeningsSpecificatie = BerekeningsSpecificatie
@@ -83,7 +84,8 @@
 	Set ..PRNr = $$$If($IsObject(ProductData), ProductData.PRNr, "")
 	Set ..DossierNummer = $$$If($IsObject(ProductData), ProductData.DossierNummer, "")
 
-	Do ..InitieerHalffabItemsBoomOnherwerkt()
+	Set HalffabItemsBoomOnherwerktBepaler = ##class(DOM.PM.impl.HalffabItemsBoomOnherwerktBepaler).%New()
+	set ..HalffabItemsBoomOnHerwerkt = HalffabItemsBoomOnherwerktBepaler.InitieerHalffabItemsBoomOnherwerkt(..ProductSpecificatie.GeefIngegevenKenmerken())
 	
 	// Bepaal het generisch PRNr, dit nummer wordt gebruikt om uit KPR een template op te halen
 	#dim GenerischPRNr As %String = ..GeefGenerischPRNr()
Index: DOM/PM/impl/HalffabItemsBoomOnherwerktBepaler.cls.xml
===================================================================
diff -u
--- DOM/PM/impl/HalffabItemsBoomOnherwerktBepaler.cls.xml	(revision 0)
+++ DOM/PM/impl/HalffabItemsBoomOnherwerktBepaler.cls.xml	(revision 62175)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.impl.HalffabItemsBoomOnherwerktBepaler">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="InitieerHalffabItemsBoomOnherwerkt">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<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>
+</Class>
+
+
+</Export>
Index: vhTest/Integratie/ProductBeheer/Maatwerk/Langteksten/TestBase.cls.xml
===================================================================
diff -u -r62134 -r62175
--- vhTest/Integratie/ProductBeheer/Maatwerk/Langteksten/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 62134)
+++ vhTest/Integratie/ProductBeheer/Maatwerk/Langteksten/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 62175)
@@ -32,7 +32,10 @@
 	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI().GeefHalffabItemsBoom(Kenmerken)
 	#dim LangtekstCreator As DOM.PM.impl.LangtekstCreator = ..GeefLangtekstCreator()
 	#dim TaalIterator As TECH.ListIterator = ##class(DOM.enu.Taal).ValueListIterator()
-	#dim HalffabItemsBoomOnHerwerkt As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..InitieerHalffabItemsBoomOnherwerkt(Kenmerken)
+	
+	Set HalffabItemsBoomOnherwerktBepaler = ##class(DOM.PM.impl.HalffabItemsBoomOnherwerktBepaler).%New()
+	#dim HalffabItemsBoomOnHerwerkt As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = HalffabItemsBoomOnherwerktBepaler.InitieerHalffabItemsBoomOnherwerkt(Kenmerken)
+	
 	while TaalIterator.HasNext() {
 		set Taal = TaalIterator.Next()
 		Continue:($$$Not(..IsGeldigeTaalVoorLangtekst(Taal)))
@@ -70,20 +73,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="InitieerHalffabItemsBoomOnherwerkt">
-<FormalSpec>Kenmerken: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(Kenmerken.GeefFamilie(),Kenmerken.GeefVariant(), BerekeningSpecificatie)
-	#dim HalffabSpec As DOM.PM.Maatwerk.Calc.HF.HalffabSpec = HalffabContext.GeefHalffabSpec()
-	Do HalffabSpec.BerekenHalffabBerekeningDetails(HalffabContext, Kenmerken)
-	Quit HalffabContext.HalffabItemsBoom
-]]></Implementation>
-</Method>
-
 <Method name="GeefIngegevenKenmerken">
 <Abstract>1</Abstract>
 <Private>1</Private>