Index: vhUnitTest/APPS/common/KlantKost/TestDoorgerekendeKosten.cls.xml
===================================================================
diff -u -r29059 -r40133
--- vhUnitTest/APPS/common/KlantKost/TestDoorgerekendeKosten.cls.xml	(.../TestDoorgerekendeKosten.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/common/KlantKost/TestDoorgerekendeKosten.cls.xml	(.../TestDoorgerekendeKosten.cls.xml)	(revision 40133)
@@ -1,45 +1,42 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.APPS.common.KlantKost.TestDoorgerekendeKosten">
-<Description>
-Do ##class(vhUnitTest.Manager).RunTest("","APPS.common.KlantKost.TestDoorgerekendeKosten")</Description>
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
 
-<Property name="Datum">
-<Type>%Date</Type>
-</Property>
-
 <Parameter name="Type">
 <Type>%String</Type>
 <Default>I</Default>
 </Parameter>
 
+<Property name="Datum">
+<Type>%Date</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeAllTests">
-<ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set Status = $$$OK
+	Do ##super()
 	
 	Do ##class(DOM.DomeinContext).Instance().PushVerkoopAPIClassName("vhUnitTest.APPS.common.KlantKost.DataMKlantAPI")
 	
 	/// Opzetten KFAP
 	Set ^KFAP("F",1,0,0) = "1000\F\13.10.01\1\EUR\13.10.01\0\0\0\0\0\0\0\0\\\8#10.00\\\\\\\\\\"
-	Set DatumHulp = "13.10.01"
+	#dim DatumHulp As %String = "13.10.01"
 	Set ..Datum = ##class(TECH.DateTime).TextToDate(DatumHulp)
 	Set ^KFAP1("F",1000,-..Datum,1)=""
 	
 	
 	Set ^KFA("F",2,0,0)	= 	"15390\F\21.10.01\1\EUR\21.10.01\35.61\35.61\7.48\0.00\0.00\43.09\0\43.09\\1\8#2.20\\\\\\\\\\"
-	Set ^KFA("F",3,0,0) ="5031\F\21.10.01\1\EUR\21.10.01\14.00\13.72\2.88\0.00\0.00\16.88\.28\16.88\\\8#5.30\\\\\\\\\\"
+	Set ^KFA("F",3,0,0) =	"5031\F\21.10.01\1\EUR\21.10.01\14.00\13.72\2.88\0.00\0.00\16.88\.28\16.88\\\8#5.30\\\\\\\\\\"
 	
-	For FactuurID = 2:1:3 {
+	#dim FactuurID As %Integer 
+	for FactuurID = 2:1:3 {
 		Set DatumHulp = "21.10.01"
 		Set ..Datum = ##class(TECH.DateTime).TextToDate(DatumHulp)
 		Set ^KFA1("F",1000,-..Datum,FactuurID)=""
 	}
-	
-	Quit Status
 ]]></Implementation>
 </Method>
 
@@ -54,7 +51,8 @@
 		Kill ^KFA("F",FactuurID)
 		Kill ^KFA1("F",1000,-..Datum,FactuurID)
 	}
-	Quit $$$OK
+	
+	Do ##super()
 ]]></Implementation>
 </Method>