Balança Toledo 2180

[ivantgm]

Senhores, boa tarde.

Estou utilizando o componente ACBrBal para comunicação com uma balança Tolelo 2180. Tudo funcionou, entretanto tive que realizar um ajuste na unit "ACBrBALToledo2180.pas", comentando a linha 133, como segue:

129.  if (wPos > 0) then
130.  begin
131.    wResposta := Copy(aResposta, wPos + 1, Length(aResposta));
132.    wResposta := Copy(wResposta, 1, 6);
133.    //Insert('.', wResposta, 6); <======= essa linha =======
134.  end
135.  else
136.    wResposta := 'I';

Vide manual a seguir, página 167, Protocolo P03: https://cdn.toledobrasil.com.br/app/institucional/files/manuais/MU TI400 - 3474457 - Rev. 05-08-19.pdf

Neste protocolo o peso do display é enviado após o caracter #96 em 6 posições sem porção decimal. A linha de código 133 faz com que o peso fique dividido por 10.

Estou a disposição para mais informações.

Segue unit alterada anexo.

ACBrBALToledo2180.pas

Editado 25 Outubro, 2019 por ivantgm

[Juliana Tamizou]

Boa tarde.

Obrigada pela contribuição, adicionada para validação.

Att.

[EMBarbosa]

Em 25/10/2019 at 15:39, ivantgm disse:

Senhores, boa tarde.

Estou utilizando o componente ACBrBal para comunicação com uma balança Tolelo 2180. Tudo funcionou, entretanto tive que realizar um ajuste na unit "ACBrBALToledo2180.pas", comentando a linha 133, como segue:

129.  if (wPos > 0) then
130.  begin
131.    wResposta := Copy(aResposta, wPos + 1, Length(aResposta));
132.    wResposta := Copy(wResposta, 1, 6);
133.    //Insert('.', wResposta, 6); <======= essa linha =======
134.  end
135.  else
136.    wResposta := 'I';

Vide manual a seguir, página 167, Protocolo P03: https://cdn.toledobrasil.com.br/app/institucional/files/manuais/MU TI400 - 3474457 - Rev. 05-08-19.pdf

Neste protocolo o peso do display é enviado após o caracter #96 em 6 posições sem porção decimal. A linha de código 133 faz com que o peso fique dividido por 10.

Estou a disposição para mais informações.

Segue unit alterada anexo.

ACBrBALToledo2180.pas 5 kB · 4 downloads

Muito obrigado pela contribuição.
Fiz a implementação baseada nela.
Subi as alterações para o SVN na Revisão  18107.
Pelo que vi está tudo certo.
Queira por favor atualizar, testar e reportar qualquer problema.

Mais uma vez obrigado.