Contabilidad: error al calcular si un asiento está descuadrado o no.

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@282 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2008-07-22 14:40:12 +00:00
parent 8540d46daf
commit 155b4f36f6

View File

@ -231,7 +231,7 @@ end;
function TApuntesController.ValidarApunte(AApunte: IBizApunte): Boolean;
var
Descuadre : Double;
Descuadre : Currency;
begin
if not Assigned(AApunte) then
raise Exception.Create ('Apuntes no asignados');
@ -258,6 +258,7 @@ begin
Descuadre := Descuadre - AApunte.HABER;
AApunte.DataTable.Next;
end;
if (Descuadre <> 0) then
begin
AApunte.DataTable.EnableControls;