SET TERM ^ ;

CREATE OR ALTER trigger ttbusuario_b03d for tbusuario
active before delete position 1
AS
DECLARE VARIABLE USUARIO_CODIGO INTEGER;
BEGIN

  FOR
      SELECT FIRST 1
        USUARIO_CODIGO
      FROM TBHISTORICO T
      WHERE T.USUARIO_CODIGO = OLD.CODIGO

   INTO
    :USUARIO_CODIGO

  DO BEGIN
    IF(USUARIO_CODIGO IS NOT NULL OR USUARIO_CODIGO > 0) THEN
        BEGIN
            EXCEPTION "..."'USUÁRIO NÃO PODE SER EXCLUIDO, POIS JÁ ESTÁ SENDO UTILIZADO NO SISTEMA';
        END
  END
END
^

SET TERM ; ^

