ACBrUtil - FloatToString. Valores ficando sem casa decimais - Sugestão de alteração

[Hallysson]

Fala pessoal, Boa tarde! 

Estou migrando para trunck2 (meio atrasado né.. rsrs) e encontrei um problema na função FloatToString que demorei para localizar.. rsrs

Quando chamava a função passando 25.30 ela retorna a string 2530

A Função atualmente está assim:

  DS := {$IFDEF HAS_FORMATSETTINGS}FormatSettings.{$ENDIF}DecimalSeparator;
  TS := {$IFDEF HAS_FORMATSETTINGS}FormatSettings.{$ENDIF}ThousandSeparator;

  // Removendo Separador de milhar //
  Result := StringReplace(Result, TS, '', [rfReplaceAll]);

  // Verificando se precisa mudar Separador decimal //
  if DS <> SeparadorDecimal then
    Result := StringReplace(Result, DS, SeparadorDecimal, [rfReplaceAll]);

Ela retira o separador de milhar e depois verifica se o separador decimal é diferente do de milhar e faz a substituição.. 

Só que no meu caso, o separador decimal e de milhar são iguais.. os dois são  . ( ponto )

Então quando ele retira o separador milhar, ele retira o separador decimal junto.. 

Eu fiz a seguinte alteração..

  DS := {$IFDEF HAS_FORMATSETTINGS}FormatSettings.{$ENDIF}DecimalSeparator;
  TS := {$IFDEF HAS_FORMATSETTINGS}FormatSettings.{$ENDIF}ThousandSeparator;

  // Removendo Separador de milhar //
  if ( DS <> TS ) then
     Result := StringReplace(Result, TS, '', [rfReplaceAll]);

  // Verificando se precisa mudar Separador decimal //
  if DS <> SeparadorDecimal then
    Result := StringReplace(Result, DS, SeparadorDecimal, [rfReplaceAll]);

if ( DS <> TS ) then 

só retiro o separador de milhar se for diferente do decimal..

dessa forma corrigiu vários problemas que estavam dando para emitir NFe.

 

Não sei muito bem como funciona a sugestão de alterações, então me decuplem se estou postando no lugar errado.. rs

[Daniel Simoes]

Acho que você terá vários outros problemas, usando o separador de milhar igual ao separador de decimal...

Por favor anexe os fontes modificados para analise...

[hleorj]

concordo

[Hallysson]

Oi Daniel,

 Aqui na empresa, já trabalhamos a muito tempo dessa forma, só tivemos problemas quando atualizamos o ACBR,

em vários units é usada essa função e o ( . ) estava sumindo, como para localizar o arquivo de schemas, que tbm tem ponto e não estava localizando o arquivo por cauda dessa função.

Estou anexando a unit, 

Obrigado pela atenção!

ACBrUtil.pas

Editado 13 Novembro, 2015 por Hallysson

[Daniel Simoes]

Ajuste enviado para o SVN... Obrigado pela contribuição

[Hallysson]

Show Daniel! Ficou certinho aqui!

Vlw!!