>>I have a hard time trying to digest the spaghetti - I'm afraid it won't
>
>
>The question is - why it does not even write to a log 'Entering Cleanup' ?

(1) oAppObj is not an object ?
or
(2) on shutdown is not set to do CleanUp

>
>>___________________________
>>>>>My CleanUp procedure does not seem to run when I try to shutdown the application and I see an error that this application prevents shutdown...
>>>>
>>>>Of course it doesn't - you reset the 'on shutdown' to default at the end ...
>>>>

>>>>>      on shutdown
>>>>>   endif
>>>>>endif
>>>>

>>>>
>>>I removed that code, but it still does not work. I see my messagebox if I add it to Shutdown procedure, but I don't see log file, etc.
>>>Also, DBC files are still there, not deleted.
>>>
>>>

>>>procedure CleanUp
>>>local loError, i, j
>>>
>>>IF VARTYPE(m.oAppObj) = 'O'
>>>  oAppObj.write_log('Entering ...'  ,program(),'1')
>>>endif  
>>>on shutdown
>>>ON ERROR 
>>>if vartype(oAppObj) <> 'O'
>>>   quit
>>>endif
>>>
>>>TRY
>>>
>>>   FOR lnI = _screen.Forms.Count TO 1 STEP - 1
>>>   			oAppObj.write_log('Releasing form ' + _screen.Forms[m.lnI].name,program(),'2')
>>>       _screen.Forms[m.lnI].Release()
>>>   NEXT     
>>>
>>>   if !empty(oAppObj.SQLHandle)  &&release your connection(s)...
>>>      sqldisconnect(0)
>>>   endif
>>>   close databases all
>>>   SET DATABASE TO 
>>>   if vartype(oAppObj) = 'O'
>>>      if file(oAppObj.cImagesDBC +".DBC")
>>>         delete database (oAppObj.cImagesDBC)
>>>      endif
>>>   endif
>>>
>>>catch to loError
>>>   oAppObj.write_log('Error occurred in the CleanUp procedure: ' + loError.message,program(),'1')
>>>endtry
>>>
>>>local lcFileName
>>>local array laRV[1]
>>>
>>>try
>>>   i = adir(laRV,"RVC_"+'*.*')
>>>   if i > 0
>>>      for j = 1 to i
>>>         lcFileName = laRV(j, 1)
>>>         delete file (lcFileName)
>>>      endfor
>>>   endif
>>>catch to loError
>>>   oAppObj.write_log('Error occurred in the CleanUp procedure: ' + loError.message,program(),'1')
>>>endtry
>>>
>>>_screen.controlbox = .t.
>>>
>>>if oAppObj.lDevMode
>>>   wait window  'Shutting Down In Dev Mode...'  timeout .5
>>>   if wexist('standard')
>>>      show window 'standard'
>>>   endif
>>>   set status bar on
>>>   set help to              &&can't set help to without foxhelp.hlp
>>>   try
>>>      do quit_prog
>>>
>>>      clear all
>>>      close all
>>>      release all
>>>   catch to loError
>>>      IF VARTYPE(oAppObj) = 'O'
>>>	      oAppObj.write_log('Error occurred in the CleanUp procedure: ' + loError.message,program(),'1')
>>>	    endif  
>>>   endtry
>>>
>>>   return
>>>endif
>>>
>>>if program()=program(1)
>>>   &&not under helperw
>>>   try
>>>      clear all
>>>      close all
>>>      release all
>>>   catch to loError
>>>      IF VARTYPE(oAppObj) = 'O'
>>>	      oAppObj.write_log('Error occurred in the CleanUp procedure: ' + loError.message,program(),'1')
>>>	    endif  
>>>   endtry
>>>endif
>>>CLEAR EVENTS 
>>>return