Problemas de arredondamento

[Ademir P. Voigt]

Pessoal, tenho no banco de dados MySQL campos double com 4 casas decimais.

eles são armazenados assim:

99.8085

0.1904

0.0011

Mas, de forma aleatória, ao gerar o XML, ficam assim:

<pGLP>99.8086</pGLP>

<pGNn>0.1905</pGNn>

<pGNi>0.0012</pGNi>

 

Seria o delphi ou o a ACBr quem modifica esses valores? Sendo que eu só passo pro ACBR dessa forma:

 Prod.comb.pGLP := MyQrItensNFepGLP_anp.AsCurrency;            
 Prod.comb.pGNn := MyQrItensNFepGNn_anp.AsCurrency;
 Prod.comb.pGNi := MyQrItensNFepGNi_anp.AsCurrency; 
 

Obs.: Tentei AsFloat sem sucesso. Duas ou tres notas ficam certas e outra gera com problema e o sefaz devolve.

De que forma devo usar o RoundABNT para que o valor 99.8084 fique sendo sempre 99.8084? ele está no banco de dados dessa forma.

Editado 29 Fevereiro por Ademir P. Voigt

[Agnaldo Prates]

14 horas atrás, Ademir P. Voigt disse:

Obs.: Tentei AsFloat sem sucesso. Duas ou tres notas ficam certas e outra gera com problema e o sefaz devolve.

De que forma devo usar o RoundABNT para que o valor 99.8084 fique sendo sempre 99.8084? ele está no banco de dados dessa forma.

Provavelmente sua consulta está retornando os valores incorretos, ACBr e o Delphi, mantêm o valor informado.

[Ademir P. Voigt]

Bom dia!

Obrigado pelo retorno Agnaldo!

A Consulta traz sempre certo. Debuguei e Coloquei um showmessage na tela e nunca retornou a consulta com alterações, isso só é visto no XML.

Vc poderia, por gentileza, me ceder esse projeto de calculos?

[Ademir P. Voigt]

46 minutos atrás, Agnaldo Prates disse:

Provavelmente sua consulta está retornando os valores incorretos, ACBr e o Delphi, mantêm o valor informado.

Realmente é a consulta

Alguma ideia de como resolver?

[Ademir P. Voigt]

Agora a consulta traz sempre correto, mas depois da passagem do pro ACBR o campo do ACBr adicinar um valor na 4ª casa decimal

[Agnaldo Prates]

14 minutos atrás, Ademir P. Voigt disse:

Agora a consulta traz sempre correto, mas depois da passagem do pro ACBR o campo do ACBr adicinar um valor na 4ª casa decimal

Tente desta forma:

 Prod.comb.pGLP := RoundABNT(MyQrItensNFepGLP_anp.AsCurrency,4);
 Prod.comb.pGNn := RoundABNT(MyQrItensNFepGNn_anp.AsCurrency,4);
 Prod.comb.pGNi := RoundABNT(MyQrItensNFepGNi_anp.AsCurrency,4);

[Ademir P. Voigt]

4 horas atrás, Agnaldo Prates disse:

Tente desta forma:

 Prod.comb.pGLP := RoundABNT(MyQrItensNFepGLP_anp.AsCurrency,4);
 Prod.comb.pGNn := RoundABNT(MyQrItensNFepGNn_anp.AsCurrency,4);
 Prod.comb.pGNi := RoundABNT(MyQrItensNFepGNi_anp.AsCurrency,4);

Gato pela ajuda. Na verdade com alguns ajustes inetrnos no fonte conseguimos contornar. Mas não estou arredondando, devia ser coisa do delphi.