Jump to content

Embarcadero Conference 2019

22/10 - Visite o Stand do ACBr
Saiba mais

Nova Loja Oficial
loja.projetoacbr.com.br
Ajude o projeto a crescer, com estilo

Comprar

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

Wellington Alamino

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

Recommended Posts

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á. 

 

Share this post


Link to post
Share on other sites
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;

Share this post


Link to post
Share on other sites
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.

Share this post


Link to post
Share on other sites

Bom dia,

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

Att.

  • Like 1
  • Thanks 1

Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

Share this post


Link to post
Share on other sites
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.

  • Like 3

Share this post


Link to post
Share on other sites
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.

  • Like 3

------------------------------------------------

Jéter Rabelo Ferreira

JeraSoft-pequeno.png

Campestre/MG

Skype: jeter.rabelo

Share this post


Link to post
Share on other sites
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.
 

  • Like 1

Share this post


Link to post
Share on other sites

Bom dia.

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

Att.


Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

Share this post


Link to post
Share on other sites
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, 

  • Like 1

Share this post


Link to post
Share on other sites
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

Share this post


Link to post
Share on other sites
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.

 

 

  • Like 2
  • Thanks 1

[]'s

Consultor SAC ACBr

Elton
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...