Suma de un campo

[silviodp]

Cbrrr:
Mirando el código que me escribiste,yo lo traté de hacer de ésta forma
Inserté en el Modulo de datos una Query, que se llama Consulta1, en su propiedad SQL escribi lo siguiente:

select sum(Precfinal) As Suma
From Det_producto Inner Join Consumos On Det_producto.Consumo=Consumos.IdConsumo;

Y en el evento AfterPost de la tabla TblDetProducto lo siguiente:

procedure TModuloDatos.TblDetproductoAfterPost(DataSet: TDataSet);
Var
 x:Variant;
begin
   ModuloDatos.Consulta1.Close;
   ModuloDatos.Consulta1.Open;
   If ModuloDatos.Consulta1.IsEmpty Then
     ModuloDatos.TblConsumos.FieldByName('Totalfactu').AsFloat:=0
   Else
     X:=Modulodatos.Consulta1.FieldByName('Suma').AsFloat;
     ModuloDatos.TblConsumos.FieldByName('Totalfactu').AsFloat:=x;

end;

Pero no me funciona, el tema está en como asigno 'SUMA' o el valor que tengo en ella al campo 'Totalfactu', de la tabla TblConsumos, ya que me parece que es eso lo que hago mal.
Igual antes probé con tu código pero no me ejecuta el programa ya que me dice que 'No puedo asignar la base de datos porque es de sólo lectura (o algo así) a Q.database:=DB Control (que es el nombre de mi base)

[cbrrr]

se supone que precfinal = Cantidad*Precunit, no?

Pues bien, a ese SQL está algo "mal"
1.- Lo sobra la unión (join) con la tabla maestra (teniendo el campo por el que buscar en la tabla detalle, es una tontería consumir recursos para hacer una join)
2.- Al quitar la join, le falta un parámetro, que es Consumo del cual quieres calcular la suma, sino te lo calculará de todo (cláusula where)

por lo que te podría quedar algo así:

Código SQL [-]
   select sum(Precfinal) as suma
   from det_producto
   where consumo = :consumo

y desde código hacer algo así:

Código Delphi [-]
    procedure TModuloDatos.TblDetproductoAfterPost(DataSet: TDataSet);
  Var
   x: Float;
  begin
     Consulta1.Close;
     Consulta1.ParamByName('consumo').AsInteger:=TblConsumos.FieldByName('IDConsumo').AsInteger;
     Consulta1.Open;
     If Consulta1.IsEmpty Then
       x := 0
     Else
       x := Consulta1.FieldByName('Suma').AsFloat;
     
     TblConsumos.Edit;
     TblConsumos.FieldByName('Totalfactu').AsFloat := x;
     TblConsumos.Post;
  end;

Consejo: acostúmbrate a no usar variables de tipo Variant cuando sabes, de entrada, el tipo de dato que será
Consejo2: dentro de un mismo formulario/módulo de datos, no hace falta que hagas referencia a éste

Espero que te sirva

[silviodp]

Muchas gracias Cbrrr, anduvo perfecto!!!, lo unico que no me reconoce es cuando defino x como Float, tuve que definirla como Currency.
Saludos.

Silvio.-

[cbrrr]

Perdón, sí, estaba yo pensando en bases de datos. El Float debería haber sido un Real (o un Currency como tu dices)