Index: vhUnitTest/APPS/common/KlantKost/TestOrderIngaveLoonKost.cls.xml
===================================================================
diff -u -r33028 -r40129
--- vhUnitTest/APPS/common/KlantKost/TestOrderIngaveLoonKost.cls.xml	(.../TestOrderIngaveLoonKost.cls.xml)	(revision 33028)
+++ vhUnitTest/APPS/common/KlantKost/TestOrderIngaveLoonKost.cls.xml	(.../TestOrderIngaveLoonKost.cls.xml)	(revision 40129)
@@ -17,6 +17,8 @@
 <Method name="OnBeforeAllTests">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	Do ##super()
+	
 	#dim Status As %Status = $$$OK
 	
 	Do ##class(vhUnitTest.DOM.PM.TestData).%New().CreeerTestData(1001,1019)
@@ -43,7 +45,8 @@
 	Set ^KFA("F",4,"U342757",103)	= 	"703000 \1018\20\\\0.70\0#\8\14.00\14.00\703000 \L\\\200\14.00\KF6\\\\E1\EUR\\\58725\\\\58725\\\14\5.868\14\\\\\\\1\1\\\\0\\"
 	Set ^KFA("F",4,"U342757",104)	= 	"703000 \1019\20\\\0.70\0#\8\14.00\14.00\703000 \L\\\200\14.00\KF6\\\\E1\EUR\\\58725\\\\58725\\\14\5.868\14\\\\\\\1\1\\\\0\\"
 	
-	
+	#dim FactuurID As %Integer
+	#dim DatumHulp As %String
 	For FactuurID = 2:1:4 {
 		Set DatumHulp = "21.10.01"
 		Set ..Datum = ##class(TECH.DateTime).TextToDate(DatumHulp)
@@ -65,6 +68,7 @@
 	Kill ^KFAP("F",1)
 	Kill ^KFAP1("F",1000,-..Datum,1)
 	
+	#dim FactuurID As %Integer
 	For FactuurID = 2:1:4 {
 		Kill ^KFA("F",FactuurID)
 		Kill ^KFA1("F",1000,-..Datum,FactuurID)
@@ -76,6 +80,8 @@
 	
 	Do ##class(vhUnitTest.DOM.PM.TestData).%New().VerwijderTestData(1001,1019)
 	
+	Do ##super()
+	
 	Quit Status
 ]]></Implementation>
 </Method>