Impressão de boleto com valor zerado por setValorDocumento funcionando mal

[Wellington Alamino]

Pós atualização dos arquivos ACBR-boleto os boletos gerados passaram a sair com valor documento zerado.

Verifiquei o log dos arquivos e encontrei a alteração que me trouce problemas, segue:

 

procedure TACBrTitulo.setValorDocumento(const AValue: Currency);
begin
  // O arredondamento é com objetivo de remover as diferenças em arredondamentos posteriores,
  //    que causa uma diferença entre o valor do documento e a linha digitável.

  fValorDocumento := RoundTo(Double(AValue), -2);
end;
  // Veja:

Porem não sei por qual motivo Double(25,55) me retorna zero, e também não entendo a necessidade desta "Conversão" para Double se "AValue" e "fValorDocumento" são Currency;

 

Podo somente o meu Delphi está se comportando desta forma, se alguém puder me orientar, pois parece ser uma coisa boba, mas não gosto de mexer diretamente nos códigos do ACBR.

Obrigado desde já. 

 

[Diogenes Rafael Azevedo]

Bom dia, estou passando pela mesma situação.

[Wellington Alamino]

1 minuto atrás, Diogenes Rafael Azevedo disse:

Bom dia, estou passando pela mesma situação.

Por enquanto mude para RoundTo({Double}(AValue), -2);

E vamos aguardar, eu fiz assim pra liberar o trabalho na empresa;

[Diogenes Rafael Azevedo]

Vou testar aqui amigo

[Wanderson Robert]

10 minutos atrás, Wellington Alamino disse:

Por enquanto mude para RoundTo({Double}(AValue), -2);

E vamos aguardar, eu fiz assim pra liberar o trabalho na empresa;

Sim resolveu.

[Diogenes Rafael Azevedo]

Resolveu aqui!

[Jéter Rabelo Ferreira]

Bom dia

Resolvi aqui mudando o RoundTo para RoundABNT (ACBrUTIL)

Segue unit modificada.

Atenciosamente,

ACBrBoleto.pas

[Juliana Tamizou]

Bom dia,

Obrigada pela contribuição, adicionada para análise.

Att.

[farnetani]

Nossa, estou com o mesmo problema!

[Wellington Alamino]

1 hora atrás, Jéter Rabelo Ferreira disse:

Bom dia

Resolvi aqui mudando o RoundTo para RoundABNT (ACBrUTIL)

Segue unit modificada.

Atenciosamente,

ACBrBoleto.pas 135 kB · 1 download

Baixei seu arquivo aqui, sua correção não se deve ao RoundABNT e sim a supressão da conversão Double.
Mas de qualquer forma resolve.

 

 

1 hora atrás, Juliana Tamizou disse:

Bom dia,

Obrigada pela contribuição, adicionada para análise.

Att.

Obrigado pela presteza e velocidade Juliana.

 

1 hora atrás, farnetani disse:

Nossa, estou com o mesmo problema!

Edite a o seu Arquivo ...\ACBRNFe2_Trunk2\Fontes\ACBrBoleto\ACBrBoleto.pas na função que foi citada acima.

[Jéter Rabelo Ferreira]

1 hora atrás, Wellington Alamino disse:

Baixei seu arquivo aqui, sua correção não se deve ao RoundABNT e sim a supressão da conversão Double.
Mas de qualquer forma resolve.

 

 

Obrigado pela presteza e velocidade Juliana.

 

Edite a o seu Arquivo ...\ACBRNFe2_Trunk2\Fontes\ACBrBoleto\ACBrBoleto.pas na função que foi citada acima.

Olá, 

Sim, retirar o Double ou utilizar o RoundABNT dá na mesma.

Mas se você verificar a commit efetuado no dia 07/04/2019 as 20:27, que foi quando alteraram isso e ocasionou o problema, colocaram a mensagem no commit de "Correção para Compilação em 64 bits"

Portanto, ao utilizar o RoundABNT, uma função contida no ACBrUtil, a mesma deve estar compatibilizada com x64. Por isso a utilização dela por minha parte.

Atenciosamente.

[Wellington Alamino]

36 minutos atrás, Jéter Rabelo Ferreira disse:

Olá, 

Sim, retirar o Double ou utilizar o RoundABNT dá na mesma.

Mas se você verificar a commit efetuado no dia 07/04/2019 as 20:27, que foi quando alteraram isso e ocasionou o problema, colocaram a mensagem no commit de "Correção para Compilação em 64 bits"

Portanto, ao utilizar o RoundABNT, uma função contida no ACBrUtil, a mesma deve estar compatibilizada com x64. Por isso a utilização dela por minha parte.

Atenciosamente.

Entendi, Ciente agora.
 

[Antonio Paulo Mangili]

boa noite estou com o mesmo problema. a minha sorte é que atualizei somente um cliente, e tinha um executavel de dia anterior.

alguma novidade sobre essa resolução.

obrigado

[Juliana Tamizou]

Bom dia.

A contribuição já foi adicionada para análise.

Att.

[Wellington Alamino]

15 horas atrás, Antonio Paulo Mangili disse:

boa noite estou com o mesmo problema. a minha sorte é que atualizei somente um cliente, e tinha um executavel de dia anterior.

alguma novidade sobre essa resolução.

obrigado

Baixe o arquivo disponibilizado pelo Jéter Rabelo, substitua no seu diretório, provisoriamente é isso.
Temos de esperar a analise do novo arquivo para que possa ser testado pela equipe e subido em produção.

 

Att, 

[Antonio Paulo Mangili]

20 minutos atrás, Wellington Alamino disse:

Baixe o arquivo disponibilizado pelo Jéter Rabelo, substitua no seu diretório, provisoriamente é isso.
Temos de esperar a analise do novo arquivo para que possa ser testado pela equipe e subido em produção.

 

Att, 

Ok. Obrigado

[EMBarbosa]

Em 09/04/2019 at 14:51, Jéter Rabelo Ferreira disse:

Olá, 

Sim, retirar o Double ou utilizar o RoundABNT dá na mesma.

Mas se você verificar a commit efetuado no dia 07/04/2019 as 20:27, que foi quando alteraram isso e ocasionou o problema, colocaram a mensagem no commit de "Correção para Compilação em 64 bits"

Portanto, ao utilizar o RoundABNT, uma função contida no ACBrUtil, a mesma deve estar compatibilizada com x64. Por isso a utilização dela por minha parte.

Atenciosamente.

19 horas atrás, Antonio Paulo Mangili disse:

boa noite estou com o mesmo problema. a minha sorte é que atualizei somente um cliente, e tinha um executavel de dia anterior.

alguma novidade sobre essa resolução.

obrigado

Enviei a alteração na Revisão 16866. Queiram por favor fazer a atualização, testar e reportar qualquer problema.