FastReport y Xailer

[Diego Ferreira]

Hola al Foro !
Eh visto un demo de FastReport con el Xailer y me parece muy
interezante ya que hasta donde tengo entendido solo hace falta colocar
una .DLL en el directorio del ejecutable y hacer el codigo a diferencia
de otros generadores de reporte que hay que incluir los dll en la
carpeta de windows system32 etc etc etc. viendo por internet vi una
version especifica de FastReport for [X]Harbour que en el el TAB de
Datas en su menu bar aparece crear Data Set igual a los de Xailer me eh
descargado de la pagina de FastReport el FastReport Studio y desde la
pagina ---> ( http://www.paritetsoft.ru/frh.htm ) el supuesto Fast
Report para Harbour pero no veo como instalarlo ya que en el menu no me
muestra el iten de crear los dataset al estilo Xailer... Falta este item
alguien de ustedes sabra como se agrega el fastreport para harbour al
estudio ??? en el manual de la pagina del FRH aparece una imagen con el
menu y el iten que falta es este que esta en rojo...
Gracias de Antemano
--

[jasm]

Hola Diego,
Me aconsejaron FastReport y hoy he estado haciendo algunas pruebas.
El dataset no hay que crearlo desde el diseñador de FastReport, hay que
enviarlo desde el programa Xailer.
Es muy sencillo de implementar y de poner en marcha.
1.- Descomprime el .zip en cualquier sitio (por ejemplo
C:XailerFastReport).
2.- Adjunta a tu proyecto el fichero FastRepH.prg y pon el FrSystH.dll
en la misma carpeta que el EXE. Copia la carpeta LANGRES dentro de tu
proyecto. Crea dentro de tu proyecto una carpeta "reports".
3.- Incluye la clase TFastReport que te adjunto en el PRG principal de
tu proyecto.
4.- Para que sea visible a toda tu aplicacion crea en el PRG principal
de tu programa:
AppData:AddData( "oReport", TFastReport():New() )
5.- Crea un DataSet de Xailer, por ejemplo, "MiDataSet"
6.- Usa la siguiente construcción:
METHOD Imprimir() CLASS TForm4
LOCAL cName, cHeaders := ""
LOCAL nLin
LOCAL oDataset := ::oMiDataSet
FOR EACH cName IN oDataset:aListFields
IF !Empty( cName )
cHeaders += cName + ";"
END IF
NEXT
with object AppData:oReport
:cFichero := "Clientes.fr3"
:nAction := 3
/* Valores de :nAction
1 --> Ejecuta el informe directamente.
2 --> Previsualiza el informe.
3 --> Abre el diseñador.
*/
:SetUserDataSet( "Clientes", cHeaders, ;
{ ||oDataset:GoTop() }, ;
{ ||oDataset:Skip() },;
{ ||oDataset:Skip( -1 ) },;
{ ||oDataset:Eof() },;
{ | cField | oDataset:FieldGetByName( cField ) } )
:Imprimir()
end with
RETURN NIL
Suerte.
Saludos,
Alf+.
//---------------------------------------------------------- --------------------
CLASS TFastReport FROM frReportManager
EXPORTED:
PROPERTY nAction INIT 2
PROPERTY cCarpeta INIT Application:cDirectory + "reports"
PROPERTY cFichero INIT ""
METHOD New( cOptionalPath )
METHOD Imprimir()
ENDCLASS
METHOD New( cOptionalPath ) CLASS TFastReport
::Init( cOptionalPath )
::LoadLangRes(Application:cDirectory + "langresSpanish.xml")
::PreviewOptions:SetButtons(1535) // No aparece el boton de editar
::PreviewOptions:SetZoomMode(FR_ZM_MANYPAGES)
RETURN Self
METHOD Imprimir(cFile) CLASS TFastReport
DEFAULT cFile TO ::cFichero
::LoadFromFile( ::cCarpeta + cFile )
SWITCH ::nAction
CASE 1
::PrepareReport()
::Print(.T.)
EXIT
CASE 2
::ShowReport()
EXIT
CASE 3
::DesignReport()
EXIT
END
::Clear()
::ClearDataSets()
// ::DestroyFR()
RETURN Nil
//---------------------------------------------------------- --------------------
Diego Ferreira escribió:
> Hola al Foro !
>
> Eh visto un demo de FastReport con el Xailer y me parece muy
> interezante ya que hasta donde tengo entendido solo hace falta colocar
> una .DLL en el directorio del ejecutable y hacer el codigo a diferencia
> de otros generadores de reporte que hay que incluir los dll en la
> carpeta de windows system32 etc etc etc. viendo por internet vi una
> version especifica de FastReport for [X]Harbour que en el el TAB de
> Datas en su menu bar aparece crear Data Set igual a los de Xailer me eh
> descargado de la pagina de FastReport el FastReport Studio y desde la
> pagina ---> ( http://www.paritetsoft.ru/frh.htm ) el supuesto Fast
> Report para Harbour pero no veo como instalarlo ya que en el menu no me
> muestra el iten de crear los dataset al estilo Xailer... Falta este item
> alguien de ustedes sabra como se agrega el fastreport para harbour al
> estudio ??? en el manual de la pagina del FRH aparece una imagen con el
> menu y el iten que falta es este que esta en rojo...
>
> Gracias de Antemano
>
> ------------------------------------------------------------ ------------
>

[jasm]

Me olvidaba,
Una vez abierto el diseñador de FastReport, tienes que ir a
Informe-Datos y seleccionar el dataset.
A partir de ahí­ es usar el diseñador.
SUERTE!!
Saludos
Alf+.

[jasm]

Si tengo tiempo esta semana cuelgo un ejemplo en www.chochurro.com
Saludos
Alf+.

[Diego Ferreira]

Saludos Jose Alfonso te agradesco Mil Gracias y seria bueno que montaras
el ejemplo ! Yo probe el FastReport con ADO y el Driver ODBC de Dbase
para diseñar un reporte y me lo ah hecho de maravillas... Pero aun tengo
que probar tu ejemplo que me pasaste como acabo de ver el mensaje en lo
que pueda lo rebiso a ver que tal.. pero una pregunta si el Data Set que
le paso a el Fast Report es un SQLQuery con su Property cSelect :=
"Select All From Clientes WHERE nombre LIKE die%" el reporte generado ya
va a salir con ese juego de registros que comienzan por "DIE" y si
quiero pasarle unos parametros a la cabecera del formulario por Ejemplo
el nombre de usuario que genero el reporte como se haria...!
Mil Gracias
José Alfonso Suárez Moreno escribió:
> Si tengo tiempo esta semana cuelgo un ejemplo en www.chochurro.com
>
> Saludos
>
> Alf+.

[Diego Ferreira]

Eh probado lo que me as dicho y funciona perfectamente ya me sale el
icono en la toolbar de la data y me agrega bien todo... pero lo trate de
hacer con un SQLTABLE y no me funciono lo as probado es que no se puede
o se tiene que hacer de una forma diferente ??? ya que con MySQL seria
un tiro por los Selects claro lo podria hacer por ADO en el fast reports
no seria dificil !!!
Gracias Jose Alfonso