Correção na classe da balança Digitron

[Jean Alysson Ambrosio]

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

[Daniel Simoes]

Por favor anexe as Units modificadas, para analise...

[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

[Daniel Simoes]

Muito obrigado... já está no SVN...