Crystal Report

[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

[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.

[rubsan2708]

Gracias por responder, eres muy amable..
Sera que tienes un ejemplo y las librerias para esto gracias
saludos

[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

[Biel EA6DD]

Aqui tienes un ejemplo para usar Crystal Reports XI

Code: Select all  Expand view

   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.)