CREATE GENERATOR GEN_LOGS_ID;

CREATE TABLE LOGS (
    ID      INTEGER NOT NULL,
    TNAME   VARCHAR(31),
    FNAME   VARCHAR(31),
    ID_SRC  INTEGER,
    A       CHAR(1),
    VAL     VARCHAR(1000),
    A_DT    TIMESTAMP default current_timestamp,
    A_USER  VARCHAR(32) default current_user,
    A_IP    VARCHAR(253),
    A_EXE   VARCHAR(253) -- не используется
);

/******************************************************************************/

ALTER TABLE LOGS ADD CONSTRAINT LOGS_PK PRIMARY KEY (ID);

CREATE INDEX LOGS_A_DT   ON LOGS (A_DT);
CREATE INDEX LOGS_FNAME ON LOGS (FNAME);
CREATE INDEX LOGS_ID_SRC ON LOGS (ID_SRC);
CREATE INDEX LOGS_TNAME ON LOGS (TNAME);

/******************************************************************************/

SET TERM ^ ;

CREATE OR ALTER TRIGGER LOGS_BI_ID FOR LOGS
ACTIVE BEFORE INSERT POSITION 0
as
begin
  if (new.id is null) then
    new.id = gen_id(gen_logs_id,1);
end
^


CREATE OR ALTER TRIGGER LOGS_BI_IP FOR LOGS
ACTIVE BEFORE INSERT POSITION 0
as
begin
  --
  -- Вставка IP вносившего изменение
  --
  select rdb$get_context('SYSTEM', 'CLIENT_ADDRESS')
    from rdb$database
    into NEW.a_ip;

/*
  -- этот вариант говорят что под нагрузкой плохо работает
  -- жрет много ресурсов формируя каждый раз ВСЕ MON$-таблицы
  select
    MON$REMOTE_ADDRESS,
    MON$REMOTE_PROCESS
  from MON$ATTACHMENTS
  where (MON$ATTACHMENTS.MON$ATTACHMENT_ID = current_connection)
  into NEW.a_ip, NEW.a_exe;
*/
end
^

SET TERM ; ^


/******************************************************************************/

COMMENT ON TABLE LOGS IS 
'Лог справочников.
Для фиксирования изменений в таблицах где есть primary key(id)';

**************************************************************************/

COMMENT ON COLUMN LOGS.TNAME IS 
'Имя таблицы - источника';

COMMENT ON COLUMN LOGS.FNAME IS 
'Имя поля в таблице-источнике';

COMMENT ON COLUMN LOGS.ID_SRC IS 
'Первичный ключ записи в таблице-источнике';

COMMENT ON COLUMN LOGS.A IS 
'Action (I/U/D)';

COMMENT ON COLUMN LOGS.VAL IS 
'Новое значение в логируемом поле';

COMMENT ON COLUMN LOGS.A_DT IS 
'Дата-время изменения';

COMMENT ON COLUMN LOGS.A_USER IS 
'Кто изменил';

COMMENT ON COLUMN LOGS.A_IP IS 
'С какого IP было изменение
Данные поля MON@ATTACHMENTS.MON$REMOTE_ADDRESS';

COMMENT ON COLUMN LOGS.A_EXE IS 
'Из какой программы были изменения.
Данные поля MON@ATTACHMENTS.MON$REMOTE_PROCESS';