Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)
-   -   Imprimir diferentes tablas FastReport 4 (https://www.clubdelphi.com/foros/showthread.php?t=79281)

JJMR2009 21-06-2012 16:16:36

Imprimir diferentes tablas FastReport 4
 
Buenos días... a todos
Mi inquietud es como generar un reporte Fast report 4 el cual tenga informacion de varias tablas o consultas... Lo he intentado con un informe cruzado basandome en el demo de fastreport pero solo logro imprimir una sola tabla.... Osea necesito imprimir lo que tengo en un dbgrid que son las compras y en el otro dbgrid tengo los abonos... pero que me queden en una misma hoja. Alguna Sugerencia?... Buen Día a todos ... Gracias

movorack 21-06-2012 17:44:54

Hola JJMR2009. Aunque no un total enredo, si es algo confuso lo que escribes.

Habrían muchas preguntas que quedan pendientes...

¿Quieres hacer un reporte estandard o un reporte con tablas cruzadas?
¿Las compras y abonos son por persona?
¿los abonos deben estar relacionados con la misma compra?

Por ahora te puedo decir que para llevar la información de dos Datasets (Tablas y/o consultas). Debes colocar un FrxDBDataSet por cada dataset (compras y abonos). Dentro del diseñador seleccionas la nueva fuente de datos y podrás utilizarla en el reporte como quieras. la misma hoja, tablas cruzadas.

Espero poder ayudarte.

Saludos,

Combat-F2D 22-06-2012 07:04:54

subinformes???????
varias bandas detall?????

JJMR2009 27-06-2012 17:25:40

reporte con tablas cruzadas
 
HOLA... Gracias por la pronta respuesta
Mira lo que deseo es imprimir un reporte con tablas cruzadas. En este momento lo hago de la siguiente manera pero solo para un query "Qvales" , He tratado de hacer lo mismo para abonos con otro frxDBDataset y lo incluyo dentro del diseñor en la banda Masterdata1 pero a la hora de imprimir me sale repetido la primer consulta :
Código Delphi [-]
procedure Tcuadre.frxReport1BeforePrint(Sender: TfrxReportComponent);
var
  Cross: TfrxCrossView;
  i, j: Integer;
begin
  if Sender is TfrxCrossView then
  begin
    Cross := TfrxCrossView(Sender);
    Qvales.First;
    i := 0;
    while not Qvales.Eof  do
    begin
    for j := 0 to Qvales.Fields.Count - 1 do
    Cross.AddValue([i], [Qvales.Fields[j].DisplayLabel], [Qvales.Fields[j].AsString]);
      Qvales.Next;
      Inc(i);
    end;
  end;
end;

Gracias a todos por su ayuda

ElDioni 27-06-2012 18:01:29

Hola,

También puedes echarle un vistazo a los manuales de FastReport 4 en la página oficial

http://www.fast-report.com/es/documentation/

Saludos.


La franja horaria es GMT +2. Ahora son las 16:23:10.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi