Index: vhUnitTest/DOM/PM/Maatwerk/HF/CreateDataTBX.cls.xml
===================================================================
diff -u -r734 -r915
--- vhUnitTest/DOM/PM/Maatwerk/HF/CreateDataTBX.cls.xml	(.../CreateDataTBX.cls.xml)	(revision 734)
+++ vhUnitTest/DOM/PM/Maatwerk/HF/CreateDataTBX.cls.xml	(.../CreateDataTBX.cls.xml)	(revision 915)
@@ -1,10 +1,10 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:12">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-18 11:07:07">
 <Class name="vhUnitTest.DOM.PM.Maatwerk.HF.CreateDataTBX">
 <IncludeCode>TECH.Error</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62115,48373.41336</TimeChanged>
+<TimeChanged>62140,40086.313695</TimeChanged>
 <TimeCreated>62012,63523.617197</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -38,12 +38,12 @@
 	;Set TBX.DesignCode="S"
 	;Set TBX.LadeDesign="GS"
 	Set TBX.ZijkantKleur="MG"       ; LadeKleur = Kleur zijwand + ... 
-	Set TBX.FronthouderKleur="MG"
-	Set TBX.RughouderKleur="MG"
+	Set TBX.FrontHouderKleur="MG"
+	Set TBX.RugHouderKleur="MG"
 	Set TBX.Draagkracht=30
 	Set TBX.LadeDiepte=500
-	Set TBX.LadeBreedte=863
-	Set TBX.LadeType="L"
+	Set TBX.InbouwBreedte=863
+	Set TBX.IsBinnenLade=0
 	Set TBX.Uittrekbaarheid="V"
 	Set TBX.ZijkantHoogte="M"
 	Set TBX.ZijwandHoogte="D"
@@ -53,7 +53,7 @@
 	Set TBX.BodemKleur="UTLG"       ; = UnitTest LichtGrijs 
 	Set TBX.RugHoogte="D"
 	Set TBX.RugKleur="UTLG"       ; = UnitTest LichtGrijs 
-	Set TBX.RugMateriaal="H"
+	Set TBX.RugMateriaal=##class(DOM.PM.enu.TBXRugMateriaal).Hout()
 	
 	// Calculated Properties 
 	;Set TBX.CorpusBinnenmaat=863
@@ -77,12 +77,12 @@
 	;Set TBX.DesignCode="I"
 	;Set TBX.LadeDesign="WI"
 	Set TBX.ZijkantKleur="SW"       ; LadeKleur = Kleur zijwand + ... 
-	Set TBX.FronthouderKleur="SW"
-	Set TBX.RughouderKleur="SW"
+	Set TBX.FrontHouderKleur="SW"
+	Set TBX.RugHouderKleur="SW"
 	Set TBX.Draagkracht=30
 	Set TBX.LadeDiepte=500
-	Set TBX.LadeBreedte=863
-	Set TBX.LadeType="B"
+	Set TBX.InbouwBreedte=863
+	Set TBX.IsBinnenLade=1
 	Set TBX.Uittrekbaarheid="V"
 	Set TBX.ZijkantHoogte="L"
 	Set TBX.ZijwandHoogte="C"
@@ -93,7 +93,7 @@
 	Set TBX.BodemKleur="UTLG"       ; = UnitTest LichtGrijs 
 	Set TBX.RugHoogte="C"
 	Set TBX.RugKleur="UTLG"       ; = UnitTest LichtGrijs 
-	Set TBX.RugMateriaal="H"
+	Set TBX.RugMateriaal=##class(DOM.PM.enu.TBXRugMateriaal).Hout()
 	
 	// Calculated Properties 
 	;Set TBX.CorpusBinnenmaat=863
@@ -131,13 +131,13 @@
 	;Set TBX.DesignCode="A"
 	;Set TBX.LadeDesign="WA"
 	Set TBX.ZijkantKleur="SW"       ; LadeKleur = Kleur zijwand + ... 
-	Set TBX.FronthouderKleur="SW"
-	Set TBX.RughouderKleur="SW"
+	Set TBX.FrontHouderKleur="SW"
+	Set TBX.RugHouderKleur="SW"
 	Set TBX.RelingKleur="SW"
 	Set TBX.Draagkracht=30
 	Set TBX.LadeDiepte=500
-	Set TBX.LadeBreedte=863
-	Set TBX.LadeType="L"
+	Set TBX.InbouwBreedte=863
+	Set TBX.IsBinnenLade = 0
 	Set TBX.Uittrekbaarheid="V"
 	Set TBX.ZijkantHoogte="M"
 	Set TBX.ZijwandHoogte="B"
@@ -147,7 +147,7 @@
 	Set TBX.BodemKleur="UTLG"       ; = UnitTest LichtGrijs 
 	Set TBX.RugHoogte="B"
 	Set TBX.RugKleur="UTLG"       ; = UnitTest LichtGrijs 
-	Set TBX.RugMateriaal="H"
+	Set TBX.RugMateriaal=##class(DOM.PM.enu.TBXRugMateriaal).Hout()
 	
 	// Calculated Properties 
 	;Set TBX.CorpusBinnenmaat=863
@@ -314,5 +314,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="2764836396"/>
+<Checksum value="2513577808"/>
 </Export>