Ademir P. Voigt Postado 29 Fevereiro Compartilhar Postado 29 Fevereiro (editado) 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 Link para o comentário Compartilhar em outros sites More sharing options...
Agnaldo Prates Postado 1 Março Compartilhar Postado 1 Março 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. _____________ Prates, Agnaldo Link para o comentário Compartilhar em outros sites More sharing options...
Ademir P. Voigt Postado 1 Março Autor Compartilhar Postado 1 Março 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? Link para o comentário Compartilhar em outros sites More sharing options...
Ademir P. Voigt Postado 1 Março Autor Compartilhar Postado 1 Março 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? Link para o comentário Compartilhar em outros sites More sharing options...
Ademir P. Voigt Postado 1 Março Autor Compartilhar Postado 1 Março Agora a consulta traz sempre correto, mas depois da passagem do pro ACBR o campo do ACBr adicinar um valor na 4ª casa decimal Link para o comentário Compartilhar em outros sites More sharing options...
Agnaldo Prates Postado 1 Março Compartilhar Postado 1 Março 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); _____________ Prates, Agnaldo Link para o comentário Compartilhar em outros sites More sharing options...
Solution Ademir P. Voigt Postado 1 Março Autor Solution Compartilhar Postado 1 Março 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. Link para o comentário Compartilhar em outros sites More sharing options...
Recommended Posts
Crie uma conta ou entre para comentar
Você precisar ser um membro para fazer um comentário
Criar uma conta
Crie uma nova conta em nossa comunidade. É fácil!
Crie uma nova contaEntrar
Já tem uma conta? Faça o login.
Entrar Agora