Redondear en un filtro TTable
 

Buenas a todos,

tengo un problema con un filtro. Tengo una tabla (TTable). Esta table tiene la siguiente estructura(codigo integer, nombre varchar(60), saldo NUMERIC(15, 3), resto NUMERIC(15, 3)).
En mi aplicacion hay un momento en el que pongo un filtro a la tabla diciendo que solo muestre los registros cuando saldo<>resto.

La tabla tiene los siguientes valores
CODIGO NOMBRE SALDO RESTO
1 JUAN 13,03 13,03
2 PEPE 40,92 40,92
3 LUIS 119,24 119,24
4 MARIA 200,00 0,00

Tabla.filter:='saldo<>resto'

Cuando le pongo el filtro, en lugar de mostrarme el codigo 4, me muestra los codigos 4, 1,3.
Yo pienso que tiene que ser a causa de redondeos, podría redondear de alguna forma en el filtro.

No puedo cambiar el componente ttable ya que mi aplicacion es bastante vieja y tendria que rehacerla entera.

Muchas gracias por todo.

PD.: utilizo delphi 7 y firebird 1.5

Hola
Tal vez asi:

Código Delphi [-]
var 
R: Float;
Begin
 R:= Tabla.Filebyname('resto').Value;
Tabla.filter:='saldo <> '+FloatToStr(R);
Tabla.Filtered := True;

Saludos

pero así me filtrará dependiendo del registro en el que esté cuando active en filtro. Yo quiero que me filtre dependiendo del valor que tenga cada registro.


Gracias por contestar

Los flotantes tienen más decimales de lo que muestran, así que una condición de des/igualdad entre ellos, raramente se cumple.
Me extraña esto en Firebird. ¿qué dialecto usas?
Igual el problema viene por el tabla.filter que solo pueda manejar floats....

Edito: igual tienes que ajustar más esa diferencia y usar 0.003 ó 0.004, porque aunque veas 13.03 puede que el valor real sea 13.028 ó 13.027

Saludos

Muchas gracias, lo probaré. Utilizo dialecto 1.

La solucion que me he dado es la siguiente, he pasado un script a la tabla:
update nomtabla set campo1=f_roundto(campo1,2),campo2=f_roundto(campo2,2)

de esta forma con el filtro que yo ponia funciona, lo que pasa que me puede volver a pasar.