Exemplo pr�tico de c�digo de barras

Question

ALGUEM TEM ALGUM EXEMPLO PRATICO DE COMO USAR O CODIGO DE BARRAS? QUERIA O CODIGO MESMO JA PRONTO, DE PREFERENCIA BUSCANDO UM CODIGO NA TABELA E

Edilcimar · Answer

o c�digo de barras funciona exatamente como um entrada via teclado
este exemplo abaixo � acionado quando o cliente preenche o campo do c�digo de barras quer digitando que entrando com o leitor de c�digos de barra, para efetuar venda de um produto.
If MaskEdit2TemFoco then
Begin
With Table1 do
Begin
IndexName := �CODBAR�;
SetRangeStart;
FieldByName(�CODBARRA�).AsString := MaskEdit2.Text;
SetRangeEnd;
FieldByName(�CODBARRA�).AsString := �9999999999999�;
ApplyRange;
If FieldByName(�CODBARRA�).AsString = MaskEdit2.Text then
MaskEdit3.SetFocus;
MaskEdit1.Text := IntToStr(FieldByName(�NUMPRODUTO�).AsInteger);
Edit1.Text := FieldByName(�NOME�).AsString;
If Edit2.Text = �� then
Edit2.Text := �0�;
Edit2.Text := FloatToStrF(FieldByName(�PRECOVENDA�).AsFloat, ffFixed, 10,2);
Edit6.Text := FieldByName(�ICMS�).AsString;
Edit7.Text := FieldByName(�DIVISAO�).AsSTring;
Edit8.Text := IntToStr(FieldByName(�ESTOQUE�).AsInteger);
If (Trim(MaskEdit3.Text) = ��) or (Trim(maskEdit3.Text) = �0�) then
Button3.Enabled := False
Else
Button3.Enabled := True;
End;
End;