Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

#include "protheus.ch"User Function Aviso()Local cArq := "TESTE.TXT"Local cTit:= "Atencao!"Local aOp 	:= {}Local cMsg 	:= ""Local nOpWhile .T.	If !File(cArq)	    aOp:= {"Sim","Nao","Cancela"}	    cMsg:= "O arquivo "+cArq+" não foi encontrado!”	    cMsg:= cMsg + " Tenta novamente?"	    nOp:= Aviso(cTit,cMsg,aOp)                   	    If nOp == 1 // Sim               	    	ApMsgAlert("Usuário tentando novamente")		    Loop	    ElseIf nOp == 3 // Cancela	    	ApMsgAlert("Usuário cancelou operação")	    	    	Return	    Else // Nao ou ESC                   	    	ApMsgAlert("Usuário não tentou novamente")	    	    	Exit	 	Endif	 EndifEndReturn

Parâmetros:


NomeTipoDescriçãoDefaultObrigatórioReferência
cTituloCaracterTítulo da janela.
X
cMsgCaracterTexto a ser apresentado na janela.
X
aBotoesVetorArray com as opções dos botões.
X
nSizeNuméricoTamanho da janela. Pode ser 1, 2 ou 3.


cTextCaracterTitulo da Descrição (Dentro da Janela)cTitulo

nRotAutDefaultNuméricoOpção padrão usada pela rotina automática.


cBitmapCaracterNome do bitmap a ser apresentado
(AVISO: O parâmetro cBitmap foi depreciado, para que a função fique de acordo com o layout do Protheus 12)



lEditLógicoDetermina se permite a edição do campo memo..F.

nTimerNuméricoTempo para exibição da mensagem em segundos.


nOpcPadraoNuméricoOpção padrão apresentada na mensagem.