Suma de un campo

[Sirkius]

Empezado por silviodp

Existe alguna función que sume todos los valores de un campo numérico de una tabla y me arroge el resultado?
Gracias, saludos.

Silvio.-

Pues creo que segun la base de datos es SUM(campo) o COUNT(campo).

Saludos

[cbrrr]

Puedes hacer una sentencia SQL de suma

Código SQL [-]
 select sum(campo) as suma
 from tabla
 where condiciones

y desde Delphi luego recuperar el valor

Código Delphi [-]
 var
   i: integer;
 begin
 .....
   Query.Open;
   i := Query.FieldByName('Suma').AsInteger;

Espero que te sirva

[Sirkius]

Empezado por Sirkius

Pues creo que segun la base de datos es SUM(campo) o COUNT(campo).

Saludos

Ups... vaya error que metí: COUNT no suma solo cuenta...

[silviodp]

Estoy utilizando Paradox 7, con el BDE, y creo que esa funcion no la tiene, me parece...
Saben si alguna otra?
Gracias.

Silvio.-

[cbrrr]

Pues el Local SQL (que es lo que usa el BDE) sí que incorpora el SUM (de hecho, cualquier motor de bases de datos que se precie mínimamente lo incorpora, es casi básico)

Quizás es que no lo estás haciendo correctamente

Por qué no explicas que estás haciendo exactamente?

[silviodp]

Lo que quiero hacer es que cuando cargo el detalle de una factura (Tabla Detproducto), me vaya sumando el total de cada producto en otro campo que pertenece a la tabla Consumos, que seria el total de la factura.
Me explico?, estoy trabajando con el BDE con tablas Paradox 7, en Delphi 5.
Muchas gracias.

Silvio.-

[cbrrr]

Lo siento silviodp, quizás estoy algo espeso, pero no termino de entenderte

Por que no miras de ponernos la estructura de las tablas y la relación que hay entre ellas? A ver si así lo entiendo mejor

[silviodp]

Ok, no hay problema, la estructura de las tablas es la siguiente:

TblConsumo:

IDConsumo (Numerico)
Facturan (N)
Fecha (Date)
Seccion (N)
Vehiculo (N)
Observacion (Memo)
Totalfactu (N)

TblDetproducto: (tabla detalle, es el detalle de la factura cargada, donde se cargan los productos, y se calcula el precio y el iva de cada uno, segun la cantidad)

Consumo (N)
IDDetal (N)
Producto (Alpha)
Cantidad (N)
Precunit (N)
Ivaunit (N)
Precneto (N)
Netoiva (N)
Precfinal (N)

Las dos tablas están relacionadas por la relación Maestro-Detalle mediante el campo IDConsumo en la primera (que es la Maestro) y Consumo de la segunda (Detalle).
Y bueno, a medida que voy cargando los productos en la tabla Detalle, quiero que me vaya Sumando en el campo Totalfactu de la Maestro el precio de cada producto cargado (es decir del campo Precfinal), que es el precio final de la factura...
Yo lo estoy haciendo así:
en el boton Grabar del form que me permite cargar un Producto

procedure TForm16.GrabarClick(Sender: TObject);
begin
  ModuloDatos.TblDetproducto.Post;
  Modulodatos.DSDetproducto.Enabled:=True;
  Form4.Modificar.Enabled:=True;
  Form4.Quitar.Enabled:=True;
  Close;
end;

y en el BeforePost de la tabla TblDetproducto hago

procedure TModuloDatos.TblDetproductoAfterPost(DataSet: TDataSet);
var
 x,y:Currency;
 n,m:Integer;
begin
 m:=ModuloDatos.TblDetproducto.RecordCount;
 For n:=1 To m Do
  begin
   x:=ModuloDatos.TblDetproducto.FieldValues['PRECFINAL'];
   y:=y+x;
  end;
  ModuloDatos.TblConsumos.FieldValues['TOTALFACTU']:=y;
end;

pero no funciona, es decir lo hace la primer vez pero cuando cargo otro producto, me arroja el resultado de sumar dos veces el último.
Haber si me pueden dar una idea.
Espero haber sido mas claro. Haaa, me olvidaba uso Paradox 7, y trabajo con Delphi 5.
Gracias.

Silvio.-