Componente AcbrOFX

[Nelson Santos]

 

Boa noite,

Mais uma vez foi necessário alterar o componente.

Na parte onde converte o valor de String para Float:

Alterado de:   

       oItem.Value := StrToFloat(Amount);

 

Para:        

              {$IF CompilerVersion > 21.0}  // VERSÕES SUPERIORES AO DELPHI 2010, É NECESSÁRIO INICIALIZAR ...
              fs:=TFormatSettings.Create('pt-BR');
              GetLocaleFormatSettings(GetThreadLocale(),fs);
              {$IFEND}

              fs.DecimalSeparator:=',';
              oItem.Value := StrToFloat(Amount, fs);

Esta alteração foi necessária porque, dependendo das configurações dos sistema, a Função StrToFloat somente consegue converter com Ponto Decimal, mas aqui, no componente, está tentando a conversão com Vírgula Decimal. Assim, foi necessário reconfigurar o TFormatSettings para usar Vírgula na função StrToFloat.

 

Segue anexo novo AcbrOFX.pas

ACBrOFX.pas

Editado 11 Maio, 2024 por Nelson Santos
Citada no texto

[Diego Foliene]

Obrigado pela contribuição, em breve será validada para possível inclusão ao svn #TK-5436

[Italo Giurizzato Junior]

Bom dia @Nelson Santos,

Tenho uma outra alternativa.

Substitua a unit pela que esta em anexo, reinstale o ACBr e faça novos testes.

ACBrOFX.pas

[Italo Giurizzato Junior]

Bom dia @Nelson Santos,

Já esta no SVN.

[Nelson Santos]

Obrigado

 

[Juliomar Marchetti]

Obrigado por reportar.

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