"D:\Replicator_1_beta\Client\TEMPLATE.GDB"

BI_DB_PROFILE

Descriptions

There is no desription for trigger BI_DB_PROFILE

Definition

CREATE TRIGGER BI_DB_PROFILE FOR DB_PROFILE ACTIVE
BEFORE INSERT POSITION 32767
AS
DECLARE VARIABLE REPL_COUNT INTEGER;
DECLARE VARIABLE COUNT_IS_CURR INTEGER;
BEGIN
  /*Описание.
  Если не в режиме репликации, запрещает добавления БД кроме текущей.
  Всегда добавляет новую запись в таблицу регистрации
      (поколение записи с÷итается неустановленным, поколение установит процедура SET_NEW_GEN).
      Вызывается после всех остальных (возможных) триггеров
  */
  SELECT COUNT( DB_ID ) FROM CURR_SERV INTO :REPL_COUNT;/*Полу÷ить кол-во серверов, которые видны в текущей транзакции*/
  /**/
  IF( REPL_COUNT = 0 )THEN/*Не в режиме репликации*/
    BEGIN
      IF( NEW.IS_CURR <> 1 )THEN EXCEPTION E_ACCESS_ERROR;/*Можно вставлить только текущую БД*/
    END
  ELSE
    IF( REPL_COUNT <> 1 )THEN EXCEPTION EINTERNAL_MULTIPLE_REPL;/*ASSERT(DEBUG)*/
  /*
  Добавить запись в таблицу регистрации (перед вставкой записи в таблицу данных).
  LOG_INS_GEN и LOG_UPD_GEN установлены в NULL)
  */
  INSERT
    INTO LOG_DB_PROFILE( LOG_DB_ID)
    VALUES ( NEW.DB_ID );
  /**/
END

This file was generated with EMS InterBase/FireBird Manager (www.ibmanager.com) at 11/13/2006 10:51 PM