Fórum Problema com Leitor de código de barras. #322669

var
  i:integer;
  numero,status:string;
const
  str =´1234567890´;
  max=12;

begin
    status:=´´;
  edtBARRAS.Text:=´´;

 while not (status=´ok´) do
 begin
  numero:=´´;
  for i:=1 to max do
  begin
    numero:=numero+str[random(length(str))+1];
  end;
  Numero:=Numero + Verificador(Numero);

   dmFiltra.cdsFiltraProduto.Close;
   dmFiltra.cdsFiltraProduto.Params[0].AsString:=numero;
   dmFiltra.cdsFiltraProduto.Open;

   if dmFiltra.cdsFiltraProduto.RecordCount = 0 then
   begin
     status:=´ok´;
     dmPrinc.cdsProduto.Edit;
     dmPrinc.cdsProdutoBARRAS.Value:=numero;
   end
   else
   begin
     status:=´´;
   end;
 end;
 dmFiltra.cdsFiltraProduto.Close;
end;