Index: vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/GeefLangtekst/LosseComponent/Test.cls.xml
===================================================================
diff -u -r30587 -r30781
--- vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/GeefLangtekst/LosseComponent/Test.cls.xml	(.../Test.cls.xml)	(revision 30587)
+++ vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/GeefLangtekst/LosseComponent/Test.cls.xml	(.../Test.cls.xml)	(revision 30781)
@@ -64,6 +64,16 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test:Rug - Afwijkend kleur">
+<Implementation><![CDATA[
+	set ..TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Rug
+	set ..TAORKenmerken.LadeBinnenKleur = ..Enum.LadeKleur.NatuurEikenhout
+
+	do $$$AssertEquals(..GeefHoofding(), "TA'OR BOX rug")
+	do $$$AssertEqualsList(..GeefDetail(),..ToList("Hoogte: C"_$$$CRLF_"Interne breedte: 564mm"_$$$CRLF_"Lengte rug: 533mm"_$$$CRLF_"Kleur kantenband: Natuur notenhout"_$$$CRLF_"Kleur: Natuur eikenhout"))
+]]></Implementation>
+</Method>
+
 <Method name="Test: Bodem - drevelkoppeling">
 <Implementation><![CDATA[
 	set ..TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Bodem
@@ -113,6 +123,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Zijkant rechts - BiColour ">
+<Implementation><![CDATA[
+	set ..Korttekst = "171A5070   W-DIST    AAAA"	; random korttekst 
+	
+	set ..TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.ZijkantRechts
+	set ..TAORKenmerken.LadeBinnenKleur = ..Enum.LadeKleur.NatuurEikenhout
+		
+	#dim VerwachtDetail As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	
+	do $$$AssertEquals(..GeefHoofding(), "TA'OR BOX zijkant rechts")
+	do $$$AssertEqualsList(..GeefDetail(),..ToList("Hoogte: C"_$$$CRLF_"NL: 500mm"_$$$CRLF_"Kleur buitenkant: Natuur notenhout"_$$$CRLF_"Kleur kantenband: Natuur notenhout"_$$$CRLF_"Kleur binnenkant: Natuur eikenhout"))
+]]></Implementation>
+</Method>
+
 <Method name="ToList">
 <FormalSpec>String:%String</FormalSpec>
 <Private>1</Private>
Index: DOM/PM/impl/TAORLangtekstCreator/LosseComponentDetailBepaler.cls.xml
===================================================================
diff -u -r30621 -r30781
--- DOM/PM/impl/TAORLangtekstCreator/LosseComponentDetailBepaler.cls.xml	(.../LosseComponentDetailBepaler.cls.xml)	(revision 30621)
+++ DOM/PM/impl/TAORLangtekstCreator/LosseComponentDetailBepaler.cls.xml	(.../LosseComponentDetailBepaler.cls.xml)	(revision 30781)
@@ -54,6 +54,21 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Korttekst">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Kleuren">
+<Type>%ArrayOfDataTypes</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="HoofdKleurToevoegenIntrekken">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>Vertaler:DOM.common.Transl.Vertaler,KleurCodeVertaler:DOM.common.Transl.Vertaler,LosseComponentFactory:DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory</FormalSpec>
 <Private>1</Private>
@@ -72,17 +87,20 @@
 <Method name="BepaalDetail">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,Taal:DOM.enu.Taal,Korttekst:%String</FormalSpec>
 <Implementation><![CDATA[
+	set ..HoofdKleurToevoegenIntrekken = $$$false
+
 	set ..IngegevenKenmerken = IngegevenKenmerken
 	set ..HalffabItemsBoom = HalffabItemsBoom
 	set ..Taal = Taal
+	set ..Korttekst = Korttekst
 	
 	set ..LosseComponentType = ..ProductieWijzeNaarLosseComponentConverter.Convert(..IngegevenKenmerken.ProductieWijze)
-	
 	set ..LadeOnderdeel = ..LosseComponentFactory.MaakLosseComponent(..HalffabItemsBoom, ..IngegevenKenmerken, ..LosseComponentType)
+	set ..Kleuren = ..LadeOnderdeel.GeefKleuren()
 	
 	do ..Verwerk(IngegevenKenmerken.ProductieWijze)
 	
-	do:..HoofdKleurToevoegen(Korttekst) ..VoegToeParagraaf(..Formateer(..Vertaler.GeefVertaling("Kleur"),..KleurCodeVertaler.GeefVertaling(..LadeOnderdeel.GeefKleur())))
+	do:..HoofdKleurToevoegen(..Korttekst) ..VoegToeParagraaf(..Formateer(..Vertaler.GeefVertaling("Kleur"),..KleurCodeVertaler.GeefVertaling(..LadeOnderdeel.GeefKleur())))
 	
 	quit ..Detail
 ]]></Implementation>
@@ -93,6 +111,11 @@
 	do ..VoegToeParagraaf( ..GeefLadeHoogteTekst())
 	do ..VoegToeParagraaf( ..GeefInbouwbreedteTekst())
 	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:'..HoofdKleurToevoegen(..Korttekst) ..VoegToeParagraaf( ..Formateer(..Vertaler.GeefVertaling("Kleur"),..KleurCodeVertaler.GeefVertaling(..Kleuren.GetAt(..Const.Binnenkant))))	
+	}
 ]]></Implementation>
 </Method>
 
@@ -132,6 +155,13 @@
 <Implementation><![CDATA[
 	do ..VoegToeParagraaf( ..GeefLadeHoogteTekst())
 	do ..VoegToeParagraaf( ..Formateer(..Vertaler.GeefVertaling("NominaleLengteAfkorting"),..IngegevenKenmerken.LadeDiepte _ "mm"))
+	
+	if ..Kleuren.GetAt(1)'=..Kleuren.GetAt(2) {
+		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))))	
+		set ..HoofdKleurToevoegenIntrekken = $$$true
+	}
 ]]></Implementation>
 </Method>
 
@@ -154,7 +184,9 @@
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	#dim Toevoegen As %Boolean = 1
+	quit:..HoofdKleurToevoegenIntrekken $$$false
+
+	#dim Toevoegen As %Boolean = 1 
 	#dim KleurCode As %String = $extract(Korttekst,22,25)
 	set:$length(KleurCode) Toevoegen = (..KleurCodeVertaler.GeefVertaling(KleurCode) = KleurCode)
 	quit Toevoegen