Me gustaria iniciar una conversación en la que comparemos los actuales diseñadores de reportes mas usados: FastReport, Crystal Reports, ?...
y que hagamos una comparativa de lo mejor y peor que ofrecen.
La idea es saber exactamente que necesitamos y como tener uno (o completar uno existente, como el de Carles) para que no necesitemos ningún diseñador de reportes externo y que FWH lo incluya 
Alguien que tenga destreza con alguno de ellos que comente como se hace el reporte mas simple, y visualmente que pasos requiere
Gracias!
Fastreport, es el mejor dinero q me he gastado en una herramienta de programación.
Nosotros hemos movido mas de 600 informes a Fastreport, antes necesitábamos mucho código para generarlos según las condiciones ahora se ha automatizado todo excepto la recopilación, todo lo demás es completamente visual, y ademas tienes Delphi Srcipt para meter código en tu informe.
Una maravilla.
// IMPRESIÓN DE REPORTE CON FASTREPORT //
Static Function ImprimeReporte(aDatos,lDisenio)
Local oFr
PRIVATE np
cFile :=PathSist+"FASTREPO\CAMIONES.FR3"
cTitulo:="Listado de camiones"
oFr :=FrReportManager():New()
oFr:LoadLangRes("Spanish.xml" )
oFr:SetTitle( cTitulo )
oFr:SetIcon( "ICONO")
oFr:SetUserDataSet( "aDatos","NUMERO;MARCA;MODELO;TIPO;PATENTE;VTO_VERIFICACION",;
{||np := 1}, ; //--> bGoTop
{||np := np + 1}, ; //--> bSkipPlus
{||np := np - 1}, ; //--> bSkipMinus
{||np > Len(aDatos)}, ; //--> bCheckEOF
{|aField|nCol := IIF( aField == "NUMERO" , 2,;
IIF( aField == "MARCA" , 3,;
IIF( aField == "MODELO" , 4,;
IIF( aField == "TIPO" , 5,;
IIF( aField == "PATENTE" , 6,;
IIF( aField == "VTO_VERIFICACION", 7,)))))), aDatos[np, nCol] } )
oFr:LoadFromFile( cFile )
oFr:AddVariable("Mis variables","Titulo informe","'"+cTitulo+"'")
oFr:AddVariable("Mis variables","cUser" ,"'"+cUser +"'")
oFr:AddVariable("Mis variables","nUser" ,"'"+nUser +"'")
IF lDisenio
oFr:DesignReport() // HABILITA EL MODO DE DISEÑO
ELSE
oFr:PreviewOptions:SetButtons( 1+4+8+16+32+64+128+1024 ) // HABILITO SOLO LOS BOTONES QUE EL USUARIO VA A VER
ENDIF
oFr:ShowReport()
oFr:ClearDataSets()
oFr:DestroyFR()
Return nil
//
Antonio
Por otro lado tengo un programa completo con ejemplos de diseños varios de reportes con FastReport.
El programa está escrito con FiveWin y si no mal recuerdo lo bajé de la página de fastReport hace unos años ya.
En mi caso ese programa con ejemplos me sirvió muchísimo.
Si te interesa te lo paso.
Saludos,
Muy buen tema, tengo tiempo usando FastReport y aunque no soy un experto, creo que es lo mas rapido y comodo para hacer reportes, ademas de que es compatible con xH y Hb, despues de diseñado, se pueden agregar los .fr o archivos de diseño dentro de los recursos y estos a su vez dentro del .exe, asi se evita que los usuarios o algun tercero pueda eliminarlos o en un caso de formatear el disco duro o cuando se hagan modificaciones necesarias en el diseñador, solo se envia el .exe y listo, sin nada de archivos externos, tengo formatos de facturacion, listados simples, recibos, etc..que puedo compartir sin problemas, ademas de los samples que trae el mismo FR que son muy facil de entender, bueno, es mi humilde opinion, creo que FR es el ideal y necesarios reporteador para FWH, gracias, saludos... 
El fastrepot esta pensado para ser usado en harbour y xharbour por eso la simplicidad de él, usarlo es super cencillo
1+ Fastreport
Yo uso crystal report
Lo uso tanto para los informes como para los modelos de impresión de ofertas/pedidos/albaranes/facturas, etc.
facilidad de usarse en cualquier entorno de programación.
Comunicación con casi todas las bases sude datos.
Se diseña las tablas, view, procedures a usar de la base de datos y las relaciones entre las mismas de forma sencilla en un entorno visual.
Permite el traspaso de parámetros a procedures.
Uso de variables y funciones.
En cuanto al diseño del modelo:
Diseño wysiwyg del Encabezado, cuerpo y pie.
Posibilidad de grupos en el cuerpo.
En cuanto al viewer:
Posibilidad de desglose en el resultado obtenido
P.E. Estoy viendo un informe con las ventas por día de todo un mes y se puede (si asi se le indica a crystal) dar doble click en un día y que desglose las operaciones del día.
Esto viene muy bien para las empresas pequeñas a las que un sistema Business intelligence es complicarles mucho.
Amigos,
fast report está muy bien, pero hay que ser realistas ya que Antonio no puede hacer milagros.
Yo votaría por un EasyReport, sencillo y estable. Es muy difícil clonar Fast Report, y encima muchos de la comunidad usan fast report pirateado, lo cual es una desfachatez la verdad.
elvira wrote:Amigos,
fast report está muy bien, pero hay que ser realistas ya que Antonio no puede hacer milagros.
Yo votaría por un EasyReport, sencillo y estable. Es muy difícil clonar Fast Report, y encima muchos de la comunidad usan fast report pirateado, lo cual es una desfachatez la verdad.
FastReport es por hoy los 300€ mejor invertidos en un librería, una sola DLL, sin instalación ni historias.
Además, puedes haces reportes visualmente como manualmente.
Un sistema desarrollado hace 9 años con la clase Printer de Fivewin, usando una capa por encima con la TImprime, que es capaz de imprimir cientos de listados,
me llevo una mañana adaptarlo a FastReport, con la potencia de exportación a distintos formatos, super rápido en ejecución, y eso todo sin crear NINGÚN reporte visualmente.
Y lógicamente, para crear facturas y demás listados con imágenes, etc.., el modo diseño con el ratón, genial.
Si hay que hacer un diseñador de reportes, sería lo suyo continuar con el trabajo de Sergei o realizar algo similar.
Si me permiten unos comentarios...
A mi ya me ha pasado que por comprar librerías de terceros, estas se quedan si soporte con el tiempo. Yo compre en su momento Canal 5 y ViaCoral, y ahora estas dos librerías ya no tienen soporte.
Con FastReport, ya esta pasando lo mismo, ya no hay mas actualizaciones y creo que soporte (yo no he comprado esta herramienta).
Dicho lo anterior, si uno quiere seguir actualizado con las nuevas versiones de FWH, uno tiene que dejar de utilizar las librerías de terceros, como me pasa ahora a mi, con lo adicional de cambiar el código interno de uno, en donde utilizaba estas herramientas.
Si no estoy mal, desde hace tiempo se ha estado pidiendo a Antonio, que nos proporcione un IDE y un Diseñador de Reportes Visual. Ahora Antonio esta ofreciendo que puede iniciar un desarrollo para el diseñador de reportes, y veo como que no muchos están de acuerdo (mas en el foro ingles, que prefieren usar TReport).
Según veo, en los copmentarios anteriores, FastReport, es el modelo a seguir, o no?
Entonces, si a Antonio le parece, este seria el modelo a seguir para tener esta herramienta nativa en FWH, con lo ya habría una herramienta menos que tendríamos que buscar de terceros para desarrollar nuestros proyectos con FWH.
Antonio, solo decir que apoyo esta propuesta de este diseñador visual de reportes para FWH, y cuenta con que, en lo que pueda, ayudare a que lleguemos a tener esta herramienta funcionando.
Saludos.
Carlos.
Antonio, buenas tardes, creo que la filosofía de FastReport gana por goleada al resto. He usado varios, de los que se han hablado en este tip, pero la facilidad y velocidad con la que se generan los informes es una pasada, y sin conocer el 100% de la herramienta. Estoy de acuerdo que ha sido un complemento perfecto. Tambien es verdad que hemos sufrido la perdida de Sergei y la cuerda se está tambaleando.
Un Saludo,
#include "FiveWin.ch"
#include "RichEdit.ch"
#include "xbrowse.ch"
#include "splitter.ch"
static oWndMain
function Main()
local oBmpTiled , oBar
local hDLL := LoadLibrary( "Riched20.dll" )
SetDlgGradient( { { 1, RGB( 199, 216, 237 ), RGB( 237, 242, 248 ) } } )
DEFINE BITMAP oBmpTiled RESOURCE "background"
DEFINE WINDOW oWndMain TITLE "Reports Builder" MDI ;
MENU BuildMenu()
DEFINE BUTTONBAR oBar OF oWndMain 2010 SIZE 70, 70
DEFINE BUTTON OF oBar PROMPT "New" RESOURCE "new" ACTION ReportNew()
DEFINE BUTTON OF oBar PROMPT "Open" RESOURCE "open" ACTION ReportOpen()
DEFINE BUTTON OF oBar PROMPT "Exit" RESOURCE "exit" ;
ACTION oWndMain:End() GROUP
ReportNew()
ACTIVATE WINDOW oWndMain MAXIMIZED ;
VALID MsgYesNo( "Want to end ?" ) ;
ON PAINT DrawTiled( hDC, oWndMain, oBmpTiled )
oBmpTiled:End()
FreeLibrary( hDLL )
return nil
function BuildMenu()
local oMenu
MENU oMenu
MENUITEM "Reports"
MENU
MENUITEM "New" ACTION ReportNew()
ENDMENU
ENDMENU
return oMenu
function ReportNew()
local oWndChild, cHeader := "Header", oHeader, oSplit1, oBrw
local cFooter := "Footer", oFooter, oSplit2
DEFINE WINDOW oWndChild TITLE "New report" MDICHILD
@ 0, 0 RICHEDIT oHeader VAR cHeader SIZE oWndChild:nWidth, 70 OF oWndChild
@ 5.3, 0 XBROWSE oBrw OF oWndChild SIZE oWndChild:nWidth, 150
oBrw:CreateFromCode()
@ 15.2, 0 RICHEDIT oFooter VAR cFooter SIZE oWndChild:nWidth, 130 OF oWndChild
@ 70,0 SPLITTER oSplit1 ;
HORIZONTAL ;
PREVIOUS CONTROLS oHeader ;
HINDS CONTROLS oBrw ;
TOP MARGIN 30 ;
BOTTOM MARGIN oSplit2:nLast + 50 ;
SIZE 500, 4 PIXEL ;
OF oWndChild ;
STYLE
@ 225,0 SPLITTER oSplit2 ;
HORIZONTAL ;
PREVIOUS CONTROLS oBrw NOADJUST ;
HINDS CONTROLS oFooter ;
TOP MARGIN oSplit1:nFirst + 50 ;
BOTTOM MARGIN 80 ;
SIZE 500, 4 PIXEL ;
OF oWndChild ;
STYLE
ACTIVATE WINDOW oWndChild ;
ON RESIZE ( oSplit1:Adjust( .T., .F., .T., .T. ), oSplit2:Adjust( .F., .T., .T., .T. ) )
return nil
function ReportOpen()
return nil