Index: DOM/PM/impl/LBXLangtekstCreator.cls.xml
===================================================================
diff -u -r32484 -r33079
--- DOM/PM/impl/LBXLangtekstCreator.cls.xml	(.../LBXLangtekstCreator.cls.xml)	(revision 32484)
+++ DOM/PM/impl/LBXLangtekstCreator.cls.xml	(.../LBXLangtekstCreator.cls.xml)	(revision 33079)
@@ -166,8 +166,13 @@
 <Private>1</Private>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
-	#Dim KleurCode As TECH.String = ..KleurCodeBepaler.GeefKleurCodeVoorRol(..Enum.Rol.TiponBlumotionEenheid, ..HalffabItemsBoom)
-
+	#Dim KleurCode As TECH.String = ""
+	if (..HalffabItemsBoom.BevatRol(..Enum.Rol.TiponBlumotionEenheid)) {
+		Set KleurCode = ..KleurCodeBepaler.GeefKleurCodeVoorRol(..Enum.Rol.TiponBlumotionEenheid, ..HalffabItemsBoom)
+	} ElseIf (..HalffabItemsBoom.BevatRol(..Enum.Rol.TiponBlumotionSetEenhedenEnMeenemers)){
+		Set KleurCode = ..KleurCodeBepaler.GeefKleurCodeVoorRol(..Enum.Rol.TiponBlumotionSetEenhedenEnMeenemers, ..HalffabItemsBoom)
+	}
+	
 	Quit ..GeefKleurOmschrijving(KleurCode)
 ]]></Implementation>
 </Method>
@@ -279,13 +284,20 @@
 <Implementation><![CDATA[
 	#Dim IsGeleiderTechnologieTiponBlumotion As %Boolean = (..IngegevenKenmerken.GeleiderTechnologie = ..Enum.GeleiderTechnologie.TIPONBLUMOTION)
 	#Dim BevatRolTiponBlumotionEenheid As %Boolean = (..HalffabItemsBoom.BevatRol(..Enum.Rol.TiponBlumotionEenheid))
+	#Dim BevatRolTiponBlumotionSetEenhedenEnMeenemers As %Boolean = (..HalffabItemsBoom.BevatRol(..Enum.Rol.TiponBlumotionSetEenhedenEnMeenemers))
 	#Dim GeleiderTekst As TECH.String = ""
 	
 	Set GeleiderTekst = GeleiderTekst _ ..Vertaler.GeefVertaling("Geleider") _ " " _ ..GeefDraagkrachtTekst() _ ..#KenmerkSeparator
 	Set GeleiderTekst = GeleiderTekst _ ##class(DOM.PM.enu.LBXGeleiderTechnologie).LogicalToDisplay(..IngegevenKenmerken.GeleiderTechnologie)
 
-	If (IsGeleiderTechnologieTiponBlumotion && BevatRolTiponBlumotionEenheid) {
-		#Dim ConcreetHalffabItem As DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem = ..HalffabItemsBoom.GeefHalffabItem(..Enum.Rol.TiponBlumotionEenheid).GeefHalffabItem("Links")
+	If (IsGeleiderTechnologieTiponBlumotion && (BevatRolTiponBlumotionEenheid || BevatRolTiponBlumotionSetEenhedenEnMeenemers)) {
+		#Dim ConcreetHalffabItem As DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem
+		If BevatRolTiponBlumotionSetEenhedenEnMeenemers {
+			Set ConcreetHalffabItem = ..HalffabItemsBoom.GeefHalffabItem(..Enum.Rol.TiponBlumotionSetEenhedenEnMeenemers)
+		} ElseIf BevatRolTiponBlumotionEenheid { 
+			Set ConcreetHalffabItem = ..HalffabItemsBoom.GeefHalffabItem(..Enum.Rol.TiponBlumotionEenheid).GeefHalffabItem("Links")
+		}
+		
 		#Dim Product As DOM.PM.AdministratiefProduct = ##class(DOM.DomeinContext).Instance().GeefProductRolAPI().GeefAdministratiefProduct(ConcreetHalffabItem.GeefHalffab().GeefProductID())
 		
 		Set GeleiderTekst = GeleiderTekst _ " " _ $Extract(Product.GeefKorttekst(), 1, 7)