ROUNDAbnt - erro ao avaliar valor negativo.

[amarildolacerda]

 

nesta linha:

    ItemCupom.DescAcres := RoundABNT( ADescAcres, -2);

Quando   ADescAcres=-1,95        retorna     -1,94

 

Alteração provisória:

function RoundABNT(AValue: Double; const Digits: SmallInt):Double;
var
   Pow, FracValue, PowValue : Extended;
   RestPart: Double;
   IntCalc, FracCalc, LastNumber, IntValue : Int64;
   ehNegativo:boolean;
Begin
   ehNegativo := AValue<0;
   if ehNegativo then
      AValue := -AValue;

 

   Pow       := intpower(10, abs(Digits) );
   PowValue  := AValue / 10 ;
   IntValue  := trunc(PowValue);
   FracValue := frac(PowValue);

 

   PowValue := FracValue * 10 * Pow ;
   IntCalc  := trunc( PowValue );
   FracCalc := TruncFix( frac( PowValue ) * 100 );

 

   if (FracCalc > 50) then
      Inc( IntCalc )

 

   else if (FracCalc = 50) then
    begin
      LastNumber := round( frac( IntCalc / 10) * 10);

 

      if odd(LastNumber) then
         Inc( IntCalc )
      else
       begin
         PowValue := PowValue * 10;
         RestPart := PowValue - TruncFix(PowValue);

 

         if RestPart > 0.00001 then
            Inc( IntCalc );
       end ;
    end ;

 

   Result := ((IntValue*10) + (IntCalc / Pow));

 

   if ehNegativo then
      Result := - Result;

 

end;

[Daniel Simoes]

Oi Amarildo,

Minha equipe pegou aqui o mesmo problema... eu já estava com uma correção, que acabei de enviar para o SVN...