Problemas com Arredondamento

[m5sistemas]

Boa noite, estou tendo alguns problemas com retorno da receita sobre arredondamento, nao sei se estou usando o comando correto, mas em todo caso segue abaixo o caso!

0,19 X 29,50 -> 5,605 > usando roundabnt retorna 5,60 

var vaux : double;
begin
vaux := ((DadosModule.itensnotaFiscalsource.DataSet.FieldByName('Unitario').asfloat* DadosModule.itensnotaFiscalsource.DataSet.FieldByName('quantidade').AsFloat));
DadosModule.itensnotaFiscalsource.DataSet.FieldByName('Total').asfloat:= ACBrUTIL.RoundABNT((vaux),2);
 

- mas a receita retorna esta menssagem 

 

Resultado=564
Mensagem=Total do Produto / Servico difere do somatorio dos itens. (vProd informado: 5.60, vProd calculado: 5.61). Orientações: Verifique se a soma do Valor do Produto/Serviço de todos os itens da nota é igual ao Valor Total Produto/Serviço informado no Total da nota.
ChaveNFCe=41230885476372000141650010003789641377852041
NumeroLote=000000000381778

[Daniel InfoCotidiano]

Bom dia !
A função de arredondamento segue as regras ABNT (http://svn.code.sf.net/p/acbr/code/tools/Diversos/nbr-5891-2014-regras-de-arredondamento-na-numeraao-decimalpdf.pdf)
vc esta utilizando na soma dos totalizadores o round abnt tbm?
TotalItens := nTotalItens + vaux;
Se puder anexar seu xml aqui p que possamos ver como está o conteúdo dele.
Mas tente usar o round para somar os totalizadores dos itens tbm

[Ronaldo.Bispo]

Olá, tudo bem..

se ajudar ainda tive alguns problemas parecido com NFS-e. 

Antes de gerar usamos o metodo do Delphi SetRoundMode(rmUp), então os valores arredondam para cima. 

SetRoundMode (Delphi) - RAD Studio Code Examples (embarcadero.com)

Espero ter ajudado...

[m5sistemas]

Obrigado Rodaldo pela dica. mas o roundabnt do acbr funcionou certinho agora q o inclui em todos os calculos

 

- Fiquem com DEUS

[Daniel InfoCotidiano]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.