Como colocar tempo de preenchimento em um único GET

ANDRIL · Mensagem por **ANDRIL** » 12 Set 2015 20:33

Quando usava clipper tinha um GetSys.PRG alterado para ter temporizador no GET. Agora estou precisando apenas em um GET por temporizador e não em todos, então a alteração no GetSys não serve. Tem como colocar esse temporizador? Exemplo 10segundos aguardando a digitação?
Ate+

Nascimento · Mensagem por **Nascimento** » 12 Set 2015 21:10

acho que pra isso vc tera que colocar outro read
no get que vc quer temporizar
e usar a funçao keysec() da hbct

Mensagem por **JoséQuintas** » 12 Set 2015 21:42

Esse get vai ser individual ou vai estar no meio de vários?
Se for individual, pode deixar na getsys uma opção de tempo.

Talvez a opção WHEN sirva pra quando o get estiver no meio de outros, e fazer um novo get.

Código: Selecionar todos

@ 2, 5 GET cCodigo WHEN DigitaComTempo( @cCodigo )
...
FUNCTION DigitaComTempo( @cCodigo )
   LOCAL GetList := {}
   @ 2, 5 GET cCodigo
   READ 60 // com tempo
   RETURN .F.

Obs. E alterar a GETSYS, lógico.

ANDRIL · Mensagem por **ANDRIL** » 13 Set 2015 09:50

Obrigado pelas respostas.

Quanto ao Keysec() já havia tentado porém sem êxito, não dava retorno algum. Hoje fiz uma analise no código inteiro e descobri que tinha anulado a função, criando uma função com mesmo nome, por isso não conseguia.

Agora preciso ver se voltando a usar a Keysec() original vai dar algum problema no sistema, por que antes usava para controle da proteção de tela e creio que não foi atoa que foi desativada.

Até+