/*
Параметры:
   username       = имя пользователя или роли
   t_or_p_name  =  таблица / процедура / вьюха
   checkpriv       = строка вида "S,I,u,D,E" в зависимости от набора прав, которые нужно проверить
Возврат:
   0 - права есть, 1 - прав нету
*/

execute block (username varchar(32)=?username,
               t_or_p_name varchar(32)=?t_or_p_name,
               checkpriv varchar(32)=?checkpriv)
returns (granted smallint)
as
declare variable p integer;
declare variable sql varchar(1024);
begin

 sql='select count(rdb$user_privileges.rdb$privilege)
      from rdb$user_privileges
      where rdb$user_privileges.rdb$user='''||upper(:username)||''' and
            rdb$user_privileges.rdb$relation_name='''||upper(:t_or_p_name)||''' and
            position(trim(rdb$user_privileges.rdb$privilege),'''||upper(:checkpriv)||''')>0';
 execute statement :sql into :p;
 if (p=char_length(:checkpriv)) then granted=1; else granted=0;
 suspend;
end