Index: DOM/PM/impl/TAORLangtekstCreator/LosseComponentDetailBepaler.cls.xml
===================================================================
diff -u -r58484 -r58824
--- DOM/PM/impl/TAORLangtekstCreator/LosseComponentDetailBepaler.cls.xml	(.../LosseComponentDetailBepaler.cls.xml)	(revision 58484)
+++ DOM/PM/impl/TAORLangtekstCreator/LosseComponentDetailBepaler.cls.xml	(.../LosseComponentDetailBepaler.cls.xml)	(revision 58824)
@@ -113,7 +113,7 @@
 	
 	do ..Verwerk(IngegevenKenmerken.ProductieWijze)
 	
-	do:..HoofdKleurToevoegen(..Korttekst) ..VoegToeParagraaf(..Formateer(..Vertaler.GeefVertaling("Kleur"),..PlaatMateriaalKleurVertaler.GeefVertaling(..LadeOnderdeel.GeefKleur())))
+	do:..HoofdKleurToevoegen(..Korttekst,IngegevenKenmerken.ProductieWijze) ..VoegToeParagraaf(..Formateer(..Vertaler.GeefVertaling("Kleur"),..PlaatMateriaalKleurVertaler.GeefVertaling(..LadeOnderdeel.GeefKleur())))
 	
 	quit ..Detail
 ]]></Implementation>
@@ -126,7 +126,9 @@
 	do ..VoegToeParagraaf( ..Formateer(..Vertaler.GeefVertaling("LengteRug") , ..LadeOnderdeel.GeefBreedteInMM() _ "mm"))
 
 	if ..Kleuren.GetAt(..Const.Binnenkant)'=..Kleuren.GetAt(3) {
-		do ..VoegToeParagraaf( ..Formateer(..Vertaler.GeefVertaling("KleurKantenband"),..KleurCodeVertaler.GeefVertaling(..Kleuren.GetAt(3))))
+		Do ..VoegToeParagraaf( ..Formateer(..Vertaler.GeefVertaling("KleurBinnenkant"),..PlaatMateriaalKleurVertaler.GeefVertaling(..Kleuren.GetAt(..Const.Binnenkant))))	
+		Do ..VoegToeParagraaf( ..Formateer(..Vertaler.GeefVertaling("KleurKantenband"),..PlaatMateriaalKleurVertaler.GeefVertaling(..Kleuren.GetAt(3))))
+		Set ..HoofdKleurToevoegenIntrekken = $$$true
 	}
 ]]></Implementation>
 </Method>
@@ -211,17 +213,20 @@
 </Method>
 
 <Method name="HoofdKleurToevoegen">
-<FormalSpec>Korttekst:TECH.String</FormalSpec>
+<FormalSpec>Korttekst:TECH.String,ProductieWijze:TECH.String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
+	Set TaxProductieWijze  = ##class(DOM.PM.enu.TAORProductieWijze.AutoComplete).%New()
 	quit:..HoofdKleurToevoegenIntrekken $$$false
 
 	#dim Toevoegen As %Boolean = $$$True 
 	#dim KleurCode As %String = $extract(Korttekst,22,25)
-	
-	set:$length(KleurCode) Toevoegen = (..KleurCodeVertaler.GeefVertaling(KleurCode) = "")
-	quit Toevoegen
+
+	Set:$length(KleurCode) Toevoegen = (..PlaatMateriaalKleurVertaler.GeefVertaling(KleurCode) = "") ; 
+
+	Set:(##class(TECH.StringUtils).Equals(ProductieWijze,TaxProductieWijze.Rug,TaxProductieWijze.Bodem)) Toevoegen = $$$True
+	Quit Toevoegen
 ]]></Implementation>
 </Method>
 
Index: DOM/PM/impl/TAORLangtekstCreator.cls.xml
===================================================================
diff -u -r58484 -r58824
--- DOM/PM/impl/TAORLangtekstCreator.cls.xml	(.../TAORLangtekstCreator.cls.xml)	(revision 58484)
+++ DOM/PM/impl/TAORLangtekstCreator.cls.xml	(.../TAORLangtekstCreator.cls.xml)	(revision 58824)
@@ -204,7 +204,7 @@
 		#dim Bodem As DOM.PM.Maatwerk.LadeInfo.Bodem = ..Lade.GeefBodems().GetAt(1)
 		Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("Bodem", "", $$$True) _ ":" _ ..PlaatMateriaalKleurVertaler.GeefVertaling(Bodem.GeefKleur()))
 	}
-	If ..Lade.GeefRuggen().Count() > 0 {
+	If ..Lade.GeefRuggen().Count() > 0 {	
 		#dim Rug As DOM.PM.Maatwerk.LadeInfo.Rug = ..Lade.GeefRuggen().GetAt(1)
 		Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("rug", "", $$$True) _ ":" _ ..PlaatMateriaalKleurVertaler.GeefVertaling(Rug.GeefKleur()))
 	}