Alert

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

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

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

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

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><br>Olá <b>Mundo</b>, agora é <font color="#FF0000">'+Time()+'</font>')
	
	RestArea(aArea)
Return

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

Etiquetas

Receba novidades

Seja VIP e receba novidades exclusivas por e-Mail gratuitamente.