In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Nombres de tablas y campos más legibles

FastReport for Xailer & [x]Harbour (English/Spanish)
angelsalom
Posts: 15
Joined: Tue Sep 11, 2018 8:37 am

Nombres de tablas y campos más legibles

Postby angelsalom » Tue Sep 11, 2018 11:15 am

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
Israel Solis
Posts: 137
Joined: Wed Nov 03, 2004 12:42 pm
Location: Cancún, México
Contact:

Re: Nombres de tablas y campos más legibles

Postby Israel Solis » Wed Sep 12, 2018 6:04 pm

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
Saludos :D

Israel
angelsalom
Posts: 15
Joined: Tue Sep 11, 2018 8:37 am

Re: Nombres de tablas y campos más legibles

Postby angelsalom » Wed Sep 12, 2018 6:31 pm

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,

Return to “FastReport”