FiveTech Software tech support forums

... ¦ FiveWin For xHarbour 13.06 Junho de 2013 Contato Sistemas Ltda. ¦_ ¦ Aguarde um Momento, Compilando Aplicação 32 Bits, Processamento Demorado ¦¦ ¦ CopyRight(c) João@2007 - Todos os Direitos Reservados. GERAPNFE 32 Bits. ...

... :D y al igual ya le busque lo que queria era simple y sencillo asi: MsgRun("Dejando en cero los saldos iniciales en SDOSCTAS.DBF", "Aguarde...") Do While eof() .... Enddo MsgRun("Verificando integridad de cuentas", "Aguarde...") Do While eof() .... Enddo ...

... Echo ³ FiveWin For xHarbour 13.05 Maio de 2013 Contato Sistemas Ltda. ³Ü Echo ³ Aguarde um Momento, Compilando Aplica‡Æo 32 Bits, Processamento Demorado ³Û Echo ³ CopyRight(c) JoÆo@2007 - Todos os Direitos Reservados. SEFAZ3 32 ...

... ¦ FiveWin For xHarbour 13.06 Junho de 2013 Contato Sistemas Ltda. ¦_ ¦ Aguarde um Momento, Compilando Aplicação 32 Bits, Processamento Demorado ¦¦ ¦ CopyRight(c) João@2007 - Todos os Direitos Reservados. GERAPNFE 32 Bits. ...

... but you can change to other value (nFor) MsgRun( " Aguardando resposta da entidade receptora em 5 segundos",; "Processando, aguarde...",; { | oDlgSef | UpdCaption( oDlgSef) } ) ... Static function UpdCaption( oDlg ) local nFor, nStart for nFor := 4 to 0 step -1 nStart ...

I try this but the gif do not animate if i use NOWAIT in dialog DEFINE DIALOG oAnima RESOURCE "GIFPROC" Title "Aguarde, inutilizando numeração..." ACTIVATE DIALOG oAnima ON INIT BuildGif( oAnima ) NOWAIT CENTERED .... Static function BuildGif( oAnima ) TGif():New( ...

...            COLOR nRGB( 000, 000, 000 ), nRGB( 135, 206, 235 )  Exemplo que dá erro: MsgRunxx('Aguarde ','Abrindo Arquivo PDF. Aguarde por favor... sdfkj s lskjf slçkf jsdlçkf jf çsj ldj sdçjsdl sdl sdlksf lksjf lsçkj ldç jfsdf çsljfçlsdkjf lçskj ...

... cXMLPreco,cXMLErros,cXMLSedex local cUser:="usuario" local sPass:="password" ws := TdWebService():new() oSay:SetText( "Aguarde, consultando la base de datos" ) cXMLSedex := ws:OpenWS( "http://www.correios.com.br/encomendas/precos/calculo.cfm?" +; "&cepOrigem:="+cCepOrigem+; ...

... Página:" PIXEL OF ::oWnd SIZE 65, 12 RIGHT @ 25, 115 SAY ::oPagina VAR ::nPage PIXEL OF ::oWnd UPDATE SIZE 20, 12 RIGHT @ 47, 60 BUTTON "Aguarde..." SIZE 60, 12 PIXEL OF ::oWnd ACTION .t. ::oWnd:bPainted := {|| iif(::nPage>0, ::oPagina:Refresh(), )} ACTIVATE DIALOG ::oWnd CENTER ...

O titulo do seu tópico é:

DESATIVAR TECLA F10 DO WINDOWS.

Aguarde.

... verifique y reintente...","Alto" ) RETURN NIL ENDIF IF !oCon:DBExist( "tutor" ) MSGRun( "Creando Base de Datos, aguarde...",, {|| oCon:CreateDataBase( "tutor")} ) ENDIF oCon:SelectDB( "tutor" ) IF oCon:lError MsgStop( "No se pudo ...

Tambien puedes utilizar:

MsgRun("Aguarde por favor...",,{|| MiFuncion() } )

Saludos.

Hola David,

Puedes usar el MsgRun(). Ej.:

msgRun("Aguarde, gerando relatório","ATENÇÃO",{|| Gera_Relato()})

Saludos

... POPUP MENUITEM "Configurar" ACTION configurar() MENUITEM "Fechar" ACTION Fecha() ENDMENU ACTIVATE POPUP oMenu AT nRow, nCol OF oTray:oWnd msgwait("Aguarde...",,.02) <--- AQUI return nil

... oMeter, oText, oBtn, oFont local lEnd := .f., lCancel := .f. local nVal := 0 DEFAULT bAction := { || nil },; cMsg := "Procesando...", cTitle := "Aguarde por favor",; lBoton := .f. DEFINE DIALOG oDlg RESOURCE "MSGMETER" COLOR "W+/B" REDEFINE TSAYT ID 111 OF oDlg REDEFINE TSAYT oText VAR cMsg ID ...