Index: DOM/PM/impl/DataM/DataMBouwsteenCreator.cls.xml
===================================================================
diff -u -r30204 -r58901
--- DOM/PM/impl/DataM/DataMBouwsteenCreator.cls.xml	(.../DataMBouwsteenCreator.cls.xml)	(revision 30204)
+++ DOM/PM/impl/DataM/DataMBouwsteenCreator.cls.xml	(.../DataMBouwsteenCreator.cls.xml)	(revision 58901)
@@ -47,12 +47,25 @@
 <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>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <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
@@ -407,14 +420,37 @@
 	
 	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>