Re: [firebase-br] Sumiço de registros (novamente)

[Jederson]

Kra tem que utilizar no ClientDataSet do DbExpress no Evento OnReconcilieError uma rotina.
Vou postar a rotina simples aqui, mas o problema nem é no banco de dados.

function Tdm_System.ReconcileError(DataSet: TCustomClientDataSet;
          Erro: String; UpdateKind: TUpdateKind) : TReconcileAction;
begin
   If UpdateKind = ukInsert then
   Begin
      MessageDlg('ERRO AO INSERIR O REGISTRO' + CHR(13) + Erro, mtError,[mbOk],0);
      DataSet.Edit;
      Result := raAbort;
   End
   Else If UpdateKind = ukModify then
   Begin
      MessageDlg('ERRO AO EDITAR O REGISTRO' + CHR(13) + Erro, mtError,[mbOk],0);
      DataSet.Edit;
      Result := raAbort;
   End
   Else If UpdateKind = ukDelete then
   Begin
      MessageDlg('ERRO AO APAGAR O REGISTRO' + CHR(13) + Erro, mtError,[mbOk],0);
      Result := raCancel;
   End
   Else
      Result := raRefresh;
end;

Tenta com isso....

Abraço

----- Original Message ----
From: Fernando Reis Guimarães <fernandobhz em gmail.com>
To: FireBase <lista em firebase.com.br>
Sent: Thursday, November 9, 2006 11:46:22 PM
Subject: Re: [firebase-br] Sumiço de registros (novamente)

Outra dia... no site do firebase tem um sql monitor da uib...
Roda ele nas aplicações ai você vai ver o que ta acontecendo....


2006/11/9, copano.ricardo em gmail.com <copano.ricardo em gmail.com>:
>
> Caro amigo,
>
> Verifique o commit após o ApplyUpdates
>
> eu uso assim:
>
> bTB := dm1.DB.InTransaction;
> tTD.TransactionID  := 1;
> tTD.IsolationLevel := xilREADCOMMITTED;
>
> try
>
>   if not bTB then
>     dm1.DB.StartTransaction(tTD);
>
>     Datasource1.DataSet.Post;
>
>     if not bTB then
>      dm1.DB.Commit(tTD);
>
> Except
>
> //suas regras de exeções
>
>   end;
>
> Espero que ajude.
>
> Ricardo.
> ----- Original Message -----
> From: "Fuzari" <fuzari em task.com.br>
> To: "FireBase" <lista em firebase.com.br>
> Sent: Thursday, November 09, 2006 9:29 PM
> Subject: [firebase-br] Sumiço de registros (novamente)
>
>
> Galera, boa noite!
>
> Um cliente me questionou ontem que havia digitado uma serie de registros
> (faturamento) no seu respectivo lote e hoje pela manha o lote e seus
> registros haviam sumido.
>
> Para uma garantia minha, mantenho uma tabela de log de acessos dos
> usuarios
> que registra tudo o que ele faz no sistema (criacao, exclusao, alteracao
> etc).
>
> Nesta tabela tem a criacao do lote ontem mas nao tem nenhum registro de
> exclusao.
>
> Uso Delphi 7 com Dbexpress, sqldataset, datasetprider e clientdataset.
>
> Uma abraço
>
> Fuzari.
>
>
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> Para editar sua configuração na lista, use o endereço
> http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>
>
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> Para editar sua configuração na lista, use o endereço
> http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>



-- 
Atenciosamente,
Fernando Reis Guimarães.

Contatos
fernando em fernandobhz.com
http://www.fernandobhz.com
Celular 9213-3727.
______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
Para editar sua configuração na lista, use o endereço http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
Para consultar mensagens antigas: http://firebase.com.br/pesquisa