Função que mostra uma mensagem de Alert na tela (o ícone é um X Vermelho).
Exemplo da Rotina:
Alert(xExpressao)
Exemplo 1- Mostrando Mensagem:
Alert – Exemplo 01
//Bibliotecas
#Include "Protheus.ch"
/*/{Protheus.doc} zTeste
Função de Teste
@type function
@author Terminal de Informação
@since 13/11/2016
@version 1.0
@example
u_zTeste()
/*/
User Function zTeste()
Local aArea := GetArea()
//Mostra a Mensagem
Alert("Olá Mundo")
RestArea(aArea)
Return
Exemplo 2- Mostrando Mensagem concatenando com outro Texto:
Alert – Exemplo 02
//Bibliotecas
#Include "Protheus.ch"
/*/{Protheus.doc} zTeste
Função de Teste
@type function
@author Terminal de Informação
@since 13/11/2016
@version 1.0
@example
u_zTeste()
/*/
User Function zTeste()
Local aArea := GetArea()
//Mostra a Mensagem concatenando com outro texto
Alert("Olá Mundo, agora é "+Time())
RestArea(aArea)
Return
Exemplo 3- Mostrando Mensagem quebra de linha:
Alert – Exemplo 03
//Bibliotecas
#Include "Protheus.ch"
/*/{Protheus.doc} zTeste
Função de Teste
@type function
@author Terminal de Informação
@since 13/11/2016
@version 1.0
@example
u_zTeste()
/*/
User Function zTeste()
Local aArea := GetArea()
//Mostra a Mensagem com quebra de linha
Alert("Olá Mundo,"+Chr(13)+Chr(10)+"agora é "+Time())
RestArea(aArea)
Return
Exemplo 4- Mostrando Mensagem com tags HTML:
Alert – Exemplo 04
//Bibliotecas
#Include "Protheus.ch"
/*/{Protheus.doc} zTeste
Função de Teste
@type function
@author Terminal de Informação
@since 13/11/2016
@version 1.0
@example
u_zTeste()
/*/
User Function zTeste()
Local aArea := GetArea()
//Mostra a Mensagem com tags HTML
Alert('
<h1>Atenção:</h1>
Olá <b>Mundo</b>, agora é <font color="#FF0000">'+Time()+'</font>')
RestArea(aArea)
Return
Exemplo em Vídeo:
Clique nesse link para ver um exemplo em Vídeo da nossa Maratona de Exemplos.
Observações:
– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;
– Se tiver sugestões de rotinas, pode entrar em contato;
Referências:
– TDN