Index: vhLock.mac.rou
===================================================================
diff -u -r54016 -r59821
--- vhLock.mac.rou	(.../vhLock.mac.rou)	(revision 54016)
+++ vhLock.mac.rou	(.../vhLock.mac.rou)	(revision 59821)
@@ -67,6 +67,8 @@
 	 Set ResultSet=##class(%ResultSet).%New("%SYS.LockQuery:List")
 	 Set Status = ResultSet.Execute()
 	 If 'Status w "Fout Rset.Execute() : "_$$ParseStatus^vhLib(Status)  
+	 Do ResultSet.Close()
+	 Set ResultSet = ""
 	 
 	 Set LockJob = $$LOCKJOB(LockNaam) 
 	 If $G(Info)="" Set Info="Bestand "_LockNaam
@@ -85,6 +87,18 @@
 	 Do:$G(QW) ZWINT^vhRtn2(0)
  } else {
 	 Do ##class(vhLib.Logger).%New().Warning("LDSIP","Er is een lock '" _LockNaam _"' opgetreden en er is geen CHUI beschikbaar om een melding te geven. Mogelijks vangt de code zelf de lock op en onderneemt deze de nodige acties." _$C(13,10) _Info)
+	 
+	 New ResultSet,Status,LockJob,InfoLijn1,InfoLijn2
+	 Set ResultSet=##class(%ResultSet).%New("%SYS.LockQuery:List")
+	 Set Status = ResultSet.Execute()
+	 ;If 'Status  ?Write? "Fout Rset.Execute() : "_$$ParseStatus^vhLib(Status)  
+	 Do ResultSet.Close()
+	 Set ResultSet = ""
+	 Set LockJob = $$LOCKJOB(LockNaam) 
+	 If $G(Info)="" Set Info="Bestand "_LockNaam
+	 Set InfoLijn1=Info_" in gebruik"
+	 Set InfoLijn2 = $$GebruikerInfoJob(LockJob)
+	 Do ##class(vhLib.Logger).%New().Warning("LDISP",InfoLijn1_$C(13,10)_InfoLijn2_$C(13,10)_$$GetStackToString^vhLib.System())
  }
  
  Quit