SYSDBA в 15:22, 15 декабря 2009

2009-12-15T15:22:03Z

SYSDBA в 16:34, 4 мая 2009

2009-05-04T16:34:00Z

Новая страница

После ввода структуры подразделений организации ([[Исследователь]] - Справочники - Клиенты - Организации - [[Производственные подразделения]]) может понадобиться заблокировать любые изменения (добавление, редактирование, удаление). Установить блокировку можно с помощью триггера и исключения. Так как подразделения хранятся в той же таблице [[GD_CONTACT]], где и сама организация, и являются ее вложенными уровнями, то для проверки можно использовать границы интервала организации.

Идентификатор организации можно посмотреть в диалоговом окне редактирования. Запомним его.

Зайдем в [[Редактор SQL]] и выполним команду:

CREATE EXCEPTION gd_e_cannot_del_depart 'Изменение подразделений заблокировано в триггере!'

Затем наберем и выполним текст триггера:

CREATE TRIGGER gd_aiud_contact_block FOR gd_contact
ACTIVE
AFTER INSERT OR UPDATE OR DELETE
POSITION 32000
AS
DECLARE VARIABLE LB INTEGER;
DECLARE VARIABLE RB INTEGER;
BEGIN
SELECT lb, rb FROM gd_contact WHERE id = <подставьте сюда ИД организации>
INTO :LB, :RB;

IF ((NEW.lb >= :LB) AND (NEW.rb <= :RB)) THEN
BEGIN
EXCEPTION gd_e_cannot_del_depart;
END
END

Остается проверить блокировку в действии.

Если изменения под учетной записью [[Administrator]] блокировать не следует, то добавим проверку в триггер:

CREATE TRIGGER gd_aiud_contact_block FOR gd_contact
ACTIVE
AFTER INSERT OR UPDATE OR DELETE
POSITION 32000
AS
DECLARE VARIABLE LB INTEGER;
DECLARE VARIABLE RB INTEGER;
BEGIN
IF (CURRENT_USER <> 'SYSDBA') THEN
SELECT lb, rb FROM gd_contact WHERE id = <подставьте сюда ИД организации>
INTO :LB, :RB;

IF ((NEW.lb >= :LB) AND (NEW.rb <= :RB)) THEN
BEGIN
EXCEPTION gd_e_cannot_del_depart;
END
END
END

Здесь мы использовали известный нам факт, что учетная запись Administrator всегда соответствует учетной записи [[SYSDBA]] сервера [[Firebird]].

[[Category:Учебный курс]]

@@ Строка 39: / Строка 39: @@
   BEGIN
     IF (CURRENT_USER <> 'SYSDBA') THEN
       SELECT lb, rb FROM gd_contact WHERE id = <подставьте сюда ИД организации>
         INTO :LB, :RB;

Блокировка изменения подразделения - История изменений

SYSDBA в 15:22, 15 декабря 2009

SYSDBA в 16:34, 4 мая 2009