Compatibilidade Balança Magna L-PCR-40 e terminal WillTech W6000U

[arturguerra]

Boa tarde. Estou tentando fazer a integração da balança Magna L-PCR-40 e terminal WillTech W6000U, utilizando o como base o exemplo ACBrMTer .

Tudo funciona corretamente exceto quando mando pegar o peso o retorno é sempre zero. Não dá erro, mas não retorna o peso, somente zero.

Alguém sabe como ou pode me ajudar ?

Um abraço !

Artur Guerra

[EMBarbosa]

Você ligou o ACBrMTer ao ACBrBal?

A balança está ligada ao Terminal?

A aplicação de exemplo funciona?

[arturguerra]

Sim tudo ligado e funcionando. A questão é na hora de retornar o peso com a balança Magna.
Detectei o problema na linha 615 da unit ACBrMTer.

Fiz uma gambiarra, para poder entregar o programa ao cliente, e depois vou verificar o que realmente está causando o retorno sempre zero do peso e postar no grupo.

Segue a gambiarra:
//linha 615 da ACBrMTer

        if (Tag = 1) then  // Lendo Peso
        begin
          Tag := 0;

          //início da gambiarra
          x := RespostaTratada;
          Delete(x,1,4);
          x := trim(x);
          x := TiraCharIlegalNumerico(x);
          Insert(',' , x, (x.Length - 2));

           d := StrToFloat( x );//StrToFloatDef( x , 0);

         

          PesoLido := d; //BAL.InterpretarRepostaPeso(Trim(x));//RespostaTratada));

          //fim da gambiarra
          fConexoes.ACBrMTer.DoRecebePeso(IP, PesoLido);
        end
 

Abraço !

Artur

[EMBarbosa]

12 horas atrás, arturguerra disse:

Sim tudo ligado e funcionando. A questão é na hora de retornar o peso com a balança Magna.
Detectei o problema na linha 615 da unit ACBrMTer.

Fiz uma gambiarra, para poder entregar o programa ao cliente, e depois vou verificar o que realmente está causando o retorno sempre zero do peso e postar no grupo.

Segue a gambiarra:
//linha 615 da ACBrMTer

        if (Tag = 1) then  // Lendo Peso
        begin
          Tag := 0;

          //início da gambiarra
          x := RespostaTratada;
          Delete(x,1,4);
          x := trim(x);
          x := TiraCharIlegalNumerico(x);
          Insert(',' , x, (x.Length - 2));

           d := StrToFloat( x );//StrToFloatDef( x , 0);

         

          PesoLido := d; //BAL.InterpretarRepostaPeso(Trim(x));//RespostaTratada));

          //fim da gambiarra
          fConexoes.ACBrMTer.DoRecebePeso(IP, PesoLido);
        end
 

Abraço !

Artur

Oi Artur,

  Por favor, poderia anexar o arquivo alterado aqui no fórum para que possamos analisar?

[arturguerra]

Claro ! Segue anexo o arquivo com a gambiarra !

Abraço !

Artur

ACBrMTer.pas

[EMBarbosa]

Em 05/11/2019 at 11:55, arturguerra disse:

Claro ! Segue anexo o arquivo com a gambiarra !

Abraço !

Artur

ACBrMTer.pas 40 kB · 1 download

Olá Arturguerra,

   Muito obrigado. O que pode estar acontecendo na sua situação é que o ACBrBal ligado ao ACBrMTer não está configurado para interpretar corretamente o peso passado a ele.

   Você pode tentar trocar os protocolos ou implementar um novo protocolo no ACBrBal.

   Mas infelizmente, verifiquei que não podemos enviar ao SVN essa alteração.

   O que acontece é que sua alteração faz com que o componente ACBrMTer passe a ignorar a ligação com o componente ACBrBal e interpretar o peso sempre do mesmo jeito.

   O componente ACBrBal é quem deve fazer a interpretação de peso, porque a forma como se interpreta o peso muda de modelo para modelo.

   Tentei adaptar suas alterações para o ACBrBal, mas as informações são insuficientes. O protocolo da balança Magna que temos implementado é mais complexo do que você implementou nesse código acima.

   De qualquer maneira agradecemos sua intenção em ajudar.