procedure TfrmcadProdutos.InserirCodigosBarra;
begin
  frmaddcod.tmData.First;
  frmaddcod.qryCodigo.SQL.Clear;
  frmaddcod.qryCodigo.SQL.Text := 'DELETE FROM codigo_barras WHERE codigo_produto = :codproduto';
  frmaddcod.qryCodigo.Params.ParamByName('codproduto').AsInteger := StrToInt(EdtCodInterno.Text);
  frmaddcod.qryCodigo.ExecSQL;
  while not frmaddcod.tmData.Eof do
    begin
      frmaddcod.qryCodigo.Close;
      frmaddcod.qryCodigo.SQL.Clear;
      frmaddcod.qryCodigo.SQL.Add('SELECT * FROM codigo_barras WHERE codigo_ean = :codean');
      frmaddcod.qryCodigo.Params.ParamByName('codean').Value := frmaddcod.tmData.FieldByName('codigo_ean').AsString;
      frmaddcod.qryCodigo.Open;
      if frmaddcod.qryCodigo.IsEmpty then
        begin
         frmaddcod.qryCodigo.SQL.Clear;
          frmaddcod.qryCodigo.SQL.Text := 'INSERT codigo_barras (codigo_produto,codigo_ean) VALUES (:codproduto,:codean)';
          frmaddcod.qryCodigo.Params.ParamByName('codproduto').Value := frmaddcod.tmData.FieldByName('codigo_produto').AsString;
          frmaddcod.qryCodigo.Params.ParamByName('codean').Value := frmaddcod.tmData.FieldByName('codigo_ean').AsString;
          frmaddcod.qryCodigo.ExecSQL;
        end
      else
        begin
          Application.MessageBox('CÓDIGO EAN JÁ CADASTRADO!', PChar(Application.Title),MB_OK + MB_ICONINFORMATION);
        end;
      frmaddcod.tmData.Next;
    end
end;