How to invoke crystal report in progress 4GL programm?

[cywong119]

Dear All,

I am new in Progress 4GL programming. I am goto develop an application to generate a crystal report for users.
First all, I have to retrieve a set of data from Progress Database.
Then, put these data into crystal report
Finally, display the crystal report to user.

Therefore, my question is:
1) What crystal report engine should I use in progress 4GL? Report Designer Component, Crystal Reports Automation Server, or Crystal Report Engine API ?
2) How can I invok crystal report engine in progress 4GL application?
3) How can I put the data retrieving from progress database into crystal report ?

Can anyone advise me?

Christine

 

[BONO]

Dear All,

I am new in Progress 4GL programming. I am goto develop an application to generate a crystal report for users.
First all, I have to retrieve a set of data from Progress Database.
Then, put these data into crystal report
Finally, display the crystal report to user.

Therefore, my question is:
1) What crystal report engine should I use in progress 4GL? Report Designer Component, Crystal Reports Automation Server, or Crystal Report Engine API ?
2) How can I invok crystal report engine in progress 4GL application?
3) How can I put the data retrieving from progress database into crystal report ?

Can anyone advise me?

Christine

I use crystal reports RDC to invok crystal reports from progress
and i use an existing report. You can also pass parameter to the report if you want.
To put the data into the report u can use a FILE PRINTER TABLE (read on the report) to store your data for better performance.



DEFINE VARIABLE ch-CRapplication AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE ch-CRreport AS COM-HANDLE NO-UNDO.

CREATE "CrystalRuntime.Application.9" ch-CRapplication NO-ERROR.
CREATE "CrystalRuntime.Report.9" ch-CRreport NO-ERROR.
ch-CRreport = ch-CRapplication:OpenReport(<report>).
ch-CRreportatabase:Tables(1):SetLogOnInfo(<servername>,<dbname>,<userid>,<password>).
ch-CRreportrintOut().

RELEASE OBJECT ch-CRapplication NO-ERROR.
RELEASE OBJECT ch-CRreport NO-ERROR.