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;