Index: DOM/PM/impl/LBXLangtekstCreator.cls.xml
===================================================================
diff -u -r62961 -r67845
--- DOM/PM/impl/LBXLangtekstCreator.cls.xml	(.../LBXLangtekstCreator.cls.xml)	(revision 62961)
+++ DOM/PM/impl/LBXLangtekstCreator.cls.xml	(.../LBXLangtekstCreator.cls.xml)	(revision 67845)
@@ -191,13 +191,14 @@
 </Method>
 
 <Method name="GeefKleurTiponBlumotion">
+<FormalSpec>BevatRolTiponBlumotionEenheid:%Boolean,BevatRolTiponBlumotionSetEenhedenEnMeenemers:%Boolean</FormalSpec>
 <Private>1</Private>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
 	#Dim KleurCode As TECH.String = ""
-	if (..HalffabItemsBoomOnHerwerkt.BevatRol(..Enum.Rol.TiponBlumotionEenheid)) {
+	if (BevatRolTiponBlumotionEenheid) {
 		Set KleurCode = ..KleurCodeBepaler.GeefKleurCodeVoorRol(..Enum.Rol.TiponBlumotionEenheid, ..HalffabItemsBoomOnHerwerkt)
-	} ElseIf (..HalffabItemsBoomOnHerwerkt.BevatRol(..Enum.Rol.TiponBlumotionSetEenhedenEnMeenemers)){
+	} ElseIf (BevatRolTiponBlumotionSetEenhedenEnMeenemers){
 		Set KleurCode = ..KleurCodeBepaler.GeefKleurCodeVoorRol(..Enum.Rol.TiponBlumotionSetEenhedenEnMeenemers, ..HalffabItemsBoomOnHerwerkt)
 	}
 	
@@ -329,8 +330,8 @@
 <Private>1</Private>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
-	#Dim BevatRolTiponBlumotionEenheid As %Boolean = (..HalffabItemsBoomOnHerwerkt.BevatRol(..Enum.Rol.TiponBlumotionEenheid))
-	#Dim BevatRolTiponBlumotionSetEenhedenEnMeenemers As %Boolean = (..HalffabItemsBoomOnHerwerkt.BevatRol(..Enum.Rol.TiponBlumotionSetEenhedenEnMeenemers))
+	#Dim BevatRolTiponBlumotionEenheid As %Boolean = ..BevatRol(..Enum.Rol.TiponBlumotionEenheid)
+	#Dim BevatRolTiponBlumotionSetEenhedenEnMeenemers As %Boolean = ..BevatRol(..Enum.Rol.TiponBlumotionEenheid)
 	#Dim GeleiderTekst As TECH.String = ""
 	#dim TOBTekst As %String = ""
 	
@@ -348,7 +349,7 @@
 		#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()
+		Set TOBTekst = TOBTekst _ " " _ ..GeefKleurTiponBlumotion(BevatRolTiponBlumotionEenheid, BevatRolTiponBlumotionSetEenhedenEnMeenemers)
 	} Else {
 		Set GeleiderTekst = GeleiderTekst _ ..#KenmerkSeparator _ ##class(DOM.PM.enu.LBXGeleiderTechnologie).LogicalToDisplay(..IngegevenKenmerken.GeleiderTechnologie)
 	}
@@ -389,6 +390,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BevatRol">
+<FormalSpec>Rol:DOM.PM.Maatwerk.Calc.HF.enu.LBXRol.AutoComplete</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (..HalffabItemsBoomOnHerwerkt.BevatRol(Rol))
+]]></Implementation>
+</Method>
+
 <Method name="IsInschuifElementFrontNietMeegeleverd">
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>