Balança Balmak BCK-30

[Cleiver]

Estive verificando e o Componente  ACBrBal não tem a Balança Balmak fiz os ajuste e os teste com o modelo BCK-30.

 

Segue em anexo units.

o manual do fabricante não consegui anexar porque o tamanho e de 10mb e não tenho permissão.

at.

 

Cleiver

 

 

ACBrBALBalmakBCK30.pas

ACBrBAL.pas

[Daniel Simoes]

O modelo não é compatível com nenhum dos protocolos já existentes?

[Daniel Simoes]

Olhando rapidamente os fontes sugeridos.. me pareceu ser idêntico ao protocolo da Filizolla

[Cleiver]

Na verdade não testei com outros, a informação que chegou para min que não por isso criei esse ai.

[Daniel Simoes]

Poderia por favor verificar se funciona com o protocolo da Filizolla ?

Hoje vejo isso como um problema do ACBrBAL.... Tem código demais, repetido e desnecessário...

[Cleiver]

bom dia Daniel,

fiz o teste aqui e realmente funciona com o protocolo Filizola, gostaria de saber se pode ficar assim.

  case Value of
     balBalmak_BCK30,
     balFilizola    : fsBAL := TACBrBALFilizola.create(Self);

     balToledo      : fsBAL := TACBrBALToledo.Create(Self);
     balToledo2180  : fsBAL := TACBrBALToledo2180.Create(Self);
     balUrano       : fsBAL := TACBrBALUrano.Create(Self);
     balLucasTec    : fsBAL := TACBrBALLucasTec.Create(Self);
     balMagna       : fsBAL := TACBrBALMagna.Create(Self);
     balDigitron    : fsBAL := TACBrBALDigitron.Create(Self);
     balMagellan    : fsBAL := TACBrBALMagellan.Create(Self);
     balUranoPOP    : fsBAL := TACBrBALUranoPOP.Create(Self);
     balLider       : fsBAL := TACBrBALLider.Create(Self);
     balToledo2090  : fsBAL := TACBrBALToledo2090.Create(Self);
     balRinnert     : fsBAL := TACBrBALRinnert.Create(Self);
     balMuller      : fsBAL := TACBrBALMuller.Create(Self);
     balSaturno     : fsBAL := TACBrBALSaturno.Create(Self);
     balAFTS        : fsBAL := TACBrBALAFTS.Create(Self);
     balGenerica    : fsBAL := TACBrBALClass.Create(Self);
     balLibratek    : fsBAL := TACBrBALLibratek.Create(Self);
     balMicheletti  : fsBAL := TACBrBALMicheletti.Create(Self);
     balAlfa        : fsBAL := TACBrBALAlfa.Create(Self);
     balToledo9091_8530_8540: fsBAL := TACBrBALToledo9091_8530_8540.Create(Self);

end;

 

para que possamos ter uma referencia ao modelo de balança, porque vi vários topicos a respeito da balança e em nenhum falando que funciona com o protocolo Filizola.

 

At.

 

Cleiver 

[Daniel Simoes]

Estou pensado em Refatorar esse componente...

Não é correto ter o nome da Marca no Modelo... o correto seria o nome do Protocolo utilizado... caso contrário essa lista de modelos nunca terá fim

[Cleiver]

ok

[Gledson Santos]

Em 31/01/2019 at 12:36, Daniel Simoes disse:

Estou pensado em Refatorar esse componente...

Não é correto ter o nome da Marca no Modelo... o correto seria o nome do Protocolo utilizado... caso contrário essa lista de modelos nunca terá fim

Sabe me dizer se o componente foi refatorado?

[Daniel Simoes]

Observe que o tópico é de 2 anos atrás...

Ou seja, aconteceu muito coisa...

Você pode usar o recurso de Log do SVN para verificar as alterações nessa pasta