Index: DOM/PM/impl/TAORLangtekstCreator/LosseComponentDetailBepaler.cls.xml
===================================================================
diff -u -r58824 -r58827
--- DOM/PM/impl/TAORLangtekstCreator/LosseComponentDetailBepaler.cls.xml	(.../LosseComponentDetailBepaler.cls.xml)	(revision 58824)
+++ DOM/PM/impl/TAORLangtekstCreator/LosseComponentDetailBepaler.cls.xml	(.../LosseComponentDetailBepaler.cls.xml)	(revision 58827)
@@ -113,7 +113,7 @@
 	
 	do ..Verwerk(IngegevenKenmerken.ProductieWijze)
 	
-	do:..HoofdKleurToevoegen(..Korttekst,IngegevenKenmerken.ProductieWijze) ..VoegToeParagraaf(..Formateer(..Vertaler.GeefVertaling("Kleur"),..PlaatMateriaalKleurVertaler.GeefVertaling(..LadeOnderdeel.GeefKleur())))
+	do:..HoofdKleurToevoegen(..Korttekst) ..VoegToeParagraaf(..Formateer(..Vertaler.GeefVertaling("Kleur"),..PlaatMateriaalKleurVertaler.GeefVertaling(..LadeOnderdeel.GeefKleur())))
 	
 	quit ..Detail
 ]]></Implementation>
@@ -126,9 +126,7 @@
 	do ..VoegToeParagraaf( ..Formateer(..Vertaler.GeefVertaling("LengteRug") , ..LadeOnderdeel.GeefBreedteInMM() _ "mm"))
 
 	if ..Kleuren.GetAt(..Const.Binnenkant)'=..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>
@@ -213,19 +211,17 @@
 </Method>
 
 <Method name="HoofdKleurToevoegen">
-<FormalSpec>Korttekst:TECH.String,ProductieWijze:TECH.String</FormalSpec>
+<FormalSpec>Korttekst: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 = (..PlaatMateriaalKleurVertaler.GeefVertaling(KleurCode) = "") ; 
+	Set:$length(KleurCode) Toevoegen = (..KleurCodeVertaler.GeefVertaling(KleurCode) = "") ; 
 
-	Set:(##class(TECH.StringUtils).Equals(ProductieWijze,TaxProductieWijze.Rug,TaxProductieWijze.Bodem)) Toevoegen = $$$True
 	Quit Toevoegen
 ]]></Implementation>
 </Method>