Falha na conversão da propriedade VersaoDados

[André Medeiros - KRK]

Olá Pessoal,

Fiz um update hoje para revisão 13511, e estou enfrentando uma dificuldade incomum. Utilizo Lazarus 1.6.4 com FPC 3.0.2 em Linux 64bits.

No ACBrNFSeNotasFiscais.pas, precisei fazer a alteração abaixo, pois recebo falha no momento de executar o StrToFloat, informando que 2,00 é um float invalido.

FNFSeW.NFSeWClass.VersaoDados   := StrToFloat(Configuracoes.Geral.ConfigXML.VersaoDados);
//FNFSeW.NFSeWClass.VersaoDados   := StrToFloat(StringReplace(Configuracoes.Geral.ConfigXML.VersaoDados,'.',',',[rfReplaceAll, rfIgnoreCase]));

Para evitar alterações no ACBr tentei configurar meu fonte passando 

DefaultFormatSettings.DecimalSeparator:='.';

Testei também com

DefaultFormatSettings.DecimalSeparator:=',';

Mas em nenhum dos casos tive sucesso.

Acredito que a alteração que fiz no ACBr deva atender só a minha necessidade, ou de alguns, e não gostaria de continuar assim. Alguém poderia me ajudar com a solução deste problema ?

Abraços,

 

[BigWings]

1 hora atrás, KERUAK SOFTWARE LTDA disse:

No ACBrNFSeNotasFiscais.pas, precisei fazer a alteração abaixo, pois recebo falha no momento de executar o StrToFloat, informando que 2,00 é um float invalido.

Use a StringToFloat da unit ACBrUtil que já faz esse tratamento:

FNFSeW.NFSeWClass.VersaoDados   := StringToFloat(Configuracoes.Geral.ConfigXML.VersaoDados);

 

[André Medeiros - KRK]

Olá @BigWings

Fiz a alteração conforme sua sugestão e funcionou perfeitamente.

Muito obrigado

 

[Daniel Simoes]

Corrigido no SVN..