Index: DOM/PM/Maatwerk/LadeInfo/impl/TAX/Rug.cls.xml
===================================================================
diff -u -r29642 -r30110
--- DOM/PM/Maatwerk/LadeInfo/impl/TAX/Rug.cls.xml	(.../Rug.cls.xml)	(revision 29642)
+++ DOM/PM/Maatwerk/LadeInfo/impl/TAX/Rug.cls.xml	(.../Rug.cls.xml)	(revision 30110)
@@ -50,6 +50,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKleuren">
+<ReturnType>%ArrayOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#dim Kleuren As %ArrayOfDataTypes = ##class(%ArrayOfDataTypes).%New()
+	
+	do Kleuren.SetAt(..GeefKleur(), "1")
+	do Kleuren.SetAt("", "2")
+	do Kleuren.SetAt(..GeefKleur(), "3")
+	
+	quit Kleuren
+]]></Implementation>
+</Method>
+
 <Method name="GeefConcept">
 <ReturnType>DOM.PM.enu.TAORConcept</ReturnType>
 <Implementation><![CDATA[	Quit ..Lade.GeefConcept()
@@ -58,9 +71,7 @@
 
 <Method name="GeefAantalBodemOndersteuningen">
 <ReturnType>TECH.Integer</ReturnType>
-<Implementation><![CDATA[
-	quit ##class(DOM.PM.Maatwerk.TAX.impl.BodemOndersteuningAantalBepaler).%New().Bepaal(..Kenmerken)
-	quit ..Lade.GeefAantalBodemOndersteuningen()
+<Implementation><![CDATA[	quit ##class(DOM.PM.Maatwerk.TAX.impl.BodemOndersteuningAantalBepaler).%New().Bepaal(..Kenmerken)
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/DOM/PM/Maatwerk/LadeInfo/impl/LosseComponent/GeefKleuren/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/LadeInfo/impl/LosseComponent/GeefKleuren/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/LadeInfo/impl/LosseComponent/GeefKleuren/Test.cls.xml	(revision 30110)
@@ -0,0 +1,105 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.Maatwerk.LadeInfo.impl.LosseComponent.GeefKleuren.Test">
+<Super>vhUnitTest.DOM.PM.Maatwerk.TAX.Base</Super>
+
+<Property name="Kenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	set ..Kenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardBinnenlade()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Zijkant links met standaard kleuren">
+<Implementation><![CDATA[
+	#dim VerwachteLijst As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	
+	do VerwachteLijst.Insert(..Enum.LadeKleur.NatuurNotenhout)
+	do VerwachteLijst.Insert(..Enum.LadeKleur.NatuurNotenhout)
+	do VerwachteLijst.Insert(..Enum.LadeKleur.NatuurNotenhout)
+
+	do ..AssertKleuren(..Enum.LosseComponent.ZijkantLinks, VerwachteLijst)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Zijkant rechts met standaard kleuren">
+<Implementation><![CDATA[
+	#dim VerwachteLijst As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	
+	do VerwachteLijst.Insert(..Enum.LadeKleur.NatuurNotenhout)
+	do VerwachteLijst.Insert(..Enum.LadeKleur.NatuurNotenhout)
+	do VerwachteLijst.Insert(..Enum.LadeKleur.NatuurNotenhout)
+
+	do ..AssertKleuren(..Enum.LosseComponent.ZijkantRechts, VerwachteLijst)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Bodem met standaard kleuren">
+<Implementation><![CDATA[
+	#dim VerwachteLijst As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	
+	do VerwachteLijst.Insert(..Enum.BodemKleur.NatuurNotenhout)
+
+	do ..AssertKleuren(..Enum.LosseComponent.Bodem, VerwachteLijst)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Bodem met andere kleur dan de lade">
+<Implementation><![CDATA[
+	#dim VerwachteLijst As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	
+	set ..Kenmerken.LadeKleur = ..Enum.LadeKleur.Wit
+	set ..Kenmerken.BodemKleur = ..Enum.BodemKleur.Zwart
+	
+	do VerwachteLijst.Insert(..Enum.BodemKleur.Zwart)
+
+	do ..AssertKleuren(..Enum.LosseComponent.Bodem, VerwachteLijst)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Rug met standaard kleuren">
+<Implementation><![CDATA[
+	#dim VerwachteLijst As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	
+	do VerwachteLijst.Insert(..Enum.LadeKleur.NatuurNotenhout)
+	do VerwachteLijst.Insert("")
+	do VerwachteLijst.Insert(..Enum.LadeKleur.NatuurNotenhout)
+
+	do ..AssertKleuren(..Enum.LosseComponent.Rug, VerwachteLijst)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Front met standaard kleuren">
+<Implementation><![CDATA[
+	#dim VerwachteLijst As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	
+	do VerwachteLijst.Insert(..Enum.LadeKleur.NatuurNotenhout)
+	do VerwachteLijst.Insert(..Enum.LadeKleur.NatuurNotenhout)
+	do VerwachteLijst.Insert(..Enum.LadeKleur.NatuurNotenhout)
+
+	do ..AssertKleuren(..Enum.LosseComponent.Front, VerwachteLijst)
+]]></Implementation>
+</Method>
+
+<Method name="AssertKleuren">
+<FormalSpec>LosseComponentType:DOM.PM.Maatwerk.Lade.enu.LosseComponent,VerwachteLijst:%ListOfDataTypes</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..GeefHalffabItemsBoom(..Kenmerken)
+	
+	set LosseComponentFactory = ##class(DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactoryTAX).%New()
+	#dim LosseComponent As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = LosseComponentFactory.Maak(HalffabItemsBoom, ..Kenmerken, LosseComponentType)
+	
+	do $$$AssertEqualsList(LosseComponent.GeefKleuren(), VerwachteLijst)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/Maatwerk/LadeInfo/impl/TAX/Front.cls.xml
===================================================================
diff -u -r29642 -r30110
--- DOM/PM/Maatwerk/LadeInfo/impl/TAX/Front.cls.xml	(.../Front.cls.xml)	(revision 29642)
+++ DOM/PM/Maatwerk/LadeInfo/impl/TAX/Front.cls.xml	(.../Front.cls.xml)	(revision 30110)
@@ -53,10 +53,23 @@
 
 <Method name="GeefKleur">
 <ReturnType>DOM.PM.enu.TAORLadeKleur</ReturnType>
-<Implementation><![CDATA[	quit ..Lade.GeefKleur()
+<Implementation><![CDATA[	quit ..GeefFrontPlaat().GeefKleur()
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKleuren">
+<ReturnType>%ArrayOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#dim Kleuren As %ArrayOfDataTypes = ##class(%ArrayOfDataTypes).%New()
+	
+	do Kleuren.SetAt(..GeefKleur(), "1")
+	do Kleuren.SetAt(..GeefKleur(), "2")
+	do Kleuren.SetAt(..GeefKleur(), "3")
+	
+	quit Kleuren
+]]></Implementation>
+</Method>
+
 <Method name="GeefConcept">
 <ReturnType>DOM.PM.enu.TAORConcept</ReturnType>
 <Implementation><![CDATA[	Quit ..Lade.GeefConcept()
Index: DOM/PM/Maatwerk/LadeInfo/impl/TAX/Zijkant.cls.xml
===================================================================
diff -u -r29970 -r30110
--- DOM/PM/Maatwerk/LadeInfo/impl/TAX/Zijkant.cls.xml	(.../Zijkant.cls.xml)	(revision 29970)
+++ DOM/PM/Maatwerk/LadeInfo/impl/TAX/Zijkant.cls.xml	(.../Zijkant.cls.xml)	(revision 30110)
@@ -55,6 +55,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKleuren">
+<ReturnType>%ArrayOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#dim Kleuren As %ArrayOfDataTypes = ##class(%ArrayOfDataTypes).%New()
+	
+	do Kleuren.SetAt(..GeefKleur(), 1)
+	do Kleuren.SetAt(..GeefKleur(), 2)
+	do Kleuren.SetAt(..GeefKleur(), 3)
+	
+	quit Kleuren
+]]></Implementation>
+</Method>
+
 <Method name="GeefZijkantRol">
 <ReturnType>DOM.PM.Maatwerk.Lade.enu.ZijkantRol</ReturnType>
 <Implementation><![CDATA[	quit $piece(..HalffabItem.GeefRol(),"Zijkant",2)
Index: DOM/PM/Maatwerk/LadeInfo/impl/TAX/Bodem.cls.xml
===================================================================
diff -u -r29059 -r30110
--- DOM/PM/Maatwerk/LadeInfo/impl/TAX/Bodem.cls.xml	(.../Bodem.cls.xml)	(revision 29059)
+++ DOM/PM/Maatwerk/LadeInfo/impl/TAX/Bodem.cls.xml	(.../Bodem.cls.xml)	(revision 30110)
@@ -32,6 +32,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKleuren">
+<ReturnType>%ArrayOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#dim Kleuren As %ArrayOfDataTypes = ##class(%ArrayOfDataTypes).%New()
+	
+	do Kleuren.SetAt(..GeefKleur(), 1)
+	
+	quit Kleuren
+]]></Implementation>
+</Method>
+
 <Method name="GeefConcept">
 <ReturnType>DOM.PM.enu.TAORConcept</ReturnType>
 <Implementation><![CDATA[	Quit ..Lade.GeefConcept()