suma de campos de acuerdo a la fecha

[[Caral]]

Hola
Eso me dice que es posible que la fecha no la lea del datetimepicker ya que la lee como string, me parece.
Cambia esto a ver si envia un error:

Código Delphi [-]
procedure Tfrm_cortedecaja.DateTimePicker1Change(Sender: TObject);
 var
 Filtro : String;
 begin
 adotable1.Active:=true;
 if Adotable1.Locate('fecha',lbl_fecha.Caption,[]) = True then
 begin
 AdoTable1.Filtered := False;
 Filtro := 'fecha = '+DateToStr(DateTimePicker1.date);
 AdoTable1.Filter := Filtro;
 AdoTable1.Filtered := True;
 AdoTable1.Open;
 Showmessage(Filtro); // aqui revisas que informacion te trae
 //en caso de encontrar productos vendidos realiza la suma
 AdoQuery1.SQL.Text := 'Select sum(importe) as total from caja '+
                       ' where fecha = :Fec '; // aqui esta tu semicolon
 AdoQuery1.Parameters[0].Value:=  Filtro;
 AdoQuery1.Active := true;
 txt_total.Text := AdoQuery1.Fields[0].AsString;
 end;
end;

Saludos

[lisc_dla]

sigue mandando el mensaje con la fecha, ningún error

[[Caral]]

Hola
No lleno el text con nada ?.
Saludos

[lisc_dla]

NO el text sigue en blanco

[[Caral]]

Hola
Estas completamente seguro que CAJA es la tabla que contiene la fecha ?.
Si no envia ningun error el sql esta bien, el problema es o que no existe el dato o que no es la misma tabla.
Algo esta pasando, no entiendo.
Que ganas de estar frente a tu ordenador....
Saludos

[lisc_dla]

es la misma tabla, de hecho si me salio la suma solo que no ocupaba la fecha, ocupaba otro campo.

el campo de fecha en mysql es de tipo date

si se visualiza la búsqueda en el dbgrid pero la suma es la que no funciona

[[Caral]]

Hola
Veamos:
Me dices que si se sumo pero buscando por otro campo que no es la fecha.
Eso sigue diciendo que el formato de la fecha que envias no es el mismo formato que esta en la tabla.
Verifica el mensaje y compara el dato con el que esta en la tabla.
aveces pasa que es dd/mm/aaaa o mm/dd/aaaa o dd.mm.aaaa etc....
Saludos
PD: Helppppppp

[ecfisa]

Hola.

Es raro... no sé si será esto pero por las dudas proba así:

Código Delphi [-]
  ...
  txt_total.Text:= Query1.FieldByName('total').AsString;
  ...

Saludos.

Edito: (digo por el órden...)