Fórum Como fazer essa verificação? #371571
24/06/2009
0
if application.messagebox(´Deseja excluir este Registro?´,´Confirmar
exclusão?´,mb_iconquestion+mb_yesno) = mrYes then
if dm.cdsauditoria.applyUpdates(0) >= 0 then
begin
dm.cdscadlocador.delete;
dm.cdscadlocador.appluUpdates(0);
end
else
//aqui coloco os comandos de inclusão na tabela de auditoria.
end;
end;
Vandeir
Curtir tópico
+ 0Posts
24/06/2009
.lg.
boValida: Boolean
Então.
Se for True... Grava no log. Se for False... Não grava no log.
Pego!?
Por padrão sete-a pra True. Se rolar a exceção... Sete-a pra false.
:wink:
Qualquer dúvida, postae.
.LG.
Gostei + 0
24/06/2009
Danielrsanches
try NOME_DA_TABELA.DELETE
...aqui os comandos para salvar no log, sendo que excluiu o registro...
except on E: Exception do
begin
showmessage(´Erro ao excluir registro.´+#13+E.Message);
...aqui os comandos que desejar, sendo que não excluiu ...
end;
end;
abraços !!
Gostei + 0
26/06/2009
Emerson Nascimento
será necessário implementar o evento OnReconcileError do CDS. lá você saberá se houve erro e daí pode executar sua rotina de LOG.
pode ser com variável boleana. algo assim:
no DM implemente o evento OnReconcileError do CDS:
procedure Datamodule1.cdsCadLocadorReconcileError(DataSet: TCustomClientDataSet; E: EReconcileError; UpdateKind: TUpdateKind; var Action: TReconcileAction); begin lErro := True; // variável pública do DM end;
no seu botão de exclusão:
if application.messagebox(´Deseja excluir este Registro?´,´Confirmar exclusão?´,mb_iconquestion+mb_yesno) = mrYes then begin dm.lErro := False; dm.cdscadlocador.delete; dm.cdscadlocador.ApplyUpdates(0); if not dm.lErro then // se não deu erro na exclusão, adiciono ao LOG //aqui coloco os comandos de inclusão na tabela de auditoria. end;
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)