Index: vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/GeefLangtekst/LosseComponent/Test.cls.xml
===================================================================
diff -u -r30580 -r30587
--- vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/GeefLangtekst/LosseComponent/Test.cls.xml	(.../Test.cls.xml)	(revision 30580)
+++ vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/GeefLangtekst/LosseComponent/Test.cls.xml	(.../Test.cls.xml)	(revision 30587)
@@ -15,7 +15,7 @@
 
 <Method name="Test: Kleur niet invullen als een bestaande code in de korttekst staat - UI gefoefel">
 <Implementation><![CDATA[
-	set ..Korttekst = "171A5070   W-DIST V50NE" 	; random korttekst 
+	set ..Korttekst = "171A5070   W-DIST    NE" 	; random korttekst 
 	
 	set ..TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Rug
 	do $$$AssertEqualsList(..GeefDetail(),..ToList("Hoogte: C"_$$$CRLF_"Interne breedte: 564mm"_$$$CRLF_"Lengte rug: 533mm"))
@@ -34,6 +34,27 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Kleur invullen als een onbestaande code in de korttekst staat - UI gefoefel">
+<Implementation><![CDATA[
+	set ..Korttekst = "171A5070   W-DIST    NENE"	; random korttekst 
+	
+	set ..TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Rug
+	do $$$AssertEqualsList(..GeefDetail(),..ToList("Hoogte: C"_$$$CRLF_"Interne breedte: 564mm"_$$$CRLF_"Lengte rug: 533mm"_$$$CRLF_"Kleur: Natuur notenhout"))
+	
+	set ..TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Bodem
+	do $$$AssertEqualsList(..GeefDetail(),..ToList("Interne breedte: 564mm"_$$$CRLF_"NL: 500mm"_$$$CRLF_"Lengte bodem: 533mm"_$$$CRLF_"Voor schroefkoppeling"_$$$CRLF_"Kleur: Natuur notenhout"))
+
+	set ..TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Front
+	do $$$AssertEqualsList(..GeefDetail(),..ToList("Hoogte: C"_$$$CRLF_"Interne breedte: 564mm"_$$$CRLF_"Lengte front binnenlade: 554mm"_$$$CRLF_"Eindkap: Aluminium look"_$$$CRLF_"Kleur: Natuur notenhout"))
+
+	set ..TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.ZijkantLinks
+	do $$$AssertEqualsList(..GeefDetail(),..ToList("Hoogte: C"_$$$CRLF_"NL: 500mm"_$$$CRLF_"Kleur: Natuur notenhout"))
+
+	set ..TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.ZijkantRechts
+	do $$$AssertEqualsList(..GeefDetail(),..ToList("Hoogte: C"_$$$CRLF_"NL: 500mm"_$$$CRLF_"Kleur: Natuur notenhout"))
+]]></Implementation>
+</Method>
+
 <Method name="Test:Rug">
 <Implementation><![CDATA[
 	set ..TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Rug
Index: DOM/PM/impl/TAORLangtekstCreator/LosseComponentDetailBepaler.cls.xml
===================================================================
diff -u -r30586 -r30587
--- DOM/PM/impl/TAORLangtekstCreator/LosseComponentDetailBepaler.cls.xml	(.../LosseComponentDetailBepaler.cls.xml)	(revision 30586)
+++ DOM/PM/impl/TAORLangtekstCreator/LosseComponentDetailBepaler.cls.xml	(.../LosseComponentDetailBepaler.cls.xml)	(revision 30587)
@@ -156,7 +156,7 @@
 <Implementation><![CDATA[
 	#dim Toevoegen As %Boolean = 1
 	#dim KleurCode As %String = $$$Trim($extract(Korttekst,22,25))
-	set:$length(KleurCode) Toevoegen = (..KleurCodeVertaler.GeefVertaling(KleurCode) '= KleurCode)
+	set:$length(KleurCode) Toevoegen = (..KleurCodeVertaler.GeefVertaling(KleurCode) = KleurCode)
 	quit Toevoegen
 ]]></Implementation>
 </Method>