Problema na comparação de valores Currency e Double

[Edmilson Santin]

Olá pessoal, tudo bem?

Estou investigando uma situação no meu PDV e encontrei um trecho de código que imagino que possa ser melhorado no ACBR, e que de quebra resolve meu problema.

O trecho de código em questão é no fonte ACBrECFVirtual.pas, no método TACBrECFVirtualClassCupom.SetDescAcresSubtotal.

Logo no início deste método, há uma validação comparando se wDescAcresSubtotal é igual ao que veio no parâmetro AValue, e se for, cai fora do método.

No entanto, a propriedade wDescAcresSubtotal é Double e variável AValue é Currency, causando problemas na comparação mesmo que os valores sejam idênticos, conforme imagem:

Uma solução que se mostrou eficaz pra mim foi usar o método ComparaValor da unit ACBrUtil.pas para essa comparação, onde assim a comparação retorna o resultado correto:

No código, ficaria assim:

Diante disso, concordam em alterar a forma da comparação? Ou talvez têm alguma outra sugestão sobre como fazer essa comparação bater? Até pensei em trocar a variável wDescAcresSubtotal pra Currency, mas aí pode causar problemas nos outros cálculos da procedure, então a alteração com menos impacto na minha visão é a que sugeri.

Desde já agradeço!

[Juliomar Marchetti]

o ACBrECFVirtual foi feito para manter e dar tempo de tu migrar seu software para o componente por conta das necessidades.

creio que o mais correto é tu pegar e migrar seu software para uso do seu sistema do componente

[Edmilson Santin]

Bom dia Juliomar, obrigado pela resposta.

Você fala de usar o TACBrNFe, certo? Se sim, vou avaliar aqui pra que possamos fazer essa migração no futuro. Mas até que eu não faça essa migração eu precisaria dessa correção mesmo, seria possível seguir com as sugestões que dei?

Obrigado!

[Juliomar Marchetti]

Isso mesmo . ele foi feito lá a anos atrás para que tivesse tempo habil de troca do componente para evitar situações. foi um paliativo de anos, e acho que isso lá bem no começo quando começou as NFCe.

mas enfim, anexe sua sugestão e sugiro efetue a migração, pois é algo simples e tranquilo.

faça sua implementação a parte e só saia mudando a emissão do documento

[Edmilson Santin]

Entendi. Vou me organizar para efetuar a troca.

Até lá, segue em anexo o arquivo com a modificação sugerida. Se puder subir no SVN por favor, agradeço muito!

 

ACBrECFVirtual.pas

[Juliomar Marchetti]

Rodei uns testes unitários em delphi e lazarus e sim a resolução resolveu o problema

está no svn

[Edmilson Santin]

Maravilha! Muito obrigado pelas informações e correção!

[Juliomar Marchetti]

Obrigado por reportar.

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