Index: DOM/PM/impl/DataM/DataMBouwsteenCreator.cls.xml
===================================================================
diff -u -r30204 -r58910
--- DOM/PM/impl/DataM/DataMBouwsteenCreator.cls.xml	(.../DataMBouwsteenCreator.cls.xml)	(revision 30204)
+++ DOM/PM/impl/DataM/DataMBouwsteenCreator.cls.xml	(.../DataMBouwsteenCreator.cls.xml)	(revision 58910)
@@ -47,12 +47,39 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ProductTypeAPI">
+<Type>DOM.PM.ProductTypeAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LangtekstBewaarder">
+<Type>DOM.PM.LangtekstBewaarder</Type>
+<Private>1</Private>
+</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()
+
 	Set ..PRNr = PRNr
 	Set ..ProductSpecificatie = ProductSpecificatie
 	Set ..BerekeningsSpecificatie = BerekeningsSpecificatie
@@ -80,8 +107,6 @@
 	Do BLDIND^PRBS(PRNr)
 	
 	Do KPSAVE^PRBS(PRNr)
-	
-	Quit $$$OK
 ]]></Implementation>
 </Method>
 
@@ -407,14 +432,38 @@
 	
 	Set ProductSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie).%New(Item.GeefFamilie(),Item.GeefVariant(),Item.GeefIngegevenKenmerken())
 	#dim Product As DOM.PM.Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().MaakMaatwerkProduct(ProductSpecificatie,..BerekeningsSpecificatie, HalffabItemsBoom, SamengesteldKostItem)
-	
 	Set ..AantalKinderen = ..AantalKinderen + 1
+	
+	Do ..PrefixBestelReferentieIndienNodig(..PRNr,Product)		
+	
 	Set ^PRBS("BS",..PRNr,"KIND."_##class(TECH.StringUtils).AlignRight(..AantalKinderen,"0",3)) = Product.GeefID()_"\"_Item.Aantal_"\K\\\\\\\\PROD"
 	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
+<Method name="PrefixBestelReferentieIndienNodig">
+<FormalSpec>MoederProductNR:%String,KindProduct:DOM.PM.Product</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set LangtekstBewaarder = ##class(DOM.PM.LangtekstBewaarder).%New()
+	#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)
+			Do LangtekstBewaarder.BewaarBestelReferentie(KindProduct.GeefID(),Langtekst)
+		}
+		If ProductTypeAPI.IsOrgaluxOpMaat(MoederProductNR){
+			Set Langtekst = "ORGALUX" _ LangtekstDelimiter _ ##class(TECH.StringUtils).Replace(KindProduct.GeefLangtekst("BR",$$$False),$$$CRLF,LangtekstDelimiter)
+			Do LangtekstBewaarder.BewaarBestelReferentie(KindProduct.GeefID(),Langtekst)
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkMaatwerkProductKostItem">
 <FormalSpec>Item:DOM.PM.Maatwerk.Calc.Kost.MaatwerkProductKostItem</FormalSpec>
 <ReturnType>%Status</ReturnType>