Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/PlaatAfwerkingBepaler/GeefPlaatAfwerking/Test.cls.xml
===================================================================
diff -u -r45455 -r50856
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/PlaatAfwerkingBepaler/GeefPlaatAfwerking/Test.cls.xml	(.../Test.cls.xml)	(revision 45455)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/PlaatAfwerkingBepaler/GeefPlaatAfwerking/Test.cls.xml	(.../Test.cls.xml)	(revision 50856)
@@ -1,65 +1,92 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.DOM.PM.Maatwerk.Calc.HF.impl.TAOR.PlaatAfwerkingBepaler.GeefPlaatAfwerking.Test">
-<Super>vhUnitTest.TestCase</Super>
+<Super>vhUnitTest.DOM.PM.Maatwerk.TAX.Base</Super>
 
 <Property name="PlaatAfwerkingBepaler">
 <Type>DOM.PM.Maatwerk.Calc.HF.impl.TAOR.PlaatAfwerkingBepaler</Type>
 </Property>
 
-<Property name="FineerKleuren">
-<Type>%String</Type>
-<Collection>list</Collection>
+<Property name="VerwachteFineerKleuren">
+<Type>%ListOfDataTypes</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="VerwachteMelamineKleuren">
+<Type>%ListOfDataTypes</Type>
+<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,ZY,MB,SY",",")
+	Do ##super()
+	
+	Set ..PlaatAfwerkingBepaler = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.PlaatAfwerkingBepaler).%New()
+	Set ..VerwachteFineerKleuren = ##class(TECH.ListUtils).CreateListOfDataTypes("NE", "NN", "MB", "SY", "ZY", "BE")
+	Set ..VerwachteMelamineKleuren = ##class(TECH.ListUtils).CreateListOfDataTypes("E1", "E2", "N1", "S", "W", "XG", "DA")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Indien geen kleur opgegeven krijgen we ook niks terug">
-<Implementation><![CDATA[	do $$$AssertEquals(..PlaatAfwerkingBepaler.GeefPlaatAfwerking(""),"")
+<Implementation><![CDATA[	Do $$$AssertEquals(..PlaatAfwerkingBepaler.GeefPlaatAfwerking(""), "")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Lade kleuren">
+<Method name="Test: LadeKleuren">
 <Implementation><![CDATA[
 	#dim Iterator As TECH.Iterator = ##class(DOM.PM.enu.TAORLadeKleur).ValueListIterator()
-	While Iterator.HasNext() {
-		Do ..AssertPlaatAfwerking(Iterator.Next())
+	
+	While (Iterator.HasNext()) {
+		#dim LadeKleur As DOM.PM.enu.TAORLadeKleur = Iterator.Next()
+		
+		Do ..AssertPlaatAfwerking(LadeKleur)
 	}
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Kantenband kleuren">
+<Method name="Test: BodemKleuren">
 <Implementation><![CDATA[
+	#dim Iterator As TECH.Iterator = ##class(DOM.PM.enu.TAORBodemKleur).ValueListIterator()
+	
+	While (Iterator.HasNext()) {
+		#dim BodemKleur As DOM.PM.enu.TAORBodemKleur = Iterator.Next()
+		
+		Do ..AssertPlaatAfwerking(BodemKleur)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: KantenbandKleuren">
+<Implementation><![CDATA[
 	#dim Iterator As TECH.Iterator = ##class(DOM.PM.enu.TAORKantenbandKleur).ValueListIterator()
-	While Iterator.HasNext() {
-		Do ..AssertPlaatAfwerking(Iterator.Next())
+	
+	While (Iterator.HasNext()) {
+		#dim KantenbandKleur As DOM.PM.enu.TAORKantenbandKleur = Iterator.Next()
+		
+		Do ..AssertPlaatAfwerking(KantenbandKleur)
 	}
 ]]></Implementation>
 </Method>
 
 <Method name="AssertPlaatAfwerking">
-<FormalSpec>Kleur:%CacheString</FormalSpec>
+<FormalSpec>Kleur:%CacheString,VerwachtePlaatAfwerking:DOM.PM.enu.TAORPlaatAfwerking</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim PlaatAfwerking As DOM.PM.enu.TAORPlaatAfwerking = ..PlaatAfwerkingBepaler.GeefPlaatAfwerking(Kleur)
+	#dim IsFineer As %Boolean = ##class(TECH.ListUtils).Contains(..VerwachteFineerKleuren, Kleur)
+	#dim IsMelamine As %Boolean = ##class(TECH.ListUtils).Contains(..VerwachteMelamineKleuren, 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")	
+	If ($$$Not(IsFineer) && $$$Not(IsMelamine)) {
+		Do ..Fail("Geen PlaatAfwerking gedefinieerd voor kleur '" _ Kleur _ "'.")
+	} Else {
+		If (##class(TECH.ListUtils).Contains(..VerwachteFineerKleuren, Kleur)) {
+			Do $$$AssertEquals(PlaatAfwerking, ..Enum.PlaatAfwerking.Fineer)
+		}
+		
+		If (##class(TECH.ListUtils).Contains(..VerwachteMelamineKleuren, Kleur)) {
+			Do $$$AssertEquals(PlaatAfwerking, ..Enum.PlaatAfwerking.Melamine)
+		}
 	}
-	
-	#dim StatusGeldigeWaarde As %Status = ##class(DOM.PM.enu.TAORPlaatAfwerking).IsValid(PlaatAfwerking)
-	
-	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/Calc/HF/impl/TAOR/PlaatAfwerkingBepaler.cls.xml
===================================================================
diff -u -r45448 -r50856
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/PlaatAfwerkingBepaler.cls.xml	(.../PlaatAfwerkingBepaler.cls.xml)	(revision 45448)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/PlaatAfwerkingBepaler.cls.xml	(.../PlaatAfwerkingBepaler.cls.xml)	(revision 50856)
@@ -3,19 +3,53 @@
 <Class name="DOM.PM.Maatwerk.Calc.HF.impl.TAOR.PlaatAfwerkingBepaler">
 <Super>TECH.Mockable</Super>
 
+<Property name="FineerKleuren">
+<Type>%ListOfDataTypes</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="MelamineKleuren">
+<Type>%ListOfDataTypes</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..FineerKleuren = ##class(TECH.ListUtils).CreateListOfDataTypes("NE", "NN", "ZY", "MB", "SY", "BE")
+	Set ..MelamineKleuren = ##class(TECH.ListUtils).CreateListOfDataTypes("E1", "E2", "N1", "S", "W", "XG", "DA")
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GeefPlaatAfwerking">
 <FormalSpec>Kleur:%String=""</FormalSpec>
 <ReturnType>DOM.PM.enu.TAORPlaatAfwerking</ReturnType>
 <Implementation><![CDATA[
+	#dim PlaatAfwerking As DOM.PM.enu.TAORPlaatAfwerking = ""
+
 	If $Length(Kleur) {
-		If ( Kleur = "NE" ) || ( Kleur = "NN" ) || ( Kleur = "ZY" ) || ( Kleur = "MB") || ( Kleur = "SY") {
+		If (##class(TECH.ListUtils).Contains(..FineerKleuren, Kleur)) {
+			Set PlaatAfwerking = ##class(DOM.PM.enu.TAORPlaatAfwerking).Fineer()
+		} ElseIf (##class(TECH.ListUtils).Contains(..MelamineKleuren, Kleur)) {
+			Set PlaatAfwerking = ##class(DOM.PM.enu.TAORPlaatAfwerking).Melamine()
+		}
+		
+		/*
+		If ((Kleur = "NE") || (Kleur = "NN") || (Kleur = "ZY") || (Kleur = "MB") || (Kleur = "SY") || (Kleur = "BE")) {
 			Quit ##class(DOM.PM.enu.TAORPlaatAfwerking).Fineer()
 		} Else {
 			Quit ##class(DOM.PM.enu.TAORPlaatAfwerking).Melamine()
-		}
-	} Else {
+		}*/
+	}/* Else {
 		Quit ""
-	}
+	}*/
+	
+	Quit PlaatAfwerking
 ]]></Implementation>
 </Method>
 </Class>