Index: vhUnitTest/APPS/common/KlantKost/TestMonsterKosten.cls.xml
===================================================================
diff -u -r29059 -r40193
--- vhUnitTest/APPS/common/KlantKost/TestMonsterKosten.cls.xml	(.../TestMonsterKosten.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/common/KlantKost/TestMonsterKosten.cls.xml	(.../TestMonsterKosten.cls.xml)	(revision 40193)
@@ -1,20 +1,18 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.APPS.common.KlantKost.TestMonsterKosten">
-<Description>
-Do ##class(vhUnitTest.Manager).RunTest("","APPS.common.KlantKost.TestMonsterKosten")</Description>
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
 
 <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")
 	
@@ -35,12 +33,9 @@
 	Set ^KFAP("F",1,"U358178",105)="703000 \165716\2\\\1.28\20#\8\2.56\2.56\703000 \L\\F\500\2.56\KF6\\\\E1\EUR\\\09/42\\\\\\\\1.5342\\\\\\\\1\1\\\\1"
 	Set ^KFAP("F",1,"U358178",106)="703100 \499069\1\\\96.07\20#\8\96.07\96.07\703100 \L\\F\600\96.07\KF6\\\\E1\EUR\\1\09/42\\\KOM\\\\\59.3424\\\\\\\\1\1\\\\1"	
 	
-	
-	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)=""
-	
-	Quit Status
 ]]></Implementation>
 </Method>
 
@@ -58,9 +53,9 @@
 <Implementation><![CDATA[
 	Set KlantKostService = ##class(APPS.common.KlantKost.impl.KlantKostService).%New()
 	
-	Set Jaar = 2001
-	Set Maand = 10
-	Set KostType = ##class(APPS.common.KlantKost.enu.KostType).Monster()
+	#dim Jaar As %Integer = 2001
+	#dim Maand As %Integer = 10
+	#dim KostType As APPS.common.KlantKost.enu.KostType = ##class(APPS.common.KlantKost.enu.KostType).Monster()
 	
 	Do KlantKostService.BerekenMonsterKlantKosten(Jaar,Maand)