He descargado la versión de demostración de fastreport con la intención de incorporarlo a las aplicaciones de nuestra empresa ya que me parece un producto excepcional, aunque antes de adquirirlo he estado realizando varias pruebas para decidirme.
Los ejemplos que he probado, así como los intentos de compilar pruebas propias han resultado totalmente satisfactorios, pero ahora me he encontrado con un tema que no he sabido solventar. Se trata de poder indicar las tablas y los nombres de los campos de cada tabla en un formato más legible. ¿Es esto posible?
Me refiero a esto :
Cambiar por ejemplo "CUSTOMER" por "Fichero de clientes" así como los nombres de los campos.
He descartado el uso del modo de compatibilidad con la lib. de Sergey ya que he visto que el método SetWorkArea añade toda la DBF a un array. Trabajamos con informes de un volumen de registros considerables y este método no es viable.
Utilizo este simple código extraído de los ejemplos :
Código: Seleccionar todo
#include "hbclass.ch"
#include "frh.ch"
CLASS TFastReport FROM XFastReport
VAR cFRLicense INIT ""
VAR cXALicense INIT ""
END CLASS
Function Main()
Local oFr
REQUEST DBFCDX
USE .\DATA\CUSTOMER SHARED VIA "DBFCDX" NEW
WITH OBJECT oFr := TFastReport():New()
:AddDbf( "CUSTOMER", { "Customer->*" } )
:Create()
:cFilename := ".\Reports\pruebas.fr3"
:DesignReport()
:End()
END WITH
CLOSE ALL
Return (nil)
Angel Salom
http://www.visionwin.com