Index: Derde/EC/Toegang.cls.xml
===================================================================
diff -u -r1074 -r2170
--- Derde/EC/Toegang.cls.xml	(.../Toegang.cls.xml)	(revision 1074)
+++ Derde/EC/Toegang.cls.xml	(.../Toegang.cls.xml)	(revision 2170)
@@ -182,7 +182,7 @@
 	Set KlantNr=""
 	If PersID Do
 	. Set objPers=##class(Derde.Klant.Persoon).OpenViaPersID(PersID)
-	. Quit:'$isObject(objPers)
+	. Quit:'$isObject(objPers) 
 	. Set KlantNr=objPers.Derde.%Id()
 	If 'KlantNr Do ; Speciaal, niet gekoppeld aan een Persoon van een klant dan wordt de eerste genomen van prop Klanten
 	. Set KlantNr=$S(Klanten.Count()=0:"",1:Klanten.GetAt(1))
@@ -227,8 +227,8 @@
 	Set EmailAdres=""
 	If PersID Do
 	. Set objPers=##class(Derde.Klant.Persoon).OpenViaPersID(PersID)
-	. if $IsObject(objPers) do 
-	. . For I=1:1:5 Set:$zObjProperty(objPers,"ConType"_I)="E" EmailAdres=$zobjProperty(objPers,"ConRef"_I)
+	. Quit:('$IsObject(objPers))
+	. For I=1:1:5 Set:$zObjProperty(objPers,"ConType"_I)="E" EmailAdres=$zobjProperty(objPers,"ConRef"_I)
 	If EmailAdres="" Do ; Speciaal, niet gekoppeld aan een Persoon van een klant
 	. Set EmailAdres=..EmailAdres