Ir para conteúdo
  • Cadastre-se

dev botao

Correção na classe da balança Digitron


  • Este tópico foi criado há 2418 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 2418 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.