Index: vhUnitTest/DOM/VKP/impl/OrderTotaalBerekenaar/Bereken/Test.cls.xml
===================================================================
diff -u -r31393 -r31394
--- vhUnitTest/DOM/VKP/impl/OrderTotaalBerekenaar/Bereken/Test.cls.xml	(.../Test.cls.xml)	(revision 31393)
+++ vhUnitTest/DOM/VKP/impl/OrderTotaalBerekenaar/Bereken/Test.cls.xml	(.../Test.cls.xml)	(revision 31394)
@@ -22,7 +22,7 @@
 <Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
 	do ##super()
-	
+	do ##class(vhUnitTest.DOM.PM.TestData).%New().CreeerTestData(1000,1001)
 	set ..Klant = ##class(vhTest.Data.DOM.VKP.VanHoeckeKlant).MaakBelgischeOnderneming()
 	do ..MaakOrder()
 	set ..Berekenaar = ##class(DOM.VKP.impl.OrderTotaalBerekenaar).%New()
@@ -33,6 +33,7 @@
 <Implementation><![CDATA[
 	Do ##class(vhUnitTest.DataHelper).VerwijderOrder(..OrderID)
 	Do ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().VerwijderKlant(..Klant.GeefID())
+	do ##class(vhUnitTest.DOM.PM.TestData).%New().VerwijderTestData(1000,1001)
 	do ##super()
 ]]></Implementation>
 </Method>
@@ -83,8 +84,11 @@
 <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"
+	
+	
+	
+	Set ^KOD(KlantCode,"F",..OrderID,101) = "703000 \1000\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 \1001\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>