Pular para o conteúdo
Início » Advpl Aviso

Advpl Aviso

Advpl Aviso

Tipo: Tela DOS/Windows

Monta uma janela exibindo o texto desejado e, opcionalmente, disponibilizando opções de escolha para o usuário.

Sintaxe

Aviso(cTitulo,cMensagem,aOpcoes)

Parâmetros

cTitulo – Titulo da janela.

cMensagem – Mensagem para ser exibida no interior da janela. O tamanho máximo é de 90 caracteres.

aOpcoes – Array de caracteres com as opções para a montagem de menu (na versão DOS) ou dos botões (na versão Windows).

Retorna

nResp – Retorno. Retorna o número da opção escolhida pelo usuário.

Exemplo

// Exemplo de uso da função Aviso:

While .T.

  GravaArq() // Função qualquer (apenas p/exemplo)

  If !File(“TESTE.TXT”)

     aOp:= {“Sim”,”Nao”,”Cancela”}

     cTit:= “Atencao!”

     cMsg:= “O arquivo TESTE.TXT nao foi gravado!”

     cMsg:= cMsg + “ Tenta novamente?”

     nOp:= Aviso(cTit,cMsg,aOp)

     If nOp == 1 // Sim

        Loop

     ElseIf nOp == 3 // Cancela

        Return

     Else // Nao ou

        Exit

     Endif

  Endif

 Exit

EndDo

// Faz o processamento…

Return

Estude para provas de certificações em TI com os simulados Bynem

Veja também: