Index: vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/BaseTAOR.cls.xml
===================================================================
diff -u -r30335 -r31399
--- vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/BaseTAOR.cls.xml	(.../BaseTAOR.cls.xml)	(revision 30335)
+++ vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/BaseTAOR.cls.xml	(.../BaseTAOR.cls.xml)	(revision 31399)
@@ -8,35 +8,39 @@
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</ReturnType>
 <Implementation><![CDATA[
-	Set TAORKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
+	
 	Set TAORKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Volledig()
-	Do TAORKenmerken.NietMeeleveren.Insert("Zijkant")
-	Do TAORKenmerken.NietMeeleveren.Insert("Bodem")
-	Do TAORKenmerken.Onderdelen.Insert("Rug")
-	Do TAORKenmerken.Onderdelen.Insert("Glijder")
 	Set TAORKenmerken.Draagkracht = 30
 	Set TAORKenmerken.LadeBinnenKleur = ##class(DOM.PM.enu.TAORLadeKleur).NatuurNotenhout()
 	Set TAORKenmerken.LadeKleur = ##class(DOM.PM.enu.TAORLadeKleur).NatuurNotenhout()
 	Set TAORKenmerken.BodemKleur = ##class(DOM.PM.enu.TAORBodemKleur).NatuurEikenhout()
 	Set TAORKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).N()
 	Set TAORKenmerken.CorpusBinnenbreedte = 625
-	Set TAORKenmerken.IsBinnenlade = 1
+	Set TAORKenmerken.IsBinnenlade = $$$True
 	Set TAORKenmerken.LadeDiepte = 350
-	Set TAORKenmerken.HeeftOpvullijstLinks =0
-	Set TAORKenmerken.HeeftOpvullijstRechts = 1
-	Set TAORKenmerken.HeeftTipon = 0
-	Set TAORKenmerken.HeeftZijstabilisering = 1
+	Set TAORKenmerken.HeeftOpvullijstLinks = $$$False
+	Set TAORKenmerken.HeeftOpvullijstRechts = $$$True
+	Set TAORKenmerken.HeeftTipon = $$$False
+	Set TAORKenmerken.HeeftZijstabilisering = $$$True
 	Set TAORKenmerken.GUIKenmerken.WandDikte = 18
-	Set TAORKenmerken.GUIKenmerken.IsBinnenbreedte = 0
+	Set TAORKenmerken.GUIKenmerken.IsBinnenbreedte = $$$False
 	Set TAORKenmerken.GlijderType = ##class(DOM.PM.enu.TAORGlijderType).Movento()
 	Set TAORKenmerken.Uittrekbaarheid = ##class(DOM.PM.enu.TAORUittrekbaarheid).Volledig()
 	Set TAORKenmerken.VerpakkingType = "VerpakkingType"
-	Set TAORKenmerken.HeeftDiepteVerstelling = 0
+	Set TAORKenmerken.HeeftDiepteVerstelling = $$$False
 	Set TAORKenmerken.FrontBevestiging = ##class(DOM.PM.enu.TAORFrontBevestiging).Schroef()
 	Set TAORKenmerken.OpvullijstKleur = ##class(DOM.PM.enu.TAOROpvullijstKleur).Zwart()
 	Set TAORKenmerken.FrontEindkapKleur = ##class(DOM.PM.enu.TAORFrontEindkapKleur).AluminiumLook()
 	Set TAORKenmerken.AfdekkapBovenKleur = ##class(DOM.PM.enu.TAORAfdekkapBovenKleur).AluminiumLook()
 	Set TAORKenmerken.KoppelingType = ##class(DOM.PM.enu.TAORKoppelingType).Drevel()
+	
+	Do TAORKenmerken.NietMeeleveren.Insert("Zijkant")
+	Do TAORKenmerken.NietMeeleveren.Insert("Bodem")
+	
+	Do TAORKenmerken.Onderdelen.Insert("Rug")
+	Do TAORKenmerken.Onderdelen.Insert("Glijder")
+	
 	Quit TAORKenmerken
 ]]></Implementation>
 </Method>