Composition Setup |
---|
import.css=/download/attachments/327912/newLayout.css |
Portuguese | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Função: Aviso
Descrição: Monta uma janela exibindo o texto desejado e disponibiliza opções de escolha para o usuário. Programa Fonte: MATXFUNA.PRX Sintaxe: Aviso ( cTitulocMsgaBotoes [ nSize ] [ cText ] [ nRotAutDefault ] [ cBitmap ] [ lEdit ] [ nTimer ] [ nOpcPadrao ] ) --> nOpcAviso Retorno:
Exemplos #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:
|