Index: vhTest/Dummy/DOM/PM/Maatwerk/LadeInfo/impl/TAX/Rug.cls.xml
===================================================================
diff -u -r30292 -r30851
--- vhTest/Dummy/DOM/PM/Maatwerk/LadeInfo/impl/TAX/Rug.cls.xml	(.../Rug.cls.xml)	(revision 30292)
+++ vhTest/Dummy/DOM/PM/Maatwerk/LadeInfo/impl/TAX/Rug.cls.xml	(.../Rug.cls.xml)	(revision 30851)
@@ -73,6 +73,16 @@
 	Quit ##class(TECH.ListUtils).CreateListOfObjects(RugPlaat)
 ]]></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(), 3)
+	quit Kleuren
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Dummy/DOM/PM/Maatwerk/LadeInfo/impl/TAX/Zijkant.cls.xml
===================================================================
diff -u -r30292 -r30851
--- vhTest/Dummy/DOM/PM/Maatwerk/LadeInfo/impl/TAX/Zijkant.cls.xml	(.../Zijkant.cls.xml)	(revision 30292)
+++ vhTest/Dummy/DOM/PM/Maatwerk/LadeInfo/impl/TAX/Zijkant.cls.xml	(.../Zijkant.cls.xml)	(revision 30851)
@@ -87,6 +87,17 @@
 	Quit ##class(TECH.ListUtils).CreateListOfObjects(ZijkantPlaat)
 ]]></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>
 </Class>
 
 
Index: vhTest/Dummy/DOM/PM/Maatwerk/LadeInfo/impl/TAX/Front.cls.xml
===================================================================
diff -u -r30292 -r30851
--- vhTest/Dummy/DOM/PM/Maatwerk/LadeInfo/impl/TAX/Front.cls.xml	(.../Front.cls.xml)	(revision 30292)
+++ vhTest/Dummy/DOM/PM/Maatwerk/LadeInfo/impl/TAX/Front.cls.xml	(.../Front.cls.xml)	(revision 30851)
@@ -67,6 +67,16 @@
 	Quit ##class(TECH.ListUtils).CreateListOfObjects(FrontPlaat)
 ]]></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(), 3)
+	quit Kleuren
+]]></Implementation>
+</Method>
 </Class>