Index: DOM/PM/impl/LBXLangtekstCreator.cls.xml
===================================================================
diff -u -r67913 -r67959
--- DOM/PM/impl/LBXLangtekstCreator.cls.xml	(.../LBXLangtekstCreator.cls.xml)	(revision 67913)
+++ DOM/PM/impl/LBXLangtekstCreator.cls.xml	(.../LBXLangtekstCreator.cls.xml)	(revision 67959)
@@ -191,14 +191,14 @@
 </Method>
 
 <Method name="GeefKleurTiponBlumotion">
-<FormalSpec>BevatVerwijderdeRolTOBEenheid:%Boolean,BevatVerwijderdeRolTOBSetEenhedenEnMeenemers:%Boolean</FormalSpec>
+<FormalSpec>BevatRolTOBEenheid:%Boolean,BevatRolTOBSetEenhedenEnMeenemers:%Boolean</FormalSpec>
 <Private>1</Private>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
 	#Dim KleurCode As TECH.String = ""
-	if (BevatVerwijderdeRolTOBEenheid) {
+	if (BevatRolTOBEenheid) {
 		Set KleurCode = ..KleurCodeBepaler.GeefKleurCodeVoorRol(..Enum.Rol.TiponBlumotionEenheid, ..HalffabItemsBoomOnHerwerkt)
-	} ElseIf (BevatVerwijderdeRolTOBSetEenhedenEnMeenemers){
+	} ElseIf (BevatRolTOBSetEenhedenEnMeenemers){
 		Set KleurCode = ..KleurCodeBepaler.GeefKleurCodeVoorRol(..Enum.Rol.TiponBlumotionSetEenhedenEnMeenemers, ..HalffabItemsBoomOnHerwerkt)
 	}
 	
@@ -346,40 +346,56 @@
 <Private>1</Private>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
-	#dim GeleiderTekst, TOBTekst, ProductId As TECH.String = ""
-	#dim BevatVerwijderdeRolTOBEenheid As %Boolean = ..BevatVerwijderdeRol(..Enum.Rol.TiponBlumotionEenheid)
-	#dim BevatVerwijderdeRolTOBSetEenhedenEnMeenemers As %Boolean = ..BevatVerwijderdeRol(..Enum.Rol.TiponBlumotionSetEenhedenEnMeenemers)
+	#dim GeleiderTekst As TECH.String = ""
+	#dim TOBTekst As %String = ""
 	#dim ConcreetHalffabItem As DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem
 	#dim Product As DOM.PM.AdministratiefProduct
 	
-	Set GeleiderTekst = GeleiderTekst _ ..Vertaler.GeefVertaling("Geleider") _ " " _ ..GeefDraagkrachtTekst()
-	If (..IsGeleiderTechnologieTiponBlumotion() && (BevatVerwijderdeRolTOBEenheid || BevatVerwijderdeRolTOBSetEenhedenEnMeenemers)) {
-		Set TOBTekst = TOBTekst _ ##class(DOM.PM.enu.LBXGeleiderTechnologie).LogicalToDisplay(..IngegevenKenmerken.GeleiderTechnologie)
+	Set GeleiderTekst = GeleiderTekst _ ..Vertaler.GeefVertaling("Geleider") _ " " _ ..GeefDraagkrachtTekst()	
+	If $$$Not(..IsMaatwerkCalculatieInDotNet) {
+		#dim BevatRolTiponBlumotionEenheid As %Boolean = (..HalffabItemsBoomOnHerwerkt.BevatRol(..Enum.Rol.TiponBlumotionEenheid))
+		#dim BevatRolTiponBlumotionSetEenhedenEnMeenemers As %Boolean = (..HalffabItemsBoomOnHerwerkt.BevatRol(..Enum.Rol.TiponBlumotionSetEenhedenEnMeenemers))
 		
-		If ($$$Not(..IsMaatwerkCalculatieInDotNet)) {
-			If BevatVerwijderdeRolTOBSetEenhedenEnMeenemers {
+		If (..IsGeleiderTechnologieTiponBlumotion() && (BevatRolTiponBlumotionEenheid || BevatRolTiponBlumotionSetEenhedenEnMeenemers)) {
+			Set TOBTekst = TOBTekst _ ##class(DOM.PM.enu.LBXGeleiderTechnologie).LogicalToDisplay(..IngegevenKenmerken.GeleiderTechnologie)
+			
+			If BevatRolTiponBlumotionSetEenhedenEnMeenemers {
 				Set ConcreetHalffabItem = ..HalffabItemsBoomOnHerwerkt.GeefHalffabItem(..Enum.Rol.TiponBlumotionSetEenhedenEnMeenemers)
-			} ElseIf BevatVerwijderdeRolTOBEenheid { 
+			} 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(BevatVerwijderdeRolTOBEenheid, BevatVerwijderdeRolTOBSetEenhedenEnMeenemers)
-		} Else {
-			#dim HalffabItem As APPS.PM.Maatwerk.dto.DotNet.VerwijderdHalffabItemParsedFromJson
-			If (BevatVerwijderdeRolTOBSetEenhedenEnMeenemers) {
-				 Set HalffabItem = ..GeefVerwijderdHalffab(..Enum.Rol.TiponBlumotionSetEenhedenEnMeenemers)
-				 Set ProductId = HalffabItem.ProductId
-			}
+			 Set Product = ##class(DOM.DomeinContext).Instance().GeefProductRolAPI().GeefAdministratiefProduct(ConcreetHalffabItem.GeefHalffab().GeefProductID())
 			
-			Set Product = ##class(DOM.DomeinContext).Instance().GeefProductRolAPI().GeefAdministratiefProduct(ProductId)
 			Set TOBTekst = TOBTekst _ " " _ $Extract(Product.GeefKorttekst(), 1, 7)
-			Set TOBTekst = TOBTekst _ " " _ ..GeefKleurTiponBlumotionDotnetBased(ProductId)
-		}	
+			Set TOBTekst = TOBTekst _ " " _ ..GeefKleurTiponBlumotion(BevatRolTiponBlumotionEenheid, BevatRolTiponBlumotionSetEenhedenEnMeenemers)
+		} Else {
+			Set GeleiderTekst = GeleiderTekst _ ..#KenmerkSeparator _ ##class(DOM.PM.enu.LBXGeleiderTechnologie).LogicalToDisplay(..IngegevenKenmerken.GeleiderTechnologie)
+		}
 	} Else {
-		Set GeleiderTekst = GeleiderTekst _ ..#KenmerkSeparator _ ##class(DOM.PM.enu.LBXGeleiderTechnologie).LogicalToDisplay(..IngegevenKenmerken.GeleiderTechnologie)
-	}	
+		#dim IsTOBSetEenhedenEnMeenemersAanwezig = ..HalffabItemsBoom.BevatRol(..Enum.Rol.TiponBlumotionSetEenhedenEnMeenemers)
+		#dim IsTOBSetEenhedenEnMeenemersNietMeegeleverd As %Boolean = ..IsTOBSetEenhedenEnMeenemersNietMeegeleverd()
+				
+		If (..IsGeleiderTechnologieTiponBlumotion()) {
+			Set TOBTekst = TOBTekst _ ##class(DOM.PM.enu.LBXGeleiderTechnologie).LogicalToDisplay(..IngegevenKenmerken.GeleiderTechnologie)
+			
+			If IsTOBSetEenhedenEnMeenemersAanwezig {
+				Set ConcreetHalffabItem = ..HalffabItemsBoom.GeefHalffabItem(..Enum.Rol.TiponBlumotionSetEenhedenEnMeenemers)			
+				Set Product = ##class(DOM.DomeinContext).Instance().GeefProductRolAPI().GeefAdministratiefProduct(ConcreetHalffabItem.GeefHalffab().GeefProductID())
+				
+				Set TOBTekst = TOBTekst _ " " _ $Extract(Product.GeefKorttekst(), 1, 7)
+				Set TOBTekst = TOBTekst _ " " _ ..GeefKleurTiponBlumotion($$$False, IsTOBSetEenhedenEnMeenemersAanwezig)
+			} ElseIf IsTOBSetEenhedenEnMeenemersNietMeegeleverd {
+				#dim HalffabItem As APPS.PM.Maatwerk.dto.DotNet.VerwijderdHalffabItemParsedFromJson = ..GeefVerwijderdHalffab(..Enum.Rol.TiponBlumotionSetEenhedenEnMeenemers)
+				Set Product = ##class(DOM.DomeinContext).Instance().GeefProductRolAPI().GeefAdministratiefProduct(HalffabItem.ProductId)
+				
+				Set TOBTekst = TOBTekst _ " " _ $Extract(Product.GeefKorttekst(), 1, 7)
+				Set TOBTekst = TOBTekst _ " " _ ..GeefKleurTiponBlumotionDotnetBased(HalffabItem.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>
@@ -417,15 +433,15 @@
 ]]></Implementation>
 </Method>
 
-<Method name="BevatVerwijderdeRol">
-<FormalSpec>Rol:DOM.PM.Maatwerk.Calc.HF.enu.LBXRol.AutoComplete</FormalSpec>
+<Method name="IsTOBSetEenhedenEnMeenemersNietMeegeleverd">
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
+	#dim Rol As %String = ..Enum.Rol.TiponBlumotionSetEenhedenEnMeenemers
 	If (..IsMaatwerkCalculatieInDotNet) {
 		Quit (..HalffabItemsBoom.VerwijderdeHalffabItems.GetAt(Rol))
 	} Else {
-		Quit (..HalffabItemsBoomOnHerwerkt.BevatRol(Rol))
+		Quit (..HalffabItemsBoomOnHerwerkt.BevatRol(Rol) && ($$$Not(..HalffabItemsBoom.BevatRol(Rol))))
 	}
 ]]></Implementation>
 </Method>