Fórum ClientDataSet - Dúvidas Matadoras #278723

{ Coloquem o código abaixo no local onde estão seus ClientDataSets (geralmente num datamodule, mas se estiverem num form, coloquem nele!) }

// Tipos Enumeração que eu crie para tratar o erro facilmente.
// Eles serão os valores de retorno das funções que criei para
// avaliar as mensagens de erro.

// Constantes enumeradas para erros retornados pelo SGBD firebird
// após chamar o método ApplyUpdates do ClientDataSet

{ colocar em [b]interface[/b]}

type TErrosFBEnum = (
  efbConstraint,
  efbPKUK,
  efbFK,
  efbConflito,
  efbDesconhecido
);

// Constantes enumeradas para erros retornados pelo ClientDataSet,
// após chamar o método Post do ClientDataSet

type TErrosCDSEnum = (
  ecdsViolacaoChave,
  ecdsDesconhecido
);

function DetectarErrosBD(E: EReconcileError): TErrosFBEnum;
function DetectarErrosCDS(E: EDatabaseError): TErrosCDSEnum;

{ colocar na [b]implementation[/b]}

function DetectarErrosBD(E: EReconcileError): TErrosFBEnum;
begin
  if Pos(´validation error´, E.Message) <> 0 then
    Result := efbConstraint
  else if Pos(´violation of FOREIGN KEY´, E.Message) <> 0 then
    Result := efbFK
  else if Pos(´violation of PRIMARY or UNIQUE KEY´, E.Message) <> 0 then
    Result := efbPKUK
  else if Pos(´Record not found or changed by another user´, E.Message) <> 0 then
    Result := efbConflito
  else
    Result := efbDesconhecido;
end;

function DetectarErrosCDS(E: EDatabaseError): TErrosCDSEnum;
begin
  if Pos(´Key violation´, E.Message) <> 0 then
    Result := ecdsViolacaoChave
  else
    Result := ecdsDesconhecido;
end;

// Utilização das funções criadas
// Trecho tirado do meu programa. Este código consta no evento
// OnReconcileError do meu ClientDataSet

procedure TdmGerProfessores.cdsProfessorReconcileError(
  DataSet: TCustomClientDataSet; E: EReconcileError; UpdateKind: TUpdateKind;
  var Action: TReconcileAction);
begin
  case DetectarErrosBD(E) of
    // Erro de restrição
    efbConstraint:
    begin
      MessageDlg(
        ´Erro ao salvar ´ + DataSet.Name + #10131013 +
        ´Valor inválidos ou nulos foram encontrados em campos com restrições.´,
        mtError, [mbOK], 0
      );
      Action := raAbort
    end;
    // Erro de chave primária (PK) ou chave única (UK)
    efbPKUK:
    begin
      MessageDlg(
        ´Erro ao salvar ´ + DataSet.Name + 10131013 +
        ´Campos que não aceitam valores duplicados possuem valores duplicados.´,
        mtError, [mbOK], 0
      );
      Action := raAbort;
    end;
    // Erro de chave estrangeira
    efbFK:
    begin
      MessageDlg(
        ´Erro ao salvar ´ + DataSet.Name + 10131013 +
        ´Valores digitado em campos dependentes não possuem correspondentes válidos.´,
        mtError, [mbOK], 0
      );
      Action := raAbort;
    end;
    // Erro de chave estrangeira
    efbConflito:
    begin
      MessageDlg(
        ´Erro ao salvar ´ + DataSet.Name + 10131013 +
        ´O registro foi modificado ou deletado por outro usuário. Os dados do registro serão recarregados.´,
        mtError, [mbOK], 0
      );
      Action := raRefresh;
    end;
  else
    MessageDlg(
      ´Erro ao salvar ´ + DataSet.Name + 10131013 +
      ´Erro desconhecido!´,
      mtError, [mbOK], 0
    );
  end;
end;

procedure TdmGerProfessores.cdsProfessorPostError(DataSet: TDataSet;
  E: EDatabaseError; var Action: TDataAction);
var
  CodigoProf: Integer;
  Acao: Integer;
begin
  inherited;
  // [b]O TRECHO QUE IMPORTA[/b]
  case DetectarErrosCDS(E) of
    ecdsViolacaoChave:
    begin
      CodigoProf := cdsProfessorPROFESSOR_ID.AsInteger;
      Acao := MessageDlg(
        ´Já existe um professor com o código informado!´ + 10131013 +
        ´Gostaria de ir para ele e conferir? (Os dados digitados do professor serão perdidos)´,
        mtWarning, [mbYes, mbNo], 0
      );
      // Move o cursor para o professor com o código
      // informado, mas que porém já pertence a outro
      // professor
      if Acao = mrYes then
      begin
      cdsProfessor.Cancel;
        cdsProfessor.Locate(´PROFESSOR_ID´, CodigoProf, []);
      end;
    end
  else
    MessageDlg(
      E.Message,
      mtWarning, [mbOk], 0
    );
  end;
Action := daAbort;
end;