Index: vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten.TAX/TestGeleiderTechnologie/TIP-ONBLUMOTION/TestGeleiderTechnologie_Langteksten.txt
===================================================================
diff -u -r32268 -r32269
--- vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten.TAX/TestGeleiderTechnologie/TIP-ONBLUMOTION/TestGeleiderTechnologie_Langteksten.txt	(.../TestGeleiderTechnologie_Langteksten.txt)	(revision 32268)
+++ vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten.TAX/TestGeleiderTechnologie/TIP-ONBLUMOTION/TestGeleiderTechnologie_Langteksten.txt	(.../TestGeleiderTechnologie_Langteksten.txt)	(revision 32269)
@@ -6,8 +6,9 @@
 fond:Noyer naturel
 dos:Noyer naturel
 contient: tiroir mont�;coulisses corps de
-meuble Movento 40kg;TIP-ON
-BLUMOTION;attache fa�ade � presser
+meuble Movento 40kg;TIP-ON BLUMOTION
+T60L754 R7037 gris fonc�;attache fa�ade �
+presser
 emball�: carton
 
 Nederlands:
@@ -18,7 +19,8 @@
 bodem:Natuur notenhout
 rug:Natuur notenhout
 bevat: gemont. lade;corpusprofiel Movento
-40kg;TIP-ON BLUMOTION;frontbevest. Drevel
+40kg;TIP-ON BLUMOTION T60L754 R7037
+donkergrijs;frontbevest. Drevel
 verpakt: karton
 
 Engels:
@@ -29,8 +31,8 @@
 base:Natural walnut
 back:Natural walnut
 contains: premounted drawer;cabinet
-profiles Movento 40kg;TIP-ON
-BLUMOTION;fixation pressure
+profiles Movento 40kg;TIP-ON BLUMOTION
+T60L754 R7037 Dust grey;fixation pressure
 packed: box
 
 Duits:
@@ -42,7 +44,8 @@
 R�ckwand:Nussbaum Natur
 beinhaltet:
 fertigschubkasten;Korpusschienen Movento
-40kg;TIP-ON BLUMOTION;frontbefest pres
+40kg;TIP-ON BLUMOTION T60L754 R7037
+dunkelgrau;frontbefest pres
 verpackt: karton
 
 Vertaling met sleutels:
@@ -54,5 +57,5 @@
 [rug]:[NN]
 [Bevat]: [GemonteerdeLade];[Geleider]
 Movento 40[KilogramAfkorting];TIP-ON
-BLUMOTION;frontbevest. Drevel
+BLUMOTION T60L754 [R737];frontbevest. Drevel
 [Verpakt]: [Karton]
Index: DOM/PM/impl/TAORLangtekstCreator.cls.xml
===================================================================
diff -u -r31471 -r32269
--- DOM/PM/impl/TAORLangtekstCreator.cls.xml	(.../TAORLangtekstCreator.cls.xml)	(revision 31471)
+++ DOM/PM/impl/TAORLangtekstCreator.cls.xml	(.../TAORLangtekstCreator.cls.xml)	(revision 32269)
@@ -39,18 +39,19 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>LadeInfoAPI:DOM.PM.Maatwerk.impl.LadeInfoAPI,LosseComponentFactory:DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory</FormalSpec>
+<FormalSpec>LadeInfoAPI:DOM.PM.Maatwerk.impl.LadeInfoAPI,LosseComponentFactory:DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory,KleurCodeBepaler:DOM.PM.ProductTekst.impl.KleurcodeBepaler</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	set ..LadeInfoAPI = $$$Implementation(LadeInfoAPI,##class(DOM.PM.Maatwerk.impl.LadeInfoAPI).%New())
-	set ..BodemSlicedTypeBepaler = ##class(zTryout.WV.FPV1.DOM.impl.BodemSlicedTypeBepaler).%New()
-	set ..LosseComponentFactory = $$$Implementation(LosseComponentFactory,##class(DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory).%New())
-	set ..ProductieWijzeNaarLosseComponentConverter = ##class(DOM.PM.Maatwerk.TAX.impl.ProductieWijzeNaarLosseComponentConverter).%New()	
+	Set ..LadeInfoAPI = $$$Implementation(LadeInfoAPI,##class(DOM.PM.Maatwerk.impl.LadeInfoAPI).%New())
+	Set ..BodemSlicedTypeBepaler = ##class(zTryout.WV.FPV1.DOM.impl.BodemSlicedTypeBepaler).%New()
+	Set ..LosseComponentFactory = $$$Implementation(LosseComponentFactory,##class(DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory).%New())
+	Set ..ProductieWijzeNaarLosseComponentConverter = ##class(DOM.PM.Maatwerk.TAX.impl.ProductieWijzeNaarLosseComponentConverter).%New()
+	Set ..KleurCodeBepaler = $$$Implementation(KleurCodeBepaler, ##class(DOM.PM.ProductTekst.impl.KleurcodeBepaler).%New())
 	
-	quit $$$OK
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 
@@ -157,12 +158,22 @@
 <Private>1</Private>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
-	#Dim GeleiderTekst As TECH.String = ""
+	#dim IsGeleiderTechnologieTiponBlumotion As %Boolean = (..IngegevenKenmerken.GeleiderTechnologie = ..Enum.GeleiderTechnologie.TIPONBLUMOTION)
+	#dim BevatRolTiponBlumotionSetEenhedenEnMeenemers As %Boolean = (..HalffabItemsBoom.BevatRol(..Enum.Rol.TiponBlumotionSetEenhedenEnMeenemers))
+	#dim GeleiderTekst As TECH.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)
 	
+	If (IsGeleiderTechnologieTiponBlumotion && BevatRolTiponBlumotionSetEenhedenEnMeenemers) {
+		#dim ConcreetHalffabItem As DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem = ..HalffabItemsBoom.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()
+	}
+	
 	Quit ..GeefTekstVoorRol(..Enum.Rol.Glijder, GeleiderTekst, ..IsLadeGemonteerd())
 ]]></Implementation>
 </Method>
@@ -173,7 +184,7 @@
 	#Dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..IngegevenKenmerken
 	#Dim FrontEindkapKleur As TECH.String = ..KleurCodeVertaler.GeefVertaling(TAORKenmerken.FrontEindkapKleur)
 	
-	Quit ..Vertaler.GeefVertaling("frontEindkap",,$$$True) _ ":" _ FrontEindkapKleur
+	Quit ..Vertaler.GeefVertaling("frontEindkap",, $$$True) _ ":" _ FrontEindkapKleur
 ]]></Implementation>
 </Method>
 
@@ -183,6 +194,16 @@
 <Implementation><![CDATA[	Quit $$$False
 ]]></Implementation>
 </Method>
+
+<Method name="GeefKleurTiponBlumotion">
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim KleurCode As TECH.String = ..KleurCodeBepaler.GeefKleurCodeVoorRol(..Enum.Rol.TiponBlumotionSetEenhedenEnMeenemers, ..HalffabItemsBoom)
+
+	Quit ..GeefKleurOmschrijving(KleurCode)
+]]></Implementation>
+</Method>
 </Class>