FastReport: imprimir listados de campos variables

[[Lepe]]

Yo todavía no he llegado a las variables, espero que alguien responda.

Un detalle: en este hilo no se ha hablado de "variables" propiamente dichas. Mi idea es algo así:

Código Delphi [-]
  CreaInforme(table1, 'idcliente, cliente, dirección'); 
  MuestraPresentacionPreliminar;

Aunque la tabla tenga más campos, el informe solo mostraría los campos especificados.

Saludos

[[Delphius]]

Hola Lepe, no manejo FastReport... y apenas conozco los QReport.
¿Por casualidad lo que buscas es más o menos hacer lo que pretende david_uh en este hilo?

Yo he visto esa demo que envió y parece ser interesante y prometedora. Como para ampliarla...
Si es algo parecido a eso lo que buscas, tal vez se podría "migrar" lo que propone David a FasReport.

Saludos,

[[fjcg02]]

Hola amigos,
hace tiempo colgé el código de una utilidad para generar reportes cuyo origen es una query ( cualquier query ). A pesar de estar hecho para ADO, es fácil cambiarlo para otros componentes.
Os paso la referencia por si alguien lo considra interesante. Es para QuickReport estandard.

http://www.clubdelphi.com/foros/show...jcg02+informes

Este mismo código está incluido ( seguramente mejorado ) en el hilo que abrió Caral del programa de facturación paso a paso, como parte de una apliacción que colgué para que la pudieran destripar los foristas.

Espero haber aportado algo útil.

Saludos

[[Lepe]]

Perdonad por no responder antes, he perdido el hilo de vista, aunque he progresado bastante. Anoche a las 2 de la madrugada hice funcionar mi "TfrAutoReport".

Exacto Delphius, es eso lo que quiero conseguir, pero con FreeReport (versión con código fuente de los FastReports, aunque algo antiguos).

fjcg02: Estoy migrando una aplicación desde QuickReports a FreeReports. Existe un fallo conocido por QuSoft y sin solución: Cuando le da la gana, no imprime la foto de un QRDBImage. Es un fallo aleatorio y sin excepciones.

Este código es provisional y tendré que añadir más cosas:

Código Delphi [-]
with AutoReport1 do
begin 
  PageOrientation := pgPortrait;
  PageHeader := 'Listado de Facturas del cliente ' + DescCliente;

  Dataset := query1;
  FieldNames.Add('cliente');
  FieldNmaes.Add('direccion');
  ...

  SummaryFields.Add('"Base Imponible"');
  SummaryFields.Add('Importe');

  ShowReport;
end;

Tengo creada una presentación preliminar para FastReport. Mi idea es colocar ese componente en dicha ventana, asignar las propiedades de página y márgenes en el inspector de objetos, y ya en tiempo de ejecución usarlo para generar cualquier informe. De momento funciona.

Reconozco que FreeReports tiene los eventos OnGetValue, algo así como el OnNeedData del QuickReports, pero no quiero usar ese método, implica muchos cambios.