Jump to content

Promoção de Natal SAC Mensal

Contrate e ganhe 1 Kit agenda + Caneta
Saiba mais

LANÇAMENTO
Curso Completo - Dominando o ACBrMonitor

Conheça o Curso

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

Dipold

ANSWERED Issue balança genérica

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();

  • Like 1

Share this post


Link to post
Share on other 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

  • Like 1

Share this post


Link to post
Share on other sites
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.

  • Like 1

[]'s

Consultor SAC ACBr

Elton
Ajude o Projeto ACBr crescer - Assine o SAC

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.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...