Error description: Error TOleAuto/-1 CO_E_CLASSSTRING: TOLEAUTO:NEW
Ya use varios ejemplos sin éxito, este ejemplo se apega a lo que yo estoy usando espero me puedan ayudar
Tambien quisiera saber que librerias o DLLs necesito para usar r Crystal Reports
- Code: Select all Expand view
oCrys:=tOleAuto():New("CrystalRunTime.Application")
oRpt:=oCrys:OpenReport("C:\TEMP\PRUEBAS.rpt")
oRpt:Database:Tables(1):Location:='C:\TEMP\DATFAC.dbf'
IF oRPt:HasSavedData //si tenia datos guardados con el reporte, lo borra.
oRPT:DiscardSavedData() //obligando asi la lectura desde el fichero dbf.
ENDIF
oCrRpt:=tActiveX():New(oWnd,"CrystalReports11.ActiveXReportViewer.1")
oCrRpt:SetProp("ReportSource",oRpt)
oCrRpt:SetProp("DisplayGroupTree",.F.)
oCrRpt:DO("ViewReport")
oWnd:oClient:=oCrRpt
ACTIVATE WINDOW oWnd VALID (oCrRpt:END(),oCrys:END(),oRpt:END(),.T.)
De antemano gracias