F�rum Exception Firebird #382084

24/07/2010

O exception no Firebird apresenta tudo na mensagem. A mensagem apresentada ficou assim: exception 7
NAO_TEM_ESTOQUE
N�o possui quantidade suficiente em estoque
AT trigger 'INS_CORPOSAIDA'.

Ser� que tem uma forma de apresentar s� o texto mesmo do exception?

Valeu gente.

Gustavo

Curtir t�pico

+ 0

Responder

Post mais votado

25/07/2010

vc n�o me entendeu se vc tiver usando clientdataset no evento oneconcileerror vc testa a mensagem , geralmente com
pos ou copy e trata a mensagem de uma forma mais amigavel qnd eu disse "como vc ta chamando ? " eu quis me referi a detalhes (componentes de acesso ,
tecnologia empregada < dbexpress > por exemplo ) , qnd dispara essa exce��o , num post ,
num applayupdates (provavelmente) ,e se vc colocou try except nessa chamada ( no caso
do cleintdataset n�o adianta ) deu para entender que vc criou um trigger que ira gerar uma exce��o que sera propagada para
o cliente . No cliente ao interceptar esta mensagem , tem que trata-la para aparecer de uma forma
mais amigavel . so que esta tratamento , depende da engine de acesso Numa Arquitetura DbExpress/ClientDataSet ficaria mais ou menos assim

procedure TSeuFormOuDataModule.SeuCDSReconcileError(DataSet: TCustomClientDataSet;
  E: EReconcileError; UpdateKind: TUpdateKind; var Action: TReconcileAction);
begin
if pos('NAO_TEM_ESTOQUE',e.Message) > 0 then
      Showmessage('N�o possui quantidade suficiente em estoque');
end;

Ao dar o ApplayUpdates , caso a exce��o do Triger seje gerada a mensagem ser� apresentada de forma amigavel

Marco Salles

Responder

Gostei + 1

Mais Posts

24/07/2010

Marco Salles

tem Mostre como vc esta fazendo

Responder

Gostei + 0

24/07/2010

Gustavo

A chamada pela triger est� assim:    IF (:QTDEESTOQUE < (NEW.QTDE*:PUNISAIDA)) THEN BEGIN
            EXCEPTION "NAO_TEM_ESTOQUE";
         END ELSE BEGIN    ....    END. e a cria��o da exception assim: CREATE EXCEPTION NAO_TEM_ESTOQUE 'N�o possui quantidade suficiente em estoque'; valeu pela for�a

Responder

Gostei + 0

24/07/2010

Marco Salles

Me referi ao codigo no delphi Como vc esta mostrando esta mensagem ???? try excpet ???

Responder

Gostei + 0

25/07/2010

Gustavo

N�o amigo, n�o chamo pelo Delphi. Eu criei um gatilho direto no firebird, ou seja, a chamada � feita quando tenta inserir naquela tabela, conforme postei anteriormente.

Responder

Gostei + 0

25/07/2010

Gustavo

Valeu amigo, resolvido.... Muito obrigado...

Responder

Gostei + 0