…
Várias operações com vários CDS… cds1, cds2, cds3
…

try
ADOConn.BeginTrans;
if cds1.ChangeCount > 0 then
if cds1.ApplyUpdates(0) 0 then //OK !!!
raise Exception.Create(‘Erro ….’);

//Forço aqui um erro depois do primeiro ApplyUpdates para entrar no rollback de propósito para este teste:
raise Exception.Create(‘Erro para teste….’); //Força ir para except

if cds2.ChangeCount > 0 then
if cds2.ApplyUpdates(0) 0 then
raise Exception.Create(‘Erro ….’);
…
//
ADOConn.CommitTrans; OK !!!
except
on E:Exception do
begin
ADOConn.RollbackTrans; OK !!! Continua tudo certinho no banco de dados, õ aplly do cds1 não efetivou no banco de dados.
// * Mas aqui o cds1.ChangeCount está com valor zero, pois o ChangeLog do CDS1 foi esvaziado no momento do ApplyUpdate dele, e não foi restaurado após o fato do rollback..
end;
end;

* Já que houve o rollback, eu gostaria de restaurar o changelod do clientDataSet para que as alterações se tornem pendentes nele novamente, alguma idéia de como fazer isso ?

Muito bom e útil esse artigo. Parabéns!

O único incômodo ao utilizar TDataSetProvider.ApplyUpdates ao invés TClientDataSet.ApplyUpdates, é que podemos saber que houve erros, consultando ErrorCount, mas não podemos tratar, ou enviar para a aplicação cliente, detalhes do erro, o que normalmente seria feito no evento OnReconcileError do ClientDataSet.

Uma forma de resolver isso:

1) Implementar um método para levantar a exceção com a mensagem de erro exata:

procedure TNewService.ProviderUpdateError(Sender: TObject;
DataSet: TCustomClientDataSet; E: EUpdateError; UpdateKind: TUpdateKind;
var Response: TResolverResponse);
begin
raise EDatabaseError.Create(E.Message);
end;

2) Associar esse método ao evento OnUpdateError de todos os providers do DataModule;

3) Tratar a exceção na chamada à ApplyUpdates:

try
Provider.ApplyUpdates(VariantFromBinary(ADeltaArray[i].Delta), 0, ErrorCount);
except
on E: Exception do
begin
raise Exception.Create(Format(‘Ocorreram %d erros na atualização do provider “%s”. Erro: %s’,
[ErrorCount, ADeltaArray[i].ProviderName, E.Message]));
end;
end;

Fica aí essa dica que talvez seja útil para outros desenvolvedores.

Um abraço!

t+ ,

Frainer Mauri