Index: vhUnitTest/APPS/EC/impl/TestWinkelkarPrijsUpdater.cls.xml
===================================================================
diff -u -r29059 -r30503
--- vhUnitTest/APPS/EC/impl/TestWinkelkarPrijsUpdater.cls.xml	(.../TestWinkelkarPrijsUpdater.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/EC/impl/TestWinkelkarPrijsUpdater.cls.xml	(.../TestWinkelkarPrijsUpdater.cls.xml)	(revision 30503)
@@ -5,21 +5,24 @@
 
 <Method name="TestHerrekenen">
 <Implementation><![CDATA[
-	Set Winkelkar = ##class(DOM.EC.Winkelkar.Winkelkar).%New("Unittest")
-	Do Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).VanHoecke())
-	Do Winkelkar.ZetKlantID("K||1000")
-	Set MaatwerkLijn = ##class(DOM.EC.Winkelkar.MaatwerkLijn).%New()
-	Do MaatwerkLijn.ZetAantal(2)
-	Do MaatwerkLijn.ZetIngegevenKenmerken(##class(vhUnitTest.DOM.PM.Maatwerk.HF.Data).GeefTAORKenmerken())
-	Do MaatwerkLijn.ZetEenheidPrijsNettoExclBTW(1)
-	Do MaatwerkLijn.ZetTotaalPrijs(2)
-	Do Winkelkar.VoegToe(MaatwerkLijn)
-	Do $$$AssertEquals(MaatwerkLijn.GeefTotaalPrijs(),2)
+	#dim MaatwerkLijn As DOM.EC.Winkelkar.MaatwerkLijn = ##class(DOM.EC.Winkelkar.MaatwerkLijn).%New()
+	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ##class(DOM.EC.Winkelkar.Winkelkar).%New("Unittest")
+	#dim Updater As APPS.EC.impl.WinkelkarPrijsUpdater = ##class(APPS.EC.impl.WinkelkarPrijsUpdater).%New()
 	
-	Set Updater = ##class(APPS.EC.impl.WinkelkarPrijsUpdater).%New()
-	Do Updater.Herbereken(Winkelkar)
+	do MaatwerkLijn.ZetAantal(2)
+	do MaatwerkLijn.ZetIngegevenKenmerken(##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade())
+	do MaatwerkLijn.ZetEenheidPrijsNettoExclBTW(1)
+	do MaatwerkLijn.ZetTotaalPrijs(2)
+
+	do $$$AssertEquals(MaatwerkLijn.GeefTotaalPrijs(),2)
 	
-	Do $$$AssertTrue(MaatwerkLijn.GeefTotaalPrijs()>2, "De prijs werd herrekend")
+	do Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).VanHoecke())
+	do Winkelkar.ZetKlantID("K||1000")
+	do Winkelkar.VoegToe(MaatwerkLijn)
+		
+	do Updater.Herbereken(Winkelkar)
+	
+	do $$$AssertTrue((MaatwerkLijn.GeefTotaalPrijs() > 2), "De prijs werd herrekend")
 ]]></Implementation>
 </Method>
 </Class>