O7: #ER = 11022 Trapping the close event in XP

Wizardcompserv at aol.com Wizardcompserv at aol.com
Wed Apr 15 04:43:06 EDT 2009

In a message dated 15/04/2009 09:27:40 GMT Daylight Time,  
Stephen.Miller at isofthealth.com writes:

Is there  anyone out there who can get this to work in  this

It works fine for me on XP and Vista following is the code I have in  my 
application control procedure - this checks to see if the user is on the  
'front screen' of the application and if not does  not allow them to close  the 
I hope this helps
If #ER=11009
OK message (High  position,Sound bell) {You have not logged  on}
Quit  Omnis
End If
If  sys(50)<>'wmenu'
Call procedure m_language/30  ('120') {Find Message}
OK message (High position,Sound  bell) {[ML_TEXT]}     ;; Use Quit on the 
File Menu to  close
SNA remain on current field
Test for  menu line enabled Main Menu/0 {&File}
If flag  true
Call procedure Main Menu/17  {[S3MENU062] \q}
If flag  false
SNA perform a  Cancel
End If
SNA perform a Cancel
End If
End If
End  If
Wendy Osbaldestin
Wizard Computer Services
Tel:  01260271647
Mobile: 07740541021
Web Site: _www.wizardcompserv.co.uk_ (http://www.wizardcompserv.co.uk/) 

More information about the omnisdev-en mailing list