Aviso

Função que mostra mensagem com opção de fechar a janela após alguns segundos.

Exemplo da Rotina:

Aviso("Título", "Mensagem", {"Ok"}, 1)

Exemplo 1- Mensagem pequena:

Aviso - Exemplo 1

Aviso – Exemplo 1

//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()
	Local cMsg    := "Terminal de Informação"
	Local nOpc    := 0

	//Mensagem pequena normal
	Aviso("Título", cMsg, {"OK"}, 1, "Sub Título")

	RestArea(aArea)
Return

Exemplo 2- Mensagem média com vários botões:

Aviso - Exemplo 2

Aviso – Exemplo 2

//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()
	Local cMsg    := "Terminal de Informação"
	Local nOpc    := 0

	//Mensagem média com botões
	nOpc := Aviso("Título", cMsg, {"Sim", "Não", "Talvez"}, 2, "Sub Título")
	If nOpc == 1
		MsgInfo("Clicou no Sim", "Atenção")
	EndIf

	RestArea(aArea)
Return

Exemplo 3- Mensagem grande com ícone:

Aviso - Exemplo 3

Aviso – Exemplo 3

//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()
	Local cMsg    := "Terminal de Informação"
	Local nOpc    := 0

	//Mensagem grande com ícone
	Aviso("Título", cMsg, {"OK"}, 3, "Sub Título", , "BR_AZUL")

	RestArea(aArea)
Return

Exemplo 4- Mensagem média que é fechada após 5 segundos:

Aviso - Exemplo 4

Aviso – Exemplo 4

//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()
	Local cMsg    := "Terminal de Informação"
	Local nOpc    := 0

	//Mensagem média que é fechada após 5 segundos
	Aviso("Título", cMsg, {"OK"}, 2, "Sub Título", , , , 5000)

	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
Universo AdvPL