Descrição
| 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! 😎