|
Bem Vindo, Visitante
|
Todos os Fórums
ADVPL
|
Imprimir
Enviar Para um Amigo Precisa estar Logado
|
|
|
Assunto: |
Temporizador de tela |
|
Versão: |
12.1.25 |
|
Plataforma: |
Microsoft |
Complemento: |
|
|
DB: |
SQL Server |
Complemento: |
|
|
|
|
|
Mensagem do
AGMC
em 14/01/2022, 15:57 h
Local: AC Registro: 04/07/2014 Postagens: 262 |
Boa tarde, alguem pode me ajudar com algum exemplo de temporizador de tela, tentei a classe TTIMER porem não surte efeito nenhum.
Atenciosamente,
Alan Gustavo
Grupo Miragina
skype:alan_miragina |
|
|
Mensagem do
3FRAIM
em 14/01/2022, 18:06 h
Local: GO Registro: 05/01/2011 Postagens: 24 |
Boa tarde Alan,
Eu já usei o Ttimer em muitos fontes! Funciona bem, dentro das limitações do mesmo!
O tempo mínimo para execução é de 1 segundo, mesmo que o parâmetro passado para o Ttimer seja em milisegundos ele considera no mínimo 1000 milisegundos.
Se esse não for o seu caso, passe o seu fonte, ou o trecho do fonte onde vc usa o ttimer para que possamos entender melhor o seu caso.
Att.,
Efraim |
|
|
Mensagem do
AGMC
em 14/01/2022, 18:17 h
Local: AC Registro: 04/07/2014 Postagens: 262 |
Olá boa tarde Efraim, obrigado por me responder. Segue trecho que estou tentando utilizar:
Local aArea := SB2->(GetArea())
Local oBrowse := NIL
Local cTitulo := "Saldos em Estoque"
Local nMilissegundos := 5000 // Disparo será 5 de em 5 segundos
//Instânciando FWMBrowse - Somente com dicionário de dados
oBrowse := FWMBrowse():New()
oBrowse:Refresh()
//Setando a tabela de cadastro de Autor/Interprete
oBrowse:SetAlias("SB2")
//Setando a descrição da rotina
oBrowse:SetDescription(cTitulo)
//Fitro Aplicado 1
oBrowse:SetFilterDefault("SB2->B2_LOCAL == ‘07‘")
oTimer:=TTimer():New(nMilissegundos,||alert(U_MIRA020A:Refresh()),"Atualizando..." }, )
oTimer:Activate()
//ativa o browse
oBrowse:Activate()
RestArea(aArea)
Alan Gustavo
Grupo Miragina
skype:alan_miragina |
|
Para postar no Fórum você precisa efetuar o seu login ou se registrar
|
|