Problema c/ c�digo de barras

Question

Tenho um maskedit que eu quero usar para ler um c�digo de barras, qdo o leitor acaba de ler o c�digo ele da um enter automaticamente.Coloquei no evento OnKeyPress do maskedit, o seguinte c�digo:if (ke...

Koplin · Answer

Cheque seu c�digo, ou ponha-o completo aqui. Aparentemente vc est� fazendo algo fora do bloco begin/end. Veja se nao tem um end fora do lugar. Lembre-se que qualquer por��o de c�digo no evento onkeypress ser� ativado sen�o estiver dentro do bloco. Verifique se este componente n�o tem outra codifica��o em outro evento que possa estar conflitando.

Gameiro · Answer

AI VAI O C�DIGO, DEPOIS QUE ELE PREENCHE DEVAGAR N�MERO A N�MERO ELE FAZ O QUE DEVERIA FAZER QUE � ENCONTRAR O PRODUTO OU N�O

procedure Tfrm_vendas01.MaskEdit2KeyPress(Sender: TObject; var Key: Char);
begin
  if (key=#13) then
  begin
    //query localizando o produto
    datamodule1.SQLDataSet1.Close;
    datamodule1.SQLDataSet1.CommandText:=�select * from PRODUTOS where cod_barras=:cd_barras�;
    datamodule1.SQLDataSet1.ParamByName(�cd_barras�).AsString:=maskedit2.Text;
    datamodule1.SQLDataSet1.Open;
    if datamodule1.SQLDataSet1.Eof then
    begin
      showmessage(�Codigo do Produto Invalido-Favor Corrigir�);
      maskedit2.SetFocus;
    end
    else
    begin
      if quant_item=0 then
      begin
        quant_item:=1;
      end;
      //move o nome do produto para exibicao ao usuario
      //quant_item:=1;
      edit1.Text:=datamodule1.SQLDataSet1.fieldbyname(�descricao�).asstring;
      maskedit3.Text:=�1�;
      maskedit3.Refresh;
      maskedit3.SetFocus;
    end;
  end;
end;

Gandalf.nho · Answer

Sugest�o, use o evento OnExit para validar os dados, da� vai mais r�pido porque s� valida uma vez os dados....

Dopi · Answer

Acredito que a lentidao possa ser causada pela Velocidade de envio dos dados do Leitor para o Buffer do Teclado....

Experimente ler o Cod.Barras no Bloco de Notas.... se a lentidao tb existir, entao o problema � no leitor....

Usando o manual do leitor d� pra vc aumentar essa velocidade... Mas se vc aumentar muito, alguns micros podem �comer� alguns caracteres...

Gameiro · Answer

Usei o leitor no mesmo programa em um edit que n�o tem nada no onkeypress e ele le numa velocidade normal.

Tamb�m coloquei o mesmo c�digo acima no onexit e ele faz a mesma,coisa.

Se alguem tiver mais alguma sugest�o agrade�o.

Obrigado a todos por responderem.

Pro-luck · Answer

Deixe o seu c�digo no evento OnExit, mas retire desse c�digo a condi��o do Enter. Deixe l� apenas a consulta.
Pelo que entendi vc est� impondo duas situa��es para o maskedit, uma ao sair (que � um evento) e o pressionar da tecla Enter (que � outro evento) tudo para um mesmo elemento.

Experimente, ser der certo mande um e-mail avisando-me.

F�rum Problema c/ c�digo de barras #256138