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)
Responder
angelsalom
Mensajes: 16
Registrado: Mar Sep 11, 2018 8:37 am

Nombres de tablas y campos más legibles

Mensaje por 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 :

Imagen

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)
Gracias
Angel Salom
http://www.visionwin.com
Angel Salom
www.visionwin.com
Israel Solis
Mensajes: 142
Registrado: Mié Nov 03, 2004 12:42 pm
Ubicación: Cancún, México
Contactar:

Re: Nombres de tablas y campos más legibles

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

Israel
angelsalom
Mensajes: 16
Registrado: Mar Sep 11, 2018 8:37 am

Re: Nombres de tablas y campos más legibles

Mensaje por 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,
Angel Salom
www.visionwin.com
Responder