Ver Mensaje Individual
  #4  
Antiguo 27-06-2012
JJMR2009 JJMR2009 is offline
Miembro
NULL
 
Registrado: feb 2011
Posts: 11
Reputación: 0
JJMR2009 Va por buen camino
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
Responder Con Cita