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
//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
//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
//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
//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
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