Kbase P33684: ActiveX: How to set a parameter field in Crystal Reports.
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
7/25/2003 |
|
Status: Unverified
GOAL:
ActiveX: How to set a parameter field in Crystal Reports.
FACT(s) (Environment):
Progress 9.1D
FACT(s) (Environment):
Crystal Reports 9
FIX:
The following example illustrates the method in which to set a parameter field for a report using the Crystal Report Viewer.
/************** Start **************/
DEF VAR AxViewer_Handle AS COM-HANDLE NO-UNDO.
DEF VAR chApplication AS COM-HANDLE NO-UNDO.
DEF VAR chDocument AS COM-HANDLE NO-UNDO.
DEF VAR chDatabase AS COM-HANDLE NO-UNDO.
DEF VAR chParamDefs AS COM-HANDLE NO-UNDO.
DEF VAR chParamDef AS COM-HANDLE NO-UNDO.
DEF VAR ResultText AS CHAR NO-UNDO.
CREATE "CrystalRuntime.Application" chApplication.
chDocument = chApplication:OpenReport("C:\Report.rpt", 1).
chDatabase = chDocument:DATABASE.
chParamDefs = chDocument:ParameterFields.
chParamDef = chParamDefs:Item(1).
/* Set the value of the 1st parameter in the report */
ResultText = chParamDef:SetCurrentValue("Test").
chDocument:EnableParameterPrompting = FALSE.
AxViewer_Handle:ReportSource = chDocument.
AxViewer_Handle:REFRESH.
AxViewer_Handle:ViewReport.
RELEASE OBJECT chApplication.
RELEASE OBJECT chDocument.
/************** End **************/