Ronei Angelo Grosbelli

Segue em anexo a alteração da classe AcbrBal.pas para analise. Qualquer dúvida estou a adisposição ACBrBAL.pas ACBrBAL.pas

Fiz outra alteração neste método, a variável de controle Monitorando recebe MonitorarBalanca e tinha mais uma linha que removi que a variável Monitorando recebia False, perdia todo sentido desta variável. o que acontecia era que quando chamava o lepeso da forma que estava ele desabilitava o monitorarBalanca e não ativava mais. assim é armazenado o status do MonitorarBalanca e setado para False no final e atribuído o valor de quando entrou no método. function TACBrBAL.LePeso( MillisecTimeOut : Integer) : Double; Var Ativado, Monitorando : Boolean ; begin Ativado := Ativo ; Monitorando := MonitorarBalanca ; try MonitorarBalanca := False ; if not Ativado then { Ativa caso não tenha sido ativado antes } Ativar ; Result := fsBAL.LePeso( MillisecTimeOut ) ; if Assigned( fsOnLePeso ) then fsOnLePeso( UltimoPesoLido, UltimaResposta ) ; finally Ativo := Ativado ; MonitorarBalanca := Monitorando ; end ; end;

...

Em anexo os fontes; Só lembrando que o fonte ACBRBALUranoPOP.pas tem que ser adicionado no pacote ACBrSerial.dpk Obs. qualquer duvida esto a disposição. www.parseint.com.br www.sischef.com ACBrSerial.rar

Expliquei o que fiz neste link abaixo

É infelizmente não consegui testar em outros modelos da Urano, mas o que eu fiz foi criar uma nova classe AcbrBalUranoPOP e adicionei esta alteração lá.