Issue balança genérica

[Dipold]

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

[Daniel Simoes]

Por favor anexe os fontes modificados, para análise...

[Dipold]

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

[EMBarbosa]

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.