Usar ADOQuery más de 1 Vez

[vtdeleon]

Saludos

Prueba asi:

Código Delphi [-]
With Mod_Datos.ADOQuery1 do
begin
  Close;
  SQL.Clear;
  SQL.Add('SELECT Sum(CVenta) AS Total FROM TicketDetalle TD, Ticket T ' +
                                    'Where TD.CveTecla = :Con_Iva ' +
                                    'And TD.IdTicket = T.IdTicket ' +
                                    'And T.Cancelado <> :Cancelado ' +
                                    'And BETWEEN(T.FechaHora,:Fecha1,:Fecha2)');
   With Parameter do
   begin 
     ParamByName('Fecha1').DataType := ftDate;
     ParamByName('Fecha1').Value  := DateTimePicker1.Date;
            //------------------
     ParamByName('Fecha2').DataType := ftDate;
     ParamByName('Fecha2').Value  := DateTimePicker2.Date;
            //------------------
     ParamByName('Cancelado').DataType := ftBoolean;
     ParamByName('Cancelado').Value  := True;
            //------------------
     ParamByName('Con_Iva').DataType := ftString;
     ParamByName('Con_Iva').Value  := 'L2';
            //------------------
     ParamByName('Sin_Iva').DataType := ftString;
     ParamByName('Sin_Iva').Value  := 'L1';
   end
   Open;
   Con_Iva:= FieldByname('Total').AsCurrency;
 end;

No necesitas hacer AddParameter.Name := 'Fecha1';, porque el mismo componente lo agrega.