MESSAGE

MESSAGE ( mensagem )

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):

Ver também​

CLOSE WINDOW
ERASE WINDOW
GOTO XY
Open window

Propriedades​