Page 1 of 1

Nombres de tablas y campos más legibles

Posted: Tue Sep 11, 2018 11:15 am
by angelsalom
Buenos días, ante todo saludar, este es mi primer mensaje en el foro.

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 :

Image

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 :

Code: Select all

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


Gracias
Angel Salom
http://www.visionwin.com

Re: Nombres de tablas y campos más legibles

Posted: Wed Sep 12, 2018 6:04 pm
by Israel Solis
Angel:

WITH OBJECT oFr := TFastReport():New()
:AddDbf( "Clientes", { "Customer->CustNo AS Clave", "Customer->Company AS Compania", "Customer->Addr1 AS Domicilio1", ... }
:Create()
:cFilename := ".\Reports\pruebas.fr3"
:DesignReport()
:End()
END WITH

Dale un vistazo a la ayuda en Xailer para TFrDbfDataset:aFields

Re: Nombres de tablas y campos más legibles

Posted: Wed Sep 12, 2018 6:31 pm
by angelsalom
Gracias Israel, com trabajo con Harbour no había pensado en la documentación de Xailer y sólo estaba mirando el manual de FastReport de Bingen.
Con esto creo que ya lo tengo claro.

Saludos,