FiveTech Software tech support forums

... if !internetSt() internetDi() if !internetSt() oPrivate:oInternet:End() return .f. endif endif // Antonio, aca hace la llamada con LEVFTP msgrun("Ingresando al servidor...","",{|oDlg|levftp(oPrivate:oInternet,oDlg,oFTP)},"_insitio") oPrivate:oInternet:End() return nil //------------------------ ...

... 000ECH SET CODE 0008:7250 000C7H SET CODE 0008:7318 00066H SET CODE 0008:737E 00067H SET CODE 0008:73E6 00053H WAITSECOND CODE 0008:743A 00182H MSGRUN CODE 0008:75BC 0004CH MSGWAIT CODE 0008:7608 0003CH STOPUNTIL CODE 0008:7644 00092H MENUBEGIN CODE 0008:76D6 000BDH MENUADDITE CODE 0008:7794 ...

... 000ECH SET CODE 0008:7250 000C7H SET CODE 0008:7318 00066H SET CODE 0008:737E 00067H SET CODE 0008:73E6 00053H WAITSECOND CODE 0008:743A 00182H MSGRUN CODE 0008:75BC 0004CH MSGWAIT CODE 0008:7608 0003CH STOPUNTIL CODE 0008:7644 00092H MENUBEGIN CODE 0008:76D6 000BDH MENUADDITE CODE 0008:7794 ...

... it is after, I do not see the test message until I either put my mouse in the "Please Wait" dialog or press a key. I have also removed the other MsgRun() when I ran this test. Jeff

Hi Everybody, I have a strange problem with MsgRun(). I use MsgRun to call a function that opens a file selection dialog. After I select the file, the file selection dialog closes but for some reason I need to put my mouse in the "Please Wait..." ...

Thanks Daniel / Dutch,

I have it working ... my mistake ... I was doing it this way:

MsgRun("Please Wait ... Generating Report",,MyFunction() )

I left out the {|| }

Thanks again.

Jeff

Dear Jeff,

Try this example will popup window for complete function before close MsgRun().

Regards,
Dutch

MsgRun('Please Wait, Report is processing.',,{|oDlg| ;
WaitRun('RRWRUN.EXE RREPORT '+str(RPT_NR,3)+' /H /B /WY /R'+cLibrary+' /ORROUT'+Strim(RPT_NR,3)) } )

Jeff:

I user msgrun() this way and I don't have that problem, the message is correctly displayed:

MSGRUN("Esperando respuesta fiscal...","Conectando con IFiscal",{|| ejecuta(cticket,cDir,wLfact)})

Maybe a sysrefresh() after the msgrun() will help.

Regards,

Hi,

Is there a function similar to MsgRun() that will display a message WHILE a user function is being run and keep the message there until the user function is completed.

I've tried MsgRun() but it seems to display the message AFTER the user function has been completed.

Thanks,
Jeff

Fernando,

Prueba a deshabilitar la ventana principal, antes de llamar a MsgRun():

Code: Select all  Expand view

   oWnd:Disable()
   MsgRun( ... )
   oWnd:Enable()


Jose Luis, Ante todo gracias por tu respuesta. fijate que el error se produce al cerrar la ventana que genera msgrun(), eso es lo que no entiendo. Called from TDIALOG:END(0) Called from (b)ENABLE(550) Called from TCONTROL:CLICK(0) Called ...