Index: vhUnitTest/APPS/EC/Winkelkar/impl/GroepNaamVoorIngegevenKenmerkenBepaler/GeefGroepNaam/TAX/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EC/Winkelkar/impl/GroepNaamVoorIngegevenKenmerkenBepaler/GeefGroepNaam/TAX/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/GroepNaamVoorIngegevenKenmerkenBepaler/GeefGroepNaam/TAX/Test.cls.xml	(revision 36988)
@@ -0,0 +1,81 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EC.Winkelkar.impl.GroepNaamVoorIngegevenKenmerkenBepaler.GeefGroepNaam.TAX.Test">
+<Super>vhUnitTest.APPS.EC.Winkelkar.impl.GroepNaamVoorIngegevenKenmerkenBepaler.GeefGroepNaam.TestBase,DOM.PM.Maatwerk.TAX.impl.Base</Super>
+
+<Property name="Kenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="Test:Groepnaam TAORKenmerken gevonden in standaard taal">
+<Implementation><![CDATA[
+	set ..Kenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
+	
+	do ..AssertGroepNaam(..Taal.Duits, "TA'OR BOX Schubkasten Nussbaum Natur, Boden Nussbaum Natur")
+	do ..AssertGroepNaam(..Taal.Engels, "TA'OR BOX drawer Natural Walnut, base Natural Walnut")
+	do ..AssertGroepNaam(..Taal.Frans, "TA'OR BOX tiroir Noyer Naturel, fond Noyer Naturel")
+	do ..AssertGroepNaam(..Taal.Nederlands, "TA'OR BOX lade Natuur Notenhout, bodem Natuur Notenhout")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Groepnaam TAORKenmerken in fallback taal">
+<Implementation><![CDATA[
+	Set ..Kenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
+	
+	#dim StandaardTaal As %String = "OnbestaandeTaal"
+	
+	Do ..AssertGroepNaam(StandaardTaal, "TA'OR BOX Schubkasten Nussbaum Natur, Boden Nussbaum Natur", ..Taal.Duits)
+	Do ..AssertGroepNaam(StandaardTaal, "TA'OR BOX drawer Natural Walnut, base Natural Walnut", ..Taal.Engels)
+	Do ..AssertGroepNaam(StandaardTaal, "TA'OR BOX tiroir Noyer Naturel, fond Noyer Naturel", ..Taal.Frans)
+	Do ..AssertGroepNaam(StandaardTaal, "TA'OR BOX lade Natuur Notenhout, bodem Natuur Notenhout", ..Taal.Nederlands)
+]]></Implementation>
+</Method>
+
+<Method name="Test:TAORKenmerken met afwijkende bodem">
+<Implementation><![CDATA[
+	set ..Kenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).BodemAfwLade()
+	
+	do ..AssertGroepNaam(..Taal.Duits, "TA'OR BOX Schubkasten Nussbaum Natur, Boden Schwarz")
+	do ..AssertGroepNaam(..Taal.Engels, "TA'OR BOX drawer Natural Walnut, base Black")
+	do ..AssertGroepNaam(..Taal.Frans, "TA'OR BOX tiroir Noyer Naturel, fond Noir")
+	do ..AssertGroepNaam(..Taal.Nederlands, "TA'OR BOX lade Natuur Notenhout, bodem Zwart")
+]]></Implementation>
+</Method>
+
+<Method name="Test:TAORKenmerken BiColour">
+<Implementation><![CDATA[
+	set ..Kenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).BiColourLade()
+	
+	do ..AssertGroepNaam(..Taal.Duits, "TA'OR BOX Schubkasten, Zarge außerhalb: Nussbaum Natur, Zarge innerhalb: Schwarz, Kantenband: Nussbaum Natur, Boden: Schwarz, Rückwand: Schwarz")
+	do ..AssertGroepNaam(..Taal.Engels, "TA'OR BOX drawer, drawer side exterior: Natural Walnut, drawer side interior: Black, edge-band: Natural Walnut, base: Black, back: Black")
+	do ..AssertGroepNaam(..Taal.Frans, "TA'OR BOX tiroir, côté de tiroir extérieur: Noyer Naturel, côté de tiroir intérieur: Noir, chant à coller: Noyer Naturel, fond: Noir, dos: Noir")
+	do ..AssertGroepNaam(..Taal.Nederlands, "TA'OR BOX lade, ladezijkant buiten: Natuur Notenhout, ladezijkant binnen: Zwart, kantenband: Natuur Notenhout, bodem: Zwart, rug: Zwart")
+]]></Implementation>
+</Method>
+
+<Method name="Test:TAORKenmerken BiColour met afwijkende bodem">
+<Implementation><![CDATA[
+	set ..Kenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).BiColourBodemAfwBinnenlade()
+	
+	do ..AssertGroepNaam(..Taal.Duits, "TA'OR BOX Schubkasten, Zarge außerhalb: Nussbaum Natur, Zarge innerhalb: Weiss, Kantenband: Nussbaum Natur, Boden: Schwarz, Rückwand: Weiss")
+	do ..AssertGroepNaam(..Taal.Engels, "TA'OR BOX drawer, drawer side exterior: Natural Walnut, drawer side interior: White, edge-band: Natural Walnut, base: Black, back: White")
+	do ..AssertGroepNaam(..Taal.Frans, "TA'OR BOX tiroir, côté de tiroir extérieur: Noyer Naturel, côté de tiroir intérieur: Blanc, chant à coller: Noyer Naturel, fond: Noir, dos: Blanc")
+	do ..AssertGroepNaam(..Taal.Nederlands, "TA'OR BOX lade, ladezijkant buiten: Natuur Notenhout, ladezijkant binnen: Wit, kantenband: Natuur Notenhout, bodem: Zwart, rug: Wit")
+]]></Implementation>
+</Method>
+
+<Method name="Test:TAORKenmerken MultiColour">
+<Implementation><![CDATA[
+	set ..Kenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).MultiColourBinnenlade()
+	
+	do ..AssertGroepNaam(..Taal.Duits, "TA'OR BOX Schubkasten, Zarge außerhalb: Eiche Natur, Zarge innerhalb: Schwarz, Kantenband: Weiss, Boden: Dekor Tennessee Nuß, Rückwand: Schwarz")
+	do ..AssertGroepNaam(..Taal.Engels, "TA'OR BOX drawer, drawer side exterior: Natural Oak, drawer side interior: Black, edge-band: White, base: Decor Tennessee Walnut, back: Black")
+	do ..AssertGroepNaam(..Taal.Frans, "TA'OR BOX tiroir, côté de tiroir extérieur: Chêne Naturel, côté de tiroir intérieur: Noir, chant à coller: Blanc, fond: Décor Noyer Tennessee, dos: Noir")
+	do ..AssertGroepNaam(..Taal.Nederlands, "TA'OR BOX lade, ladezijkant buiten: Natuur Eikenhout, ladezijkant binnen: Zwart, kantenband: Wit, bodem: Décor Tennessee Noot, rug: Zwart")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EC/Winkelkar/impl/GroepNaamVoorIngegevenKenmerkenBepaler.cls.xml
===================================================================
diff -u -r35695 -r36988
--- APPS/EC/Winkelkar/impl/GroepNaamVoorIngegevenKenmerkenBepaler.cls.xml	(.../GroepNaamVoorIngegevenKenmerkenBepaler.cls.xml)	(revision 35695)
+++ APPS/EC/Winkelkar/impl/GroepNaamVoorIngegevenKenmerkenBepaler.cls.xml	(.../GroepNaamVoorIngegevenKenmerkenBepaler.cls.xml)	(revision 36988)
@@ -49,7 +49,9 @@
 <Implementation><![CDATA[
 	#dim Prefix As TECH.String = "TA'OR BOX"
 	#dim Lade As TECH.String = ..Vertaler.GeefVertaling("lade", ..Taal, ..FallbackTaal)
-	#dim LadeKleur As TECH.String = ..KleurCodeVertaler.GeefVertaling(TAORKenmerken.LadeKleur, ..Taal, ..FallbackTaal)	
+	#dim LadeKleur As TECH.String = ..KleurCodeVertaler.GeefVertaling(TAORKenmerken.LadeKleur, ..Taal, ..FallbackTaal)
+	#dim KantenbandKleur As TECH.String = ..KleurCodeVertaler.GeefVertaling(TAORKenmerken.KantenbandKleur, ..Taal, ..FallbackTaal)
+	#dim LadeBinnenKleur As TECH.String = ..KleurCodeVertaler.GeefVertaling(TAORKenmerken.LadeBinnenKleur, ..Taal, ..FallbackTaal)
 	
 	#dim Bodem As TECH.String = ..Vertaler.GeefVertaling("Bodem", ..Taal, ..FallbackTaal)
 	#dim BodemKleur As TECH.String = ..KleurCodeVertaler.GeefVertaling(TAORKenmerken.BodemKleur, ..Taal, ..FallbackTaal)
@@ -62,14 +64,13 @@
 		#dim LadeZijkant As TECH.String = ..Vertaler.GeefVertaling("ladezijkant", ..Taal, ..FallbackTaal, $$$True)
 		#dim Buiten As TECH.String = ..Vertaler.GeefVertaling("buiten", ..Taal, ..FallbackTaal, $$$True)
 		#dim Binnen As TECH.String = ..Vertaler.GeefVertaling("binnen", ..Taal, ..FallbackTaal, $$$True)
-		#dim LadeBinnenKleur As TECH.String = ..KleurCodeVertaler.GeefVertaling(TAORKenmerken.LadeBinnenKleur, ..Taal, ..FallbackTaal)
+		
 		#dim Kantenband As TECH.String = ..Vertaler.GeefVertaling("kantenband", ..Taal, ..FallbackTaal, $$$True)
 		#dim Rug As TECH.String = ..Vertaler.GeefVertaling("rug", ..Taal, ..FallbackTaal, $$$True)
-	
 		set ..GroepNaam = ..GroepNaam _ ", "
 		set ..GroepNaam = ..GroepNaam _ LadeZijkant _ " " _ Buiten _ ": " _ LadeKleur _ ", "
 		set ..GroepNaam = ..GroepNaam _ LadeZijkant _ " " _ Binnen _ ": " _ LadeBinnenKleur _ ", "
-		set ..GroepNaam = ..GroepNaam _ Kantenband _ ": " _ LadeKleur _ ", "
+		set ..GroepNaam = ..GroepNaam _ Kantenband _ ": " _ KantenbandKleur _ ", "
 		set ..GroepNaam = ..GroepNaam _ Bodem _ ": " _ BodemKleur _ ", "
 		set ..GroepNaam = ..GroepNaam _ Rug _ ": " _ LadeBinnenKleur
 	}
Index: vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/TAORKenmerken.cls.xml
===================================================================
diff -u -r36675 -r36988
--- vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/TAORKenmerken.cls.xml	(.../TAORKenmerken.cls.xml)	(revision 36675)
+++ vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/TAORKenmerken.cls.xml	(.../TAORKenmerken.cls.xml)	(revision 36988)
@@ -130,6 +130,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="MultiColourBinnenlade">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..StandaardBinnenladeVerpaktIn(##class(DOM.PM.enu.TAORVerpakkingType).V1())
+	
+	set TAORKenmerken.BodemKleur = ##class(DOM.PM.enu.TAORBodemKleur).TennesseeNoot()
+	set TAORKenmerken.LadeKleur = ##class(DOM.PM.enu.TAORBodemKleur).NatuurEikenhout()
+	set TAORKenmerken.LadeBinnenKleur =##class(DOM.PM.enu.TAORBodemKleur).Zwart()
+	set TAORKenmerken.KantenbandKleur = ##class(DOM.PM.enu.TAORKantenbandKleur).Wit()
+
+	Quit TAORKenmerken
+]]></Implementation>
+</Method>
+
 <Method name="BiColourBodemAfwLade">
 <ClassMethod>1</ClassMethod>
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</ReturnType>
FishEye: Tag 36988 refers to a dead (removed) revision in file `vhUnitTest/APPS/EC/Winkelkar/impl/GroepNaamVoorIngegevenKenmerkenBepaler/GeefGroepNaam/TAOR/Test.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?