Index: APPS/PM/Maatwerk/impl/BerekeningServiceProduct.cls.xml
===================================================================
diff -u -r62020 -r62130
--- APPS/PM/Maatwerk/impl/BerekeningServiceProduct.cls.xml	(.../BerekeningServiceProduct.cls.xml)	(revision 62020)
+++ APPS/PM/Maatwerk/impl/BerekeningServiceProduct.cls.xml	(.../BerekeningServiceProduct.cls.xml)	(revision 62130)
@@ -108,12 +108,19 @@
 <Private>1</Private>
 <ReturnType>DOM.PM.MaatwerkProduct</ReturnType>
 <Implementation><![CDATA[
+	Do ##class(TECH.Timing.TimerUtils).Start("MaakProductVanNietTbxKenmerken--tem Kostenboom")
 	#dim ProductSpecificatie As DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie = ..GeefProductSpecificatie(IngegevenKenmerken)
 	#dim BerekeningsSpecificatie As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = ..GeefBerekeningsSpecificatie(KlantID, Aantal)
 	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..GeefHalffabItemsBoom(IngegevenKenmerken, BerekeningsSpecificatie)
 	#dim KostItem As DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem = ..GeefKostItem(IngegevenKenmerken, BerekeningsSpecificatie, HalffabItemsBoom)
 	
-	Quit ..MaakMaatwerkProductVanNietTbxKenmerken(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem, ProductData)
+	Do ##class(TECH.Timing.TimerUtils).Stop()
+	
+	Do ##class(TECH.Timing.TimerUtils).Start("MaakProductVanNietTbxKenmerken--MaakMaatwerkProductVanNietTbxKenmerken")
+	#Dim Product as DOM.PM.MaatwerkProduct = ..MaakMaatwerkProductVanNietTbxKenmerken(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem, ProductData)
+	Do ##class(TECH.Timing.TimerUtils).Stop()
+	
+	Quit Product
 ]]></Implementation>
 </Method>
 
Index: DOM/PM/impl/LangtekstCreator.cls.xml
===================================================================
diff -u -r55292 -r62130
--- DOM/PM/impl/LangtekstCreator.cls.xml	(.../LangtekstCreator.cls.xml)	(revision 55292)
+++ DOM/PM/impl/LangtekstCreator.cls.xml	(.../LangtekstCreator.cls.xml)	(revision 62130)
@@ -65,7 +65,7 @@
 </Property>
 
 <Method name="GeefLangtekst">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,Taal:DOM.enu.Taal,Korttekst:%String=""</FormalSpec>
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,Taal:DOM.enu.Taal,Korttekst:%String="",HalffabItemsBoomOnHerwerkt:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom=""</FormalSpec>
 <ReturnType>DOM.PM.ProductLangtekst</ReturnType>
 <Implementation><![CDATA[
 	set ..Vertaler = ##class(DOM.DomeinContext).Instance().GeefVertaalAPI().GeefStandaardVertaler(Taal)
@@ -75,8 +75,12 @@
 	set ..HalffabItemsBoom = HalffabItemsBoom
 	set ..Taal = Taal
 	set ..KortTekst = Korttekst
+	If ($IsObject(HalffabItemsBoomOnHerwerkt)) {
+		Set ..HalffabItemsBoomOnHerwerkt = HalffabItemsBoomOnHerwerkt
+	} Else {
+		Do ..InitieerHalffabItemsBoomOnherwerkt()
+	}
 	
-	do ..InitieerHalffabItemsBoomOnherwerkt()
 	
 	do ..BepaalHoofding()
 	
@@ -85,20 +89,22 @@
 	Set ..LangtekstHelper = ##class(DOM.PM.LangtekstHelper).%New(..Vertaler,..Taal)
 	do ..VoegToeBasisGegevens()
 	do ..VoegToeNietMeeTeLeverenRollen()
-	
+		
 	quit ##class(DOM.PM.impl.ProductLangtekst).%New(..LangtekstHoofding,..LangtekstDetail)
 ]]></Implementation>
 </Method>
 
 <Method name="InitieerHalffabItemsBoomOnherwerkt">
 <Private>1</Private>
 <Implementation><![CDATA[
+	Do ##class(TECH.Timing.TimerUtils).Start("InitieerHalffabItemsBoomOnherwerktInCreator")
 	#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)
 	set ..HalffabItemsBoomOnHerwerkt = HalffabContext.HalffabItemsBoom
+	Do ##class(TECH.Timing.TimerUtils).Stop()
 ]]></Implementation>
 </Method>
 
Index: DOM/PM/impl/DataM/DataMMATBasisCreator.cls.xml
===================================================================
diff -u -r60861 -r62130
--- DOM/PM/impl/DataM/DataMMATBasisCreator.cls.xml	(.../DataMMATBasisCreator.cls.xml)	(revision 60861)
+++ DOM/PM/impl/DataM/DataMMATBasisCreator.cls.xml	(.../DataMMATBasisCreator.cls.xml)	(revision 62130)
@@ -38,7 +38,7 @@
 <ReturnType>DOM.PM.ProductLangtekst</ReturnType>
 <Implementation><![CDATA[
 	#dim LangtekstCreator As DOM.PM.impl.MATBasisLangtekstCreator = ##class(DOM.PM.impl.MATBasisLangtekstCreator).%New()
-	Quit LangtekstCreator.GeefLangtekst(..ProductSpecificatie.GeefIngegevenKenmerken(),..HalffabItemsBoom, Taal)
+	Quit LangtekstCreator.GeefLangtekst(..ProductSpecificatie.GeefIngegevenKenmerken(),..HalffabItemsBoom, Taal, ,..HalffabItemsBoomOnHerwerkt)
 ]]></Implementation>
 </Method>
 </Class>
Index: DOM/PM/impl/DataM/DataMLBXLadeCreator.cls.xml
===================================================================
diff -u -r30521 -r62130
--- DOM/PM/impl/DataM/DataMLBXLadeCreator.cls.xml	(.../DataMLBXLadeCreator.cls.xml)	(revision 30521)
+++ DOM/PM/impl/DataM/DataMLBXLadeCreator.cls.xml	(.../DataMLBXLadeCreator.cls.xml)	(revision 62130)
@@ -11,7 +11,7 @@
 <ReturnType>DOM.PM.ProductLangtekst</ReturnType>
 <Implementation><![CDATA[
 	#dim LangtekstCreator As DOM.PM.impl.LBXLangtekstCreator = ##class(DOM.PM.impl.LBXLangtekstCreator).%New()
-	Quit LangtekstCreator.GeefLangtekst(..ProductSpecificatie.GeefIngegevenKenmerken(),..HalffabItemsBoom, Taal , ..KortTekst)
+	Quit LangtekstCreator.GeefLangtekst(..ProductSpecificatie.GeefIngegevenKenmerken(),..HalffabItemsBoom, Taal , ..KortTekst, ..HalffabItemsBoomOnHerwerkt)
 ]]></Implementation>
 </Method>
 
Index: DOM/PM/impl/DataM/DataMTAORLadeCreator.cls.xml
===================================================================
diff -u -r31116 -r62130
--- DOM/PM/impl/DataM/DataMTAORLadeCreator.cls.xml	(.../DataMTAORLadeCreator.cls.xml)	(revision 31116)
+++ DOM/PM/impl/DataM/DataMTAORLadeCreator.cls.xml	(.../DataMTAORLadeCreator.cls.xml)	(revision 62130)
@@ -33,7 +33,7 @@
 <ReturnType>DOM.PM.ProductLangtekst</ReturnType>
 <Implementation><![CDATA[
 	#dim LangtekstCreator As DOM.PM.impl.TAORLangtekstCreator = ##class(DOM.PM.impl.TAORLangtekstCreator).%New()
-	quit LangtekstCreator.GeefLangtekst(..ProductSpecificatie.GeefIngegevenKenmerken(), ..HalffabItemsBoom, Taal, ..KortTekst)
+	quit LangtekstCreator.GeefLangtekst(..ProductSpecificatie.GeefIngegevenKenmerken(), ..HalffabItemsBoom, Taal, ..KortTekst, ..HalffabItemsBoomOnHerwerkt)
 ]]></Implementation>
 </Method>
 
Index: WSimpl/AX/CalculatedProduct/ProductService.cls.xml
===================================================================
diff -u -r61669 -r62130
--- WSimpl/AX/CalculatedProduct/ProductService.cls.xml	(.../ProductService.cls.xml)	(revision 61669)
+++ WSimpl/AX/CalculatedProduct/ProductService.cls.xml	(.../ProductService.cls.xml)	(revision 62130)
@@ -67,8 +67,11 @@
 <FormalSpec>Request:AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityRequest,ProductData:DOM.PM.dto.ProductData=""</FormalSpec>
 <ReturnType>DOM.PM.Product</ReturnType>
 <Implementation><![CDATA[
+	Do ##class(TECH.Timing.TimerUtils).Start("GeefProductGemaaktVolgensAxKenmerken")
 	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ..AxProductKenmerkenConverter.GeefConvertedAxKenmerken(Request.Attribute, Request.CustAccount)
-	Quit ..BerekeningService.MaakProductVanKenmerken(IngegevenKenmerken, ..AxToAdminUtils.ConvertCustomerID(Request.CustAccount), Request.Qty, ProductData)
+	#Dim Product As DOM.PM.Product = ..BerekeningService.MaakProductVanKenmerken(IngegevenKenmerken, ..AxToAdminUtils.ConvertCustomerID(Request.CustAccount), Request.Qty, ProductData)
+	Do ##class(TECH.Timing.TimerUtils).Stop()
+	Quit Product
 ]]></Implementation>
 </Method>
 
Index: WS/AX/CalculatedProduct/CalculatedProductService.cls.xml
===================================================================
diff -u -r52187 -r62130
--- WS/AX/CalculatedProduct/CalculatedProductService.cls.xml	(.../CalculatedProductService.cls.xml)	(revision 52187)
+++ WS/AX/CalculatedProduct/CalculatedProductService.cls.xml	(.../CalculatedProductService.cls.xml)	(revision 62130)
@@ -50,11 +50,19 @@
 <Implementation><![CDATA[
 	Do ##class(vhLib.Logger).%New().Debug("GetCalculatedProductData IN HTML decoded",In)
 	
+	Do ##class(TECH.Timing.TimerUtils).EnableTiming("BomBolTraagheid")
+	
+	Do ##class(TECH.Timing.TimerUtils).Start("CalculatedProductService")
 	#dim GUID As %String = ..MessageManager.GenerateID()
 	#dim BOMBOLOutQuery As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdADUMsgBOMBOLOutQuery = ..XmlCorrelater.FromStream(In, ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdADUMsgBOMBOLOutQuery).%ClassName($$$True), "ADUMsgBOMBOLOutQuery")
 	#dim BOMBOLInQuery As AXif.Dynamics.CalculatedProductOut.MessageParts.AxdADUMsgBOMBOLInQuery = ..Converter.Convert(BOMBOLOutQuery, GUID)
-
-	Quit ##class(TECH.XmlObjectUtils).GeefXMLStream(BOMBOLInQuery)
+	Set OutStream = ##class(TECH.XmlObjectUtils).GeefXMLStream(BOMBOLInQuery)
+	Do ##class(TECH.Timing.TimerUtils).Stop()	
+	
+	Do ##class(TECH.Timing.TimerUtils).DisableTiming()
+	Do ##class(TECH.Timing.TimerUtils).Flush()
+	
+	Quit OutStream
 ]]></Implementation>
 </Method>
 </Class>
Index: DOM/PM/impl/DataM/DataMMATTAORCreator.cls.xml
===================================================================
diff -u -r60861 -r62130
--- DOM/PM/impl/DataM/DataMMATTAORCreator.cls.xml	(.../DataMMATTAORCreator.cls.xml)	(revision 60861)
+++ DOM/PM/impl/DataM/DataMMATTAORCreator.cls.xml	(.../DataMMATTAORCreator.cls.xml)	(revision 62130)
@@ -37,7 +37,7 @@
 <ReturnType>DOM.PM.ProductLangtekst</ReturnType>
 <Implementation><![CDATA[
 	#dim LangtekstCreator As DOM.PM.impl.MATTAORLangtekstCreator = ##class(DOM.PM.impl.MATTAORLangtekstCreator).%New()
-	Quit LangtekstCreator.GeefLangtekst(..ProductSpecificatie.GeefIngegevenKenmerken(),..HalffabItemsBoom, Taal)
+	Quit LangtekstCreator.GeefLangtekst(..ProductSpecificatie.GeefIngegevenKenmerken(),..HalffabItemsBoom, Taal, ,..HalffabItemsBoomOnHerwerkt)
 ]]></Implementation>
 </Method>
 </Class>
Index: DOM/PM/impl/DataM/DataMProductCreator.cls.xml
===================================================================
diff -u -r57204 -r62130
--- DOM/PM/impl/DataM/DataMProductCreator.cls.xml	(.../DataMProductCreator.cls.xml)	(revision 57204)
+++ DOM/PM/impl/DataM/DataMProductCreator.cls.xml	(.../DataMProductCreator.cls.xml)	(revision 62130)
@@ -22,6 +22,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="HalffabItemsBoomOnHerwerkt">
+<Type>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="KostItem">
 <Type>DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem</Type>
 <Private>1</Private>
@@ -70,6 +75,7 @@
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	Do ##class(TECH.Timing.TimerUtils).Start("DataMProductCreator--tot voor Save")
 	Set ..LangtekstPieces = ##class(DOM.PM.impl.LangtekstBewaarderPieces).%New()
 	Set ..ProductSpecificatie = ProductSpecificatie
 	Set ..BerekeningsSpecificatie = BerekeningsSpecificatie
@@ -78,6 +84,8 @@
 	Set ..PRNr = $$$If($IsObject(ProductData), ProductData.PRNr, "")
 	Set ..DossierNummer = $$$If($IsObject(ProductData), ProductData.DossierNummer, "")
 
+	Do ..InitieerHalffabItemsBoomOnherwerkt()
+	
 	// Bepaal het generisch PRNr, dit nummer wordt gebruikt om uit KPR een template op te halen
 	#dim GenerischPRNr As %String = ..GeefGenerischPRNr()
 	
@@ -97,9 +105,12 @@
 	Do ..ZetVertaler()
 	Do ..BepaalLangtekst()
 	
+	Do ##class(TECH.Timing.TimerUtils).Stop()
+	
+	Do ##class(TECH.Timing.TimerUtils).Start("SaveEnGeefPRNr")
 	// Schrijf alle wijzigingen naar de global
 	Set ..PRNr = ..SaveEnGeefPRNr()
-	
+	Do ##class(TECH.Timing.TimerUtils).Stop()
 	// Op het einde van de save worden bepaalde routines opgeroepen
 	// hierdoor is de data in ..ProductData out of sync.
 	// Indien ..ProductData toch nog gebruikt moet worden -> herladen vanuit de global
@@ -108,6 +119,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="InitieerHalffabItemsBoomOnherwerkt">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ##class(TECH.Timing.TimerUtils).Start("InitieerHalffabItemsBoomOnherwerkt")
+	#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(..ProductSpecificatie.GeefIngegevenKenmerken().GeefFamilie(), ..ProductSpecificatie.GeefIngegevenKenmerken().GeefVariant(), BerekeningSpecificatie)
+	#dim HalffabSpec As DOM.PM.Maatwerk.Calc.HF.HalffabSpec = HalffabContext.GeefHalffabSpec()
+	Do HalffabSpec.BerekenHalffabBerekeningDetails(HalffabContext, ..ProductSpecificatie.GeefIngegevenKenmerken())
+	set ..HalffabItemsBoomOnHerwerkt = HalffabContext.HalffabItemsBoom
+	Do ##class(TECH.Timing.TimerUtils).Stop()
+]]></Implementation>
+</Method>
+
 <Method name="GeefPRNr">
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
@@ -120,8 +145,11 @@
 <Private>1</Private>
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
+	Do ##class(TECH.Timing.TimerUtils).Start("GeefGenerischPRNr")
 	Set Bepaler = ##class(DOM.PM.Maatwerk.GenerischProductBepaler).%New()
-	Quit Bepaler.GeefGenerischProductID(..ProductSpecificatie.GeefIngegevenKenmerken())
+	#Dim GenerischPRNr As %Integer = Bepaler.GeefGenerischProductID(..ProductSpecificatie.GeefIngegevenKenmerken())
+	Do ##class(TECH.Timing.TimerUtils).Stop()
+	Quit GenerischPRNr
 ]]></Implementation>
 </Method>
 
@@ -136,6 +164,7 @@
 <FormalSpec>GenerischPRNr:%Integer</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
+	Do ##class(TECH.Timing.TimerUtils).Start("LaadTemplate")
 	#dim Sleutel As %String = $Order(^KPR(GenerischPRNr,""))
 	While ((Sleutel '= "") && $ISVALIDNUM(Sleutel)) {
 		Do ..ProductData.SetAt(^KPR(GenerischPRNr,Sleutel),Sleutel)
@@ -146,12 +175,14 @@
 	#dim i As %String = ""
 	For i="I","J" Do ..ProductData.SetAt(^KPR(GenerischPRNr,$Order(^KPR(GenerischPRNr,i))),i)
 	Do ..ZetWaarde(0,3,GenerischPRNr)
+	Do ##class(TECH.Timing.TimerUtils).Stop()
 ]]></Implementation>
 </Method>
 
 <Method name="KuisOpTemplate">
 <Private>1</Private>
 <Implementation><![CDATA[
+	Do ##class(TECH.Timing.TimerUtils).Start("KuisOpTemplate")
 	// Ligging,Beginstock,FysStock,,Laatste beweging, Bestelling, Schaduwkorttekst, Schaduw sectie, Omschrijving N1, Omschrijving N2
 	#dim i As %Integer
 	For i=6,12,13,14,16,17,20,21,2,11 Do ..ZetWaarde(0,i,"")
@@ -169,6 +200,7 @@
 	Do ..ZetWaarde("J",10,20) ; KSDB%
 	
 	Do ..KuisOpLangtekstPiecesVanTemplate()
+	Do ##class(TECH.Timing.TimerUtils).Stop()
 ]]></Implementation>
 </Method>
 
@@ -194,6 +226,7 @@
 <Method name="VulTemplate">
 <Private>1</Private>
 <Implementation><![CDATA[
+	Do ##class(TECH.Timing.TimerUtils).Start("VulTemplate")
 	#dim DossierNummer As %String = ..DossierNummer
 	
 	Do ..ProductData.SetAt("","G")
@@ -221,19 +254,22 @@
  	// Zie kpcFILL() method in Prod.GAData.Product.tmpKPRCreate.MAC
  	// 
  	//  Set $P(NewRec("G"),"\",13)=..%Id() // id van de GAData
+ 	Do ##class(TECH.Timing.TimerUtils).Stop()
 ]]></Implementation>
 </Method>
 
 <Method name="ZetClassificatie">
 <Private>1</Private>
 <Implementation><![CDATA[
+	Do ##class(TECH.Timing.TimerUtils).Start("ZetClassificatie")
 	#dim Classificatie As %Integer = ..GeefClassificatie()
 	If (Classificatie '= "") {
 		Do ..ZetWaarde("I",1,$$GETSORT^KLASS(Classificatie,1))
 		Do ..ZetWaarde("I",2,$$GETSORT^KLASS(Classificatie,2))
 		Do ..ZetWaarde("I",3,$$GETSORT^KLASS(Classificatie,3))
 		Do ..ZetWaarde("I",4,Classificatie)
 	}
+	Do ##class(TECH.Timing.TimerUtils).Stop()
 ]]></Implementation>
 </Method>
 
@@ -330,14 +366,15 @@
 <Method name="BepaalLangtekst">
 <Private>1</Private>
 <Implementation><![CDATA[
+	Do ##class(TECH.Timing.TimerUtils).Start("BepaalLangtekst")
 	// Posities die nodig zijn voor de langtekst in een array steken
 	Do ..BuildLangtekstPosities()
-	
 	Do ..VulLangtekst("N", ..GeefLangtekst(##class(DOM.enu.Taal).Nederlands()))
 	Do ..VulLangtekst("F", ..GeefLangtekst(##class(DOM.enu.Taal).Frans()))
 	Do ..VulLangtekst("D", ..GeefLangtekst(##class(DOM.enu.Taal).Duits()))
 	Do ..VulLangtekst("E", ..GeefLangtekst(##class(DOM.enu.Taal).Engels()))
 	Do ..VulLangtekst("BR", ..GeefLangtekst(##class(DOM.enu.Taal).Nederlands()))
+	Do ##class(TECH.Timing.TimerUtils).Stop()
 ]]></Implementation>
 </Method>
 
Index: DOM/PM/impl/ProductAPI.cls.xml
===================================================================
diff -u -r58910 -r62130
--- DOM/PM/impl/ProductAPI.cls.xml	(.../ProductAPI.cls.xml)	(revision 58910)
+++ DOM/PM/impl/ProductAPI.cls.xml	(.../ProductAPI.cls.xml)	(revision 62130)
@@ -262,10 +262,15 @@
 	}
 	ElseIf (ProductSpecificatie.GeefFamilie() = ##class(DOM.PM.enu.Familie).Lade()) && (ProductSpecificatie.GeefVariant() =  ##class(DOM.PM.enu.LadeVariant).LBXPure())
 	{
+		Do ##class(TECH.Timing.TimerUtils).Start("DataMLBXLadeCreator")
 		Set ProductCreator = ##class(DOM.PM.impl.DataM.DataMLBXLadeCreator).%New(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem, ProductData)
 		Set ProductID = ProductCreator.GeefPRNr()
+		Do ##class(TECH.Timing.TimerUtils).Stop()
+		
+		Do ##class(TECH.Timing.TimerUtils).Start("DataMBouwsteenCreator")
 		Set BouwsteenCreator = ##class(DOM.PM.impl.DataM.DataMBouwsteenCreator).%New()
 		Do BouwsteenCreator.Init(ProductID, ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
+		Do ##class(TECH.Timing.TimerUtils).Stop()
 	}
 	ElseIf (ProductSpecificatie.GeefFamilie() = ##class(DOM.PM.enu.Familie).AluKader())
 	{