Alaska Software Inc. - SET AUTOCLOSE TO 1 MINUTE
Username: Password:
AuthorTopic: SET AUTOCLOSE TO 1 MINUTE
Jose Luis OterminSET AUTOCLOSE TO 1 MINUTE
on Thu, 18 Nov 2010 16:47:37 -0300
Para quienes tienen usuarios olvidadizos y se dejan todas las ventanas 
abiertas.

///////////////////////////////////////////

 Este procedimiento permite cerrar dilogos
 abiertos por un usuario ausente.

#DEFINE MINUTO 60
#DEFINE CENTESIMAS 100
#xtranslate SET AUTOCLOSE TO <nTime> MINUTES => AutoCloseAt( <nTime> )
#xtranslate SET AUTOCLOSE TO <nTime> MINUTE => AutoCloseAt( <nTime> )


PROCEDURE AutoCloseAt( nTime )

///////////////////////////////////////////
   LOCAL nNewInterval := nTime  MINUTO  CENTESIMAS
   LOCAL bNewBlock
   PUBLIC lAutoCloseFirstTime
   lAutoCloseFirstTime := .T.
   bNewBlock := {|| 
IIF(lAutoCloseFirstTime,lAutoCloseFirstTime:=.f.,PostAppEvent( 
xbeP_Close ))}
   SetTimerEvent( nNewInterval , bNewBlock )
RETURN

Espero sea de utilidad.

Jos Luis Otermin
Alaska Software
Soporte Tcnico
--------------------------------------------------------------------
Foros de Usuarios: news://news.alaska-software.com
Pgina Web: http://www.alaska-software.com
Base de Conocimientos en la Web: http://www.alaska-software.com/kbase.shtm
Oficina en Europa: Fax: +49 (0) 61 96 - 77 99 99 23
Oficina en EEUU: Fax: +1 (646) 218 1281
--------------------------------------------------------------------
Osvaldo Ramirez Re: SET AUTOCLOSE TO 1 MINUTE
on Thu, 18 Nov 2010 13:29:08 -0700
Don Gato ....

Tocaste una viaja funcion de una libreria para clipper, ( la cual no me 
acuerdo )

Pero ...

Voy a buscar una funcion en donde era mas bien detectar en el main loop 
si no habia actividad del usuario, es decir raton o teclado y despues de 
ciertos minutos cerrar todas las ventanas.


Saludos
Osvaldo Ramirez

On 11/18/2010 12:47 PM, Jose Luis Otermin wrote:
> Para quienes tienen usuarios olvidadizos y se dejan todas las ventanas
> abiertas.
>
> ///////////////////////////////////////////
> 
>  Este procedimiento permite cerrar diálogos
>  abiertos por un usuario ausente.
> 
> #DEFINE MINUTO 60
> #DEFINE CENTESIMAS 100
> #xtranslate SET AUTOCLOSE TO<nTime>  MINUTES =>  AutoCloseAt(<nTime>  )
> #xtranslate SET AUTOCLOSE TO<nTime>  MINUTE =>  AutoCloseAt(<nTime>  )
> 
> 
> PROCEDURE AutoCloseAt( nTime )
> 
> ///////////////////////////////////////////
>     LOCAL nNewInterval := nTime  MINUTO  CENTESIMAS
>     LOCAL bNewBlock
>     PUBLIC lAutoCloseFirstTime
>     lAutoCloseFirstTime := .T.
>     bNewBlock := {||
> IIF(lAutoCloseFirstTime,lAutoCloseFirstTime:=.f.,PostAppEvent(
> xbeP_Close ))}
>     SetTimerEvent( nNewInterval , bNewBlock )
> RETURN
>
> Espero sea de utilidad.
>
Jose Luis OterminRe: SET AUTOCLOSE TO 1 MINUTE
on Fri, 19 Nov 2010 14:39:01 -0300
> Don Gato ....

Qu dice, mi chavo?

> Tocaste una viaja funcion de una libreria para clipper, ( la cual no me 
> acuerdo )

Bueno, si te sirve mi confesin, pues tampoco yo.

> Pero ...
> Voy a buscar una funcion en donde era mas bien detectar en el main loop si 
> no habia actividad del usuario, es decir raton o teclado y despues de 
> ciertos minutos cerrar todas las ventanas.

Bueno, la idea era despertar a los colegas en la curiosidad de usar este 
tipo de funciones.
Por ejemplo, un sistema de mensajera puede escribir texto en una tabla DBF 
y leerla desde distintos puestos de trabajo.

La misma funcin que ahora cierra el formulario podra servir para comprobar 
si tenemos mensajes.

Podramos encarar ese tipo de proyecto 
Si te parece, claro.

Un abrazo

Jos Luis Otermin
Alaska Software
Soporte Tcnico
--------------------------------------------------------------------
Foros de Usuarios: news://news.alaska-software.com
Pgina Web: http://www.alaska-software.com
Base de Conocimientos en la Web: http://www.alaska-software.com/kbase.shtm
Oficina en Europa: Fax: +49 (0) 61 96 - 77 99 99 23
Oficina en EEUU: Fax: +1 (646) 218 1281
--------------------------------------------------------------------
Jorge LRe: SET AUTOCLOSE TO 1 MINUTE
on Sat, 20 Nov 2010 10:10:28 -0300
hola

tocando viejas funciones y conceptos ya que en esa época no existían threads
para dejar un formulario lo hacia dentro del Getsys.prg

ejemplo
#command READ LIVEREAD <nSec> => aEval( getList, { | x | x:nLiveRead := 
<nSec> } ) ;;
                                                     ReadModal( getList ) 
;;
                                                     getList := {}


y dentro del loop del getsys le controlo el abandono


saludos




"Jose Luis Otermin" escribió en el mensaje de 
noticias:3ac6d0f9$50e59122$455fc@news.alaska-software.com...

> Don Gato ....

¿Qué dice, mi chavo?

> Tocaste una viaja funcion de una libreria para clipper, ( la cual no me 
> acuerdo )

Bueno, si te sirve mi confesión, pues tampoco yo.

> Pero ...
> Voy a buscar una funcion en donde era mas bien detectar en el main loop si 
> no habia actividad del usuario, es decir raton o teclado y despues de 
> ciertos minutos cerrar todas las ventanas.

Bueno, la idea era despertar a los colegas en la curiosidad de usar este
tipo de funciones.
Por ejemplo, un sistema de mensajería puede escribir texto en una tabla DBF
y leerla desde distintos puestos de trabajo.

La misma función que ahora cierra el formulario podría servir para comprobar
si tenemos mensajes.

Podríamos encarar ese tipo de proyecto 
Si te parece, claro.

Un abrazo

José Luis Otermin
Alaska Software
Soporte Técnico
--------------------------------------------------------------------
Foros de Usuarios: news://news.alaska-software.com
Página Web: http://www.alaska-software.com
Base de Conocimientos en la Web: http://www.alaska-software.com/kbase.shtm
Oficina en Europa: Fax: +49 (0) 61 96 - 77 99 99 23
Oficina en EEUU: Fax: +1 (646) 218 1281
--------------------------------------------------------------------