Index: vhUnitTest/Derde/Agenda/ToonzaalBezoek.cls.xml
===================================================================
diff -u -r1288 -r2159
--- vhUnitTest/Derde/Agenda/ToonzaalBezoek.cls.xml	(.../ToonzaalBezoek.cls.xml)	(revision 1288)
+++ vhUnitTest/Derde/Agenda/ToonzaalBezoek.cls.xml	(.../ToonzaalBezoek.cls.xml)	(revision 2159)
@@ -131,7 +131,9 @@
 	 set pxToonzaalBezoek.DerdeType = "K"
 	 set pxToonzaalBezoek.DerdeRef = 1000
 	 
-	 set pxToonzaalBezoek.Architect = 14438
+	 set pxToonzaalBezoek.Architect = ##class(BL.Derde.Agenda.pxArchitect).%New()
+	 set pxToonzaalBezoek.Architect.ID = 14438
+	 
 	 set pxToonzaalBezoek.AantalPersonenArchitect = 1
 	 
 	 set pxToonzaalBezoek.Eindgebruiker = ..EindgebruikerType1
@@ -177,7 +179,7 @@
  	 
  	 do $$$AssertEquals(pxToonzaalBezoek.Aanleiding,2,"Aanleiding")
  	 
- 	 do $$$AssertEquals(pxToonzaalBezoek.Architect,14438)
+ 	 do $$$AssertEquals(pxToonzaalBezoek.Architect.ID,14438)
 	 do $$$AssertEquals(pxToonzaalBezoek.AantalPersonenArchitect,1)
 	 
  	 do $$$AssertEquals(pxToonzaalBezoek.DerdeType,"K")
Index: vhUnitTest/APPS/common/KlantKost/TestBezoekKosten.cls.xml
===================================================================
diff -u -r1384 -r2159
--- vhUnitTest/APPS/common/KlantKost/TestBezoekKosten.cls.xml	(.../TestBezoekKosten.cls.xml)	(revision 1384)
+++ vhUnitTest/APPS/common/KlantKost/TestBezoekKosten.cls.xml	(.../TestBezoekKosten.cls.xml)	(revision 2159)
@@ -89,7 +89,9 @@
 	
 	Do KlantKostService.BerekenBezoekKlantKosten(Jaar,Maand)
 	
-	Kill TotaalKost,MaandKost
+	Set TotaalKost="TotaalKost niet berekend"
+	Set MaandKost="MaandKost niet berekend"
+	
 	&SQL(Select SUM(Kost) INTO :TotaalKost From APPS_common_KlantKost_impl_data.BezoekKostItem WHERE KlantNr = 1000 
 			AND DatePart('yy',Datum) = :Jaar
 			AND DatePart('mm',Datum) = :Maand