Descrição
Aviso - Apresenta Caixa/Tela. Possibilidade de Customizar botões, texto, mensagens, etc….
|
Sintaxe
| Aviso( <cTitulo>, <cMensagem>, <aBotoes>, <nTamTela>, <cSubTitulo>, <nRotAut>, <cBitMap>, <lEditMemo>, <nTimer> ) |
Parâmetros
| Par |
Nome |
Tipo |
Descrição |
Default |
Obg |
Ref |
01
|
cTitulo |
Caracter |
Titulo a ser Exibido |
|
|
|
| 02 |
cMensagem |
Caracter |
Mensagem a ser Exibida na Tela |
|
|
|
| 03 |
aBotoes |
Array |
Botões a ser Apresentado na tela |
|
|
|
| 04 |
nTamTela |
Numérico |
Tamanho da Tela. Valores: 1, 2 ou 3 |
|
X |
|
| 05 |
cSubTitulo |
Caracter |
SubTitulo. Titulo apresentado abaixo do Titulo definido |
|
|
|
| 06 |
nRotAut |
Numérico |
Reservado Sistema |
|
|
|
| 07 |
cBitMap |
Caracter |
Nome da Imagem ser apresentado. Imagem compilada no APO |
|
|
|
| 08 |
lEditMemo |
Boolean |
Permite editação do Memo? |
|
|
|
| 09 |
nTimer |
Numérico |
Segundos para a Tela ser fechada Automaticamente |
|
|
|
Retorno
| Retorno |
Tipo |
Descrição |
| nRet |
Numérico
|
Número da opção que foi Selecionada. Clique no botão.
|
Exemplo
#INCLUDE "TOTVS.CH"
User Function AVISO()
Local nOpc := 0
nOpc := Aviso( "UniversoADVPL", 'Mensagem', { "Sim", "Não", "Sim - Todos", "Não - Todos" }, ;
3, "Titulo da Descrição",, 'ENGRENAGEM', .F., 5000 )
//nOpc := Aviso( "UniversoADVPL", 'Mensagem', { "Sim", "Não", "Sim - Todos", "Não - Todos", 3, "Titulo da Descrição",, 'ENGRENAGEM', } )
//nOpc := Aviso( "UniversoADVPL", 'Mensagem', { "Sim", "Não", "Sim - Todos", "Não - Todos" } )
If nOpc == 1
MsgInfo( 'Sim', 'UniversoADVPL' )
ElseIf nOpc == 2
MsgInfo( 'Não', 'UniversoADVPL' )
ElseIf nOpc == 3
MsgInfo( 'Sim - Todos', 'UniversoADVPL' )
ElseIf nOpc == 4
MsgInfo( 'Não - Todos', 'UniversoADVPL' )
Endif
Return( Nil )
Resultado
Informações adicionais
|
aBotões
|
Máximo de 5
|
|
nTamTela
|
Tamanho da Tela são obtidos automaticamente caso não passe por parâmetro
|
|
Botão "Timer Off"
|
Adicionado automaticamente quando definido parâmetro nTimer
|
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
