Jean Alysson Ambrosio

Daniel, segue em anexo o arquivo alterado para resolver a problema do último dígito faltando na pesagem. Jean Alysson Ambrosio ACBrBALDigitron.pas

Boa tarde, comecei a usar o ACBrBal com a balança Digitron (configurada para 2 casas decimais) e notei que não estava trazendo o último dígito, invés de aparecer 5,35, aparece 5,30 (o último zero é da máscara ###,00). Na unit ACBrBALDigitron, na function TACBrBALDigitron.InterpretarRepostaPeso(aResposta: AnsiString): Double; que faz o tratamento do retorno da balança, teria que trocar a linha: wResposta := Trim(Copy(aResposta, 2, 7)); por wResposta := Trim(Copy(aResposta, 2, 8)); ou melhor, fazer semelhante a unit ACBrBALFilizola, trocando a linha: wResposta := Trim(Copy(aResposta, 2, 7)); por { Retira STX, ETX } if (Copy(wResposta, 1, 1) = STX) then wResposta := Copy(wResposta, 2, Length(wResposta)); //Deverá buscar a primeira ocorrencia do TX e trarar a Sting. if pos(ETX,wResposta) > 0 then wResposta := Copy(wResposta, 1, pos(ETX,wResposta) - 1); if (wResposta = EmptyStr) then Exit; qual o procedimento para atualização dos fontes, podem analisar e pegar o trecho de código que descrevi ? Obrigado Jean Alysson Ambrosio