General information
Title:
Vfp y Crystal Reports 9.0
Hi, I have a litle Problem:
Saludos cordiales para todos Grupo. Tengo un inconveniente y es el
siguiente:
I am using VFP 6.0 creating reports from Crystal Reports 7.0 and its work perfect. this is the way that I use:
****************
Function _CRReport
Lparameters tcCursorName, tcPath, tcRPTName, tcTableName
lcAlias = alias()
Select (tcCursorName)
lcTemp = sys(2015)
Copy to (tcPath+lcTemp) type fox2x
oCrystal=CreateObject("Crystal.CRPE.Application")
#Define WS_MAXIMIZE 29949952
Declare integer GetForegroundWindow in WIN32API
Declare short IsWindow in WIN32API integer
oRpt = oCrystal.OpenReport(tcRPTName)
With oRpt
With .Database.Tables(tcTableName)
.Location = tcPath+lcTemp+".dbf"
Endwith
With .PrintWindowOptions
.CanDrillDown = .t.
.HasCancelButton = .t.
.HasCloseButton = .t.
.HasExportButton = .t.
.HasGroupTree = .t.
.HasNavigationControls = .t.
.HasPrintButton = .t.
.HasPrintSetupButton =.t.
.HasProgressControls =.t.
.HasRefreshButton =.f.
.HasSearchButton =.t.
.HasZoomControl =.t.
Endwith
.preview ("Report Preview: "+"by PeopleWork.",,,,,WS_MAXIMIZE,0)
Endwith
lnHwndActiveX = GetForegroundWindow() && Save window handle
Do while IsWindow(lnHwndActiveX) # 0 && Wait while Activex Alive
inkey(1)
Enddo
Clear dlls
Erase (tcPath+lcTemp+".*")
If !empty(lcAlias) and used(lcAlias)
Select (lcAlias)
Endif
*
The Problem is using Crystal reports 9.0 and this is the error:
Cannot find the Object: oCrystal=CreateObject("Crystal.CRPE.Application")
Could somebody help me?
Andrickson D.
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only