FiveTech Software tech support forums

... REDEFINE GET oBuscar VAR xBuscar ID 102 OF oDlg REDEFINE BUTTON ID 201 OF oDlg Action ( if(!empty(xBuscar),MsgRun("Aguarde...",,{||Busque(xBuscar)}), msgStop("Valor omitido")),oBuscar:SetFocus() ) REDEFINE BUTTON ID 202 OF oDlg Action ( oDlg:end() ) CANCEL ACTIVATE ...

... ( AbreGavetaPDV(), oCod:SetFocus() ), ),; iif( nKey=VK_F8, ( BuscaPrecoPDV(), oCod:SetFocus() ), ),; iif( nKey=VK_F9, ( nPeso := 1, MsgRun("Aguarde Buscando Peso...","Atenção",{|| nPeso := PegaPesoBalanca()} ), iif( Empty(nPeso), 1, nQtd := nPeso ), oDlg_Pdv:Update(), oCod:SetFocus() ), ...

//-> És bién simples de hacer: IF ERRORLEVEL 1 GOTO LINKERROR Echo * Aplicação Desenvolvida Com Sucesso Absoluto - Aguarde Um Momento Echo . Echo * Aguarde um Momento, Compactando Aplicação, Usando o UPX.EXE Echo . \PLENOCBW\UPX\UPX.EXE -9 PLENOWIN.EXE Echo . Echo * Aplicativo ...

Olá Paulo,

MSGRUN("Aguarde - Carregando Dados","Aguarde...",{||Tabela:Open("SELECT codigo,uf,municipio FROM uf USE INDEX(uf) ORDER BY uf",Conexao,2,3)})

Daniel Segura
ciacpd@terra.com.br

... 2 ENDIF RETURN 1 FUNCTION ListMunicipios() MFONTES() AbreConexao() Tabela:CursorType = 1 Tabela:CursorLocation = 3 Tabela:LockType = 2 MSGRUN("Aguarde - Carregando Dados","Aguarde...",{||Tabela:Open("SELECT codigo,uf,municipio FROM uf USE INDEX(uf) ORDER BY uf")}) Browse(1,"Lista de Municipios","Lista ...

... la aplicación con WinExec() hasta que la ventana se crea y está visible. Habría que revisar las opciones de WinExec() ó usar alguna función que aguarde un cierto tiempo (Sleep(), bucle con SysRefresh(), etc.)