Function Similar to MsgRun()

Function Similar to MsgRun()

Postby Jeff Barnes » Sun Dec 11, 2005 2:20 am

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
User avatar
Jeff Barnes
 
Posts: 929
Joined: Sun Oct 09, 2005 1:05 pm
Location: Ontario, Canada

Postby DanielPuente » Sun Dec 11, 2005 4:42 am

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,
Daniel Puente
Mar del Plata, Argentina
danielpuente@speedy.com.ar
puenteda@hotmail.com
DanielPuente
 
Posts: 108
Joined: Sun Oct 09, 2005 6:12 pm
Location: Mar del Plata - Argentina

Postby dutch » Sun Dec 11, 2005 3:40 pm

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)) } )
User avatar
dutch
 
Posts: 1542
Joined: Fri Oct 07, 2005 5:56 pm
Location: Thailand

Postby Jeff Barnes » Sun Dec 11, 2005 3:45 pm

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
User avatar
Jeff Barnes
 
Posts: 929
Joined: Sun Oct 09, 2005 1:05 pm
Location: Ontario, Canada


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 42 guests