Olá Marco Aurélio, obrigado pela dica ! Eu prefiro a segunda opção que vc descreveu. Estou fazendo testes com o Dbexpress, qdo eu usava o IBX eu utilizava essa técnica, mas, agora com o Dbexpress não está funcionando. Alguma idéia do que pode ser ?
Desde já agradeço a atenção ... Jader Ricardo --- Em delphi-br@yahoogrupos.com.br, Marco Aurélio \(DELPHI\) <[EMAIL PROTECTED]> escreveu > > Para resolver seu problema, você poderia tratar estas condições na sua aplicação, prevendo que futuramente as regras possam mudar ai não necessitando alterar as condições existentes na sua trigger, assim as exceções apareceram. > Ou outra alternativa é utilizar os objetos de On erro.....para capturar a mensagem que o banco retorno. > > Atenciosamente > Analista de Sistema Jr. > Marco Aurélio Gerônimo > Eletrodireto S/A - Central de Distribuição > ----- Original Message ----- > From: Jader Ricardo > To: delphi-br@yahoogrupos.com.br > Sent: Thursday, June 29, 2006 4:34 PM > Subject: [delphi-br] Dbexpress X Exception (do firebird) > > > Boa tarde amigos ! > > D7 + Dbexpress + firebird 1.5 > > Tenho uma trigger que é executada antes do registro ser gravado em uma > tabela, esta trigger faz uma verificação e dependendo do resultado ele gera > uma exceção (exception). > > Na minha aplicação, quando realizo um ApplyUpdates(0) em execução a exceção > não aparece, o registro não grava mas deveria dar uma mensagem de erro, > certo ? > > A mensagem de erro só aparece quando estou em desenvolvimento (debug). > Alguém tem uma dica de como corrigir isto ? > > Vejam o código ? > > If (Dm.CdsAca.Active = False) Then > Begin > Showmessage('Não há dados para gravar'); > Exit; > End > Else > Begin > Try > Begin > Dm.CdsAca.Post; > Dm.CdsAca.ApplyUpdates(0); > Showmessage('Registro inserido com sucesso.'); > End; > Except > Begin > Showmessage('O registro não pode ser inserido.'); > Exit; > End; > End; > End; > > Atenciosamente, > Jader Ricardo > > > [As partes desta mensagem que não continham texto foram removidas] > > > > [As partes desta mensagem que não continham texto foram removidas] > -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html