Erro Ao Compilar No Xe3 - Funcao Calcularconteudoqrcode

[sidnei_alves1]

Baixei os fontes e fui compilar o projeto e esta dando erro nessa linha na funcao CalcularConteudoQRCode.

  ValorStr := StringReplace( FormatFloat('0.00', Valor), DecimalSeparator, '.', [rfReplaceAll]);

[EMBarbosa]

Que erro?

[Juliomar Marchetti]

 

Baixei os fontes e fui compilar o projeto e esta dando erro nessa linha na funcao CalcularConteudoQRCode.

  ValorStr := StringReplace( FormatFloat('0.00', Valor), DecimalSeparator, '.', [rfReplaceAll]);

Boa tarde

senão utiliza o ACBrInstall faça o uso dele para instalar o ACBr!

antes execute como administrador o arquivo apagaracbr.bat em todos os drivers de seu micro

[Juliomar Marchetti]

Boa tarde

existe mesmo o erro!

[sidnei_alves1]

Desculpe a demora.

 

Eu apaguei tudo e atualizei os fontes e usei  acbrinstall.

 

o erro é no DecimalSeparator;

[Daniel Simoes]

E qual é a msg de erro afinal ?

[sidnei_alves1]

e que o xe3 teria que usar TFormatSettings

[EMBarbosa]

E qual é a mensagem de erro?

[sidnei_alves1]

[dcc32 Error] ACBrSATExtratoClass.pas(212): E2003 Undeclared identifier: 'DecimalSeparator'

[dcc32 Error] ACBrSATExtratoClass.pas(212): E2250 There is no overloaded version of 'StringReplace' that can be called with these arguments

[Juliomar Marchetti]

Atualiza o svn

já está ok

[sidnei_alves1]

o Erro ao compilar ainda continua, atualizei o SVN ele nao veio modificado

[Juliomar Marchetti]

Então seu sua pasta de svn está com problema!

faça um clean up ou um revert alterações para os servidor!

depois reinstale novamente

[José Nilton Pace]

Juliomar, nas versões mais novas do Delphi precisa usar assim:

 

FormatSettings.DecimalSeparator;

FormatSettings.ThousandSeparator;

 

isso que o delphi dele deve estar reclamando.

[Juliomar Marchetti]

Bom então chegou a olhar o ACBrConsts.pas?

sugiro dar uma olhada!

[Daniel Simoes]

Humm.. esse pode ser o problema... essa Unit não faz "uses" do ACBrConsts... acho que é só adicionar o mesmo...

[Juliomar Marchetti]

Já faz .. eu fiz o update e alguém já subiu a correção ao meio dia mesmo!

acho que foi o Elton!

[EMBarbosa]

Já faz .. eu fiz o update e alguém já subiu a correção ao meio dia mesmo!

acho que foi o Elton!

Não... Eu corrigi foi o erro no SPED e SEF2 no Delphi 7. Não mexi no extrato, mas o Daniel já corrigiu.

[Daniel Simoes]

Acho que estávamos falando de Units diferentes...

 

Eu inseri um IFDEF na ACBrSATExtratoClass.pas... Notei pelo Log que não houve modificações anteriores...

 

[Juliomar Marchetti]

Bom dia!

acho que foi equivocada a alteração Daniel!

por que ? Olhe o nosso arquivo ACBrConsts.pas

 

lembra-se que até ficou um tempo para se resolver a situação?

então acho que o código poderia ser retornado e declarado na uses o ACBrConsts!

[Daniel Simoes]

Sim... adicionar o "uses ACBrConsts" a essa Unit seria uma maneira de corrigir o problema...  mas o que estou demonstrando com a Imagem acima, é que isso não foi feito...

 

Fique a vontade para promover a modificação...

[Juliomar Marchetti]

Boa tarde Daniel!

pois é cheguei ontem e vi o erro mencionado, alterei meu micro e quando voltei aqui havia essa informação então não subi! mas vou subir

só gostaria de discutir mais alguns pontos!

Existem mais locais dentro do sistema que usa o TFormatSettings, então acho que deva ser tratado! só que não sei se isso deve ou não existir

[Daniel Simoes]

No "trunk2", eu já fiz um estudo de vários lugares, onde o "DecimalSeparator" era utilizado... e na maioria dos casos, a modificação foi passar usar algum método de conversão da ACBrUtil

 

Na ACBrUtil.pas, do Trunk2, está com os IFDEFs...para evitar os "warnings"... Pois mesmo usando a ACBrConsts.pas, os warnings continuam aparecendo no Lazarus

 

No Trunk2 crie uma diretiva nova no ACBr.inc 

Introduzida a diretiva HAS_FORMATSETTINGS, que será ligada quando a IDE suportar o uso de TformatSettings.