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.