Página 1 de 1
Tbrowsedb - Como fazer - Socorro
Enviado: 20 Nov 2007 10:39
por 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.
Enviado: 20 Nov 2007 11:02
por 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.