Index: DOM/PM/impl/DataM/DataMBouwsteenCreator.cls.xml
===================================================================
diff -u -r66865 -r67065
--- DOM/PM/impl/DataM/DataMBouwsteenCreator.cls.xml	(.../DataMBouwsteenCreator.cls.xml)	(revision 66865)
+++ DOM/PM/impl/DataM/DataMBouwsteenCreator.cls.xml	(.../DataMBouwsteenCreator.cls.xml)	(revision 67065)
@@ -277,7 +277,7 @@
 	// Iets met sorteren en groeperen
 	//Set GroepAndSort=$$kpcGetDispGroepSort(DItem) // Soms uit fabrtekst, anders uit fabrgroep
 	Set $P(Rec,"\",18) = "FabrGroep1" //$P(GroepAndSort,";",1)   ; DItem.EvalTemplAuto("FabrGroep")
-	Set $P(Rec,"\",19) = "FabrPrep"   //DItem.EvalTemplAuto("FabrPrep") // -> Deze is zeker nodig
+	Set $P(Rec,"\",19) = ..GeefFabrPrep($Piece(##class(TECH.StringUtils).StripFirstPart(HalffabItem.GeefVolledigeRolNaam(),"."),".",1))   //DItem.EvalTemplAuto("FabrPrep") // -> Deze is zeker nodig
 	Set $P(Rec,"\",21) = "FabrGroep2" //$P(GroepAndSort,";",2)
 	
 	set $P(Rec,"\",$$$IsMeeTeRekenenInPrijs) = $$$Not(HalffabItem.IsMeeTeRekenenInPrijs)
@@ -297,6 +297,57 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefFabrPrep">
+<FormalSpec>Rol:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim FabrPrep As %String = "FabrPrep"
+	
+	If (..ProductTypeAPI.IsTandemboxProduct(..PRNr) && ((##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsActiefBomBolOmleidingTbxNaarDotNet()))) {
+		#dim TbxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken = ..ProductSpecificatie.GeefIngegevenKenmerken()
+		If (Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).LadeZijkant()) { Set FabrPrep = "MON" }
+		ElseIf (Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).SpoelbakBinnenzijkant()) { Set FabrPrep = "MON" }
+		ElseIf (Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).Geleider()) { Set FabrPrep = "LOS" }
+		ElseIf (Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).RelingZijkant()) { Set FabrPrep = $Select(TbxKenmerken.IsBinnenlade: "MON", 1:"LOS") }
+		ElseIf (Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).RelingHulpstukAntaroBinnenlade()) { Set FabrPrep = $Select(TbxKenmerken.IsBinnenlade: "MON", 1:"LOS") }
+		ElseIf (Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).RelingHulpstuk()) { Set FabrPrep = "LOS" }
+		ElseIf (Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).InschuifElement()) { Set FabrPrep = $Select(TbxKenmerken.IsBinnenlade: "MON", 1:"LOS") }
+		ElseIf (Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).HoudersAntaroInschuifElement()) { Set FabrPrep = $Select(TbxKenmerken.IsBinnenlade: "MON", 1:"LOS") }
+		ElseIf (Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).RugHouder()) { Set FabrPrep = "ZAAG" }
+		ElseIf (Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).BinnenRugHouderSpoelbak()) { Set FabrPrep = "ZAAG" }
+		ElseIf (Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).TussenRugHouder()) { Set FabrPrep = "ZAAG" }
+		ElseIf (Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).SpoelbakTussenrugHouder()) { Set FabrPrep = "MON" }
+		ElseIf (Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).StalenRug()) { Set FabrPrep = "MON" }
+		ElseIf (Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).FrontHouder()) { Set FabrPrep = "BIN" }
+		ElseIf (Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).Frontplaat()) { Set FabrPrep = "BIN" }
+		ElseIf (Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).RelingVoor()) { Set FabrPrep = "BIN" }
+		ElseIf (Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).FrontGreep()) { Set FabrPrep = "BIN" }
+		ElseIf (Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).FrontBevestiging()) { Set FabrPrep = "LOS" }
+		ElseIf (Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).TiponBlumotionSetEenhedenMeenemersEnAdapters()) { Set FabrPrep = "LOS" }
+		ElseIf (Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).TiponBlumotionSynchronisatieStang()) { Set FabrPrep = "LOS" }
+		ElseIf (Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).TiponBlumotionSynchronisatieStangHouder()) { Set FabrPrep = "LOS" }
+		ElseIf (Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).TiponBlumotionBodemstabilisering()) { Set FabrPrep = "LOS" }
+		ElseIf (Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).Afdekkap()) { Set FabrPrep = "LOS" }
+		ElseIf (Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).BodemsteunFront()) { Set FabrPrep = "LOS" }
+		ElseIf (Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).BodemsteunSchroef()) { Set FabrPrep = "LOS" }
+		ElseIf (Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).BodemsteunBinnenlade()) { Set FabrPrep = "MON" }
+		ElseIf (Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).Stabilisator()) { Set FabrPrep = "LOS" }
+		ElseIf (Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).StabilisatorStang()) { Set FabrPrep = "LOS" }
+		ElseIf (Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).FrontSteun()) { Set FabrPrep = "LOS" }
+		ElseIf (Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).Opvullijst()) { Set FabrPrep = "LOS" }
+		ElseIf (Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).ExtraBevestigingKLade()) { Set FabrPrep = "LOS" }
+		ElseIf (Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).Dwarsverdeling()) { Set FabrPrep = $Select(TbxKenmerken.IsBinnenlade: "MON", 1:"LOS") }
+		ElseIf (Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).BevestigingDwarsverdeling()) { Set FabrPrep = $Select(TbxKenmerken.IsBinnenlade: "MON", 1:"LOS") }
+		ElseIf (Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).Sifonkap()) { Set FabrPrep = "MON" }
+		ElseIf (Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).Rug()) { Set FabrPrep = "ZAAG" }
+		ElseIf (Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).Verpakking()) { Set FabrPrep = "VPK" }
+	}
+	
+	Quit FabrPrep
+]]></Implementation>
+</Method>
+
 <Method name="GeefBSKey">
 <FormalSpec>HalffabItem:DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem,Label:%String,Rec:%String,RecD:%String</FormalSpec>
 <Private>1</Private>