Fórum Problema com Delphi 10.1 + FireDAC (AutoPost) #580390

procedure TfrmManutencaoUsuarios.btnSalvaUnidadeClick(Sender: TObject);
begin
  // verifica os items
  if dbeUsuarioUnidade.Text = '' then
  begin
    Application.MessageBox('Campo Nome do Usuário é Obrigatório!','Aviso', MB_OK+MB_ICONEXCLAMATION);
    dbeUsuarioUnidade.SetFocus;
    exit;
  end;

  if dbcUsuarioUnidade.Text = '' then
  begin
    Application.MessageBox('Nome da Unidade é Obrigatório!','Aviso', MB_OK+MB_ICONEXCLAMATION);
    dbcUsuarioUnidade.SetFocus;
    exit;
  end;
  // Verifica se a Unidade já está acessível para o Usuário
  if DataModuleGeral.tbUsuariosUnidades.Locate('USUARIO_NOME;UNIDADE_NOME',
           VarArrayOf([dbeUsuarioUnidade.Text, dbcUsuarioUnidade.Text]),[]) then
  begin
    Application.MessageBox('Esta Unidade já está Acessível para este usuário!',
                                             'Aviso', MB_OK+MB_ICONEXCLAMATION);
    dbcUsuarioUnidade.SetFocus;
    exit;
  end else
  begin
    // Salva na Tabela
    DataModuleGeral.tbUsuariosUnidades.Post;
  end;
end;