Index: vhUnitTest/End2End/TAOR/BouwsteenCreatie/TestSFS.cls.xml
===================================================================
diff -u -r53833 -r58910
--- vhUnitTest/End2End/TAOR/BouwsteenCreatie/TestSFS.cls.xml	(.../TestSFS.cls.xml)	(revision 53833)
+++ vhUnitTest/End2End/TAOR/BouwsteenCreatie/TestSFS.cls.xml	(.../TestSFS.cls.xml)	(revision 58910)
@@ -17,7 +17,7 @@
 	#dim ProductSpecificatie As DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie).%New(Kenmerken.GeefFamilie(),Kenmerken.GeefVariant(),Kenmerken)
 	#dim BerekeningsSpecificatie As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = ..GeefBerekeningSpecificatie()
 		 
-	Do ##class(DOM.PM.impl.DataM.DataMBouwsteenCreator).%New(PRNr, ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItemsBoom)
+	Do ##class(DOM.PM.impl.DataM.DataMBouwsteenCreator).%New().Init(PRNr, ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItemsBoom)
 	
 	#dim PRBS As TECH.MultiDim
 	Merge PRBS = ^PRBS("BS",PRNr)
Index: DOM/PM/impl/ProductAPI.cls.xml
===================================================================
diff -u -r58631 -r58910
--- DOM/PM/impl/ProductAPI.cls.xml	(.../ProductAPI.cls.xml)	(revision 58631)
+++ DOM/PM/impl/ProductAPI.cls.xml	(.../ProductAPI.cls.xml)	(revision 58910)
@@ -253,7 +253,8 @@
 		Set ProductCreator = ##class(DOM.PM.impl.DataM.DataMTBXLadeCreator).%New(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
 		Set ProductID = ProductCreator.GeefPRNr()
 		Set KenmerkenCreator = ##class(DOM.PM.impl.DataM.DataMLadeKenmerkenCreator).%New(ProductID,ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom)
-		Set BouwsteenCreator = ##class(DOM.PM.impl.DataM.DataMBouwsteenCreator).%New(ProductID, ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
+		Set BouwsteenCreator = ##class(DOM.PM.impl.DataM.DataMBouwsteenCreator).%New()
+		Do BouwsteenCreator.Init(ProductID, ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
 	}
 	ElseIf (ProductSpecificatie.GeefFamilie() = ##class(DOM.PM.enu.Familie).Lade()) && (ProductSpecificatie.GeefVariant() =  ##class(DOM.PM.enu.LadeVariant).TAOR())
 	{
@@ -263,20 +264,23 @@
 	{
 		Set ProductCreator = ##class(DOM.PM.impl.DataM.DataMLBXLadeCreator).%New(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem, ProductData)
 		Set ProductID = ProductCreator.GeefPRNr()
-		Set BouwsteenCreator = ##class(DOM.PM.impl.DataM.DataMBouwsteenCreator).%New(ProductID, ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
+		Set BouwsteenCreator = ##class(DOM.PM.impl.DataM.DataMBouwsteenCreator).%New()
+		Do BouwsteenCreator.Init(ProductID, ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
 	}
 	ElseIf (ProductSpecificatie.GeefFamilie() = ##class(DOM.PM.enu.Familie).AluKader())
 	{
 		Set ProductCreator = ##class(DOM.PM.impl.DataM.DataMAluKaderCreator).%New(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
 		Set ProductID = ProductCreator.GeefPRNr()
 		Set KenmerkenCreator = ##class(DOM.PM.impl.DataM.DataMAluKaderKenmerkenCreator).%New(ProductID,ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom)
-		Set BouwsteenCreator = ##class(DOM.PM.impl.DataM.DataMBouwsteenCreator).%New(ProductID, ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
+		Set BouwsteenCreator = ##class(DOM.PM.impl.DataM.DataMBouwsteenCreator).%New()
+		Do BouwsteenCreator.Init(ProductID, ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
 	}
 	ElseIf (ProductSpecificatie.GeefFamilie() = ##class(DOM.PM.enu.Familie).Orgalux())
 	{
 		Set ProductCreator = ##class(DOM.PM.OLProduct.impl.OLMProductCreator).%New(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
 		Set ProductID = ProductCreator.GeefPRNr()
-		Set BouwsteenCreator = ##class(DOM.PM.impl.DataM.DataMBouwsteenCreator).%New(ProductID, ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
+		Set BouwsteenCreator = ##class(DOM.PM.impl.DataM.DataMBouwsteenCreator).%New()
+		Do BouwsteenCreator.Init(ProductID, ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
 	}
 	ElseIf (ProductSpecificatie.GeefFamilie() = ##class(DOM.PM.enu.Familie).Mat())
 	{
@@ -285,13 +289,15 @@
 		{
 			Set ProductCreator = ##class(DOM.PM.impl.DataM.DataMMATBasisCreator).%New(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
 			Set ProductID = ProductCreator.GeefPRNr()
-			Set BouwsteenCreator = ##class(DOM.PM.impl.DataM.DataMBouwsteenCreator).%New(ProductID, ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
+			Set BouwsteenCreator = ##class(DOM.PM.impl.DataM.DataMBouwsteenCreator).%New()
+			Do BouwsteenCreator.Init(ProductID, ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
 		}
 		ElseIf (MATIK.Type = ##class(DOM.PM.enu.MatType).TAOR()) || (MATIK.Type = ##class(DOM.PM.enu.MatType).ORGALUX())
 		{			
 			Set ProductCreator = ##class(DOM.PM.impl.DataM.DataMMATTAORCreator).%New(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
 			Set ProductID = ProductCreator.GeefPRNr()
-			Set BouwsteenCreator = ##class(DOM.PM.impl.DataM.DataMBouwsteenCreator).%New(ProductID, ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
+			Set BouwsteenCreator = ##class(DOM.PM.impl.DataM.DataMBouwsteenCreator).%New()
+			Do BouwsteenCreator.Init(ProductID, ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
 			Do ##class(DOM.PM.Maatwerk.impl.OptiboxBoxDataCreator).MaakVoorMATTAORProduct(ProductID, MATIK.Type)
 		}
 		Else
Index: DOM/PM/impl/DataM/DataMBouwsteenCreator.cls.xml
===================================================================
diff -u -r58901 -r58910
--- DOM/PM/impl/DataM/DataMBouwsteenCreator.cls.xml	(.../DataMBouwsteenCreator.cls.xml)	(revision 58901)
+++ DOM/PM/impl/DataM/DataMBouwsteenCreator.cls.xml	(.../DataMBouwsteenCreator.cls.xml)	(revision 58910)
@@ -58,11 +58,25 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>PRNr:%Integer,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>
+<FormalSpec>ProductTypeAPI:DOM.PM.ProductTypeAPI="",LangtekstBewaarder:DOM.PM.LangtekstBewaarder=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	;joost mag weten waarom de contructors (ja, meervoud) van de parentclasses overschreven werden. 
+	;en waarom in de ene parent Level als transient staat en in de andere niet
+	;Voorlopig zo gelaten
+	
+	Set ..ProductTypeAPI = $$$Inject(ProductTypeAPI,##class(DOM.DomeinContext).Instance().GeefProductTypeAPI())
+	Set ..LangtekstBewaarder = $$$Inject(LangtekstBewaarder,##class(DOM.PM.LangtekstBewaarder).%New())
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Init">
+<FormalSpec>PRNr:%Integer,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 ..ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
 	Set ..LangtekstBewaarder = ##class(DOM.PM.LangtekstBewaarder).%New()
 
@@ -93,8 +107,6 @@
 	Do BLDIND^PRBS(PRNr)
 	
 	Do KPSAVE^PRBS(PRNr)
-	
-	Quit $$$OK
 ]]></Implementation>
 </Method>
 
@@ -438,6 +450,7 @@
 	#dim ProductTypeAPI as DOM.PM.ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
 	#dim LangtekstDelimiter as %String = "~"
 	#dim Langtekst as %String = ""
+
 	if ProductTypeAPI.IsAntislipmatProduct(MoederProductNR){
 		If ProductTypeAPI.IsTAORIndelingProduct(MoederProductNR){
 			Set Langtekst = "TA'OR" _ LangtekstDelimiter _ ##class(TECH.StringUtils).Replace(KindProduct.GeefLangtekst("BR",$$$False),$$$CRLF,LangtekstDelimiter)
Index: DOM/PM/Product/impl/TAORMaatwerkProductCreator.cls.xml
===================================================================
diff -u -r58635 -r58910
--- DOM/PM/Product/impl/TAORMaatwerkProductCreator.cls.xml	(.../TAORMaatwerkProductCreator.cls.xml)	(revision 58635)
+++ DOM/PM/Product/impl/TAORMaatwerkProductCreator.cls.xml	(.../TAORMaatwerkProductCreator.cls.xml)	(revision 58910)
@@ -40,7 +40,8 @@
 	If ($$$Not($$$HasLength(ProductID))) {
 		Set ProductCreator = ##class(DOM.PM.impl.DataM.DataMTAORLadeCreator).%New(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem, ProductData)
 		Set ProductID = ProductCreator.GeefPRNr()
-		Set BouwsteenCreator = ##class(DOM.PM.impl.DataM.DataMBouwsteenCreator).%New(ProductID, ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
+		Set BouwsteenCreator = ##class(DOM.PM.impl.DataM.DataMBouwsteenCreator).%New()
+		Do BouwsteenCreator.Init(ProductID, ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
 	}
 	
 	Quit ProductID
Index: APPS/PM/BulkActie/Acties/HerrekenProductViaIK.cls.xml
===================================================================
diff -u -r46110 -r58910
--- APPS/PM/BulkActie/Acties/HerrekenProductViaIK.cls.xml	(.../HerrekenProductViaIK.cls.xml)	(revision 46110)
+++ APPS/PM/BulkActie/Acties/HerrekenProductViaIK.cls.xml	(.../HerrekenProductViaIK.cls.xml)	(revision 58910)
@@ -240,7 +240,7 @@
 <Method name="MaakNieuweBouwstenen">
 <FormalSpec>ProductID:%String</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	Do ##class(DOM.PM.impl.DataM.DataMBouwsteenCreator).%New(ProductID, ..MaatwerkProduct.GeefProductSpecificatie(), ..BerekenSpecificatie, ..HalffabItemsBoom , ..KostItemsBoom )
+<Implementation><![CDATA[	Do ##class(DOM.PM.impl.DataM.DataMBouwsteenCreator).%New().Init(ProductID, ..MaatwerkProduct.GeefProductSpecificatie(), ..BerekenSpecificatie, ..HalffabItemsBoom , ..KostItemsBoom )
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/End2End/TAOR/BouwsteenCreatie/Test.cls.xml
===================================================================
diff -u -r53832 -r58910
--- vhUnitTest/End2End/TAOR/BouwsteenCreatie/Test.cls.xml	(.../Test.cls.xml)	(revision 53832)
+++ vhUnitTest/End2End/TAOR/BouwsteenCreatie/Test.cls.xml	(.../Test.cls.xml)	(revision 58910)
@@ -17,7 +17,7 @@
 	#dim ProductSpecificatie As DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie).%New(Kenmerken.GeefFamilie(),Kenmerken.GeefVariant(),Kenmerken)
 	#dim BerekeningsSpecificatie As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = ..GeefBerekeningSpecificatie()
 		 
-	do ##class(DOM.PM.impl.DataM.DataMBouwsteenCreator).%New(PRNr, ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItemsBoom)
+	do ##class(DOM.PM.impl.DataM.DataMBouwsteenCreator).%New().Init(PRNr, ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItemsBoom)
 	
 	#dim PRBS As TECH.MultiDim
 	merge PRBS = ^PRBS("BS",PRNr)
Index: vhUnitTest/End2End/MAT/BouwsteenCreatie/Test.cls.xml
===================================================================
diff -u -r30220 -r58910
--- vhUnitTest/End2End/MAT/BouwsteenCreatie/Test.cls.xml	(.../Test.cls.xml)	(revision 30220)
+++ vhUnitTest/End2End/MAT/BouwsteenCreatie/Test.cls.xml	(.../Test.cls.xml)	(revision 58910)
@@ -17,7 +17,8 @@
 	#dim ProductSpecificatie As DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie).%New(Kenmerken.GeefFamilie(),Kenmerken.GeefVariant(),Kenmerken)
 	#dim BerekeningsSpecificatie As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = ..GeefBerekeningSpecificatie()
 		 
-	do ##class(DOM.PM.impl.DataM.DataMBouwsteenCreator).%New(PRNr,ProductSpecificatie,BerekeningsSpecificatie,HaffabItemsBoom,KostItemsBoom)
+	Do ##class(DOM.PM.impl.DataM.DataMBouwsteenCreator).%New().Init(PRNr,ProductSpecificatie,BerekeningsSpecificatie,HaffabItemsBoom,KostItemsBoom)
+	;Do BouwSteenCreator
 	
 	#dim PRBS As TECH.MultiDim
 	merge PRBS = ^PRBS("BS",PRNr)
Index: vhUnitTest/End2End/LBX/BouwsteenCreatie/Test.cls.xml
===================================================================
diff -u -r45500 -r58910
--- vhUnitTest/End2End/LBX/BouwsteenCreatie/Test.cls.xml	(.../Test.cls.xml)	(revision 45500)
+++ vhUnitTest/End2End/LBX/BouwsteenCreatie/Test.cls.xml	(.../Test.cls.xml)	(revision 58910)
@@ -54,7 +54,7 @@
 	#dim ProductSpecificatie As DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie).%New(Kenmerken.GeefFamilie(),Kenmerken.GeefVariant(),Kenmerken)
 	#dim BerekeningsSpecificatie As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = ..GeefBerekeningSpecificatie()
 		 
-	do ##class(DOM.PM.impl.DataM.DataMBouwsteenCreator).%New(PRNr, ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItemsBoom)
+	do ##class(DOM.PM.impl.DataM.DataMBouwsteenCreator).%New().Init(PRNr, ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItemsBoom)
 	
 	#dim PRBS As TECH.MultiDim
 	merge PRBS = ^PRBS("BS",PRNr)