Compañeros:
Tengo un sistema instalado en una RED Local que utiliza entre otras DBF's temporales. ¿ Como podría saber cual es el último PC que abandona sesión o sale del programa para eliminar esta DBF's temporales?
Mil gracias.
LORENZO
FUNCTION abre_est
LOCAL festac := 1
USE estacion SHARED
DO while festac < 999
LOCATE FOR estacion->estacion = festac
IF !Found()
estacion->(DBAPPEND())
IF !NETERROR()
REPLACE estacion->estacion WITH festac
CLOSE estacion
RETURN (STRTARN(STR(festac,2),' ','0'))
ENDIF
ENDIF
festac ++
ENDDO
CLOSE estacion
MsgInfo("Realice tarea de mantenimiento")
RETURN (STRTRAN(STR(festac,2)," ","0"))
FUNCTION cierra_est(festac)
USE estacion SHARED
LOCATE FOR estacion->estacion = VAL(festac)
IF FOUND()
estacion->(DBDELETE())
PACK
ERASE "TEMPO"+festac+".DBF")
ERASE "TEMPO"+festac+".DBT")
ENDIF
CLOSE estacion
RETURN nil
Loren wrote:Compañeros:
Tengo un sistema instalado en una RED Local que utiliza entre otras DBF's temporales. ¿ Como podría saber cual es el último PC que abandona sesión o sale del programa para eliminar esta DBF's temporales?
Mil gracias.
LORENZO
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 35 guests