Hi at all!!!
how i can passing parameter from progress (9.1C) to crystal report (9)?
I have made the code below...but...dont work!
DEFINE VARIABLE chApplication AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE chReport AS COM-HANDLE NO-UNDO.
DEF VAR ws-filter AS CHAR.
assign ws-filter = ("0011").
CREATE 'CrystalRuntime.Application' chApplication.
CREATE 'CrystalRuntime.Report' chReport.
chApplication:LogOnServer("p2sodbc.dll", "9.1C v2", "", "sysprogress", "progress").
chReport = chApplication:OpenReport("C:\Documents and Settings\Administrator\Desktop\item3.rpt", 1).
chReport
arameterFields:ITEM(1):ClearCurrentValueAndRange().
chReport
arameterFields:ITEM(1):SetCurrentValue(ws-filter).
chReport:VerifyOnEveryPrint = TRUE.
chReport
iscardSavedData.
chReport
aperOrientation() = 1.
chReport
rintOut().
RELEASE OBJECT chReport.
RELEASE OBJECT chApplication.
I have do on Crystal report a parameter field named "Item-Start".
i think the problem is here:
chReport
arameterFields:ITEM(1):ClearCurrentValueAndRange().
chReport
arameterFields:ITEM(1):SetCurrentValue(ws-filter).
but....i don't understand!!!
thanks at all!!!
Vittorio
how i can passing parameter from progress (9.1C) to crystal report (9)?
I have made the code below...but...dont work!
DEFINE VARIABLE chApplication AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE chReport AS COM-HANDLE NO-UNDO.
DEF VAR ws-filter AS CHAR.
assign ws-filter = ("0011").
CREATE 'CrystalRuntime.Application' chApplication.
CREATE 'CrystalRuntime.Report' chReport.
chApplication:LogOnServer("p2sodbc.dll", "9.1C v2", "", "sysprogress", "progress").
chReport = chApplication:OpenReport("C:\Documents and Settings\Administrator\Desktop\item3.rpt", 1).
chReport

chReport

chReport:VerifyOnEveryPrint = TRUE.
chReport

chReport

chReport

RELEASE OBJECT chReport.
RELEASE OBJECT chApplication.
I have do on Crystal report a parameter field named "Item-Start".
i think the problem is here:
chReport

chReport

but....i don't understand!!!
thanks at all!!!
Vittorio