Ir para conteúdo
  • Cadastre-se

dev botao

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

Recommended Posts

Postado

Boa tarde.

 

Implementei um Dll com ACBrBal para capturar o peso de uma balança toledo, utilizando o protocolo P05.

 

Gostaria de saber se há uma forma de implementar com o ACBrBal para capturar o peso + tara da balança, utilizando o protocolo P03. Atualmente o ACBrBal só funciona para mim utilizando o protocolo de comunicação P05, que não retorna a tara.

 

Grato,

  • Fundadores
Postado

Um colega me disse uma vez... "Em software, tudo é possível.. desde que se tenha tempo e dinheiro..." ;)

 

Seria necessário conhecer o protocolo, e achar alguém disposto a fazer a alteração nos fontes, para implementar um novo modelo, ou adaptar o atual....

 

Verifique antes, se com o modelo "Toledo", (ou algum outro modelo) já não funciona...

  • Curtir 1
Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

  • 2 semanas depois ...
Postado

Por favor amigo, me digam aonde estou errando.

Criei essa Procedure para captar o peso de balanças usando o ACBrBal.

Mas nem com reza funciona, simplesmente o peso não é enviado.

Testei com emulador e com vários modelos de balanças e nada.
Estou quase tendo um infarte aqui.

Por favor me ajudem !!!

procedure TFCaixa.ACBrBAL1LePeso(Peso: Double; Resposta: AnsiString);
var
  valid: Integer;
begin
  editCodigo.Text := FormatFloat('##0.000', Peso) + '*';
  if Peso > 0 then
  begin
    labelMensagens.Caption := 'Leitura da Balança OK !';
    editQuantidade.Text := FormatFloat('##0.000', Peso);
    editCodigo.SetFocus;
  end
  else
  begin
    valid := Trunc(ACBrBAL1.UltimoPesoLido);
    case valid of
      0:
        labelMensagens.Caption := 'Coloque o produto sobre a Balança!';
      -1:
        labelMensagens.Caption := 'Tente Nova Leitura';
      -2:
        labelMensagens.Caption := 'Peso Negativo !';
      -10:
        labelMensagens.Caption := 'Sobrepeso !';
    end;
  end;
end;
{$EndRegion}

end.

  • Fundadores
Postado

2.2 - Permaneça no assunto - Quando tiver uma dúvida diferente do assunto no tópico, poste em novo tópico. Não use algo equivalente a "aproveitando o gancho... [dúvida não relacionada com o tópico aqui]".

Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

  • Este tópico foi criado há 3578 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.