Cobol Foro - [Sintaxis] Detectar la inactividad en un Form

Cobol Foro (https://www.cobolforo.es/index.php)

- PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)

- - [Sintaxis] Detectar la inactividad en un Form (https://www.cobolforo.es/showthread.php?t=436)

Detectar la inactividad en un Form

Estimados, necesito detectar la inactividad de un form, o sea, que pasado determinado tiempo de inactividad el form se cierre, el tema es que tiene unas 45 opciones entre CBT, OPB y TEXT, yo activo el timer luego de la aceptación de datos.
Como hago para desactivarlo, ya que los eventos son unos 60?
Deberé poner esta opción en cada evento?
Saludos y Gracias

Hrmcobol

Poderias tentar com o "prekeydown" da Form.
O evento é disparado antes de qualquer objecto dentro da form o apanhar.
Poderia resolver.

Experimenta e diz se funcionou.

Un saludo,
Rui Pinto

hola:

Te cuento cómo lo hice:

* Tengo un timer en el menú principal seteado en un segundo, en el evento timer puse el siguiente código:

Código COBOL:

           if caduce-habilita = pow-true
              add 1             to caduce-seg
              if caduce-seg >= caduce-tiempo
                 move pow-false    to "active" of tmrCaduce
                 invoke pow-self "callform" using "usu99" "usuarios.dll"
                 if caduce-seg not = zeros
                    invoke pow-self "closeform"
                 end-if
                 move pow-true     to "active" of tmrCaduce
              end-if
           end-if
           compute caduce-falta = caduce-tiempo - caduce-seg

tengo variables globales external que están dentro de un "copy" en todos los forms.

Código COBOL:

       01  variables-caduce global external.
           02 caduce-cuenta             pic x(10).
           02 caduce-nom                pic x(30).
           02 caduce-clave              pic x(10).
           02 caduce-tiempo             pic 9(4).
           02 caduce-seg                pic 9(4).
           02 caduce-falta              pic 9(4).
           02 caduce-habilita           pic s9(5) comp-5.
           02 caduce-notiempo           pic 9.

y en los eventos Prekeypress y Click de todos los formularios:

Código COBOL:

           move zeros        to caduce-seg.

Paso a explicar un poco.

La variable "caduce-habilita" la utilizo para habilitar o deshabilitar la función, porque cuando el usuario está realizando un proceso y éste es largo no quiero que se le corte.
"caduce-seg" es la variable donde voy contando los segundos que van pasando y "caduce-tiempo" tiene la cantidad de segundos totales que le permito de inactividad.
Cuando se cumple ese tiempo, llamo a un form para que vuelva a colocar la contraseña, si ésta falla se cierra el sistema.

Y lo que falta es en los eventos Prekeypress y Click de todos los forms, poner en cero "caduce-seg" para que cuando presione cualquier tecla o haga click comience de nuevo a contar el tiempo.

Espero haber sido claro.

Saludos.

Fito...

Hrmcobol, en la WORKING del Form defines una variable GLOBAL numérica por ejemplo GLB-TIMER.

En el Timer definido a 1 segundo, pones el código siguiente:

Código COBOL:

     IF  GLB-TIMER > 60 *> por ejemplo 1 minuto
         INVOKE POW-SELF "CloseForm"
     END-IF
 
     ADD 1 TO GLB-TIMER

En los eventos "MouseMove" y "KeyPress" del Form, pones el código:

Código COBOL:

     MOVE ZEROS TO GLB-TIMER

Listo ;)

Gracias a Todooooossss !!!
Era logica la solucion, pero uno tiene momentos en los cuales el problema parece no tener solucion.

Gracias por estar alli !!!