diff --git a/Source/Base/Utiles/uCalculosUtils.pas b/Source/Base/Utiles/uCalculosUtils.pas
index 66ae2fdb..e86c6dfe 100644
--- a/Source/Base/Utiles/uCalculosUtils.pas
+++ b/Source/Base/Utiles/uCalculosUtils.pas
@@ -75,7 +75,7 @@ end;
 
 procedure DesglosarPorte(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable);
 var
-  Unidades: Integer;
+  Unidades: Double;
   ImporteUnidad: Currency;
   ImporteSobrante: Currency;
   ABookmark : TBookmark;
@@ -94,7 +94,7 @@ begin
     while not ADetalles.DataTable.eof do
     begin
       if (ADetalles.DataTable.FieldByName(CAMPO_ID_ARTICULOS).AsInteger > 0) then
-         Unidades := Unidades + ADetalles.DataTable.FieldByName(CAMPO_CANTIDAD).AsInteger;
+         Unidades := Unidades + ADetalles.DataTable.FieldByName(CAMPO_CANTIDAD).AsFloat;
       ADetalles.DataTable.Next;
     end;
 
@@ -145,7 +145,7 @@ begin
     while not ADetalles.DataTable.eof do
     begin
       if (ADetalles.DataTable.FieldByName(CAMPO_ID_ARTICULOS).AsInteger > 0) then
-         ImporteTotal := ImporteTotal + (ADetalles.DataTable.FieldByName(CAMPO_CANTIDAD).AsInteger * ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_PORTE).AsFloat);
+         ImporteTotal := ImporteTotal + (ADetalles.DataTable.FieldByName(CAMPO_CANTIDAD).AsFloat * ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_PORTE).AsFloat);
       ADetalles.DataTable.Next;
     end;