Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Progress bar while running a report
Message
 
 
À
11/02/2002 14:39:48
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de rapports & Rapports
Divers
Thread ID:
00618464
Message ID:
00618523
Vues:
14
>>Thanks, Steve. Unfortunately, this report is called from a program... Is it possible to organize progress bar from a program?
>>
>
>I suppose you could have the report call a procedure that passes the information on to a status form. This is untested, but the concept will work:
>
>
>private oStatusForm  && so it will be visible to updateReportStatus()
>oStatusForm = createobject("StatusForm")  && hypothetical form class
>report form myreport ....
>
>
>procedure updateReportStatus
>lparameters lnPageNo
>    oStatusForm.setPage(lnPageNo)
>    return ''
>endproc
>
>As for me, I have a report manager class. Reports are run from inside of the class. The REPORT FORM command is run from inside of an object (an instance of the report manager class), so THIS (inside of the report) refers to the class...and I can have a method in this class for talking to a status form.
>
>HTH...

Thanks. I came to the same conclusion while you were writting an answer...
>
>>Is it possible to interrupt the report? Basically, animation idea works (not on my machine for some reason), but the animation form doesn't receive focus and it doesn't allow me to stop report...
>>
>>>Nadya,
>>>
>>>If you run the report from a method in a form, you can make calls back to the form from within the report. Inside of the report, 'THIS' will refer to the form.
>>>
>>>For example, in the page footer of the report, you can put the following:
>>>
>>>
>>>this.setPage(_pageno)
>>>
>>>Add a method to the form:
>>>
>>>* setpage()
>>>lparameters lnPageNo
>>>
>>>thisform.printingPage = lnPageNo
>>>thisform.status.refresh()  && where this is a control that is bound in some
>>>                              && way to thisform.printingPage
>>>
>>>return ''
>>>
If it's not broken, fix it until it is.


My Blog
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform