Index: DOM/PM/impl/LangtekstCreator.cls.xml
===================================================================
diff -u -r32266 -r32268
--- DOM/PM/impl/LangtekstCreator.cls.xml	(.../LangtekstCreator.cls.xml)	(revision 32266)
+++ DOM/PM/impl/LangtekstCreator.cls.xml	(.../LangtekstCreator.cls.xml)	(revision 32268)
@@ -18,6 +18,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="KleurCodeBepaler">
+<Type>DOM.PM.ProductTekst.impl.KleurcodeBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="LangtekstHelper">
 <Type>DOM.PM.LangtekstHelper</Type>
 <Private>1</Private>
@@ -275,6 +280,17 @@
 <Implementation><![CDATA[	Quit ..Vertaler.GeefVertaling("Verpakt")_": "_..GeefVertalingVoorVerpakking()
 ]]></Implementation>
 </Method>
+
+<Method name="GeefKleurOmschrijving">
+<FormalSpec>KleurCode:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim KleurVertaler As DOM.common.Transl.Vertaler = ##class(DOM.DomeinContext).Instance().GeefVertaalAPI().GeefKleurCodeVertaler(..Taal)
+	
+	Quit KleurVertaler.GeefVertaling(KleurCode)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten.TAX/TestGeleiderTechnologie/TIP-ON/TestGeleiderTechnologie_Langteksten.txt
===================================================================
diff -u
--- vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten.TAX/TestGeleiderTechnologie/TIP-ON/TestGeleiderTechnologie_Langteksten.txt	(revision 0)
+++ vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten.TAX/TestGeleiderTechnologie/TIP-ON/TestGeleiderTechnologie_Langteksten.txt	(revision 32268)
@@ -0,0 +1,59 @@
+Frans:
+TA'OR BOX tiroir C
+P:500xL:600
+c�t� de tiroir:Noyer naturel
+chant � coller:Noyer naturel
+fond:Noyer naturel
+dos:Noyer naturel
+contient: tiroir mont�;coulisses corps de
+meuble Movento 40kg;TIP-ON;attache fa�ade �
+presser
+emball�: carton
+
+Nederlands:
+TA'OR BOX lade C
+D:500xB:600
+ladezijkant:Natuur notenhout
+kantenband:Natuur notenhout
+bodem:Natuur notenhout
+rug:Natuur notenhout
+bevat: gemont. lade;corpusprofiel Movento
+40kg;TIP-ON;frontbevest. Drevel
+verpakt: karton
+
+Engels:
+TA'OR BOX drawer C
+D:500xW:600
+drawer side:Natural walnut
+edge-band:Natural walnut
+base:Natural walnut
+back:Natural walnut
+contains: premounted drawer;cabinet
+profiles Movento 40kg;TIP-ON;fixation
+pressure
+packed: box
+
+Duits:
+TA'OR BOX Schubkasten C
+T:500xB:600
+Zarge:Nussbaum Natur
+Kantenband:Nussbaum Natur
+Boden:Nussbaum Natur
+R�ckwand:Nussbaum Natur
+beinhaltet:
+fertigschubkasten;Korpusschienen Movento
+40kg;TIP-ON;frontbefest pres
+verpackt: karton
+
+Vertaling met sleutels:
+TA'OR BOX [Lade] C
+[DiepteAfkorting]:500x[BreedteAfkorting]:600
+[ladezijkant]:[NN]
+[kantenband]:[NN]
+[Bodem]:[NN]
+[rug]:[NN]
+[Bevat]: [GemonteerdeLade];[Geleider]
+Movento
+40[KilogramAfkorting];TIP-ON;frontbevest.
+Drevel
+[Verpakt]: [Karton]
Index: vhTest/Integratie/ProductBeheer/Maatwerk/Langteksten/TAX/TestGeleiderTechnologie.cls.xml
===================================================================
diff -u
--- vhTest/Integratie/ProductBeheer/Maatwerk/Langteksten/TAX/TestGeleiderTechnologie.cls.xml	(revision 0)
+++ vhTest/Integratie/ProductBeheer/Maatwerk/Langteksten/TAX/TestGeleiderTechnologie.cls.xml	(revision 32268)
@@ -0,0 +1,44 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Integratie.ProductBeheer.Maatwerk.Langteksten.TAX.TestGeleiderTechnologie">
+<Super>vhTest.Integratie.ProductBeheer.Maatwerk.Langteksten.TAX.TestBase</Super>
+
+<Property name="GeleiderTechnologie">
+<Type>DOM.PM.enu.TAORGeleiderTechnologie</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="Test">
+<Implementation><![CDATA[
+	#dim Iterator As TECH.Iterator = ##class(DOM.PM.enu.TAORGeleiderTechnologie).ValueListIterator()
+	
+	While (Iterator.HasNext()) {
+		Set ..GeleiderTechnologie = Iterator.Next()
+		
+		Do ..MaakLangtekstBestand()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefBestandLocatie">
+<FormalSpec>SubPath:TECH.String=""</FormalSpec>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.Files).AppendSubPath(##super(), $$$DeSpace(##class(DOM.PM.enu.TAORGeleiderTechnologie).LogicalToDisplay(..GeleiderTechnologie)))
+]]></Implementation>
+</Method>
+
+<Method name="GeefIngegevenKenmerken">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
+	
+	Set TAORKenmerken.GeleiderTechnologie = ..GeleiderTechnologie
+	
+	Quit TAORKenmerken
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/impl/LBXLangtekstCreator.cls.xml
===================================================================
diff -u -r32266 -r32268
--- DOM/PM/impl/LBXLangtekstCreator.cls.xml	(.../LBXLangtekstCreator.cls.xml)	(revision 32266)
+++ DOM/PM/impl/LBXLangtekstCreator.cls.xml	(.../LBXLangtekstCreator.cls.xml)	(revision 32268)
@@ -18,11 +18,6 @@
 <Private>1</Private>
 </Property>
 
-<Property name="KleurCodeBepaler">
-<Type>DOM.PM.ProductTekst.impl.KleurcodeBepaler</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="UitsparingDataHelper">
 <Type>DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingHelper</Type>
 <Private>1</Private>
@@ -177,16 +172,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefKleurOmschrijving">
-<FormalSpec>KleurCode:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#Dim KleurVertaler = ##class(DOM.DomeinContext).Instance().GeefVertaalAPI().GeefKleurCodeVertaler(..Taal)
-	quit KleurVertaler.GeefVertaling(KleurCode)
-]]></Implementation>
-</Method>
-
 <Method name="GeefVoorwandVertaalSleutel">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
Index: vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten.TAX/TestGeleiderTechnologie/TIP-ONBLUMOTION/TestGeleiderTechnologie_Langteksten.txt
===================================================================
diff -u
--- vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten.TAX/TestGeleiderTechnologie/TIP-ONBLUMOTION/TestGeleiderTechnologie_Langteksten.txt	(revision 0)
+++ vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten.TAX/TestGeleiderTechnologie/TIP-ONBLUMOTION/TestGeleiderTechnologie_Langteksten.txt	(revision 32268)
@@ -0,0 +1,58 @@
+Frans:
+TA'OR BOX tiroir C
+P:500xL:600
+c�t� de tiroir:Noyer naturel
+chant � coller:Noyer naturel
+fond:Noyer naturel
+dos:Noyer naturel
+contient: tiroir mont�;coulisses corps de
+meuble Movento 40kg;TIP-ON
+BLUMOTION;attache fa�ade � presser
+emball�: carton
+
+Nederlands:
+TA'OR BOX lade C
+D:500xB:600
+ladezijkant:Natuur notenhout
+kantenband:Natuur notenhout
+bodem:Natuur notenhout
+rug:Natuur notenhout
+bevat: gemont. lade;corpusprofiel Movento
+40kg;TIP-ON BLUMOTION;frontbevest. Drevel
+verpakt: karton
+
+Engels:
+TA'OR BOX drawer C
+D:500xW:600
+drawer side:Natural walnut
+edge-band:Natural walnut
+base:Natural walnut
+back:Natural walnut
+contains: premounted drawer;cabinet
+profiles Movento 40kg;TIP-ON
+BLUMOTION;fixation pressure
+packed: box
+
+Duits:
+TA'OR BOX Schubkasten C
+T:500xB:600
+Zarge:Nussbaum Natur
+Kantenband:Nussbaum Natur
+Boden:Nussbaum Natur
+R�ckwand:Nussbaum Natur
+beinhaltet:
+fertigschubkasten;Korpusschienen Movento
+40kg;TIP-ON BLUMOTION;frontbefest pres
+verpackt: karton
+
+Vertaling met sleutels:
+TA'OR BOX [Lade] C
+[DiepteAfkorting]:500x[BreedteAfkorting]:600
+[ladezijkant]:[NN]
+[kantenband]:[NN]
+[Bodem]:[NN]
+[rug]:[NN]
+[Bevat]: [GemonteerdeLade];[Geleider]
+Movento 40[KilogramAfkorting];TIP-ON
+BLUMOTION;frontbevest. Drevel
+[Verpakt]: [Karton]
Index: vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten.TAX/TestGeleiderTechnologie/BLUMOTION/TestGeleiderTechnologie_Langteksten.txt
===================================================================
diff -u
--- vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten.TAX/TestGeleiderTechnologie/BLUMOTION/TestGeleiderTechnologie_Langteksten.txt	(revision 0)
+++ vhTestFiles/IntegratieTests/ProductBeheer.Maatwerk.Langteksten.TAX/TestGeleiderTechnologie/BLUMOTION/TestGeleiderTechnologie_Langteksten.txt	(revision 32268)
@@ -0,0 +1,59 @@
+Frans:
+TA'OR BOX tiroir C
+P:500xL:600
+c�t� de tiroir:Noyer naturel
+chant � coller:Noyer naturel
+fond:Noyer naturel
+dos:Noyer naturel
+contient: tiroir mont�;coulisses corps de
+meuble Movento 40kg;BLUMOTION;attache
+fa�ade � presser
+emball�: carton
+
+Nederlands:
+TA'OR BOX lade C
+D:500xB:600
+ladezijkant:Natuur notenhout
+kantenband:Natuur notenhout
+bodem:Natuur notenhout
+rug:Natuur notenhout
+bevat: gemont. lade;corpusprofiel Movento
+40kg;BLUMOTION;frontbevest. Drevel
+verpakt: karton
+
+Engels:
+TA'OR BOX drawer C
+D:500xW:600
+drawer side:Natural walnut
+edge-band:Natural walnut
+base:Natural walnut
+back:Natural walnut
+contains: premounted drawer;cabinet
+profiles Movento 40kg;BLUMOTION;fixation
+pressure
+packed: box
+
+Duits:
+TA'OR BOX Schubkasten C
+T:500xB:600
+Zarge:Nussbaum Natur
+Kantenband:Nussbaum Natur
+Boden:Nussbaum Natur
+R�ckwand:Nussbaum Natur
+beinhaltet:
+fertigschubkasten;Korpusschienen Movento
+40kg;BLUMOTION;frontbefest pres
+verpackt: karton
+
+Vertaling met sleutels:
+TA'OR BOX [Lade] C
+[DiepteAfkorting]:500x[BreedteAfkorting]:600
+[ladezijkant]:[NN]
+[kantenband]:[NN]
+[Bodem]:[NN]
+[rug]:[NN]
+[Bevat]: [GemonteerdeLade];[Geleider]
+Movento
+40[KilogramAfkorting];BLUMOTION;frontbevest.
+Drevel
+[Verpakt]: [Karton]
Index: DOM/PM/ProductTekst/impl/KleurcodeBepaler.cls.xml
===================================================================
diff -u -r32266 -r32268
--- DOM/PM/ProductTekst/impl/KleurcodeBepaler.cls.xml	(.../KleurcodeBepaler.cls.xml)	(revision 32266)
+++ DOM/PM/ProductTekst/impl/KleurcodeBepaler.cls.xml	(.../KleurcodeBepaler.cls.xml)	(revision 32268)
@@ -24,8 +24,12 @@
 	#dim KleurCode As TECH.String = ""
 	
 	If (HalffabItemsBoom.BevatRol(Rol)) {
-		#dim SamengesteldHalffabItem As DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem = HalffabItemsBoom.GeefHalffabItem(Rol)
-		#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = SamengesteldHalffabItem.GeefHalffabItem("Links")
+		#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HalffabItemsBoom.GeefHalffabItem(Rol)
+
+		If (HalffabItem.%IsA("DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem")) {
+			Set HalffabItem = HalffabItem.GeefHalffabItem("Links")
+		}
+
 		#dim ProductID As TECH.String = HalffabItem.GeefHalffab().GeefProductID()
 		#dim Product As DOM.PM.Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(ProductID)