FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Close Applcation At Midnight
Posts: 4
Joined: Mon Aug 27, 2012 01:34 AM
Close Applcation At Midnight
Posted: Mon Aug 27, 2012 08:42 PM

I want to do database maintenance after midnight. Is there a way to close all harbour applications still running at midnight? What would the source code look like?

Thanks
Fulton Loebel

Posts: 129
Joined: Sun Oct 09, 2011 03:50 PM
Re: Close Applcation At Midnight
Posted: Tue Aug 28, 2012 07:41 PM

May you can use TIMER?

Posts: 166
Joined: Wed Aug 29, 2012 08:25 AM
Re: Close Applcation At Midnight
Posted: Thu Aug 30, 2012 01:21 PM

I use :

DEFINE TIMER oOut INTERVAL 59*60000 OF oWnd ;
ACTION iif( LEFT(Time(),2)=="00" , ( set(_SET_ERRORLOG ,"Autoclose.log") , tracelog( DTOC(Date()) + " , Programma closed , user " + UPPER(NetName(.T.)) ) , oWnd:END() ) , )

Frank

test

Continue the discussion