From 155b4f36f6e35349f64517f3962922cc11616fd4 Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Tue, 22 Jul 2008 14:40:12 +0000
Subject: [PATCH] =?UTF-8?q?Contabilidad:=20error=20al=20calcular=20si=20un?=
 =?UTF-8?q?=20asiento=20est=C3=A1=20descuadrado=20o=20no.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@282 f4e31baf-9722-1c47-927c-6f952f962d4b
---
 Source/Modulos/Contabilidad/Controller/uApuntesController.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Source/Modulos/Contabilidad/Controller/uApuntesController.pas b/Source/Modulos/Contabilidad/Controller/uApuntesController.pas
index 8712800f..bcfccf2a 100644
--- a/Source/Modulos/Contabilidad/Controller/uApuntesController.pas
+++ b/Source/Modulos/Contabilidad/Controller/uApuntesController.pas
@@ -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;