Fala turma!
Sabe quando precisamos desenvolver uma tela com alguns botões para uma simples interação com o usuário mas não queremos muita dor de cabeça. Então é nesta hora que o uso da função AVISO, nos ajuda! E como quebra um galho! Eu mesmo utilizo em vários projetos! Mas chega de papo e vamos lá para os detalhes desta função;
Sobre a Função:
Função:
AVISO()
Descrição do TDN:
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 | X | ||
| 04 | nTamTela | Numérico | Tamanho da Tela. Valores: 1, 2 ou 3 | |||
| 05 | cSubTitulo | Caracter | SubTitulo. Titulo apresentado abaixo do Titulo definido | |||
| 06 | nRotAuto | Numérico | Reservado Sistema | |||
| 07 | cBitMap | Caracter | Nome da Imagem ser apresentado. Imagem compilada no APO | |||
| 08 | lEditMemo | Boolean | Permite editação do Memo? | .F. | ||
| 09 | nTimer | Numérico | Segundos para a Tela ser fechada Automaticamente |
Retorno
| Retorno | Tipo | Descrição |
|---|---|---|
| nOpc | Numérico | Número da opção que foi Selecionada. Clique no botão. |
Exemplo:
#Include "Totvs.ch"
/*/{Protheus.doc} CPROC05
(Exemplo de uso da Função AVISO)
@type User Function
@author AOliveira
@since 12/10/2019
@version 1.0
@see (https://tdn.totvs.com/display/framework/Aviso)
/*/
User Function CPROC05()
Local nOpc := 0
nOpc := Aviso( "DevAdvPL", 'Mensagem', { "Sim", "Não", "Sim - Todos", "Não - Todos" }, ;
3, "Titulo da Descrição",, 'ROTINAAUTO', .F., 5000 )
//nOpc := Aviso( "DevAdvPL", 'Mensagem', { "Sim", "Não", "Sim - Todos", "Não - Todos", 3, "Titulo da Descrição",, 'ROTINAAUTO', } )
//nOpc := Aviso( "DevAdvPL", 'Mensagem', { "Sim", "Não", "Sim - Todos", "Não - Todos" } )
If nOpc == 1
MsgInfo( 'Sim', 'DevAdvPL' )
ElseIf nOpc == 2
MsgInfo( 'Não', 'DevAdvPL' )
ElseIf nOpc == 3
MsgInfo( 'Sim - Todos', 'DevAdvPL' )
ElseIf nOpc == 4
MsgInfo( 'Não - Todos', 'DevAdvPL' )
Endif
Return
