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;