Page 1 of 1
Crystal Report
Posted: Tue Jan 20, 2009 11:18 pm
by rubsan2708
Buenas a todos, saludoss panas..
Soy nuevo en esto y estoy fajadisimo aprendiendo ,y me gustaria saber como puedo hacer para mandar a ejecutar reportes hechos en Crystal Report desde un programa en fivewin y si alguien tiene una herramienta que me pueda ayudar por favor...
Estoy nuevo y me esta gustando mucho esto, es muy facil de manipular claro por lo que veo tiene sus detalles pero son faciles de solucionar y si no para que estan ustedes ajajaja
gracias por lo que hagan por mi
saludos
Re: Crystal Report
Posted: Thu Jan 22, 2009 9:21 am
by Biel EA6DD
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.
Re: Crystal Report
Posted: Fri Feb 13, 2009 6:16 pm
by rubsan2708
Gracias por responder, eres muy amable..
Sera que tienes un ejemplo y las librerias para esto gracias
saludos
Re: Crystal Report
Posted: Fri Feb 13, 2009 10:07 pm
by Ramon Paredes
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
Re: Crystal Report
Posted: Mon Feb 16, 2009 8:22 am
by Biel EA6DD
Aqui tienes un ejemplo para usar Crystal Reports XI
Code: Select all
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.)