From 226fa4259fd64829e927d7fe784a886139a68a35 Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Tue, 30 Sep 2008 09:33:53 +0000
Subject: [PATCH] Se adaptan los detalles para que puedan ser las cantidades
 decimales

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@633 0c75b7a4-871f-7646-8a2f-f78d34cc349f
---
 Source/Base/Utiles/uCalculosUtils.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Source/Base/Utiles/uCalculosUtils.pas b/Source/Base/Utiles/uCalculosUtils.pas
index 483327b3..57300e45 100644
--- a/Source/Base/Utiles/uCalculosUtils.pas
+++ b/Source/Base/Utiles/uCalculosUtils.pas
@@ -36,14 +36,14 @@ begin
   with ADataTable do
   begin
     if (VarIsNull(FieldByName(CAMPO_DESCUENTO).AsVariant)) then
-      ImporteTotal := FieldByName(CAMPO_CANTIDAD).asInteger * FieldByName(CAMPO_IMPORTE_UNIDAD).AsFloat
+      ImporteTotal := FieldByName(CAMPO_CANTIDAD).asfloat * FieldByName(CAMPO_IMPORTE_UNIDAD).AsFloat
     else
-      ImporteTotal := FieldByName(CAMPO_CANTIDAD).asInteger * (FieldByName(CAMPO_IMPORTE_UNIDAD).AsFloat - (FieldByName(CAMPO_IMPORTE_UNIDAD).AsFloat * (FieldByName(CAMPO_DESCUENTO).AsFloat/100)));
+      ImporteTotal := FieldByName(CAMPO_CANTIDAD).asfloat * (FieldByName(CAMPO_IMPORTE_UNIDAD).AsFloat - (FieldByName(CAMPO_IMPORTE_UNIDAD).AsFloat * (FieldByName(CAMPO_DESCUENTO).AsFloat/100)));
 
     if (VarIsNull(FieldByName(CAMPO_IMPORTE_PORTE).AsVariant)) then
       ImporteTotal := ImporteTotal
     else
-      ImporteTotal := ImporteTotal + (FieldByName(CAMPO_CANTIDAD).asInteger * FieldByName(CAMPO_IMPORTE_PORTE).AsFloat);
+      ImporteTotal := ImporteTotal + (FieldByName(CAMPO_CANTIDAD).asfloat * FieldByName(CAMPO_IMPORTE_PORTE).AsFloat);
   end;
 
   Result := ImporteTotal;