Curso Firebird SQL 18 - Exception

Tratando exceções com mensagens de retorno.




Script exemplo:

--Criando Exception
CREATE EXCEPTION EXC_CLIPADRAO
'Cliente 1 padrão consumidor, exclusão não permitida';


--Criando Gatilho para disparar exception
SET TERM ^ ;
CREATE TRIGGER CLIENTE_BD FOR CLIENTE ACTIVE
BEFORE DELETE POSITION 0
AS
BEGIN
    /* enter trigger code here */
   if (old.Cli_CODIGO = 1) then
    exception EXC_CLIPADRAO;   
END^
SET TERM ; ^

Comentários