Index: DOM/PM/impl/TAORLangtekstCreator.cls.xml
===================================================================
diff -u -r51706 -r52124
--- DOM/PM/impl/TAORLangtekstCreator.cls.xml	(.../TAORLangtekstCreator.cls.xml)	(revision 51706)
+++ DOM/PM/impl/TAORLangtekstCreator.cls.xml	(.../TAORLangtekstCreator.cls.xml)	(revision 52124)
@@ -188,22 +188,25 @@
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
 	#dim IsGeleiderTechnologieTiponBlumotion As %Boolean = (..IngegevenKenmerken.GeleiderTechnologie = ..Enum.GeleiderTechnologie.TIPONBLUMOTION)
-	#dim BevatRolTiponBlumotionSetEenhedenEnMeenemers As %Boolean = (..HalffabItemsBoom.BevatRol(..Enum.Rol.TiponBlumotionSetEenhedenEnMeenemers))
+	#dim BevatRolTiponBlumotionSetEenhedenEnMeenemers As %Boolean = (..HalffabItemsBoomOnHerwerkt.BevatRol(..Enum.Rol.TiponBlumotionSetEenhedenEnMeenemers))
 	#dim GeleiderTekst As TECH.String = ""
+	#dim TOBTekst As %String = ""
 	
 	Set GeleiderTekst = GeleiderTekst _ ..Vertaler.GeefVertaling("Geleider") _ " " 
-	Set GeleiderTekst = GeleiderTekst _ ##class(DOM.PM.enu.TAORGlijderType).LogicalToDisplay(..IngegevenKenmerken.GlijderType) _ " "
-	Set GeleiderTekst = GeleiderTekst _ ..GeefDraagkrachtTekst() _ ..#KenmerkSeparator _ ##class(DOM.PM.enu.TAORGeleiderTechnologie).LogicalToDisplay(..IngegevenKenmerken.GeleiderTechnologie)
+	Set GeleiderTekst = GeleiderTekst _ ##class(DOM.PM.enu.TAORGlijderType).LogicalToDisplay(..IngegevenKenmerken.GlijderType) _ " " _ ..GeefDraagkrachtTekst() 
 	
 	If (IsGeleiderTechnologieTiponBlumotion && BevatRolTiponBlumotionSetEenhedenEnMeenemers) {
-		#dim ConcreetHalffabItem As DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem = ..HalffabItemsBoom.GeefHalffabItem(..Enum.Rol.TiponBlumotionSetEenhedenEnMeenemers)
+		Set TOBTekst = TOBTekst _ ##class(DOM.PM.enu.TAORGeleiderTechnologie).LogicalToDisplay(..IngegevenKenmerken.GeleiderTechnologie)
+		#dim ConcreetHalffabItem As DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem = ..HalffabItemsBoomOnHerwerkt.GeefHalffabItem(..Enum.Rol.TiponBlumotionSetEenhedenEnMeenemers)
 		#dim Product As DOM.PM.AdministratiefProduct = ##class(DOM.DomeinContext).Instance().GeefProductRolAPI().GeefAdministratiefProduct(ConcreetHalffabItem.GeefHalffab().GeefProductID())
 
-		Set GeleiderTekst = GeleiderTekst _ " " _ $Extract(Product.GeefKorttekst(), 1, 7)
-		Set GeleiderTekst = GeleiderTekst _ " " _ ..GeefKleurTiponBlumotion()
+		Set TOBTekst = TOBTekst _ " " _ $Extract(Product.GeefKorttekst(), 1, 7)
+		Set TOBTekst = TOBTekst _ " " _ ..GeefKleurTiponBlumotion()
+	} Else {
+		Set GeleiderTekst = GeleiderTekst _ ..#KenmerkSeparator _ ##class(DOM.PM.enu.TAORGeleiderTechnologie).LogicalToDisplay(..IngegevenKenmerken.GeleiderTechnologie)
 	}
 	
-	Quit ..GeefTekstVoorRol(..Enum.Rol.Glijder, GeleiderTekst, ..IsLadeGemonteerd())
+	Quit ..GeefTekstVoorRol(..Enum.Rol.Glijder, GeleiderTekst, ..IsLadeGemonteerd()) _ $$$IfLength(TOBTekst, ..#KenmerkSeparator, "")
 ]]></Implementation>
 </Method>
 
@@ -265,7 +268,7 @@
 <Private>1</Private>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
-	#dim KleurCode As TECH.String = ..KleurCodeBepaler.GeefKleurCodeVoorRol(..Enum.Rol.TiponBlumotionSetEenhedenEnMeenemers, ..HalffabItemsBoom)
+	#dim KleurCode As TECH.String = ..KleurCodeBepaler.GeefKleurCodeVoorRol(..Enum.Rol.TiponBlumotionSetEenhedenEnMeenemers, ..HalffabItemsBoomOnHerwerkt)
 
 	Quit ..GeefKleurOmschrijving(KleurCode)
 ]]></Implementation>