Pular para o conteúdo
Início » 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 <ESC>

            Exit

         Endif

      Endif

     Exit

    EndDo

    // Faz o processamento…

    Return