From 2ada1803933c7838a657dd7bd3788bd2161e36c9 Mon Sep 17 00:00:00 2001 From: david Date: Wed, 2 Oct 2013 08:09:36 +0000 Subject: [PATCH] =?UTF-8?q?Tarea=20#1268=20-=20Fallo=20al=20calcular=20el?= =?UTF-8?q?=20total=20de=20las=20l=C3=ADneas=20de=20detalle=20cuando=20se?= =?UTF-8?q?=20aplica=20un=20descuento=20y=20el=20importe=20unitario=20tien?= =?UTF-8?q?e=204=20decimales?= 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.Tecsitel_FactuGES2/trunk@1080 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- Build/Build.fbpInf | 2 +- Source/Base/Utiles/uCalculosUtils.pas | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/Build/Build.fbpInf b/Build/Build.fbpInf index 5b7ef20b..1a0b5bc5 100644 --- a/Build/Build.fbpInf +++ b/Build/Build.fbpInf @@ -6,7 +6,7 @@ - + diff --git a/Source/Base/Utiles/uCalculosUtils.pas b/Source/Base/Utiles/uCalculosUtils.pas index e86c6dfe..ef1874a1 100644 --- a/Source/Base/Utiles/uCalculosUtils.pas +++ b/Source/Base/Utiles/uCalculosUtils.pas @@ -45,7 +45,7 @@ begin ImporteA := FieldByName(CAMPO_IMPORTE_UNIDAD).AsFloat * (FieldByName(CAMPO_DESCUENTO).AsFloat/100); //Importe descuento redondeado a solo dos decimales, porque en grandes cantidades hay fluctuación //(importe unidad - 0,6732 no es lo mismo que importe unidad - 0,67 sobre todo cuando trabajamos con grandes cantidades) - ImporteB := round(ImporteA*100)/100; + ImporteB := round(ImporteA*10000)/10000; ImporteTotal := FieldByName(CAMPO_CANTIDAD).asfloat * (FieldByName(CAMPO_IMPORTE_UNIDAD).AsFloat - ImporteB); end;