Index: DOM/PM/impl/TAORLangtekstCreator/LosseComponentDetailBepaler.cls.xml
===================================================================
diff -u -r55597 -r58484
--- DOM/PM/impl/TAORLangtekstCreator/LosseComponentDetailBepaler.cls.xml	(.../LosseComponentDetailBepaler.cls.xml)	(revision 55597)
+++ DOM/PM/impl/TAORLangtekstCreator/LosseComponentDetailBepaler.cls.xml	(.../LosseComponentDetailBepaler.cls.xml)	(revision 58484)
@@ -13,6 +13,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="PlaatMateriaalKleurVertaler">
+<Type>DOM.common.Transl.Vertaler</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="ProductieWijzeNaarLosseComponentConverter">
 <Type>DOM.PM.Maatwerk.TAX.impl.ProductieWijzeNaarLosseComponentConverter</Type>
 <Private>1</Private>
@@ -75,14 +80,15 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>Vertaler:DOM.common.Transl.Vertaler,KleurCodeVertaler:DOM.common.Transl.Vertaler,LosseComponentFactory:DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory,ZijkantLogoRepository:DOM.PM.Maatwerk.TAX.Data.ZijkantLogoRepository</FormalSpec>
+<FormalSpec>Vertaler:DOM.common.Transl.Vertaler,KleurCodeVertaler:DOM.common.Transl.Vertaler,LosseComponentFactory:DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory,ZijkantLogoRepository:DOM.PM.Maatwerk.TAX.Data.ZijkantLogoRepository,PlaatMateriaalKleurVertaler:DOM.common.Transl.Vertaler</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..Vertaler = Vertaler
 	Set ..KleurCodeVertaler = KleurCodeVertaler
+	Set ..PlaatMateriaalKleurVertaler = PlaatMateriaalKleurVertaler
 	Set ..LosseComponentFactory = $$$Inject(LosseComponentFactory,##class(DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory).%New())
 	Set ..ZijkantLogoRepository = $$$Inject(ZijkantLogoRepository, ##class(DOM.PM.Maatwerk.TAX.Data.ZijkantLogoRepository).%New())
 	Set ..ProductieWijzeNaarLosseComponentConverter = ##class(DOM.PM.Maatwerk.TAX.impl.ProductieWijzeNaarLosseComponentConverter).%New()
@@ -107,7 +113,7 @@
 	
 	do ..Verwerk(IngegevenKenmerken.ProductieWijze)
 	
-	do:..HoofdKleurToevoegen(..Korttekst) ..VoegToeParagraaf(..Formateer(..Vertaler.GeefVertaling("Kleur"),..KleurCodeVertaler.GeefVertaling(..LadeOnderdeel.GeefKleur())))
+	do:..HoofdKleurToevoegen(..Korttekst) ..VoegToeParagraaf(..Formateer(..Vertaler.GeefVertaling("Kleur"),..PlaatMateriaalKleurVertaler.GeefVertaling(..LadeOnderdeel.GeefKleur())))
 	
 	quit ..Detail
 ]]></Implementation>
@@ -141,7 +147,7 @@
 	do ..VoegToeParagraaf(..Formateer(..Vertaler.GeefVertaling("LengteFrontBinnenlade"),..LadeOnderdeel.GeefBreedteInMM() _ "mm"))
 	do ..VoegToeParagraaf(..Formateer(..Vertaler.GeefVertaling("Eindkap"), ..KleurCodeVertaler.GeefVertaling(..IngegevenKenmerken.FrontEindkapKleur)))
 	if ..Kleuren.GetAt(..Const.Binnenkant)'=..Kleuren.GetAt(3) {
-		do ..VoegToeParagraaf( ..Formateer(..Vertaler.GeefVertaling("KleurKantenband"),..KleurCodeVertaler.GeefVertaling(..Kleuren.GetAt(3))))
+		do ..VoegToeParagraaf( ..Formateer(..Vertaler.GeefVertaling("KleurKantenband"),..PlaatMateriaalKleurVertaler.GeefVertaling(..Kleuren.GetAt(3))))
 	}
 ]]></Implementation>
 </Method>
@@ -166,9 +172,9 @@
 	Do ..VoegToeParagraaf( ..Formateer(..Vertaler.GeefVertaling("NominaleLengteAfkorting"),..IngegevenKenmerken.LadeDiepte _ "mm"))
 	
 	If $$$Not(..Kleuren.GetAt(1) =..Kleuren.GetAt(2)) || $$$Not(..Kleuren.GetAt(2) =..Kleuren.GetAt(3)) {
-		Do ..VoegToeParagraaf( ..Formateer(..Vertaler.GeefVertaling("KleurBuitenkant"),..KleurCodeVertaler.GeefVertaling(..Kleuren.GetAt(..Const.Buitenkant))))
-		Do ..VoegToeParagraaf( ..Formateer(..Vertaler.GeefVertaling("KleurKantenband"),..KleurCodeVertaler.GeefVertaling(..Kleuren.GetAt(3))))
-		Do ..VoegToeParagraaf( ..Formateer(..Vertaler.GeefVertaling("KleurBinnenkant"),..KleurCodeVertaler.GeefVertaling(..Kleuren.GetAt(..Const.Binnenkant))))	
+		Do ..VoegToeParagraaf( ..Formateer(..Vertaler.GeefVertaling("KleurBuitenkant"),..PlaatMateriaalKleurVertaler.GeefVertaling(..Kleuren.GetAt(..Const.Buitenkant))))
+		Do ..VoegToeParagraaf( ..Formateer(..Vertaler.GeefVertaling("KleurKantenband"),..PlaatMateriaalKleurVertaler.GeefVertaling(..Kleuren.GetAt(3))))
+		Do ..VoegToeParagraaf( ..Formateer(..Vertaler.GeefVertaling("KleurBinnenkant"),..PlaatMateriaalKleurVertaler.GeefVertaling(..Kleuren.GetAt(..Const.Binnenkant))))	
 		Set ..HoofdKleurToevoegenIntrekken = $$$true
 	}
 	
@@ -213,7 +219,7 @@
 
 	#dim Toevoegen As %Boolean = $$$True 
 	#dim KleurCode As %String = $extract(Korttekst,22,25)
-
+	
 	set:$length(KleurCode) Toevoegen = (..KleurCodeVertaler.GeefVertaling(KleurCode) = "")
 	quit Toevoegen
 ]]></Implementation>
Index: DOM/PM/impl/TAORLangtekstCreator.cls.xml
===================================================================
diff -u -r57434 -r58484
--- DOM/PM/impl/TAORLangtekstCreator.cls.xml	(.../TAORLangtekstCreator.cls.xml)	(revision 57434)
+++ DOM/PM/impl/TAORLangtekstCreator.cls.xml	(.../TAORLangtekstCreator.cls.xml)	(revision 58484)
@@ -53,6 +53,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="PlaatMateriaalKleurVertaler">
+<Type>DOM.common.Transl.Vertaler</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>LadeInfoAPI:DOM.PM.Maatwerk.impl.LadeInfoAPI,LosseComponentFactory:DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory,KleurCodeBepaler:DOM.PM.ProductTekst.impl.KleurcodeBepaler,ZijkantLogoRepository:DOM.PM.Maatwerk.TAX.Data.ZijkantLogoRepository,OnderdeelTekstBepaler:DOM.PM.impl.Langtekst.TAOREnkelOnderdeelTekstBepaler</FormalSpec>
 <Private>1</Private>
@@ -70,7 +75,7 @@
 
 	Set ..IngegevenKenmerkenTypeAPI = ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenTypeAPI()
 	Set ..UitsparingTekstFormatter = ##class(DOM.PM.Maatwerk.TAX.impl.UitsparingTekstFormatter).%New()
-	
+		
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -80,6 +85,7 @@
 <ReturnType>DOM.PM.ProductLangtekst</ReturnType>
 <Implementation><![CDATA[
 	Set ..Lade = ..LadeInfoAPI.GeefLade(HalffabItemsBoom, IngegevenKenmerken)
+	Set ..PlaatMateriaalKleurVertaler = ##class(DOM.DomeinContext).Instance().GeefVertaalAPI().GeefTaorKleurCodeVertaler(Taal)
 	Quit ##super(IngegevenKenmerken, HalffabItemsBoom, Taal, KortTekst)
 ]]></Implementation>
 </Method>
@@ -115,7 +121,7 @@
 	If $$$Not(..IngegevenKenmerken.VerpakkingType = ..Enum.VerpakkingType.LosseComponentenInBulk) {
 		Do ..VoegToeStandaardBasisGegevens()
 	} Else {
-		#dim LosseComponentDetailBepaler As DOM.PM.impl.TAORLangtekstCreator.LosseComponentDetailBepaler = ##class(DOM.PM.impl.TAORLangtekstCreator.LosseComponentDetailBepaler).%New(..Vertaler, ..KleurCodeVertaler)
+		#dim LosseComponentDetailBepaler As DOM.PM.impl.TAORLangtekstCreator.LosseComponentDetailBepaler = ##class(DOM.PM.impl.TAORLangtekstCreator.LosseComponentDetailBepaler).%New(..Vertaler, ..KleurCodeVertaler,,,..PlaatMateriaalKleurVertaler)
 		Set ..LangtekstDetail = LosseComponentDetailBepaler.BepaalDetail(..IngegevenKenmerken, ..HalffabItemsBoom, ..Taal, ..KortTekst)
 	}
 ]]></Implementation>
@@ -184,24 +190,23 @@
 	If ..Lade.GeefZijkanten().Count() > 0 {
 		#dim Zijkant As DOM.PM.Maatwerk.LadeInfo.Zijkant = ..Lade.GeefZijkanten().GetAt(1)
 		#dim Kleuren As %ArrayOfDataTypes = Zijkant.GeefKleuren()
-		
 		If (Kleuren.GetAt(1) = Kleuren.GetAt(2)) {
-			Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("ladezijkant", "", $$$True) _ ":" _ ..KleurCodeVertaler.GeefVertaling(Zijkant.GeefKleur()))
+			Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("ladezijkant", "", $$$True) _ ":" _ ..PlaatMateriaalKleurVertaler.GeefVertaling(Zijkant.GeefKleur()))
 		} Else {
-			Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("LadezijkantBuitenkant", "", $$$True) _ ":" _ ..KleurCodeVertaler.GeefVertaling(Kleuren.GetAt(2)))
-			Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("LadezijkantBinnenkant", "", $$$True) _ ":" _ ..KleurCodeVertaler.GeefVertaling(Kleuren.GetAt(1)))
+			Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("LadezijkantBuitenkant", "", $$$True) _ ":" _ ..PlaatMateriaalKleurVertaler.GeefVertaling(Kleuren.GetAt(2)))
+			Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("LadezijkantBinnenkant", "", $$$True) _ ":" _ ..PlaatMateriaalKleurVertaler.GeefVertaling(Kleuren.GetAt(1)))
 		}
 	}
 	
-	Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("kantenband", "", $$$True) _ ":" _ ..KleurCodeVertaler.GeefVertaling(Kleuren.GetAt(3)))
+	Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("kantenband", "", $$$True) _ ":" _ ..PlaatMateriaalKleurVertaler.GeefVertaling(Kleuren.GetAt(3)))
 	
 	If (..Lade.GeefBodems().Count() > 0) {
 		#dim Bodem As DOM.PM.Maatwerk.LadeInfo.Bodem = ..Lade.GeefBodems().GetAt(1)
-		Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("Bodem", "", $$$True) _ ":" _ ..KleurCodeVertaler.GeefVertaling(Bodem.GeefKleur()))
+		Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("Bodem", "", $$$True) _ ":" _ ..PlaatMateriaalKleurVertaler.GeefVertaling(Bodem.GeefKleur()))
 	}
 	If ..Lade.GeefRuggen().Count() > 0 {
 		#dim Rug As DOM.PM.Maatwerk.LadeInfo.Rug = ..Lade.GeefRuggen().GetAt(1)
-		Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("rug", "", $$$True) _ ":" _ ..KleurCodeVertaler.GeefVertaling(Rug.GeefKleur()))
+		Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("rug", "", $$$True) _ ":" _ ..PlaatMateriaalKleurVertaler.GeefVertaling(Rug.GeefKleur()))
 	}
 	
 	Do ..VoegToeLangtekstParagraaf(..GeefTekstVoorRol(..Enum.Rol.AfdekkapBoven, ..GeefAfdekkapBovenTekst(), $$$False))
@@ -254,7 +259,7 @@
 	
 	Do ..VoegToeLangtekstParagraaf($$$Scheiding)
 	
-	#dim OnderdeelTekst As %ListOfDataTypes = ..OnderdeelTekstBepaler.BepaalOnderdeelTekst(..Taal, ..IngegevenKenmerken, ..HalffabItemsBoom)
+	#dim OnderdeelTekst As %ListOfDataTypes = ..OnderdeelTekstBepaler.BepaalOnderdeelTekst(..Taal, ..IngegevenKenmerken, ..HalffabItemsBoom,..PlaatMateriaalKleurVertaler)
 	
 	#dim OnderdeelTekstIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(OnderdeelTekst)
 	While OnderdeelTekstIterator.HasNext() {
Index: vhUnitTest/DOM/PM/impl/MaatwerkLangtekstCreator/Test.cls.xml
===================================================================
diff -u -r52322 -r58484
--- vhUnitTest/DOM/PM/impl/MaatwerkLangtekstCreator/Test.cls.xml	(.../Test.cls.xml)	(revision 52322)
+++ vhUnitTest/DOM/PM/impl/MaatwerkLangtekstCreator/Test.cls.xml	(.../Test.cls.xml)	(revision 58484)
@@ -34,6 +34,7 @@
 	set VertalerStub = ##class(vhTest.Utils.Vertaler).%New("", Taal)
 	do VertaalAPI.IndienMethodCall("GeefStandaardVertaler", Taal).DanReturn(VertalerStub)
 	do VertaalAPI.IndienMethodCall("GeefKleurCodeVertaler", Taal).DanReturn(VertalerStub)
+	do VertaalAPI.IndienMethodCall("GeefTaorKleurCodeVertaler", Taal).DanReturn(VertalerStub)
  	
 	Set ..Kenmerken = ..GeefKenmerken()
 	Set ..HalffabItemsBoom = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI().GeefHalffabItemsBoom(..Kenmerken)
Index: DOM/PM/impl/Langtekst/TAOREnkelOnderdeelTekstBepaler.cls.xml
===================================================================
diff -u -r55081 -r58484
--- DOM/PM/impl/Langtekst/TAOREnkelOnderdeelTekstBepaler.cls.xml	(.../TAOREnkelOnderdeelTekstBepaler.cls.xml)	(revision 55081)
+++ DOM/PM/impl/Langtekst/TAOREnkelOnderdeelTekstBepaler.cls.xml	(.../TAOREnkelOnderdeelTekstBepaler.cls.xml)	(revision 58484)
@@ -23,6 +23,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="PlaatMateriaalKleurVertaler">
+<Type>DOM.common.Transl.Vertaler</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="TAORKenmerken">
 <Type>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</Type>
 <Private>1</Private>
@@ -54,12 +59,13 @@
 </Method>
 
 <Method name="BepaalOnderdeelTekst">
-<FormalSpec>Taal:DOM.enu.Taal,TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</FormalSpec>
+<FormalSpec>Taal:DOM.enu.Taal,TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,PlaatMateriaalKleurVertaler:DOM.common.Transl.Vertaler</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
 	#dim VertaalAPI As DOM.common.Transl.VertaalAPI = ##class(DOM.DomeinContext).Instance().GeefVertaalAPI()
 	set ..Vertaler = VertaalAPI.GeefStandaardVertaler(Taal)
 	Set ..KleurCodeVertaler = VertaalAPI.GeefKleurCodeVertaler(Taal)
+	Set ..PlaatMateriaalKleurVertaler = PlaatMateriaalKleurVertaler
 	Set ..TAORKenmerken = TAORKenmerken
 	Set ..HalffabItemsBoom = HalffabItemsBoom
 	
@@ -72,7 +78,7 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim KleurCode As TECH.String = ..KleurCodeBepaler.GeefBinnenKleurCode(..TAORKenmerken, ..HalffabItemsBoom)
-	Do ..Append(..Vertaler.GeefVertaling("Enkel")_" " _..Vertaler.GeefVertaling("Bodem")_":"_..KleurCodeVertaler.GeefVertaling(KleurCode))
+	Do ..Append(..Vertaler.GeefVertaling("Enkel")_" " _..Vertaler.GeefVertaling("Bodem")_":"_..PlaatMateriaalKleurVertaler.GeefVertaling(KleurCode))
 ]]></Implementation>
 </Method>
 
@@ -83,7 +89,7 @@
 	#dim EindkapKleurCode As TECH.String = ..TAORKenmerken.FrontEindkapKleur
 	#dim FrontBevestiging As TECH.String = $ZCVT(##class(DOM.PM.enu.TAORFrontBevestiging).Array().GetAt(..TAORKenmerken.FrontBevestiging),"L")
 
-	Do ..Append(..Vertaler.GeefVertaling("Enkel")_" " _..Vertaler.GeefVertaling("front", "", $$$True)_":"_..KleurCodeVertaler.GeefVertaling(KleurCode))
+	Do ..Append(..Vertaler.GeefVertaling("Enkel")_" " _..Vertaler.GeefVertaling("front", "", $$$True)_":"_..PlaatMateriaalKleurVertaler.GeefVertaling(KleurCode))
 	Do ..Append(..Vertaler.GeefVertaling("Eindkap", "", $$$True)_":"_..KleurCodeVertaler.GeefVertaling(EindkapKleurCode))
 	Do ..Append(..Vertaler.GeefVertaling("frontbevestiging", "", $$$True)_":"_..Vertaler.GeefVertaling(FrontBevestiging, "", $$$True))
 ]]></Implementation>
@@ -97,10 +103,10 @@
 	#dim KantenbandKleurCode As TECH.String = ..TAORKenmerken.KantenbandKleur
 	#dim LadeKleurCode As TECH.String = ..TAORKenmerken.LadeKleur
 	
-	Do ..Append(..Vertaler.GeefVertaling("Enkel")_" " _..Vertaler.GeefVertaling("zijkantrechts", "", $$$True)_":"_..KleurCodeVertaler.GeefVertaling(LadeKleurCode))
-	Do ..Append(..Vertaler.GeefVertaling("LadezijkantBuitenkant", "", $$$True)_":" _..KleurCodeVertaler.GeefVertaling(BuitenKleurCode))
-	Do ..Append(..Vertaler.GeefVertaling("LadezijkantBinnenkant", "", $$$True)_":" _..KleurCodeVertaler.GeefVertaling(BinnenKleurCode))
-	Do ..Append(..Vertaler.GeefVertaling("kantenband", "", $$$True) _":"_..KleurCodeVertaler.GeefVertaling(KantenbandKleurCode))
+	Do ..Append(..Vertaler.GeefVertaling("Enkel")_" " _..Vertaler.GeefVertaling("zijkantrechts", "", $$$True)_":"_..PlaatMateriaalKleurVertaler.GeefVertaling(LadeKleurCode))
+	Do ..Append(..Vertaler.GeefVertaling("LadezijkantBuitenkant", "", $$$True)_":" _..PlaatMateriaalKleurVertaler.GeefVertaling(BuitenKleurCode))
+	Do ..Append(..Vertaler.GeefVertaling("LadezijkantBinnenkant", "", $$$True)_":" _..PlaatMateriaalKleurVertaler.GeefVertaling(BinnenKleurCode))
+	Do ..Append(..Vertaler.GeefVertaling("kantenband", "", $$$True) _":"_..PlaatMateriaalKleurVertaler.GeefVertaling(KantenbandKleurCode))
 ]]></Implementation>
 </Method>
 
@@ -112,10 +118,10 @@
 	#dim KantenbandKleurCode As TECH.String = ..TAORKenmerken.KantenbandKleur
 	#dim LadeKleurCode As TECH.String = ..TAORKenmerken.LadeKleur
 	
-	Do ..Append(..Vertaler.GeefVertaling("Enkel")_" " _..Vertaler.GeefVertaling("zijkantlinks", "", $$$True)_":"_..KleurCodeVertaler.GeefVertaling(LadeKleurCode))
-	Do ..Append(..Vertaler.GeefVertaling("LadezijkantBuitenkant", "", $$$True)_":" _..KleurCodeVertaler.GeefVertaling(BuitenKleurCode))
-	Do ..Append(..Vertaler.GeefVertaling("LadezijkantBinnenkant", "", $$$True)_":" _..KleurCodeVertaler.GeefVertaling(BinnenKleurCode))
-	Do ..Append(..Vertaler.GeefVertaling("kantenband", "", $$$True) _":"_..KleurCodeVertaler.GeefVertaling(KantenbandKleurCode))
+	Do ..Append(..Vertaler.GeefVertaling("Enkel")_" " _..Vertaler.GeefVertaling("zijkantlinks", "", $$$True)_":"_..PlaatMateriaalKleurVertaler.GeefVertaling(LadeKleurCode))
+	Do ..Append(..Vertaler.GeefVertaling("LadezijkantBuitenkant", "", $$$True)_":" _..PlaatMateriaalKleurVertaler.GeefVertaling(BuitenKleurCode))
+	Do ..Append(..Vertaler.GeefVertaling("LadezijkantBinnenkant", "", $$$True)_":" _..PlaatMateriaalKleurVertaler.GeefVertaling(BinnenKleurCode))
+	Do ..Append(..Vertaler.GeefVertaling("kantenband", "", $$$True) _":"_..PlaatMateriaalKleurVertaler.GeefVertaling(KantenbandKleurCode))
 ]]></Implementation>
 </Method>
 
@@ -125,8 +131,8 @@
 	#dim KleurCode As TECH.String = ..KleurCodeBepaler.GeefBinnenKleurCode(..TAORKenmerken, ..HalffabItemsBoom)
 	#dim KantenbandKleurCode As TECH.String = ..TAORKenmerken.KantenbandKleur
 	
-	Do ..Append(..Vertaler.GeefVertaling("Enkel")_" " _..Vertaler.GeefVertaling("rug", "", $$$True)_":"_..KleurCodeVertaler.GeefVertaling(KleurCode))
-	Do ..Append(..Vertaler.GeefVertaling("kantenband", "", $$$True) _":"_..KleurCodeVertaler.GeefVertaling(KantenbandKleurCode))
+	Do ..Append(..Vertaler.GeefVertaling("Enkel")_" " _..Vertaler.GeefVertaling("rug", "", $$$True)_":"_..PlaatMateriaalKleurVertaler.GeefVertaling(KleurCode))
+	Do ..Append(..Vertaler.GeefVertaling("kantenband", "", $$$True) _":"_..PlaatMateriaalKleurVertaler.GeefVertaling(KantenbandKleurCode))
 ]]></Implementation>
 </Method>
 
Index: APPS/EC/Winkelkar/impl/GroepNaamVoorIngegevenKenmerkenBepaler.cls.xml
===================================================================
diff -u -r39573 -r58484
--- APPS/EC/Winkelkar/impl/GroepNaamVoorIngegevenKenmerkenBepaler.cls.xml	(.../GroepNaamVoorIngegevenKenmerkenBepaler.cls.xml)	(revision 39573)
+++ APPS/EC/Winkelkar/impl/GroepNaamVoorIngegevenKenmerkenBepaler.cls.xml	(.../GroepNaamVoorIngegevenKenmerkenBepaler.cls.xml)	(revision 58484)
@@ -28,6 +28,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="PlaatMateriaalKleurVertaler">
+<Type>APPS.EC.Winkelkar.impl.Vertaler</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="GeefGroepNaam">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Taal:DOM.enu.Taal,FallbackTaal:DOM.enu.Taal=""</FormalSpec>
 <ReturnType>%String</ReturnType>
@@ -36,6 +41,7 @@
 	Set ..FallbackTaal = FallbackTaal	
 	Set ..Vertaler = ##class(APPS.EC.Winkelkar.impl.Vertaler).%New(##class(DOM.DomeinContext).Instance().GeefVertaalAPI().GeefStandaardVertaler(Taal))
 	Set ..KleurCodeVertaler = ##class(APPS.EC.Winkelkar.impl.Vertaler).%New(##class(DOM.DomeinContext).Instance().GeefVertaalAPI().GeefKleurCodeVertaler(Taal))
+	Set ..PlaatMateriaalKleurVertaler = ##class(APPS.EC.Winkelkar.impl.Vertaler).%New(##class(DOM.DomeinContext).Instance().GeefVertaalAPI().GeefTaorKleurCodeVertaler(Taal))
 	
 	Do IngegevenKenmerken.Accept(##this)
 
@@ -49,12 +55,12 @@
 <Implementation><![CDATA[
 	#dim Prefix As TECH.String = "TA'OR BOX"
 	#dim Lade As TECH.String = ..Vertaler.GeefVertaling("lade", ..Taal, ..FallbackTaal)
-	#dim LadeKleur As TECH.String = ..KleurCodeVertaler.GeefVertaling(TAORKenmerken.LadeKleur, ..Taal, ..FallbackTaal)
-	#dim KantenbandKleur As TECH.String = ..KleurCodeVertaler.GeefVertaling(TAORKenmerken.KantenbandKleur, ..Taal, ..FallbackTaal)
-	#dim LadeBinnenKleur As TECH.String = ..KleurCodeVertaler.GeefVertaling(TAORKenmerken.LadeBinnenKleur, ..Taal, ..FallbackTaal)
+	#dim LadeKleur As TECH.String = ..PlaatMateriaalKleurVertaler.GeefVertaling(TAORKenmerken.LadeKleur, ..Taal, ..FallbackTaal)
+	#dim KantenbandKleur As TECH.String = ..PlaatMateriaalKleurVertaler.GeefVertaling(TAORKenmerken.KantenbandKleur, ..Taal, ..FallbackTaal)
+	#dim LadeBinnenKleur As TECH.String = ..PlaatMateriaalKleurVertaler.GeefVertaling(TAORKenmerken.LadeBinnenKleur, ..Taal, ..FallbackTaal)
 	
 	#dim Bodem As TECH.String = ..Vertaler.GeefVertaling("Bodem", ..Taal, ..FallbackTaal)
-	#dim BodemKleur As TECH.String = ..KleurCodeVertaler.GeefVertaling(TAORKenmerken.BodemKleur, ..Taal, ..FallbackTaal)
+	#dim BodemKleur As TECH.String = ..PlaatMateriaalKleurVertaler.GeefVertaling(TAORKenmerken.BodemKleur, ..Taal, ..FallbackTaal)
 	
 	set ..GroepNaam = Prefix _ " " _ Lade