create or replace function СоздатьПроводкиПоДокументу(integer) returns trigger as '
   declare iDocID alias for $1;
begin
   -- Действия по вставке нужных проводок по документу
   ...
end'
language 'plpgsql';

create or replace function УдалитьПроводкиПоДокументу(integer) returns trigger as '
   declare iDocID alias for $1;
begin
   delete from Проводки where ДокументИсточник = iDocID;
end'
language 'plpgsql';

create or replace function ДоИзмененияДокумента() returns trigger as '
  declare bDelete bool := false; bInsert bool := false; bAllowed bool := true;
begin
   -- по операции и флажку REGISTERED найдем, можно ли удалять-изменять
   -- и проводить-отменять проведение
   if TG_OP = ''DELETE'' then
      bAllowed := (case when old.REGISTERED then false else true end);
   elsif TG_OP = ''UPDATE'' then
      bAllowed := (case when old.REGISTERED then false else true end);
      bDelete := (case when old.REGISTERED and not new.REGISTERED then true else false end);
      bInsert := (case when new.REGISTERED and not old.REGISTERED then true else false end);
   elsif TG_OP = ''INSERT'' then
      bInsert := (case when new.REGISTERED then true else false end);
   end if;
   if not bAllowed then
      -- операция с проведенным документом запрещена - исключение
      raise exception ''Операция с проведенным документом запрещена !'';
      return null;
   else
      if bDelete then
         select ОтменитьПроводкиПоДокументу(old.ID);
      end if;
      if bInsert then
         select СоздатьПроводкиПоДокументу(new.ID);
      end if;
   end if;
   if TG_OP = ''DELETE'' then
      return old;
   else
      return new;
   end if;
end'
language 'plpgsql';

create trigger ДоИзмененияДокумента before update or insert or delete on ТаблицаДокументов
  for each row execute procedure ДоИзмененияДокумента();