CREATE OR ALTER trigger SP_COLOR_LOG_I for SP_COLOR
active after insert position  1 
AS
begin
  --логгируем вставку строки
  execute procedure SYS_LOG_METADATA('SP_COLOR', new.ID, '+');
end

CREATE OR ALTER trigger SP_COLOR_LOG_U0 for SP_COLOR
active before update position  1 
AS
begin
  --логгируем изменение строки (фиксация старого состояния)
  execute procedure SYS_LOG_METADATA('SP_COLOR', old.ID, '<');
end

CREATE OR ALTER trigger SP_COLOR_LOG_U1 for SP_COLOR
active after update position  1 
AS
begin
  --логгируем изменение строки (фиксация нового состояния)
  execute procedure SYS_LOG_METADATA('SP_COLOR', new.ID, '>');
end

CREATE OR ALTER trigger SP_COLOR_LOG_D for SP_COLOR
active before delete position  1 
AS
begin
  --логгируем удаление строки
  execute procedure SYS_LOG_METADATA('SP_COLOR', old.ID, '-');
end

CREATE OR ALTER PROCEDURE SYS_LOG_METADATA(
    TBL_NAME VARCHAR( 32 ),
    TBL_ID INTEGER,
    TBL_OPER CHAR( 1 ))
AS
declare variable TEXT       varchar( 9999 ) default '';
declare variable SEPARATOR  varchar( 78 ) default '';
declare variable FLD        varchar( 32 );
declare variable STATM      varchar( 9999 ) default '';
begin
  --находим поля таблицы и формируем список выбора
  for
    select RDB$FIELD_NAME
      from RDB$RELATION_FIELDS
     where RDB$RELATION_NAME=:TBL_NAME
       and RDB$FIELD_NAME<>'ID'
     order by RDB$FIELD_POSITION
      into :FLD
  do begin
    FLD = trim(FLD);
    STATM = STATM || SEPARATOR || '''' || FLD || ' = ''' ||
      '||cast(coalesce(' || FLD || ','''') as varchar(200))';
    if (SEPARATOR='') then
      SEPARATOR = '||ascii_char(13)||ascii_char(10)||';
  end

  --формируем запрос
  STATM = 'select ' || STATM || ' from ' || TBL_NAME ||
    ' where ID=' || cast(TBL_ID as varchar( 9 ));

  --исполняем его
  execute statement STATM into :TEXT;

  --вставляем снимок строки в лог
  insert into SYS_LOG
    (MODULE, TBL_NAME, TBL_ID, TBL_OPER, TEXT)
  values
    ('(auto)', :TBL_NAME, :TBL_ID, :TBL_OPER, :TEXT);
end

SEPARATOR = '||ascii_char(13)||ascii_char(10)||';

IZD_VID_ID = 3952
NUM = 3
ITEM_CAPTION = Крыша
EXACT_MAT_ID = 
EXACT_MAT_WIDTH = 
EXACT_COLOR_ID = 
F_MAT_BY_REF = =[МАТк]
F_MAT_WIDTH_BY_REF = =[ТЛЩк]
F_COLOR_BY_REF = =[ЦВЕТк]
SIZE1_KOD = 
SIZE1_CAPTION = 
F_SIZE1 = =[ШКш] + 4
SIZE2_KOD = 
SIZE2_CAPTION = 
F_SIZE2 = =[ШКг] + 100
KOL_KOD = 
F_KOL = [КОЛ]
F_PROF_BY_REF = 
F_TEMP_BEFORE = [Элит?]
F_PRIM = 
F_SIZE1_CUT = 
F_SIZE2_CUT = 
F_KOL_CUT = 
EXACT_DRAFT = 222000000001010
F_PRIM_CUT = 
ITEM_KIND_ID = 0
CAPTION_FACTOR_ID = 2
IF_SKIP_IN_CHILD = 0

execute statement STATM into :TEXT;