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.