Index: vhLock.mac.rou
===================================================================
diff -u -r49108 -r50188
--- vhLock.mac.rou	(.../vhLock.mac.rou)	(revision 49108)
+++ vhLock.mac.rou	(.../vhLock.mac.rou)	(revision 50188)
@@ -61,26 +61,32 @@
  
  ;
 LDISP(LockNaam,Info) ; Waarschuwing gebruiker indien lock niet mogelijk
- New ResultSet,Status,LockJob,InfoLijn1,InfoLijn2
- Set ResultSet=##class(%ResultSet).%New("%SYS.LockQuery:List")
- Set Status = ResultSet.Execute()
- If 'Status w "Fout Rset.Execute() : "_$$ParseStatus^vhLib(Status)  
- 
- 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())
- Set FP=2301
- Write @F,@F1,@FMTI," ",InfoLijn1,"  [] = ok ",@FMTi
- If ($Length(InfoLijn2) > 0){
-	 Set FP=2401
-	 Write @F,@F1,@FMTI," ",InfoLijn2,@FMTi
+
+ If ##class(CHUI.Context).Instance().HeeftUserInterface() {
+	 New ResultSet,Status,LockJob,InfoLijn1,InfoLijn2
+	 Set ResultSet=##class(%ResultSet).%New("%SYS.LockQuery:List")
+	 Set Status = ResultSet.Execute()
+	 If 'Status w "Fout Rset.Execute() : "_$$ParseStatus^vhLib(Status)  
+	 
+	 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())
+	 Set FP=2301
+	 Write @F,@F1,@FMTI," ",InfoLijn1,"  [] = ok ",@FMTi
+	 If ($Length(InfoLijn2) > 0){
+		 Set FP=2401
+		 Write @F,@F1,@FMTI," ",InfoLijn2,@FMTi
+	 }
+	 Do IK^PROC1
+	 Quit:$G(zb)="ENTER"
+	 Set FP=2401 Write @F,@F1
+	 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)
  }
- Do IK^PROC1
- Quit:$G(zb)="ENTER"
- Set FP=2401 Write @F,@F1
- Do:$G(QW) ZWINT^vhRtn2(0)
+ 
  Quit
 
 GebruikerInfoJob(Job)
@@ -163,4 +169,3 @@
  
 
 
-