LOCAL lcProcessID lcProcessID = ALLTRIM(STR(_VFP.ProcessId)) CLEAR EVENTS CLOSE ALL DECLARE INTEGER ShellExecute IN SHELL32.DLL ; INTEGER nWinHandle, ; STRING cOperation, ; STRING cFileName, ; STRING cParameters, ; STRING cDirectory, ; INTEGER nShowWindow =ShellExecute(0, "Open", "Kill.exe", lcProcessID, "c:\", 0)Problem is that sometimes the IC error hits before the .DBC (containing about 90 remotes views) is closed thus affecting a lock on SQL Server processes, not to mention rolling back any session updates.
DECLARE Sleep IN WIN32API INTEGER >DECLARE TerminateProcess IN WIN32API INTEGER, INTEGER >DELCLARE INTEGER GetCurrentProcess IN WIN32API >IF VERSION(2) = 0 > ON SHUTDOWN > CLEAR EVENTS > CLEAR ALL > CLOSE ALL > RELEASE ALL > FLUSH > QUIT > =SLEEP(30000) > =TerminateProcess(GetCurrentProcess(),0) >ELSE > CANCEL >ENDIF>