[[Caral]]

Hola
Para ampliar un poco mas los datos:
Asi es como llamo al qreport:
Como veis divido la consulta sacando el where y el group by, lo típico nada mas.

Código Delphi [-]
 try
         QRProduccionTerminadasPiezas:=TQRProduccionTerminadasPiezas.Create(self);
         QRProduccionTerminadasPiezas.ADOQuery1.SQL.Add(' WHERE OrdenProdItem.FinProd >= :f1 AND OrdenProdItem.FinProd <= :f2 +1');
         QRProduccionTerminadasPiezas.ADOQuery1.SQL.Add(' GROUP BY OrdenProdItem.CodParte, '+
         ' Articulos.Descripcion|| '' '' ||Categoria|| '' '' ||SubCategoria, SerieMaterial.CodMaterial, '+
         ' Materiales.Descripcion, Materiales.Unidad ');
         QRProduccionTerminadasPiezas.ADOQuery1.Params[0].Value:= DateToStr(DTP1.Date);
         QRProduccionTerminadasPiezas.ADOQuery1.Params[1].Value:= DateToStr(DTP2.Date);

         QRProduccionTerminadasPiezas.ADOQuery1.Open;
         QRProduccionTerminadasPiezas.QRLblDesde.Caption := DateToStr(DTP1.Date);
         QRProduccionTerminadasPiezas.QRLblHasta.Caption := DateToStr(DTP2.Date);
         If RadioGroup1.ItemIndex = 0 then QRProduccionTerminadasPiezas.Print
         else QRProduccionTerminadasPiezas.Preview;
      finally
         QRProduccionTerminadasPiezas.Free;
      end; //try

Saludos