Index: DOM/PM/impl/DataM/DataMBouwsteenCreator.cls.xml
===================================================================
diff -u -r58910 -r75118
--- DOM/PM/impl/DataM/DataMBouwsteenCreator.cls.xml	(.../DataMBouwsteenCreator.cls.xml)	(revision 58910)
+++ DOM/PM/impl/DataM/DataMBouwsteenCreator.cls.xml	(.../DataMBouwsteenCreator.cls.xml)	(revision 75118)
@@ -1,6 +1,12 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="DOM.PM.impl.DataM.DataMBouwsteenCreator">
+<Description>
+*********************************************************************************************************************************************************************************/
+			!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+	Bij porten naar .NET: Een individuele Productbouwsteencreator en kostbouwsteencreator maken en dan deze klasse enkel nog laten afleiden van TECH.RegisteredObject
+			!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+*********************************************************************************************************************************************************************************/</Description>
 <ClassType/>
 <IncludeCode>Prod.Bouwsteen</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
@@ -57,6 +63,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="BSNode">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>ProductTypeAPI:DOM.PM.ProductTypeAPI="",LangtekstBewaarder:DOM.PM.LangtekstBewaarder=""</FormalSpec>
 <Private>1</Private>
@@ -75,7 +86,7 @@
 </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>
+<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,IsSchaduwBerekening:%Boolean=0</FormalSpec>
 <Implementation><![CDATA[
 	Set ..ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
 	Set ..LangtekstBewaarder = ##class(DOM.PM.LangtekstBewaarder).%New()
@@ -86,10 +97,19 @@
 	Set ..HalffabItemsBoom = HalffabItemsBoom
 	Set ..KostItem = KostItem
 	
+	If (IsSchaduwBerekening) {
+		Set ..BSNode = "BSS"
+	} Else {
+		Set ..BSNode = "BS"
+	}
+	
 	// Omdat DELOBJ het linktype reset gaan we dit lokaal bewaren
 	#dim LinkType As %String = $P(^KPR(PRNr,0),"\",23)
 	// Verwijderen van reeds bestaande bouwstenen
-	Do DELOBJ^PRBS(PRNr)
+	If $$$Not(IsSchaduwBerekening) {
+		Do DELOBJ^PRBS(PRNr)
+	}
+	
 	Set $P(^KPR(PRNr,0),"\",23) = LinkType
 	
 	// Enkele zaken invullen
@@ -115,7 +135,7 @@
 <Implementation><![CDATA[
 	If (..ProductSpecificatie.GeefFamilie() = ##class(DOM.PM.enu.Familie).Lade())
 	{
-		Set ^PRBS("BS",..PRNr) = "E\TBX"
+		Set ^PRBS(..BSNode,..PRNr) = "E\TBX"
 	}
 	ElseIf (..ProductSpecificatie.GeefFamilie() = ##class(DOM.PM.enu.Familie).AluKader())
 	{
@@ -125,11 +145,17 @@
 	{
 		Set ^PRBS("BS",..PRNr) = "E\HF"
 	}
+	ElseIf (..ProductSpecificatie.GeefVariant() = ##class(DOM.PM.enu.Variant).Revego()) {
+		#dim RvgKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken = ..ProductSpecificatie.GeefIngegevenKenmerken()
+		If (RvgKenmerken.ProductieWijze = ##class(DOM.PM.enu.RVGProductieWijze).LosseComponenten()) {
+			Set ^PRBS("BS",..PRNr) = "MSK\MSK"
+		}
+	}
 	Else
 	{
 		Set ^PRBS("BS",..PRNr) = "E\MAATWERK"
 	}
-	Set $P(^PRBS("BS",..PRNr),"\",3)="v"_"BuildersVersion"
+	Set $P(^PRBS(..BSNode,..PRNr),"\",3)="v"_"BuildersVersion"
 ]]></Implementation>
 </Method>
 
@@ -150,7 +176,10 @@
 <Implementation><![CDATA[
 	Set ..KostSuffix = 1
 	Set ..KostSortNr = 200
-	Do ..KostItem.Accept(##this)
+	
+	If $IsObject(..KostItem) {
+		Do ..KostItem.Accept(##this)
+	}
 ]]></Implementation>
 </Method>
 
@@ -216,10 +245,8 @@
 	Set $P(Rec,"\",3) = Item.AfmetingAangerekendPerStuk                 // DimHFUitval 
 	
 	#dim BSKey As %String = ..MaakProductBouwsteen(Item,1, SamengesteldeRol,Rec)
-	Set ^PRBS("BS",..PRNr,BSKey,"D") = Rec
-	
-	
-	
+	Set ^PRBS(..BSNode,..PRNr,BSKey,"D") = Rec
+		
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -259,42 +286,97 @@
 	// 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
+	If ((##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsActiefBomBolOmleidingTbxNaarEncoway())) {
+		Set $P(Rec,"\",19) = ..GeefFabrPrep($Piece(HalffabItem.GeefVolledigeRolNaam(),".",1))
+	} Else {
+		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)
 	set $P(Rec,"\",$$$IsMeeTeRekenenVoorVoorraad) = $$$Not(HalffabItem.IsMeeTeRekenenVoorVoorraad)
 
 	#dim BSKey As %String = ..GeefBSKey(HalffabItem,Label,Rec,RecD)
 	
+	
 	// Als de bouwsteen al bestond moeten we de aantallen verhogen
-	If ($Data(^PRBS("BS",..PRNr,BSKey))) {
-		Set $P(Rec,"\",2) = Aantal + $P(^PRBS("BS",..PRNr,BSKey),"\",2)	
-		Set $P(Rec,"\",13) = $P(^PRBS("BS",..PRNr,BSKey),"\",13)_";"_$P(Rec,"\",13) 	
-
+	If ($Data(^PRBS(..BSNode,..PRNr,BSKey))) {
+		Set $P(Rec,"\",2) = Aantal + $P(^PRBS(..BSNode,..PRNr,BSKey),"\",2)	
+		Set $P(Rec,"\",13) = $P(^PRBS(..BSNode,..PRNr,BSKey),"\",13)_";"_$P(Rec,"\",13)
 	}
-	Set ^PRBS("BS",..PRNr,BSKey) = Rec
+	Set ^PRBS(..BSNode,..PRNr,BSKey) = Rec
 	
 	Quit BSKey
 ]]></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)) {
+		#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" }
+	}
+	
+	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>
 <Implementation><![CDATA[
 	#dim KeySuffix As %Integer = 0
 	#dim IsValid As %Boolean = 0
-	while 'IsValid {
-		set KeySuffix = KeySuffix + 1
-		#dim BSKey As %String = Label_"."_##class(TECH.StringUtils).AddLeadingChar(KeySuffix,0,3)		
-		if $data(^PRBS("BS",..PRNr,BSKey)) {
-			set IsValid = ..RecordsHebbenZelfdeVoorwaarden(Rec,^PRBS("BS",..PRNr,BSKey))
-			set:IsValid IsValid = ($G(^PRBS("BS",..PRNr,BSKey,"D"))=RecD )
+	While 'IsValid {
+		Set KeySuffix = KeySuffix + 1
+		#dim BSKey As %String = Label_"."_##class(TECH.StringUtils).AddLeadingChar(KeySuffix,0,3)
+		If $data(^PRBS(..BSNode,..PRNr,BSKey)) {
+			Set IsValid = ..RecordsHebbenZelfdeVoorwaarden(Rec,^PRBS(..BSNode,..PRNr,BSKey))
+			Set:IsValid IsValid = ($G(^PRBS(..BSNode,..PRNr,BSKey,"D")) = RecD )
 		}
-		else {
-			set IsValid = 1	
-		}	
+		Else {
+			Set IsValid = 1	
+		}
 	}
 	Quit BSKey
 ]]></Implementation>
@@ -328,8 +410,9 @@
 	
 	Set $P(Record,"\",10)=..KostSortNr
 	Set $P(Record,"\",11)=Groep
-	Set ^PRBS("BS",..PRNr,BSKey)=Record
 	
+	Set ^PRBS(..BSNode,..PRNr,BSKey)=Record
+	
 	Set ..KostSuffix = ..KostSuffix + 1
 	Set ..KostSortNr = ..KostSortNr + 1
 	
@@ -436,7 +519,7 @@
 	
 	Do ..PrefixBestelReferentieIndienNodig(..PRNr,Product)		
 	
-	Set ^PRBS("BS",..PRNr,"KIND."_##class(TECH.StringUtils).AlignRight(..AantalKinderen,"0",3)) = Product.GeefID()_"\"_Item.Aantal_"\K\\\\\\\\PROD"
+	Set ^PRBS(..BSNode,..PRNr,"KIND."_##class(TECH.StringUtils).AlignRight(..AantalKinderen,"0",3)) = Product.GeefID()_"\"_Item.Aantal_"\K\\\\\\\\PROD"
 	
 	Quit $$$OK
 ]]></Implementation>