Aviso - Resultado

Aviso

 

 

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

ParNomeTipoDescriçãoDefaultObgRef
01cTituloCaracterTitulo a ser Exibido
02cMensagemCaracterMensagem a ser Exibida na Tela
03aBotoesArrayBotões a ser Apresentado na tela X
04nTamTelaNuméricoTamanho da Tela. Valores: 1, 2 ou 3
05cSubTituloCaracterSubTitulo. Titulo apresentado abaixo do Titulo definido
06nRotAutoNuméricoReservado Sistema
07cBitMapCaracterNome da Imagem ser apresentado. Imagem compilada no APO
08lEditMemoBooleanPermite editação do Memo? .F.
09nTimerNuméricoSegundos para a Tela ser fechada Automaticamente

Retorno

RetornoTipoDescrição
nOpcNuméricoNúmero da opção que foi Selecionada. Clique no botão.

Exemplo

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
27
28
29
30
31
#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

Aviso - Resultado

Aviso – Resultado

Informação Adicional

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

3 respostas
  1. Alberto
    Alberto says:

    Bom dia!
    Esta rotina Aviso não aparece se for chamada dentro de uma função de processamento como por exemplo a função Processa.
    Experiência própria…
    Atenciosamente,

    Responder

Deixe uma resposta

Want to join the discussion?
Feel free to contribute!

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *