Ir para conteúdo
  • Cadastre-se

dev botao

Issue balança genérica


Dipold
Ver Solução Respondido por EMBarbosa,
  • Este tópico foi criado há 1921 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Ao usar a balança modelo Genérica, a função FACBrBAL.LePeso() sempre retorna -1, pois está faltando o Result na condicional (fpModeloStr = 'Generica').

Código atual:

unit ACBrBALClass;

function TACBrBALClass.LePeso(MillisecTimeOut: Integer): Double;
begin
  Result := -1;

  if (fpModeloStr = 'Generica') then
  begin
    AguardarRespostaPeso(MillisecTimeOut, True);
    Exit;
  end;

  SolicitarPeso;
  Sleep(200);

  LeSerial(MillisecTimeOut);
  Result := fpUltimoPesoLido;
end;

Deveria ser:

function TACBrBALClass.LePeso(MillisecTimeOut: Integer): Double;
begin
  Result := -1;

  if (fpModeloStr = 'Generica') then
  begin
    Result := AguardarRespostaPeso(MillisecTimeOut, True);
    Exit;
  end;

  SolicitarPeso;
  Sleep(200);

  LeSerial(MillisecTimeOut);
  Result := fpUltimoPesoLido;
end;


Diante desse bug, a única maneira de ler o peso para balança Genérica, é através do evento OnLePeso();

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

diff --git a/ACBR2/Fontes/ACBrSerial/ACBrBALClass.pas b/ACBR2/Fontes/ACBrSerial/ACBrBALClass.pas
index 1c472026..cb538b4b 100644
--- a/ACBR2/Fontes/ACBrSerial/ACBrBALClass.pas
+++ b/ACBR2/Fontes/ACBrSerial/ACBrBALClass.pas
@@ -229,7 +229,7 @@ begin
 
   if (fpModeloStr = 'Generica') then
   begin
-    AguardarRespostaPeso(MillisecTimeOut, True);
+    Result := AguardarRespostaPeso(MillisecTimeOut, True);
     Exit;
   end;
 

 

ACBrBALClass.pas

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

  • 2 semanas depois ...
  • Consultores
  • Solution
Em 10/12/2018 at 14:11, Dipold disse:

diff --git a/ACBR2/Fontes/ACBrSerial/ACBrBALClass.pas b/ACBR2/Fontes/ACBrSerial/ACBrBALClass.pas
index 1c472026..cb538b4b 100644
--- a/ACBR2/Fontes/ACBrSerial/ACBrBALClass.pas
+++ b/ACBR2/Fontes/ACBrSerial/ACBrBALClass.pas
@@ -229,7 +229,7 @@ begin
 
   if (fpModeloStr = 'Generica') then
   begin
-    AguardarRespostaPeso(MillisecTimeOut, True);
+    Result := AguardarRespostaPeso(MillisecTimeOut, True);
     Exit;
   end;
 

 

ACBrBALClass.pas

Olá,

Sua contribuição foi enviada ao SVN na revisão 16185. Queira por favor testar e atualizar.

Obrigado pela contribuição.

  • Curtir 1

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

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

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

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