PERGUNTAS E RESPOSTAS
 
Bem Vindo, Visitante  Todos os Fórums
  ADVPL
Enviar para a impressoraImprimir  Enviar e-mail para um amigoEnviar Para um Amigo
Precisa estar Logado

Subject Assunto:
Temporizador de tela
Versão:
12.1.25
Plataforma:
Microsoft
Complemento:
DB:
SQL Server
Complemento:
LinkedIn
Mensagem do Enviar e-mail Abrir o Perfil do usuário AGMC AGMC em 14/01/2022, 15:57 h
Local: AC  Registro: 04/07/2014  Postagens: 261
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

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário 3FRAIM 3FRAIM em 14/01/2022, 18:06 h
Local: GO  Registro: 05/01/2011  Postagens: 22
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 Enviar e-mail Abrir o Perfil do usuário AGMC AGMC em 14/01/2022, 18:17 h
Local: AC  Registro: 04/07/2014  Postagens: 261
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

 Mudar para Fórum

 

 

 
 
   
Pagina Principal Shopping PROTHEUS Tire suas duvidas Vagas Microsiga em todo Brasil Aprofunde seus conhecimentos Noticias Online Fale Conosco Pagina Principal