gnResp_elim=MESSAGEBOX("Esta seguro que desea Salir del Programa, s/n ?",4)

IF gnResp_elim = 6
   thisformset.Cerrar_cursores()
*    
   THISFORMSET.gcConcepto_auditoria = "Saliendo del sistema"
   THISFORMSET.gcUsuario_operacion = THISFORMSET.gcUsuario
   THISFORMSET.gcNombre_Usuario_operacion = THISFORMSET.gcNombre_abr   
   SQLDISCONNECT(THISFORMSET.nCon)
   CLOSE DATABASES ALL
*    
   thisform.release
   thisformset.release
   QUIT
   CANCEL
   CLOSE ALL
   CLEAR ALL
   
   CANCEL
   CLOSE all
   CLEAR ALL
*   THISFORMSET.Registrar_auditoria()   
*   THISFORMSET.Unload()
ENDIF