como mejorar este codigo... sumando campos

[marcoszorrilla]

Si el código lo relacionas, no con el DbEdit, sino en el evento OnChange de los campos implicados, te funcionará en cualquier momento y desde cualquier lugar, por ejemplo te dará lo mimso que estas en una pantalla con DbEdits, que en una rejilla pues nada más introducir datos se producirá el cálculo.

Un Saludo.

[roman]

Da la impresión de que estás guardando la suma de ciertos campos en otro campo. Este último campo es lo que se llama un campo calculado, y normalmente no tiene caso guardarlo en la base. Pienso que el rendimiento podría mejorar si renuncias a guardar el dato. Siempre puedes usar un LookupField para mostrar el resultado.

// Saludos

[[fjcg02]]

Prueba como dice marcoszorrilla en el evento onchange, y utiliza los valores campo.Oldvalue y campo.value, es decir, el valor antes de cambiar y el nuevo valor.

Es decir, presentas el total en un campo, y cada vez que cambias un dbedit, le restas el valor del campo que cambias y le sumas el nuevo valor

Código Delphi [-]
procedure TCardexForm1.DBEdit3OnChanget(Sender: TObject);
begin
 try
   dm.TbEmpleadosSueldoMensual.AsFloat :=dm.TbEmpleadosSueldoMensual.AsFloat 
                                                        -(Sender as TDBEdit).Field.OldValue 
                                                         +(Sender as TDBEdit).Field.Value
 Except
 end;
end;

Asocias la misma funcion a todos los DBEdits, y a correr.


Suerte y saludos