Erro balança Magellan

[Cleiver]

Existe um erro ler a resposta da balança 

 

 { Ajustando o separador de Decimal corretamente }
 

function TACBrBALMagellan.InterpretarRepostaPeso(aResposta: AnsiString): Double;
var
  wResposta: AnsiString;
begin
  Result := 0;

  if (Length(aResposta) > 20) then
    wResposta := InterpretarProtocoloA(aResposta)
  else if (Pos(ETX, aResposta) > 0) then
    wResposta := InterpretarProtocoloB(aResposta)
  else
    wResposta := InterpretarProtocoloC(aResposta);

  if (wResposta = EmptyStr) then
    Exit;

  { Ajustando o separador de Decimal corretamente }
  aResposta := StringReplace(aResposta, '.', DecimalSeparator, [rfReplaceAll]);
  aResposta := StringReplace(aResposta, ',', DecimalSeparator, [rfReplaceAll]);  

  try
    if (Pos(DecimalSeparator, aResposta) > 0) then  { Já existe ponto decimal ? }
      Result := StrToFloat(aResposta)
    else
      Result := (StrToInt(aResposta) / fpDecimais);
  except
    case aResposta[1] of
      'I' : Result := -1;  { Instavel }
      'N' : Result := -2;  { Peso Negativo }
      'S' : Result := -10;  { Sobrecarga de Peso }
    else
      Result := 0;
    end;
  end;
end;
 

Sendo que o correto é

 

  { Ajustando o separador de Decimal corretamente }
  aResposta := StringReplace(wResposta, '.', DecimalSeparator, [rfReplaceAll]);
  aResposta := StringReplace(wResposta, ',', DecimalSeparator, [rfReplaceAll]); // não há necessidade 

 

 

[Daniel Simoes]

Se deseja propor modificações nos fontes, favor anexar as Units modificadas...

[Cleiver]

Daniel, 

 

segue em anexo.

 

 

ACBrBALMagellan.pas

[Daniel Simoes]

Obrigado... correção no SVN...