Buenas a todos, saludoss panas.. La forma de usar Crystal Reports variara dependiendo de que version tengas, en las ultimas versiones (XI), lo mas facil es hacerlo con ActiveX, busca en el foro "CrystalRunTime" y encontraras varios post que explican como usarlo.
Para versiones anteriores existe una clase, que permite manejar Crystal reports, basado en el uso de sus DLL. Tambien podras encontrar amplia documentación en posts del foro.
Gracias por responder, eres muy amable..
Sera que tienes un ejemplo y las librerias para esto gracias
saludos
Rubsan2708 :
Aqui te dejo un ejemplo de envio de reportes desde fivewin para harbour a crystal report, el ejemplo esta probado con crystal report 8.5 , van los archivos siguientes :
Muestra.prg -> Programa de ejemplo
Tcrw -> la clase para el envio
ract_01.dbf -> tabla de prueba
activos1.rpt -> el reporte de crystal report
El link es el siguiente :
http://www.megaupload.com/es/?d=6GQ1R6O0
Ojala te sea de utilidad, saludes desde Managua , Nicaragua
Ramon Paredes
oCrys:=tOleAuto():New("CrystalRunTime.Application")
oRpt:=oCrys:OpenReport(oAppl:cDirRpt+"QSL.rpt")
oRpt:Database:Tables(1):Location:=oAppl:cDirRpt+'Log.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.)