Tbrowsedb - Como fazer - Socorro

[lcmpro1000]

Pessoal, eu tenho uma tela no tbrowsedb para o modulo de faturamento que o cliente utiliza para para incluir, consultar, alterar e excluir um pedido. o que eu preciso é que o cliente que estiver somente com a tela aberta no modulo porem passar 60 segundos sem utilizar o sistema a janela do Tbrowsedb feche e ele volte ao menu inicial sozinho. conto com a ajuda dos amigos.

[Pablo César]

Bem vindo ao fórum. Você irá precisar compilar com a versão 5.3 do Clipper que possue INKEY com temporizador. Então você poderia substiuir a função =INKEY() por INKEY(60,159), neste caso o 159 representa qualquer evento do mouse ou qualquer tecla não pressionada em 60 segundos. Veja exemplo:

Código: Selecionar todos

      while ( !b:stabilize() )
            nKey := InKey()
            nKey := INKEY(60,159)
            if ( nKey != 0 )
               exit // aborta se pressionarem uma tecla
            endif
      enddo
      if ( b:stable )
         if ( b:hitTop .or. b:hitBottom )
            Tone(125, 0)
         endif
         nKey := InKey(0)
      endif

Não testei, mas acredito que irá funcionar. Nos dê um retorno para sabermos.