Index: vhTest/Utils/AXimpl/PM/Maatwerk/TaxKenmerken.cls.xml
===================================================================
diff -u -r53602 -r53616
--- vhTest/Utils/AXimpl/PM/Maatwerk/TaxKenmerken.cls.xml	(.../TaxKenmerken.cls.xml)	(revision 53602)
+++ vhTest/Utils/AXimpl/PM/Maatwerk/TaxKenmerken.cls.xml	(.../TaxKenmerken.cls.xml)	(revision 53616)
@@ -127,6 +127,8 @@
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
 	#dim TaxKenmerken As %ListOfObjects = ..StandaardLade()
+	#dim RugHoogte As DOM.PM.enu.TAORRugHoogte = ##class(DOM.PM.enu.TAORRugHoogte).M()
+	#dim RugWandMateriaal As %String = "Hout"
 	
 	Do ..VoegToeKenmerk("CorpusBreedte", "674", TaxKenmerken)
 	Do ..VoegToeKenmerk("Toepassing", ##class(DOM.PM.enu.TAORToepassing).Sifon(), TaxKenmerken)
@@ -135,15 +137,15 @@
 	Do ..VoegToeKenmerk("UitsparingData_M_Hoogte", "", TaxKenmerken)
 	Do ..VoegToeKenmerk("UitsparingData_M_Materiaal", "", TaxKenmerken)
 	Do ..VoegToeKenmerk("UitsparingData_X_Breedte", "205", TaxKenmerken)
-	Do ..VoegToeKenmerk("UitsparingData_X_Hoogte", ##class(DOM.PM.enu.TAORRugHoogte).M(), TaxKenmerken)
-	Do ..VoegToeKenmerk("UitsparingData_X_Materiaal", "Hout", TaxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_X_Hoogte", RugHoogte, TaxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_X_Materiaal", RugWandMateriaal, TaxKenmerken)
 	Do ..VoegToeKenmerk("UitsparingData_Y_Breedte", "195", TaxKenmerken)
-	Do ..VoegToeKenmerk("UitsparingData_Y_Hoogte", ##class(DOM.PM.enu.TAORRugHoogte).M(), TaxKenmerken)
-	Do ..VoegToeKenmerk("UitsparingData_Y_Materiaal", "Hout", TaxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_Y_Hoogte", RugHoogte, TaxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_Y_Materiaal", RugWandMateriaal, TaxKenmerken)
 	Do ..VoegToeKenmerk("UitsparingData_Z1_Breedte", "274", TaxKenmerken)
 	Do ..VoegToeKenmerk("UitsparingData_Z1_Diepte", "250", TaxKenmerken)
-	Do ..VoegToeKenmerk("UitsparingData_Z1_Hoogte", ##class(DOM.PM.enu.TAORRugHoogte).M(), TaxKenmerken)
-	Do ..VoegToeKenmerk("UitsparingData_Z1_Materiaal", "Hout", TaxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_Z1_Hoogte", RugHoogte, TaxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_Z1_Materiaal", RugWandMateriaal, TaxKenmerken)
 	Do ..VoegToeKenmerk("UitsparingData_Z1_Vorm", "Recht", TaxKenmerken)
 	Do ..VoegToeKenmerk("UitsparingData_Z2_Breedte", "0", TaxKenmerken)
 	Do ..VoegToeKenmerk("UitsparingData_Z2_Diepte", "0", TaxKenmerken)
@@ -162,28 +164,33 @@
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
 	#dim TaxKenmerken As %ListOfObjects = ..StandaardLade()
+	#dim RugHoogte As DOM.PM.enu.TAORRugHoogte = ##class(DOM.PM.enu.TAORRugHoogte).M()
+	#dim RugWandMateriaal As %String = "Hout"
 	
-	Do ..VoegToeKenmerk("CorpusBreedte", "958", TaxKenmerken)
 	Do ..VoegToeKenmerk("Toepassing", ##class(DOM.PM.enu.TAORToepassing).Sifon(), TaxKenmerken)
+	Do ..VoegToeKenmerk("LadeHoogte", ##class(DOM.PM.enu.TAORLadeHoogte).C(), TaxKenmerken)
+	Do ..VoegToeKenmerk("RugHoogte", RugHoogte, TaxKenmerken)
+	Do ..VoegToeKenmerk("CorpusBreedte", "958", TaxKenmerken)
+	
 	Do ..VoegToeKenmerk("UitsparingData_UitsparingAantal", ##class(DOM.PM.enu.AantalUitsparingen).Dubbel(), TaxKenmerken)
 	Do ..VoegToeKenmerk("UitsparingData_M_Breedte", "160", TaxKenmerken)
-	Do ..VoegToeKenmerk("UitsparingData_M_Hoogte", ##class(DOM.PM.enu.TAORRugHoogte).M(), TaxKenmerken)
-	Do ..VoegToeKenmerk("UitsparingData_M_Materiaal", "Hout", TaxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_M_Hoogte", RugHoogte, TaxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_M_Materiaal", RugWandMateriaal, TaxKenmerken)
 	Do ..VoegToeKenmerk("UitsparingData_X_Breedte", "210", TaxKenmerken)
-	Do ..VoegToeKenmerk("UitsparingData_X_Hoogte", ##class(DOM.PM.enu.TAORRugHoogte).M(), TaxKenmerken)
-	Do ..VoegToeKenmerk("UitsparingData_X_Materiaal", "Hout", TaxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_X_Hoogte", RugHoogte, TaxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_X_Materiaal", RugWandMateriaal, TaxKenmerken)
 	Do ..VoegToeKenmerk("UitsparingData_Y_Breedte", "190", TaxKenmerken)
-	Do ..VoegToeKenmerk("UitsparingData_Y_Hoogte", ##class(DOM.PM.enu.TAORRugHoogte).M(), TaxKenmerken)
-	Do ..VoegToeKenmerk("UitsparingData_Y_Materiaal", "Hout", TaxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_Y_Hoogte", RugHoogte, TaxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_Y_Materiaal", RugWandMateriaal, TaxKenmerken)
 	Do ..VoegToeKenmerk("UitsparingData_Z1_Breedte", "274", TaxKenmerken)
 	Do ..VoegToeKenmerk("UitsparingData_Z1_Diepte", "300", TaxKenmerken)
-	Do ..VoegToeKenmerk("UitsparingData_Z1_Hoogte", ##class(DOM.PM.enu.TAORRugHoogte).M(), TaxKenmerken)
-	Do ..VoegToeKenmerk("UitsparingData_Z1_Materiaal", "Hout", TaxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_Z1_Hoogte", RugHoogte, TaxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_Z1_Materiaal", RugWandMateriaal, TaxKenmerken)
 	Do ..VoegToeKenmerk("UitsparingData_Z1_Vorm", "Recht", TaxKenmerken)
 	Do ..VoegToeKenmerk("UitsparingData_Z2_Breedte", "124", TaxKenmerken)
 	Do ..VoegToeKenmerk("UitsparingData_Z2_Diepte", "300", TaxKenmerken)
-	Do ..VoegToeKenmerk("UitsparingData_Z2_Hoogte", ##class(DOM.PM.enu.TAORRugHoogte).M(), TaxKenmerken)
-	Do ..VoegToeKenmerk("UitsparingData_Z2_Materiaal", "Hout", TaxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_Z2_Hoogte", RugHoogte, TaxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_Z2_Materiaal", RugWandMateriaal, TaxKenmerken)
 	Do ..VoegToeKenmerk("UitsparingData_Z2_Vorm", "Recht", TaxKenmerken)
 	
 	Do ..ZetDefaultNietMeeleverenKenmerken(TaxKenmerken)