Balança Elgin DP30-T

[jrpiresfs]

Boa tarde!
Alguém sabe me dizer se o acbr é compatível com a balança Elgin DP30 T ?
Já conseguiram fazer leitura dela ?

[gvgarcia]

Bom dia!

Até onde consta no ACBr, a Elgin DP30 T não possui suporte nativo como modelo específico dentro do ACBrBAL. Ela possui comunicação serial RS-232, então a integração pode ser viável, porém normalmente depende do protocolo de comunicação da balança ou de uma implementação específica.

Particularmente não cheguei a fazer leitura da Elgin DP30 T pelo ACBr.

Se você tiver o manual de comunicação ou já estiver com o equipamento em mãos, podemos validar qual protocolo ela utiliza e verificar a melhor forma de integração.

[jrpiresfs]

A balança está no cliente, estou tentando fazer a comunicação, mas não tenho o manual.
Vu tentar busca-lo.

[Agnaldo Prates]

2 horas atrás, jrpiresfs disse:

A balança está no cliente, estou tentando fazer a comunicação, mas não tenho o manual.
Vu tentar busca-lo.

https://content.elgin.com.br/assets/arquivos/portal-apoio-novo/4f0e7dae-795c-49a5-ab06-3c684f5d999f.pdf

[Agnaldo Prates]

11 minutos atrás, Agnaldo Prates disse:

https://content.elgin.com.br/assets/arquivos/portal-apoio-novo/4f0e7dae-795c-49a5-ab06-3c684f5d999f.pdf

Faça um teste com o demo do ACBr. Deve funcionar sim.

 

2 horas atrás, jrpiresfs disse:

A balança está no cliente, estou tentando fazer a comunicação, mas não tenho o manual.
Vu tentar busca-lo.

Quanto estiver com ela, faça um teste para ver.
 

procedure TEtiquetas.Imrimir;
var
  sTexto: String;
  nPreco: Double;
  nPeso: Double;
  sCodBarras: String;
begin
  sTexto := 'PRODUTO DE TESTE';
  nPeso := StrToFloatDef(EdtPreco.Text, 0);
  nPreco := nPeso * 1.99;

  sCodBarras := '200001000000';
  ACEtiq.Porta:='COM1';
  ACEtiq.Ativo:= True;
  try
    ACEtiq.IniciarEtiqueta;

    ACEtiq.ImprimirTexto(orNormal, 2, 1, 1, 10, 10, sTexto);
    ACEtiq.ImprimirTexto(orNormal, 2, 1, 1, 40, 10, 'PESO KG: ' + FormatFloat('0.000', nPeso));
    ACEtiq.ImprimirTexto(orNormal, 3, 1, 1, 70, 10, 'TOTAL R$: ' + FormatFloat('0.00', nPreco));

    ACEtiq.ImprimirBarras(orNormal, 'E30', 2, 2, 110, 10, sCodBarras, 50);
    ACEtiq.FinalizarEtiqueta(1, 0);
  finally
    ACEtiq.Desativar;
  end;
end;