Index: DOM/PM/impl/LBXLangtekstCreator.cls.xml
===================================================================
diff -u -r67846 -r67847
--- DOM/PM/impl/LBXLangtekstCreator.cls.xml	(.../LBXLangtekstCreator.cls.xml)	(revision 67846)
+++ DOM/PM/impl/LBXLangtekstCreator.cls.xml	(.../LBXLangtekstCreator.cls.xml)	(revision 67847)
@@ -206,6 +206,22 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKleurTiponBlumotionDotnetBased">
+<FormalSpec>ProductId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#define VerwijderSlash(%v) $translate(%v, "/", "")
+	
+	#dim KleurCode As TECH.String = ""
+		
+	#dim Product As DOM.PM.Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(ProductId)		
+	Set KleurCode = $$$VerwijderSlash(Product.GeefKleurVanKorttekst())
+	
+	Quit ..GeefKleurOmschrijving(KleurCode)
+]]></Implementation>
+</Method>
+
 <Method name="GeefVoorwandVertaalSleutel">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
@@ -330,30 +346,41 @@
 <Private>1</Private>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
-	#Dim BevatRolTiponBlumotionEenheid As %Boolean = ..BevatRol(..Enum.Rol.TiponBlumotionEenheid)
-	#Dim BevatRolTiponBlumotionSetEenhedenEnMeenemers As %Boolean = ..BevatRol(..Enum.Rol.TiponBlumotionSetEenhedenEnMeenemers)
-	#Dim GeleiderTekst As TECH.String = ""
-	#dim TOBTekst As %String = ""
+	#dim GeleiderTekst, TOBTekst, ProductId As TECH.String = ""
+	#dim BevatRolTiponBlumotionEenheid As %Boolean = ..BevatRol(..Enum.Rol.TiponBlumotionEenheid)
+	#dim BevatRolTiponBlumotionSetEenhedenEnMeenemers As %Boolean = ..BevatRol(..Enum.Rol.TiponBlumotionSetEenhedenEnMeenemers)
+	#dim ConcreetHalffabItem As DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem
+	#dim Product As DOM.PM.AdministratiefProduct
 	
 	Set GeleiderTekst = GeleiderTekst _ ..Vertaler.GeefVertaling("Geleider") _ " " _ ..GeefDraagkrachtTekst()
-
 	If (..IsGeleiderTechnologieTiponBlumotion() && (BevatRolTiponBlumotionEenheid || BevatRolTiponBlumotionSetEenhedenEnMeenemers)) {
 		Set TOBTekst = TOBTekst _ ##class(DOM.PM.enu.LBXGeleiderTechnologie).LogicalToDisplay(..IngegevenKenmerken.GeleiderTechnologie)
-		#Dim ConcreetHalffabItem As DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem
-		If BevatRolTiponBlumotionSetEenhedenEnMeenemers {
-			Set ConcreetHalffabItem = ..HalffabItemsBoomOnHerwerkt.GeefHalffabItem(..Enum.Rol.TiponBlumotionSetEenhedenEnMeenemers)
-		} ElseIf BevatRolTiponBlumotionEenheid { 
-			Set ConcreetHalffabItem = ..HalffabItemsBoomOnHerwerkt.GeefHalffabItem(..Enum.Rol.TiponBlumotionEenheid).GeefHalffabItem("Links")
-		}
 		
-		#Dim Product As DOM.PM.AdministratiefProduct = ##class(DOM.DomeinContext).Instance().GeefProductRolAPI().GeefAdministratiefProduct(ConcreetHalffabItem.GeefHalffab().GeefProductID())
-		
-		Set TOBTekst = TOBTekst _ " " _ $Extract(Product.GeefKorttekst(), 1, 7)
-		Set TOBTekst = TOBTekst _ " " _ ..GeefKleurTiponBlumotion(BevatRolTiponBlumotionEenheid, BevatRolTiponBlumotionSetEenhedenEnMeenemers)
+		If ($$$Not(..IsMaatwerkCalculatieInDotNet)) {
+			If BevatRolTiponBlumotionSetEenhedenEnMeenemers {
+				Set ConcreetHalffabItem = ..HalffabItemsBoomOnHerwerkt.GeefHalffabItem(..Enum.Rol.TiponBlumotionSetEenhedenEnMeenemers)
+			} ElseIf BevatRolTiponBlumotionEenheid { 
+				Set ConcreetHalffabItem = ..HalffabItemsBoomOnHerwerkt.GeefHalffabItem(..Enum.Rol.TiponBlumotionEenheid).GeefHalffabItem("Links")
+			}
+			
+			Set Product = ##class(DOM.DomeinContext).Instance().GeefProductRolAPI().GeefAdministratiefProduct(ConcreetHalffabItem.GeefHalffab().GeefProductID())
+			Set TOBTekst = TOBTekst _ " " _ $Extract(Product.GeefKorttekst(), 1, 7)
+			Set TOBTekst = TOBTekst _ " " _ ..GeefKleurTiponBlumotion(BevatRolTiponBlumotionEenheid, BevatRolTiponBlumotionSetEenhedenEnMeenemers)
+		} Else {
+			#dim HalffabItem As APPS.PM.Maatwerk.dto.DotNet.VerwijderdHalffabItemParsedFromJson
+			If (BevatRolTiponBlumotionSetEenhedenEnMeenemers) {
+				 Set HalffabItem = ..GeefVerwijderdHalffab(..Enum.Rol.TiponBlumotionSetEenhedenEnMeenemers)
+				 Set ProductId = HalffabItem.ProductId
+			}
+			
+			Set Product = ##class(DOM.DomeinContext).Instance().GeefProductRolAPI().GeefAdministratiefProduct(ProductId)
+			Set TOBTekst = TOBTekst _ " " _ $Extract(Product.GeefKorttekst(), 1, 7)
+			Set TOBTekst = TOBTekst _ " " _ ..GeefKleurTiponBlumotionDotnetBased(ProductId)
+		}	
 	} Else {
 		Set GeleiderTekst = GeleiderTekst _ ..#KenmerkSeparator _ ##class(DOM.PM.enu.LBXGeleiderTechnologie).LogicalToDisplay(..IngegevenKenmerken.GeleiderTechnologie)
-	}
-
+	}	
+	
 	Quit ..GeefTekstVoorRol(..Enum.Rol.Geleider, GeleiderTekst, $$$True) _ $$$IfLength(TOBTekst, ..#KenmerkSeparator, "")
 ]]></Implementation>
 </Method>
@@ -394,16 +421,25 @@
 <FormalSpec>Rol:DOM.PM.Maatwerk.Calc.HF.enu.LBXRol.AutoComplete</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit (..HalffabItemsBoomOnHerwerkt.BevatRol(Rol))
+<Implementation><![CDATA[
+	If (..IsMaatwerkCalculatieInDotNet) {
+		Quit (..HalffabItemsBoom.VerwijderdeHalffabItems.GetAt(Rol))
+	} Else {
+		Quit (..HalffabItemsBoomOnHerwerkt.BevatRol(Rol))
+	}
 ]]></Implementation>
 </Method>
 
 <Method name="IsInschuifElementFrontNietMeegeleverd">
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	#dim Rol As %String = ..Enum.Rol.InschuifElementVoor
-	Quit (..HalffabItemsBoomOnHerwerkt.BevatRol(Rol) && ($$$Not(..HalffabItemsBoom.BevatRol(Rol))))
+	#dim Rol As %String = ..Enum.Rol.InschuifElementVoor	
+	If (..IsMaatwerkCalculatieInDotNet) {
+		Quit (..HalffabItemsBoom.VerwijderdeHalffabItems.GetAt(Rol))
+	} Else {
+		Quit (..HalffabItemsBoomOnHerwerkt.BevatRol(Rol) && ($$$Not(..HalffabItemsBoom.BevatRol(Rol))))
+	}
 ]]></Implementation>
 </Method>
 
@@ -412,7 +448,11 @@
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	#dim Rol As %String = ..Enum.Rol.InschuifElementZijkant
-	Quit (..HalffabItemsBoomOnHerwerkt.BevatRol(Rol) && ($$$Not(..HalffabItemsBoom.BevatRol(Rol))))
+	If (..IsMaatwerkCalculatieInDotNet){
+		Quit (..HalffabItemsBoom.VerwijderdeHalffabItems.GetAt(Rol))
+	} Else {
+		Quit (..HalffabItemsBoomOnHerwerkt.BevatRol(Rol) && ($$$Not(..HalffabItemsBoom.BevatRol(Rol))))
+	}
 ]]></Implementation>
 </Method>