Index: DOM/PM/Product/impl/TAORMaatwerkProductCreator.cls.xml
===================================================================
diff -u
--- DOM/PM/Product/impl/TAORMaatwerkProductCreator.cls.xml	(revision 0)
+++ DOM/PM/Product/impl/TAORMaatwerkProductCreator.cls.xml	(revision 30265)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Product.impl.TAORMaatwerkProductCreator">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Creeer">
+<FormalSpec>ProductSpecificatie:DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie,BerekeningsSpecificatie:DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,KostItem:DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem</FormalSpec>
+<Implementation><![CDATA[
+	Set ProductCreator = ##class(DOM.PM.impl.DataM.DataMTAORLadeCreator).%New(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
+	#dim ProductID As %String = ProductCreator.GeefPRNr()
+	Set BouwsteenCreator = ##class(DOM.PM.impl.DataM.DataMBouwsteenCreator).%New(ProductID, ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
+	Quit ProductID
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/impl/ProductAPI.cls.xml
===================================================================
diff -u -r29059 -r30265
--- DOM/PM/impl/ProductAPI.cls.xml	(.../ProductAPI.cls.xml)	(revision 29059)
+++ DOM/PM/impl/ProductAPI.cls.xml	(.../ProductAPI.cls.xml)	(revision 30265)
@@ -199,9 +199,7 @@
 	}
 	ElseIf (ProductSpecificatie.GeefFamilie() = ##class(DOM.PM.enu.Familie).Lade()) && (ProductSpecificatie.GeefVariant() =  ##class(DOM.PM.enu.LadeVariant).TAOR())
 	{
-		Set ProductCreator = ##class(DOM.PM.impl.DataM.DataMTAORLadeCreator).%New(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
-		Set ProductID = ProductCreator.GeefPRNr()
-		Set BouwsteenCreator = ##class(DOM.PM.impl.DataM.DataMBouwsteenCreator).%New(ProductID, ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
+		Set ProductID = ##class(DOM.PM.Product.impl.TAORMaatwerkProductCreator).%New().Creeer(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
 	}
 	ElseIf (ProductSpecificatie.GeefFamilie() = ##class(DOM.PM.enu.Familie).Lade()) && (ProductSpecificatie.GeefVariant() =  ##class(DOM.PM.enu.LadeVariant).LBXPure())
 	{