Index: vhUnitTest/DOM/VKP/impl/OrderTotaalBerekenaar/Bereken/Test.cls.xml
===================================================================
diff -u -r29059 -r31393
--- vhUnitTest/DOM/VKP/impl/OrderTotaalBerekenaar/Bereken/Test.cls.xml	(.../Test.cls.xml)	(revision 29059)
+++ vhUnitTest/DOM/VKP/impl/OrderTotaalBerekenaar/Bereken/Test.cls.xml	(.../Test.cls.xml)	(revision 31393)
@@ -3,66 +3,91 @@
 <Class name="vhUnitTest.DOM.VKP.impl.OrderTotaalBerekenaar.Bereken.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test totaal bedrag met korting contant">
+<Property name="OrderID">
+<Type>%String</Type>
+<InitialExpression>"100001"</InitialExpression>
+<Private>1</Private>
+</Property>
+
+<Property name="Berekenaar">
+<Type>DOM.VKP.impl.OrderTotaalBerekenaar</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Klant">
+<Type>DOM.VKP.VanHoeckeKlant</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
-	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(vhTest.Data.DOM.VKP.VanHoeckeKlant).MaakBelgischeOnderneming()
-	Do Klant.ZetKortingContantPercentage(2)
-	Do Klant.Save()
-	#dim KlantCode As TECH.String = Klant.GeefCode()
+	do ##super()
 	
-	Set ^KOD(KlantCode,"F",100001,101) = "703000 \797668\2\\\24.86\0#0\8\49.72\49.72\703000 \L\\\110\49.72\KF0\\\\E1\EUR\\\63642\\\\\\\\\\\\\\\\\\\\\0\\\B"
-	Set ^KOD(KlantCode,"F",100001,102) = "703000 \926515\1\\\113.55\0#0\8\113.55\113.55\703000 \L\\\100\113.55\KF0\\\\E1\EUR\\\63642\\\\\\\\\\\\\\\\\\\\\0\\\B"
-	Do ##class(vhUnitTest.DataHelper).MaakOrderCompleet(KlantCode,100001)
-	
-	Set VerwachtOrderTotaal = ##class(DOM.VKP.dto.OrderTotaal).%New()
-	Set VerwachtOrderTotaal.TeBetalen = 193.6
-	Set VerwachtOrderTotaal.BTW = 33.6
-	Set VerwachtOrderTotaal.KortingContant = 3.27
-	Set VerwachtOrderTotaal.Goederen = 163.27
-	
-	Do ..AssertTeBetalenBedrag(100001,VerwachtOrderTotaal)
-	
-	Do ##class(vhUnitTest.DataHelper).VerwijderOrder(100001)
-	Do ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().VerwijderKlant(Klant.GeefID())
+	set ..Klant = ##class(vhTest.Data.DOM.VKP.VanHoeckeKlant).MaakBelgischeOnderneming()
+	do ..MaakOrder()
+	set ..Berekenaar = ##class(DOM.VKP.impl.OrderTotaalBerekenaar).%New()
 ]]></Implementation>
 </Method>
 
-<Method name="Test totaal bedrag zonder korting contant">
+<Method name="OnAfterAllTests">
 <Implementation><![CDATA[
-	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(vhTest.Data.DOM.VKP.VanHoeckeKlant).MaakBelgischeOnderneming()
-	Do Klant.ZetKortingContantPercentage(0)
-	Do Klant.Save()
-	#dim KlantCode As TECH.String = Klant.GeefCode()
-	
-	Set ^KOD(KlantCode,"F",100001,101) = "703000 \797668\2\\\24.86\0#0\8\49.72\49.72\703000 \L\\\110\49.72\KF0\\\\E1\EUR\\\63642\\\\\\\\\\\\\\\\\\\\\0\\\B"
-	Set ^KOD(KlantCode,"F",100001,102) = "703000 \926515\1\\\113.55\0#0\8\113.55\113.55\703000 \L\\\100\113.55\KF0\\\\E1\EUR\\\63642\\\\\\\\\\\\\\\\\\\\\0\\\B"
-	Do ##class(vhUnitTest.DataHelper).MaakOrderCompleet(KlantCode,100001)
-	
+	Do ##class(vhUnitTest.DataHelper).VerwijderOrder(..OrderID)
+	Do ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().VerwijderKlant(..Klant.GeefID())
+	do ##super()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Zonder korting contant">
+<Implementation><![CDATA[
 	Set VerwachtOrderTotaal = ##class(DOM.VKP.dto.OrderTotaal).%New()
 	Set VerwachtOrderTotaal.TeBetalen = 197.56
 	Set VerwachtOrderTotaal.BTW = 34.29
 	Set VerwachtOrderTotaal.KortingContant = 0
 	Set VerwachtOrderTotaal.Goederen = 163.27
 	
-	Do ..AssertTeBetalenBedrag(100001,VerwachtOrderTotaal)
+	#define GeenKortingContant 0
+	Do ..AssertTeBetalenBedrag($$$GeenKortingContant,VerwachtOrderTotaal)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Met korting contant">
+<Implementation><![CDATA[
+	Set VerwachtOrderTotaal = ##class(DOM.VKP.dto.OrderTotaal).%New()
+	Set VerwachtOrderTotaal.TeBetalen = 193.6
+	Set VerwachtOrderTotaal.BTW = 33.6
+	Set VerwachtOrderTotaal.KortingContant = 3.27
+	Set VerwachtOrderTotaal.Goederen = 163.27
 	
-	Do ##class(vhUnitTest.DataHelper).VerwijderOrder(100001)
-	Do ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().VerwijderKlant(Klant.GeefID())
+	#define KortingContant 2
+	Do ..AssertTeBetalenBedrag($$$KortingContant,VerwachtOrderTotaal)
 ]]></Implementation>
 </Method>
 
 <Method name="AssertTeBetalenBedrag">
-<FormalSpec>OrderNr:TECH.String,VerwachtOrderTotaal:DOM.VKP.dto.OrderTotaal</FormalSpec>
+<FormalSpec>KortingContantPercentage:TECH.Numeric,VerwachtOrderTotaal:DOM.VKP.dto.OrderTotaal</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set Berekenaar = ##class(DOM.VKP.impl.OrderTotaalBerekenaar).%New()
-	#dim Totaal As DOM.VKP.dto.OrderTotaal = Berekenaar.Bereken(OrderNr)
+	Do ..Klant.ZetKortingContantPercentage(KortingContantPercentage)
+	Do ..Klant.Save()
+	
+	#dim Totaal As DOM.VKP.dto.OrderTotaal = ..Berekenaar.Bereken(..OrderID)
 	Do $$$AssertEquals(Totaal.TeBetalen,VerwachtOrderTotaal.TeBetalen)
 	Do $$$AssertEquals(Totaal.BTW,VerwachtOrderTotaal.BTW)
 	Do $$$AssertEquals(Totaal.KortingContant,VerwachtOrderTotaal.KortingContant)
 	Do $$$AssertEquals(Totaal.Goederen,VerwachtOrderTotaal.Goederen)
 ]]></Implementation>
 </Method>
+
+<Method name="MaakOrder">
+<Private>1</Private>
+<Implementation><![CDATA[
+	do ##class(vhUnitTest.DataHelper).VerwijderOrder(..OrderID)
+	#dim KlantCode As TECH.String = ..Klant.GeefCode()
+	Set ^KOD(KlantCode,"F",..OrderID,101) = "703000 \797668\2\\\24.86\0#0\8\49.72\49.72\703000 \L\\\110\49.72\KF0\\\\E1\EUR\\\63642\\\\\\\\\\\\\\\\\\\\\0\\\B"
+	Set ^KOD(KlantCode,"F",..OrderID,102) = "703000 \926515\1\\\113.55\0#0\8\113.55\113.55\703000 \L\\\100\113.55\KF0\\\\E1\EUR\\\63642\\\\\\\\\\\\\\\\\\\\\0\\\B"
+	Do ##class(vhUnitTest.DataHelper).MaakOrderCompleet(KlantCode,..OrderID)
+]]></Implementation>
+</Method>
 </Class>