MESSAGE
MESSAGE ( mensagem )
| Parâmetro | Tipo | Descrição | |
|---|---|---|---|
| mensagem | Text | → | Mensagem a exibir |
Esse comando não é seguro para thread e não pode ser usado em código adequado.
Descrição
O comando MESSAGE geralmente se utiliza para informar ao usuário sobre alguma atividade. Mostra mensagem na tela em uma janela de mensagem especial que se abre e fecha cada vez que chamar a MESSAGE, a menos que trabalhe com uma janela que abriu previamente utilizando Open window (ver detalhes abaixo). A mensagem é temporária e é apagada assim que um formulário for exibido ou o método parar de executar. Se outra MESSAGE for executada, a mensagem antiga é apagada.
Se abrir uma janela com Open window, todas as chamadas a MESSAGE mostram as mensagens nessa janela. A janela se comporta como um terminal:
- As mensagens sucessivas não apagam as mensagens anteriores quando são mostradas na janela, são concatenadas em mensagens existentes.
- Se uma mensagem for mais larga que a janela, 4D insere automaticamente um retorno a linha.
- Se uma mensagem tiver mais linhas que a janela, 4D automaticamente desce a página.
- Para controlar quebras de linha, inclua retornos de carro — Char(13) — em sua mensagem.
- Para exibir o texto em um lugar específico da janela, chame GOTO XY.
- Para apagar os conteúdos da janela, chame ERASE WINDOW.
- A janela é apenas uma janela de output e não se redesenha quando outras janelas forem colocadas sobre ela.
- Pode modificar a fonte e tamanho dos caracteres na janela através da página "Interface" nas Preferências de Banco de Dados.
Nota: MESSAGE é compatível com o comando Open form window; entretanto, no contexto do segundo parâmetro * de Open form window, que salva o tamanho e posição da janela, não é suportado
Exemplo 1
O exemplo a seguir processa uma seleção de registros e chama MESSAGE para informar ao usuário sobre o progresso da operação:
For($vlRegistro;1;Records in selection([todaTabela]))
MESSAGE("Processo do registro #"+String($vlRegistro))
// Fazer algo com o registro
NEXT RECORD([todaTabela])
End for
A janela a seguir aparece e desaparece cada vez que se chama MESSAGE:
Exemplo 2
Com o objetivo de evitar a janela "piscante", pode mostrar as mensagens em uma janela aberta utilizando Open window, como em este exemplo:
Open window(50;50;500;250;5;"Operação em progresso")
For($vlRegistro;1;Records in selection([todaTabela]))
MESSAGE("Processando registro #"+String($vlRegistro))
// Fazer algo com o registro
NEXT RECORD([todaTabela])
End for
CLOSE WINDOW
O resultado é o seguinte (em Windows):
Exemplo 3
Adicionar um retorno de carro melhora a presentação:
Open window(50;50;500;250;5;"Operação em progresso")
For($vlRegistro;1;Records in selection([todaTabela]))
MESSAGE("Processando registro #"+String($vlRegistro)+Char(Carriage return))
// Fazer algo com o registro
NEXT RECORD([todaTabela])
End for
CLOSE WINDOW
Este é o resultado (em Windows):
Exemplo 4
Utilizando GOTO XY e escrevendo algumas linhas adicionais:
Open window(50;50;500;250;5;"Operação em progresso")
$vlNbRegistros:=Records in selection([todaTabela])
$vhStartTime:=Current time
For($vlRegistro;1;$vlNbRegistros)
GOTO XY(5;2)
MESSAGE("Processando registro #"+String($vlRegistro)+Char(Carriage return))
// Fazer algo com o registro
NEXT RECORD([todaTabela])
GOTO XY(5;5)
$vlResto:=(($vlNbRegistros/$vlRegistro)-1)*(Current time-$vhHoraInicio)
MESSAGE("Tempo restante estimado: "+Time string($vlResto))
End for
CLOSE WINDOW
O resultado é o seguinte (em Windows):
