CREATE OR REPLACE FUNCTION proc_historical_update()  RETURNS trigger AS'

DECLARE
  i     integer;
  vDim  integer;
  vcol_names  varchar [] = ''{}'' ;
  InsertRow   text = '''';
  InsertedRow text = '''';
  InsertCmd   text  = '''';
 
BEGIN
-- Если мы изменяем видимость записи, то выходим и историю не пишем!
    IF NEW.Deleted <> OLD.Deleted THEN                    

-- Сюда вставлять изменение в подчиненных таблицах! Если это трабует алгоритм... Подумать над этим позже
--      UPDATE t_town SET t_town.Deleted = NEW.Deleted WHERE t_town.idCountry = OLD.idKey;

       RETURN NEW;
    END IF;

-- Запись истории в таблицу!

    vcol_names := proc_table_name_array(quote_ident(TG_TABLE_NAME)); -- получим имена всех столбцов таблицы

-- Формируем строку для INSERT  переменной InsertCmd

    i := 2 ; -- не трогаем колонку первичного ключа idKey! Он у нас всегда первый в списке столбцофф
    vDim := array_upper(vcol_names,1); -- Узнаем размерность массивчика
    WHILE  i <= vDim 
    LOOP 
        IF quote_ident(vcol_names[i]) = ''idactualkey'' THEN   
                  InsertedRow := InsertedRow || ''OLD.Idkey''; 
        ELSEIF vcol_names[i] = ''dateend'' THEN   
                       InsertedRow := InsertedRow || ''NOW()'';        
        ELSE 
             InsertedRow := InsertedRow || ''OLD.'' || vcol_names[i]; 
        END IF;

        InsertRow := InsertRow || vcol_names[i];
-- Запятую ставим тока если не последний операнд
        IF i<vDim THEN
           InsertRow   := InsertRow   || '', '';
           InsertedRow := InsertedRow || '', '';
        END IF; 
        i := i + 1;       
    END LOOP;

    InsertCmd := ''INSERT INTO '' 
              || TG_TABLE_NAME
              || '' ('' 
              || InsertRow
              || '') VALUES (''
              || InsertedRow
              || ''); '';

    EXECUTE InsertCmd ; 
          
    NEW.DateBegin := NOW();     
   
RETURN  NEW;

END;
' LANGUAGE 'plpgsql';