Função que mostra mensagem com opção de fechar a janela após alguns segundos.
Exemplo da Rotina:
1 | Aviso("Título", "Mensagem", {"Ok"}, 1) |
Exemplo 1- Mensagem pequena:
Aviso – Exemplo 1
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | //Bibliotecas#Include "Protheus.ch"/*/{Protheus.doc} zTesteFunçã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
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | //Bibliotecas#Include "Protheus.ch"/*/{Protheus.doc} zTesteFunçã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
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | //Bibliotecas#Include "Protheus.ch"/*/{Protheus.doc} zTesteFunçã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
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | //Bibliotecas#Include "Protheus.ch"/*/{Protheus.doc} zTesteFunçã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