Terminal De Consulta Busca Preço

[andersonh]

Ola pessoal, gostaria de saber se alguém esta usando algum componente para comunicação com Terminais de Consulta de Preço Gertec. Se existe a possibilidade disso através dos componentes ACBrTer pois pelo que percebi tem apenas do Wilbor, mas nesse tópico Daniel cita algo sobre mas não entendi: 

 

Atualmente estou usando o gerenciador da própria Gertec, e gerando o arquivo com as mercadorias mas ele transmite de 8 em 8 minutos e os clientes não estão satisfeitos.

 

[Daniel_FC]

Usando o fonte do proprio exemplo da Gertec, coloquei nele a conexão com o meu banco de dados, e funciona perfeitamente, acessando o banco de dados online, ou seja, não precisa transmitir nada para os terminais.

[andersonh]

Obrigado Daniel pela dica, vou fazer isso mesmo...  

[andersonh]

Daniel só uma dúvida, você colocou um timer para de tempo em tempo ele refazer a busca das mercadorias em sua base, para assim carregar precos atualizados?

[Régys Silveira]

Se você utilizar o firebird 2.1 em diante pode usar os eventos para sinalizar quando existe mudança na base e aciona o aplicativo automaticamente somente quando necessário.

[Daniel_FC]

Não tem timer, quando passa o produto no terminal, o programa executa um select na base de dados para retornar os dados, e mostra no terminal, tudo online.

O que uso é o Busca Preço da Gertec tcp/ip

[Régys Silveira]

Daniel, na verdade o que você fez foi trocar o aplicativo server normal da Gertec por um seu que consulta direto no teu banco, correto?

[andersonh]

Daniel eu estou usando evento no banco quando ha uma alteração dos preços ele refaz o select de todas as mercadorias, mas gera muito trafego na rede, você poderia me passar os códigos das funções que você alterou para ao consultar o código no terminal, buscar direto no banco de dados e retornar ao terminal, pois naquele projeto mesmo da Gertec apenas busco os dados e deixo eles no StringGrid o resto ele ja faz.

 

Desde ja obrigado!

[andersonh]

Consegui fazer baixei o manual das dll da gertec para ver quais funcoes sao usadas. Valeu pela atenção!

[carlosfilho]

Bom dia,

 

 

No ACBrMonitor, existe um exemplo de como comunicar com o terminal Gertec direto, usado o acbr. 

[Hugo Santos]

Em 28/05/2013 at 09:32, carlosfilho disse:

Bom dia,

 

 

No ACBrMonitor, existe um exemplo de como comunicar com o terminal Gertec direto, usado o acbr. 

Consegui implementar esse exemplo pra funcionar em um aplicativo de console no linux buscando as informações de cada consulta diretamente no banco de dados e devolvendo para o terminal, está funcionando muito bem. Futuramente vou tentar ver algo para enviar imagens para os terminais, fazia isso antes quando o serviço que criei pra windows usava a função bSendImageFromFile da biblioteca sc501ger.dll. Agora pra implementar diretamente via acbr preciso estudar mais.

[heptas]

Desculpe resuscitar o tópico. estou tentando alterar a aplicação de exemplo da Gertec, mas quando retorno a descrição e o preço para o leitor só vai o primeiro caracter do array.

procedure TForm1.ShowPriceProduct(ID: integer; BarCode: string);
var
  ci     : integer;
  strlcda: array[0..100] of byte;
  strlcdb: array[0..100] of byte;
begin
  ci := 0;
  repeat
    ci := ci + 1;
  until (BarCode = StringGrid1.Cells[0,ci])or(ci = StringGrid1.RowCount);

  if (ci < StringGrid1.RowCount) then begin      //se achou o produto
    StrPCopy(@strlcda,StringGrid1.Cells[1,ci]);
    StrPCopy(@strlcdb,EdtCurrency.Text + StringGrid1.Cells[2,ci]);
    bSendProdPrice(ID, strlcda[0], strlcdb[0]);
  end
  else
  begin
    bSendProdNotFound(ID);
  end;
end;

 

[leutner]

O teu problema ta aqui: 

bSendProdPrice(ID, strlcda[0], strlcdb[0]);

[0] na variável significa que só vai enviar o 1 Byte da cadeia; 

[FRANCISCO DE JESUS]

ola, alguem tem algum demo de utilizacao das dll gertec  completo para consuta de precos

[wilson_jr]

Em 30/09/2016 at 14:50, heptas disse:

Desculpe resuscitar o tópico. estou tentando alterar a aplicação de exemplo da Gertec, mas quando retorno a descrição e o preço para o leitor só vai o primeiro caracter do array.

procedure TForm1.ShowPriceProduct(ID: integer; BarCode: string);
var
  ci     : integer;
  strlcda: array[0..100] of byte;
  strlcdb: array[0..100] of byte;
begin
  ci := 0;
  repeat
    ci := ci + 1;
  until (BarCode = StringGrid1.Cells[0,ci])or(ci = StringGrid1.RowCount);

  if (ci < StringGrid1.RowCount) then begin      //se achou o produto
    StrPCopy(@strlcda,StringGrid1.Cells[1,ci]);
    StrPCopy(@strlcdb,EdtCurrency.Text + StringGrid1.Cells[2,ci]);
    bSendProdPrice(ID, strlcda[0], strlcdb[0]);
  end
  else
  begin
    bSendProdNotFound(ID);
  end;
end;

 

Olá heptas, você chegou a ajustar isso? no XE7 manda só o primeiro caractere.

[FRANCISCO DE JESUS]

ola galera, eu  consegui fazer um aplicativo que se comunica com os leitores gertec, ja esta funcionado em producao em um cliente meu, se alguem quiser é so entrar em contato comigo,

ele se conecta com qualquer banco de dados e devolve a solicitação de preco para os leitores gertec 

[gjss]

 

Em 30/06/2020 at 11:44, FRANCISCO DE JESUS disse:

ola galera, eu  consegui fazer um aplicativo que se comunica com os leitores gertec, ja esta funcionado em producao em um cliente meu, se alguem quiser é so entrar em contato comigo,

ele se conecta com qualquer banco de dados e devolve a solicitação de preco para os leitores gertec 

Bom dia Francisco, gostaria se possível de ver este app que vc desenvolveu, tenho um cliente que está querendo colocar estes leitores no estabelecimento dele.

[Adson Azevedo]

Em 30/06/2020 at 11:44, FRANCISCO DE JESUS disse:

ola galera, eu  consegui fazer um aplicativo que se comunica com os leitores gertec, ja esta funcionado em producao em um cliente meu, se alguem quiser é so entrar em contato comigo,

ele se conecta com qualquer banco de dados e devolve a solicitação de preco para os leitores gertec 

Olá Francisco estou precisando  de um sisteminha desse teria como disponibilizar