FiveTech Software tech support forums

... puede conectar con la Sucursal Remota","Reintente más tarde!","Aviso") RDDSETDEFAULT( "DBFCDX" ) RETU .F. else MsgWait('CONECTADO, Aguarde...','AVISO', 1 ) endif TRY /// Dbusearea(.t.,"LETO",cServer+'/wfprodu','ProduNew',.T.,.F.) NO FUNCIONA Dbusearea(.t.,"LETO",cServer+'/wflabor','ProduNew',.T.,.F.) ...

... oText:refresh() sysrefresh() enddo sele 1 oIndex:End() oDlg:End() sysrefresh() xtim2:=time() msgwait(ELAPTIME(xtim1,xtim2),"Tiempo Transcurrido",4) *------------------- FUNCTION VTA1100PE() *------------------- xnum:=99->numero ...

... oDlgCaptcha, oGet, oGet1, cCaptcha := Space(8), oSefaz, oImage LOCAL oFnt, oSaida, oBaixarXML LOCAL oChildWnd, cSite Default cChave := Space(44) MsgWait( "CONECTANDO AO PORTAL DA PORTO SEGURO...", ; "AGUARDE UM MOMENTO POR FAVOR... ", 2.0 ) cChave := "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" ...

Antonio,gracias por contestar.
lo uso así
Msgwait("Esperando finalización del proceso", "Aguarde", 0.5)

Gracias y saludos

Dario Fernandez

Estimado Dario,

Con que parámetros estás llamando a MsgWait() desde tu PRG ?

... esto 31/08/2023 18:01:13: C:\Fuentes\Alfainmo\alfainmo.Exe -- BRUSH,286265516,TDIALOG:SETCOLOR(2900)->TDIALOG:NEW(219)->MSGRUN(38)->MSGWAIT(64)->MAIN(0) 31/08/2023 18:01:13: C:\Fuentes\Alfainmo\alfainmo.Exe -- ==================================================================================================== ...

... WaitOn(cTitulo,@oWait) SysRefresh() oQry:=MEMVAR->oConex:Query("SELECT 1") WaitOff(@oWait) IF oQry:RecCount()==0 MsgWait("Reconectando con el servidor...",cTitulo,3) lRta:=MEMVAR->oConex:Ping() IF !lRta MsgWait("Se desconecto el servidor!","Error",3) ...

... #Include "FiveWin.ch" STATIC oActiveX FUNCTION CmSoft_Web() LOCAL oChildWnd, cTitle cTitle := "FiveWin Brasil" MsgWait( "CONECTANDO AL FIVEWIN MUNDIAL...", ; "AGUARDE UM MOMENTO POR FAVOR... ", 2.0 ) // DEFINE WINDOW oChildWnd FROM 0, 0 TO ...

... Fivewin for hb_threadStart() there is a Sample c:\fwh\samples\testmt02.prg when press "Test" hb_threadStart() does NOT WORK and show NO MsgWait() or new Dialog :( it seems me that Fivewin User does not know hb_threadStart() --- when have a lot to PRINT you can not work on "other" ...

... lo hago asi: clicksing:="www.appweb.com" TRY oIE:=CreateObject("InternetExplorer.Application") // Primer intento CATCH MsgWait("Error al crear el componente InternetExplorer.Application 1","Error al firmar, reintentando",2) // AQUI tengo el problema, ...

... #Include "FiveWin.ch" STATIC oActiveX FUNCTION CmSoft_Web() LOCAL oChildWnd, cTitle cTitle := "FiveWin Brasil" MsgWait( "CONECTANDO AL FIVEWIN MUNDIAL...", ; "AGUARDE UM MOMENTO POR FAVOR... ", 2.0 ) DEFINE WINDOW oChildWnd FROM 0, 0 TO 600, ...

ACTIVATE DIALOG oDlg CENTERED ;
ON INIT MsgWait( ( oActiveX:Silent := .T., ;
oAcTiveX:Do("NAVIGATE", cUrl ) ), ;
"AGUARDE UM MOMENTO POR FAVOR...", 2.0 )

... como por ejemplo: MsgInfo(), MsgStop(), MsgAlert(), MsgYesNo(), MsgYesNoCancel(), MsgRetryCancel(), MsgAbout() y también a las funciones MsgRun()y MsgWait() de FWH. - Después de llamar a la función CenterMsgs(), llamando a MsgRun(), congelaba el programa. Corregido. viewtopic.php?f=3&p=228435#p228435 ...

... Msg* dialogs, i.e., MsgInfo(), MsgStop(), MsgAlert(), MsgYesNo(), MsgYesNoCancel(), MsgRetryCancel(), MsgAbout() and also FWH functions MsgRun(), MsgWait(). - After calling CenerMsgs(), calling MsgRun() was crashing. Fixed. http://forums.fivetechsupport.com/viewtopic.php?f=3&p=228435#p228435 ...

Rao, Here is the complete code in case you need it: TRY oSql:=TOleAuto():New("ADODB.Recordset") CATCH MsgWait( "Unable to Load SQL Driver" ) RETURN (.F.) END // Set... oSql:CursorType := 1 // opendkeyset oSql:CursorLocation := 3 // local cache oSql:LockType ...