Ver Mensaje Individual
  #1  
Antiguo 23-11-2006
altp altp is offline
Miembro
 
Registrado: sep 2003
Posts: 131
Reputación: 21
altp Va por buen camino
Exclamation Error Incomprensible

Buenas tardes foreros.

No se si esta pregunta va bien akí

Les cuento mi problema

Tengo una tabla en Memoria (TRxMemoryData) con varios campos, en concreto 2 de ellos son Debe y Haber (son de tipo TIBBCDField), el caso es que hago lo siguiente:

Código Delphi [-]
var
   Importe : Extended;
begin
   Importe := 0;
   while not Rx.Eof do begin
      Importe := Importe + Rx.FieldByName('Debe').AsFloat - Rx.FieldByName('Haber').AsFloat;
      Rx.Next;
   end;
end;

Tengo ese código, para el ejemplo que les pongo el while lo recorre 3 veces:
1ª vuelta --> Debe = 553,11 --> Haber = 0 --> Importe = 553,11
2ª vuelta --> Debe = 0 --> Haber = 36,19 --> Importe = 516,92
3ª vuelta --> Debe = 0 --> Haber = 516,92 --> Importe = 5,6843418861e-14

A qué se debe que no me salga 0?

Les agradecería cualquier ayuda.

Gracias
Responder Con Cita