diff --git a/Source/Base/Controladores/uControllerDetallesBase.pas b/Source/Base/Controladores/uControllerDetallesBase.pas
index 7b8484ad..2a205325 100644
--- a/Source/Base/Controladores/uControllerDetallesBase.pas
+++ b/Source/Base/Controladores/uControllerDetallesBase.pas
@@ -143,7 +143,7 @@ end;
 function TControllerDetallesBase.CalcularImporteTotalConcepto(DataTable: TDADataTable): Double;
 begin
   with DataTable do
-    Result := FieldByName(CAMPO_CANTIDAD).asInteger * FieldByName(CAMPO_IMPORTE_UNIDAD).AsFloat;
+    Result := FieldByName(CAMPO_CANTIDAD).asFloat * FieldByName(CAMPO_IMPORTE_UNIDAD).AsFloat;
 end;
 
 function TControllerDetallesBase.CalcularTotales(Modificar: boolean; DataTable: TDADataTable): Double;