From f087881450251bb32a00f7c3b68aea1a5e6a03d9 Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Mon, 25 Sep 2017 11:01:12 +0000
Subject: [PATCH] =?UTF-8?q?Se=20redondean=20a=20dos=20cifras=20la=20suma?=
 =?UTF-8?q?=20acumulada=20de=20los=20detalles=20para=20soluci=C3=B3nar=20e?=
 =?UTF-8?q?l=20descuadre=20de=20centimos=20cuando=20son=204=20cifras?=
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.LuisLeon_FactuGES2/trunk@261 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
---
 Source/Base/Controladores/uControllerDetallesBase.pas | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/Source/Base/Controladores/uControllerDetallesBase.pas b/Source/Base/Controladores/uControllerDetallesBase.pas
index dbda2ed..11a3593 100644
--- a/Source/Base/Controladores/uControllerDetallesBase.pas
+++ b/Source/Base/Controladores/uControllerDetallesBase.pas
@@ -103,7 +103,7 @@ implementation
 { TControllerDetallesBase }
 
 uses
-  cxControls, SysUtils, DB, uDAInterfaces, Dialogs;
+  cxControls, SysUtils, DB, uDAInterfaces, Dialogs, uNumUtils;
 
 
 procedure TControllerDetallesBase.ActualizarTotales(ADataTable: IDAStronglyTypedDataTable);
@@ -291,9 +291,11 @@ procedure TControllerDetallesBase.CalculoDetalleConcepto(DataTable: TDADataTable
 begin
   with DataTable do
   begin
-    ImporteAcumulado := ImporteAcumulado + FieldByName(CAMPO_IMPORTE_TOTAL).AsFloat;
+    ImporteAcumulado := ImporteAcumulado + RoundCurrency(FieldByName(CAMPO_IMPORTE_TOTAL).AsCurrency);
+//    ImporteAcumulado := ImporteAcumulado + FieldByName(CAMPO_IMPORTE_TOTAL).AsFloat;
     if not Opcional then
-       ImporteTotal := ImporteTotal + FieldByName(CAMPO_IMPORTE_TOTAL).AsFloat;
+       ImporteTotal := ImporteTotal + RoundCurrency(FieldByName(CAMPO_IMPORTE_TOTAL).AsCurrency);
+//       ImporteTotal := ImporteTotal + FieldByName(CAMPO_IMPORTE_TOTAL).AsFloat;
   end;
 end;