¿Como actualizar totales?

[andres1569]

Hola de nuevo:

Bueno, ese problema que comentas lo tendremos siempre que lancemos la consulta SELECT SUM(), independientemente que usemos BeforePost o AfterPost o de que incluyamos en la consulta el registro "actual" (el que estábamos insertando).

Si no hay ningún campo (FechaHora, NumInsercion ...) que nos permita saber qué registros son anteriores al actual (es decir que sumen el saldo anterior), sólo nos servirá la consulta para inserciones, y en el caso de modificaciones deberíamos implementar algo así:

procedure BeforeEdit;
begin
  AnteriorCantidad := Total;
end;

procedure BeforePost;
begin
  if DataSet.State = dsInsert then 
  begin
    ConsultaSuma.Open;  // previo paso de parámetros
    SaldoAcu := ConsultaSuma['SUMA'].AsCurrency + Table1Total.AsCurrency
  end
  else SaldoAcu := SaldoAcu + Total - AnteriorCantidad;
end;

Pero ya digo, habría que recurrir a esto si no hay ninguna forma, mediante una consulta SQL, de averiguar los registros "anteriores". Si hay algún criterio, no veo la razón para no hacerlo todo mediante SQL. La consulta sería algo parecido a esto:

SELECT SUM(TOTAL)
FROM INGRESOS
WHERE FECHAHORA <= :fecha

o bien, si los números de la primary key son correlativos por orden de inserción:

SELECT SUM(TOTAL)
FROM INGRESOS
WHERE id_ingreso < :id

donde los parámetros :fecha y :id son los valores que estamos editando.