Arredondamento causando diferença de valores

Felippi · 28 Julho, 2016

Olá bom dia, ontem tive um problema com o arredondamento automatico do valor unitario do item ocasionando a diferenca do valor total que eu passei para o valor total calculado.

O que ocorre é o seguinte o meu produto tem valor 0,085 e o acbr automaticamente arredonda para 0,09 dando essa diferenca no valor.

Eu alterei o fonte do pcnCFeW:

QtdCasasDecimais := Length(Copy(CFe.Det[i].Prod.vUnCom.ToString, Pos(',',CFe.Det[i].Prod.vUnCom.ToString) + 1, Length(CFe.Det[i].Prod.vUnCom.ToString)));
    case QtdCasasDecimais of
      2: DecQtd := tcDe2;
      3: DecQtd := tcDe3;
      4: DecQtd := tcDe4;
      6: DecQtd := tcDe6;
      10: DecQtd := tcDe10;
    end;

Para que ao pegar o valor unitario ele verifique a quantidade de casas decimais para nao haver arredondamento errôneo quando não for de combustivel..

Não sei se realmente é a melhor opção .. se for fico feliz em poder ajudar.. se não for por favor teriam como me ajudar em uma forma de resolver isso?

Obrigado pela otima ferramenta.. Abraços.

pcnCFeW.pas