Bom dia Daniel, Fiz uma alteracao na unit ACBrBALToledo9091_8530_8540.pas, inclui as seguinte linhas para resolver meu problema.
if (SP = ' ') then
begin
PesoBruto := StrToIntDef(Copy(aResposta, 5, 6), 0);
//PesoTara:= StrToIntDef(Copy(aResposta, 11, 6), 0);
end
else
begin
PesoBruto := StrToIntDef(Copy(aResposta, 4, 6), 0);
//PesoTara:= StrToIntDef(Copy(aResposta, 10, 6), 0);
end;
Result := PesoBruto;
//*******************************************************************************************************************************
// Incluido esse trecho em casos que o StrToIntDef nao podia converter em valor inteiro, trazendo assim o valor default = 0
if Result = 0 then
begin
PesoBrutoString := Copy(aResposta, 2, 5);
Result := StrToInt(PesoBrutoString) / wDecimais;
end;
//*******************************************************************************************************************************
Obs: Testei apenas no emulador de balancas, na segunda feira irei no cliente para testar na balanca fisica e ver se precisa ajustar algo mais. Porem o trecho que inclui nao tira nenhuma funcionalidade de casos que ja estaja ok. Esse trecho so é lido se o Result for igual a 0 (sem valor). Na segunda eu reporto se deu certo ok.