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() {