Всем доброго дня,

В принципе такое возможно и мы нечто подобное уже не раз делали,
единственная проблема в хранении полей типа image, text короче
всего того что не влазит в varchar
1.создаем 3 таблицы
create table LO (
LO_ID numeric(6,0) not null ,
LO_RFN varchar(50) null ,
LO_ISN varchar(30) null ,
LO_TYPE char(1) null
)
create table LL (
LL_ID numeric(16,0) not null ,
LL_DATE datetime not null ,
LO_ID numeric(6,0) null ,
LL_OPER char(1) null ,
LL_COND varchar(256) null ,
COMM varchar(256) null ,
USER_ID numeric(6,0) null ,
hostname char(10) null ,
ipaddr char(15) null ,
program_name varchar(30) null
)
create table LD (
LL_ID numeric(16,0) not null ,
LO_ID numeric(6,0) not null ,
COL_NAME varchar(30) not null ,
COL_VAL varchar(256) null
)
2.Создаем процедуру
/* примечание:
у нас есть такая таблица CA_SYS в которой есть поле NO_LOG и всего ОДНА зарпись
NO_LOG = 1 - не журанлировать ничего, но в принципе можно в таблице LO сделать флаги
по отключению журнала индивидуально
*/

CREATE PROCEDURE dbo.sp_ll
/* Запись в системный журнал */
@ll_id numeric(16,0) output /* Id записи журнала (если not null то к старой записи добавляет детализацию по колонкам ) */ ,
@lo_id numeric(6,0) output /* Id объекта (для детализации) */ ,
@LO_RFN varchar(50) , /* Полное наименование объекта (надо для авт. вставки) */
@LO_ISN varchar(30) , /* Краткое наименование объекта (надо для авт. вставки) */
@LO_TYPE char(1) , /* Тип обьекта P,T (надо для авт. вставки) */
@ll_OPER char(1) , /* Тип операции A,U,D,E*/
@LL_COND varchar(256), /* Условие поиска записи */
@COMM varchar(256), /* Комментарий */
@COL_NAME varchar(30) , /* Имя колонки */
@COL_VAL varchar(256) /* Новое значение */

AS
BEGIN
if @ll_id is null /* если записи в журнале еще нет - вставить, если есть то добавить детальную информацию (например изменение по списку колонок) */
begin
/* определение пользователя если нет - то не журналировать*/
declare @user_id numeric(6,0), @program_name varchar(30)

if isnull( (select no_log from ca_sys),1) = 1 return /* отключение */

select @user_id = null

select @user_id = user_id, @program_name = program_name
from usersession
where spid = @@spid
and isnull(no_log, 0) = 0

if @USER_ID is null select @USER_ID = 1
if @USER_ID = 1 return

if @USER_ID is not null or @LL_OPER='E' /* запись не выполняется если нет @user_id или он отключен(no_log<>0) кроме типа 'E'*/
begin
/* определение id объекта - таблицы */
if @lo_id is null
begin
select @LO_ID = null
select @LO_ID = LO_ID
from LO
where LO_ISN = @LO_ISN
and LO_TYPE = @LO_TYPE
end

if @LO_ID is null /* если записи нет в таблице объектов - вставить */
begin
exec sp_next_key 'LO', @LO_ID output
insert into LO (LO_ID, LO_RFN, LO_ISN, LO_TYPE)
values (@LO_ID, @LO_RFN, @LO_ISN, @LO_TYPE)
end

exec sp_next_key 'LL', @LL_ID output
insert into LL (LL_ID, LL_DATE, LO_ID, LL_OPER, LL_COND, COMM, USER_ID, hostname, ipaddr, program_name )
select @LL_ID, getdate(), @LO_ID, @LL_OPER, @LL_COND, @COMM, @USER_ID, hostname, ipaddr, @program_name
from master..sysprocesses
where spid = @@spid

end
end
if @LO_ID is not null and @LL_ID is not null and @COL_NAME is not null
begin
/* вставка в LOC имени поля если такого там нет */
if not exists (select COL_NAME from LOC where LO_ID=@LO_ID and COL_NAME=@COL_NAME)
insert into LOC(DW, DW_COL, LO_ID, COL_NAME)
values ('default', @COL_NAME, @LO_ID, @COL_NAME)
/* значения полей */
insert into LD(LL_ID, LO_ID, COL_NAME, COL_VAL)
values (@LL_ID,@LO_ID, @COL_NAME,@COL_VAL)
end
return
end

3. В триггерах на таблицы пишем
create trigger ti_sg_drugs on SG_DRUGS for insert as
begin
....
-- в этой таблице два поля SG_ID, DRUG_ID

if isnull( (select no_log from ca_sys),1)=1 return
declare
@ll_id numeric(16,0),
@lo_id numeric(6,0),
@col_val varchar(255),
@ll_cond varchar(255),

@SG_IDs varchar(255),
@DRUG_IDs varchar(255)

declare cColCur cursor
for select rtrim(convert(varchar(255),SG_ID)),
rtrim(convert(varchar(255),DRUG_ID))
from inserted
open cColCur
fetch cColCur into @SG_IDs, @DRUG_IDs
while (@@sqlstatus = 0)
begin
select @LL_COND='SG_ID='+@SG_IDs+' AND DRUG_ID='+@DRUG_IDs

exec sp_ll @ll_id output, @lo_id output, 'SANET', 'SG_DRUGS' ,'T','A',@LL_COND, null,'SG_ID',@SG_IDs
exec sp_ll @ll_id output, @lo_id output, 'SANET', 'SG_DRUGS' ,'T','A',@LL_COND, null,'DRUG_ID',@DRUG_IDs
select @ll_id = null
fetch cColCur into @SG_IDs, @DRUG_IDs
end
....

Вот как то так

В дополнение к предыдущему посту

1.таблица usersession заполняется нашей прогой в момент коннекта
2.процедура нужна потому что в таблице LD, LL нельзя делать identity
create procedure sp_next_key
@table_name varchar(128),
@max_id numeric(16) out
AS
begin
declare @table_id int
select @max_id = null
select @table_id = table_id
from table_key
where upper(table_name) = upper(rtrim(@table_name))

if @table_id is null return

begin tran
update table_key
set max_id = max_id + 1
where table_id = @table_id

select @max_id = max_id
from table_key
where table_id = @table_id
commit tran
return 0
end

3.Таблица TABLE_KEY
create table TABLE_KEY (
TABLE_ID int not null ,
TABLE_NAME varchar(128) not null ,
MAX_ID numeric(16,0) not null ,
CHANGE_DATE timestamp null
)

jab,

конечно можно
в триггерах для ASE можно обращаться к "виртуальным" таблицам
inserted (это новые значения) и deleted (это старые значения) ... например

create trigger tu_ret on RET for update as
begin

declare
@ll_id numeric(16,0),
@lo_id numeric(6,0),
@col_val varchar(255),
@ll_cond varchar(255)

declare @RET_ID varchar(10),
@NEW_ORGFNAME varchar(255),
@OLD_ORGFNAME varchar(255)

declare cColCur cursor for select
rtrim(convert(varchar(10),N.RET_ID)),
rtrim(convert(varchar(255),N.ORGFNAME)),
rtrim(convert(varchar(255),O.ORGFNAME)),
from inserted N, deleted O
where N.RET_ID = O.RET_ID
open cColCur
fetch cColCur into @RET_ID,
@NEW_ORGFNAME,
@OLD_ORGFNAME,
while (@@sqlstatus = 0)
begin
select @ll_cond = 'RET_ID='+@RET_ID
select @where = ' WHERE RET_ID='+@RET_ID
-- в @NEW_ORGFNAME - новое значение
-- в @OLD_ORGFNAME - старое значение

end

в триггере на insert есть только INSERTED
в триггере на update есть INSERTED и DELETED
в триггере на delete есть только DELETED