suma de campos de acuerdo a la fecha

[[Caral]]

Hola
Me quieres volver loco verdad ?????
Que muestra el mensaje ?.
Probaste los dos codigos ?
Saludos

[[Caral]]

Hola
Osea, el numero 1 es el primer registro que envia.
Trata esto y me dices que envia el mensaje:

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:=  DateToStr(DateTimePicker1.date);
 AdoQuery1.Active := true;
 txt_total.Text := AdoQuery1.Fields[0].AsString;
 end;
end;

No se que mostrara, ya me lo diras.
Saludos

[lisc_dla]

me manda el mensaje con la fecha que se selecciona pero en el text no quiere

[[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