Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   suma de campos de acuerdo a la fecha (https://www.clubdelphi.com/foros/showthread.php?t=75194)

Caral 04-08-2011 04:01:29

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 04-08-2011 04:02:48

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...)

Caral 04-08-2011 04:07:49

Hola
Lo pense amigo, pero es que es lo mismo !!!====??????.
La verdad de lo que estoy seguro es que se deberia de empezar con una BD como access ya que es portatil y se puede ver con mas facilidad.
Al trabajar con otras BD y estar aprendiendo es muy dificil dar con el problema sin estar frente al ordenador del que pregunta.
Saludos

lisc_dla 04-08-2011 04:08:18

creo que sis el error es:
el mensaje manda la fecha 03/08/2011 y en la base de datos es 2011/08/03

Caral 04-08-2011 04:09:43

Hola
Hasta que por finnnnnnnnnnnn.
La pegue, lero lero.
Saludos
PD: solo formatea la fecha y listo

lisc_dla 04-08-2011 04:15:32

diras que soy :o pero tengo otra pregunta hice todos los pasos de el ejemplo [caral] pero el datafield del QRDBText1 me marca el error adoquery1: missing sql propert

:o:o:o:o

Caral 04-08-2011 04:16:13

Hola
A ver asi, si no usamos otro formato:
Código Delphi [-]
procedure Tfrm_cortedecaja.DateTimePicker1Change(Sender: TObject);
 var
 Filtro : String;
 begin
 ShortDateFormat := 'yyyy/mm/dd';

 adotable1.Active:=true;
 if Adotable1.Locate('fecha',DateToStr(DateTimePicker1.date)) = True then
 begin
 AdoTable1.Filtered := False;
 Filtro := 'fecha = '+DateToStr(DateTimePicker1.date);
 AdoTable1.Filter := Filtro;
 AdoTable1.Filtered := True;
 AdoTable1.Open;
 
 //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;
Saludos

Caral 04-08-2011 04:18:29

Hola
Terminemos con este problema, el otro esta en otro hilo.
Saludos

lisc_dla 04-08-2011 04:20:41

ya estuvo el de la suma
me mando un error pero lo corregí (ya era hora) :D:D:D

Caral 04-08-2011 04:24:27

Hola
Que bueno, me alegro mucho, ya me puedo ir a dormir tranquilo.
Saludos
PD: El error que te manda el QRDBText1 es por que el adoquery en la propiedad string esta vacio, colocale el mismo sql que tienes en el form o
Código SQL [-]
select * from tu tabla.
Con eso esta listo.

lisc_dla 04-08-2011 04:27:16

otra vez muchas gracias, espero no haberte generado dolor de cabeza :D:D:D:D:D:D

Caral 04-08-2011 04:28:31

Hola
NO, pero que duro eres......:D;)
Saludos

lisc_dla 04-08-2011 04:35:25

No me canso de agradecer :D:D:D


La franja horaria es GMT +2. Ahora son las 18:54:53.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi