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)