Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/PlaatAfwerkingBepaler/GeefPlaatAfwerking/Test.cls.xml
===================================================================
diff -u -r29059 -r37006
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/PlaatAfwerkingBepaler/GeefPlaatAfwerking/Test.cls.xml	(.../Test.cls.xml)	(revision 29059)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/PlaatAfwerkingBepaler/GeefPlaatAfwerking/Test.cls.xml	(.../Test.cls.xml)	(revision 37006)
@@ -7,14 +7,26 @@
 <Type>DOM.PM.Maatwerk.Calc.HF.impl.TAOR.PlaatAfwerkingBepaler</Type>
 </Property>
 
+<Property name="FineerKleuren">
+<Type>%String</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
 	do ##super()
 	set ..PlaatAfwerkingBepaler = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.PlaatAfwerkingBepaler).%New()
+	set ..FineerKleuren = ##class(TECH.ListUtils).PiecesToList("NE,NN,E2,XG",",")
 ]]></Implementation>
 </Method>
 
-<Method name="TestAlleGedefinieerd">
+<Method name="Test: Indien geen kleur opgegeven krijgen we ook niks terug">
+<Implementation><![CDATA[	do $$$AssertEquals(..PlaatAfwerkingBepaler.GeefPlaatAfwerking(""),"")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Lade kleuren">
 <Implementation><![CDATA[
 	#dim Iterator As TECH.Iterator = ##class(DOM.PM.enu.TAORLadeKleur).ValueListIterator()
 	While Iterator.HasNext() {
@@ -23,14 +35,31 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Kantenband kleuren">
+<Implementation><![CDATA[
+	#dim Iterator As TECH.Iterator = ##class(DOM.PM.enu.TAORKantenbandKleur).ValueListIterator()
+	While Iterator.HasNext() {
+		Do ..AssertPlaatAfwerking(Iterator.Next())
+	}
+]]></Implementation>
+</Method>
+
 <Method name="AssertPlaatAfwerking">
-<FormalSpec>LadeKleur:DOM.PM.enu.TAORLadeKleur</FormalSpec>
+<FormalSpec>Kleur:%CacheString</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim PlaatAfwerking As DOM.PM.enu.TAORPlaatAfwerking = ..PlaatAfwerkingBepaler.GeefPlaatAfwerking(LadeKleur)
-	;Do $$$AssertTrue($L(PlaatAfwerking),"PlaatAfwerking voor LadeKleur "_LadeKleur_" niet gedefinieerd.")
+	#dim PlaatAfwerking As DOM.PM.enu.TAORPlaatAfwerking = ..PlaatAfwerkingBepaler.GeefPlaatAfwerking(Kleur)
+	
+	if PlaatAfwerking = ##class(DOM.PM.enu.TAORPlaatAfwerking).Fineer() {
+		do $$$AssertInList(..FineerKleuren,Kleur, Kleur_" is geen fineer")	
+	} else {
+		do $$$AssertNotInList(..FineerKleuren,Kleur, Kleur_" is geen melamine")	
+	}
+	
 	#dim StatusGeldigeWaarde As %Status = ##class(DOM.PM.enu.TAORPlaatAfwerking).IsValid(PlaatAfwerking)
-	Do $$$AssertTrue($$$ISOK(StatusGeldigeWaarde),"PlaatAfwerking voor LadeKleur '"_LadeKleur_"' :"_$$ParseStatus^vhLib(StatusGeldigeWaarde))
+	
+	Do $$$AssertTrue($L(PlaatAfwerking),"PlaatAfwerking voor kleur "_Kleur_" niet gedefinieerd.")
+	Do $$$AssertTrue($$$ISOK(StatusGeldigeWaarde),"PlaatAfwerking voor kleur '"_Kleur_"' :"_$$ParseStatus^vhLib(StatusGeldigeWaarde))
 ]]></Implementation>
 </Method>
 </Class>
Index: DOM/PM/Maatwerk/LadeInfo/impl/LadeOnderdeel.cls.xml
===================================================================
diff -u -r36811 -r37006
--- DOM/PM/Maatwerk/LadeInfo/impl/LadeOnderdeel.cls.xml	(.../LadeOnderdeel.cls.xml)	(revision 36811)
+++ DOM/PM/Maatwerk/LadeInfo/impl/LadeOnderdeel.cls.xml	(.../LadeOnderdeel.cls.xml)	(revision 37006)
@@ -91,8 +91,7 @@
 	while KleurenIterator.HasNext() {
 		#dim Value As %String = KleurenIterator.Next()
 		#dim Key As %String = KleurenIterator.Key()
-		#dim PlaatAfwerking As DOM.PM.Maatwerk.LadeInfo.enu.TAORDecor = $select($length(Value):..PlaatAfwerkingBepaler.GeefPlaatAfwerking(Value),1:"")
-		do Decors.SetAt(PlaatAfwerking,Key)
+		do Decors.SetAt( ..PlaatAfwerkingBepaler.GeefPlaatAfwerking(Value) , Key)
 	}
 	quit Decors
 ]]></Implementation>
Index: vhTest/Mock/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/PlaatAfwerkingBepaler.cls.xml
===================================================================
diff -u -r31542 -r37006
--- vhTest/Mock/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/PlaatAfwerkingBepaler.cls.xml	(.../PlaatAfwerkingBepaler.cls.xml)	(revision 31542)
+++ vhTest/Mock/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/PlaatAfwerkingBepaler.cls.xml	(.../PlaatAfwerkingBepaler.cls.xml)	(revision 37006)
@@ -10,9 +10,9 @@
 <Inheritance>right</Inheritance>
 
 <Method name="GeefPlaatAfwerking">
-<FormalSpec>LadeKleur:DOM.PM.enu.TAORLadeKleur</FormalSpec>
+<FormalSpec>Kleur:%String=""</FormalSpec>
 <ReturnType>DOM.PM.enu.TAORPlaatAfwerking</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefPlaatAfwerking",LadeKleur)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefPlaatAfwerking",Kleur)
 ]]></Implementation>
 </Method>
 </Class>
Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/PlaatAfwerkingBepaler.cls.xml
===================================================================
diff -u -r36176 -r37006
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/PlaatAfwerkingBepaler.cls.xml	(.../PlaatAfwerkingBepaler.cls.xml)	(revision 36176)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/PlaatAfwerkingBepaler.cls.xml	(.../PlaatAfwerkingBepaler.cls.xml)	(revision 37006)
@@ -1,84 +1,23 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="DOM.PM.Maatwerk.Calc.HF.impl.TAOR.PlaatAfwerkingBepaler">
-<Super>TECH.Mockable,DOM.PM.enu.TAORLadeKleur.Verwerker</Super>
+<Super>TECH.Mockable</Super>
 
-<Property name="PlaatAfwerking">
-<Type>DOM.PM.enu.TAORPlaatAfwerking</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="GeefPlaatAfwerking">
-<FormalSpec>LadeKleur:DOM.PM.enu.TAORLadeKleur</FormalSpec>
+<FormalSpec>Kleur:%String=""</FormalSpec>
 <ReturnType>DOM.PM.enu.TAORPlaatAfwerking</ReturnType>
 <Implementation><![CDATA[
-	set ..PlaatAfwerking = ""
-	
-	do ..Verwerk(LadeKleur)
-	
-	quit ..PlaatAfwerking
+	If $Length(Kleur) {
+		If ( Kleur = "NE" ) || ( Kleur = "NN" ) || ( Kleur = "E2" ) || ( Kleur = "XG" ) {
+			Quit ##class(DOM.PM.enu.TAORPlaatAfwerking).Fineer()
+		} Else {
+			Quit ##class(DOM.PM.enu.TAORPlaatAfwerking).Melamine()
+		}
+	} Else {
+		Quit ""
+	}
 ]]></Implementation>
 </Method>
-
-<Method name="VerwerkBardolinoEik">
-<Private>1</Private>
-<Implementation><![CDATA[	set ..PlaatAfwerking = ##class(DOM.PM.enu.TAORPlaatAfwerking).Melamine()
-]]></Implementation>
-</Method>
-
-<Method name="VerwerkNatuurEikenhout">
-<Private>1</Private>
-<Implementation><![CDATA[	set ..PlaatAfwerking = ##class(DOM.PM.enu.TAORPlaatAfwerking).Fineer()
-]]></Implementation>
-</Method>
-
-<Method name="VerwerkNatuurNotenhout">
-<Private>1</Private>
-<Implementation><![CDATA[	set ..PlaatAfwerking = ##class(DOM.PM.enu.TAORPlaatAfwerking).Fineer()
-]]></Implementation>
-</Method>
-
-<Method name="VerwerkNebraskaEikenhout">
-<Private>1</Private>
-<Implementation><![CDATA[	set ..PlaatAfwerking = ##class(DOM.PM.enu.TAORPlaatAfwerking).Melamine()
-]]></Implementation>
-</Method>
-
-<Method name="VerwerkTennesseeNoot">
-<Private>1</Private>
-<Implementation><![CDATA[	set ..PlaatAfwerking = ##class(DOM.PM.enu.TAORPlaatAfwerking).Melamine()
-]]></Implementation>
-</Method>
-
-<Method name="VerwerkZwart">
-<Private>1</Private>
-<Implementation><![CDATA[	set ..PlaatAfwerking = ##class(DOM.PM.enu.TAORPlaatAfwerking).Melamine()
-]]></Implementation>
-</Method>
-
-<Method name="VerwerkWit">
-<Private>1</Private>
-<Implementation><![CDATA[	set ..PlaatAfwerking = ##class(DOM.PM.enu.TAORPlaatAfwerking).Melamine()
-]]></Implementation>
-</Method>
-
-<Method name="VerwerkZwartIngekleurdYaya">
-<Private>1</Private>
-<Implementation><![CDATA[	set ..PlaatAfwerking = ##class(DOM.PM.enu.TAORPlaatAfwerking).Fineer()
-]]></Implementation>
-</Method>
-
-<Method name="VerwerkOnyxGrijs">
-<Private>1</Private>
-<Implementation><![CDATA[	set ..PlaatAfwerking = ##class(DOM.PM.enu.TAORPlaatAfwerking).Melamine()
-]]></Implementation>
-</Method>
-
-<Method name="VerwerkDakar">
-<Private>1</Private>
-<Implementation><![CDATA[	set ..PlaatAfwerking = ##class(DOM.PM.enu.TAORPlaatAfwerking).Melamine()
-]]></Implementation>
-</Method>
 </Class>