[[Caral]]

Hola
Una partecita que tal vez te guíe:

Código Delphi [-]
   else if Reporte = 'MovimientosCChGen' then
   begin
      ShortDateFormat := 'mm/dd/yyyy';
      //#
      try
         QRMovCajaChica:=TQRMovCajaChica.Create(self);
         QRMovCajaChica.ADOQuery1.SQL.Add('  SELECT Last(CajaChica.IdTramsac) AS IdTramsac, CajaChica.CodTransac, CajaChica.TipoTransac, CajaChica.FechaTransac, '+
                                          ' CajaChica.Proveedor, CajaChica.Descripcion, CajaChica.NumRecibo, CajaChica.Retiros, CajaChica.Depositos, CajaChica.SaldoAnt, '+
                                          ' CajaChica.SaldoTotal, CajaChica.IdCuenta, CajaChica.NombreCuenta FROM CajaChica ');
         QRMovCajaChica.ADOQuery1.SQL.Add(' WHERE CajaChica.FechaTransac >= #'+DateToStr(DTP1.Date)+ '# AND  CajaChica.FechaTransac <= # '+DateToStr(DTP2.Date)+'#');
         QRMovCajaChica.ADOQuery1.SQL.Add(' GROUP BY CajaChica.CodTransac, CajaChica.TipoTransac, CajaChica.FechaTransac, CajaChica.Proveedor, CajaChica.Descripcion, '+
                                          ' CajaChica.NumRecibo, CajaChica.Retiros, CajaChica.Depositos, CajaChica.SaldoAnt, CajaChica.SaldoTotal, CajaChica.IdCuenta, CajaChica.NombreCuenta');
         QRMovCajaChica.ADOQuery1.SQL.Add(' ORDER BY Last(CajaChica.IdTramsac)');
         QRMovCajaChica.ADOQuery1.Open;
         ShortDateFormat := 'dd/mm/yyyy';
         QRMovCajaChica.Titulo.text := 'Movimientos de Caja Chica';
         QRMovCajaChica.QRLblDesde.Caption := DateToStr(DTP1.Date);
         QRMovCajaChica.QRLblHasta.Caption := DateToStr(DTP2.Date);
         If RadioGroup1.ItemIndex = 0 then QRMovCajaChica.Print
         else QRMovCajaChica.Preview;
      finally
         QRMovCajaChica.Free;

Saludos