/// Добавление в лог
/// aOperType - Тип операции (1 добавление, 0 изменение, -1 удаление)
ClassMethod ChangeLog(aOperType As %Integer, aID As %String) [ CodeMode = objectgenerator ]
{
q:%class.ClassType'="persistent" 1
d %code.WriteLine(" s cNameClass="""_%class.Name_"""")
d %code.WriteLine(" s cUserName=$USERNAME")
d %code.WriteLine(" s cChangeTime=$zdt($h,3,1)")
d %code.WriteLine(" s cFieldList="""_%parameter("FieldList")_"""")
d %code.WriteLine(" s cFieldList=$lfs(cFieldList,"","")")
d %code.WriteLine(" s CurID=aID")
s FldLst=%parameter("FieldList")
s key=""
for
{
s key=%compiledclass.Properties.Next(key)
q:key=""
s field=%compiledclass.Properties.GetAt(key).Name
continue:'$lf($lfs($zcvt(FldLst,"U"),","),$zcvt(field,"U"))
d %code.WriteLine(" &sql(SELECT "_field_" INTO :cValue FROM "_%class.Name_" WHERE ID=:CurID)")
d %code.WriteLine(" s:SQLCODE cValue=""""")
d %code.WriteLine(" s:cValue=$c(0) cValue=""""")
d %code.WriteLine(" if aOperType=1")
d %code.WriteLine(" {")
d %code.WriteLine(" &sql(INSERT INTO Stm.ChangeLog (NameClass,NameField,UserName,ChangeTime,OperType,NValue,ObjID)")
d %code.WriteLine(" VALUES (:cNameClass,'"_field_"',:cUserName,:cChangeTime,:aOperType,:cValue,:CurID))")
d %code.WriteLine(" }")
d %code.WriteLine(" if aOperType=-1")
d %code.WriteLine(" {")
d %code.WriteLine(" &sql(INSERT INTO Stm.ChangeLog (NameClass,NameField,UserName,ChangeTime,OperType,OValue,ObjID)")
d %code.WriteLine(" VALUES (:cNameClass,'"_field_"',:cUserName,:cChangeTime,:aOperType,:cValue,:CurID))")
d %code.WriteLine(" }")
d %code.WriteLine(" if aOperType=0")
d %code.WriteLine(" {")
d %code.WriteLine(" s cOldValue=$g(^mtempChangeMonitor(cNameClass,CurID,"""_field_"""),"""")")
d %code.WriteLine(" if cOldValue'=cValue")
d %code.WriteLine(" {")
d %code.WriteLine(" &sql(INSERT INTO Stm.ChangeLog (NameClass,NameField,UserName,ChangeTime,OperType,OValue,NValue,ObjID)")
d %code.WriteLine(" VALUES (:cNameClass,'"_field_"',:cUserName,:cChangeTime,:aOperType,:cOldValue,:cValue,:CurID))")
d %code.WriteLine(" }")
d %code.WriteLine(" }")
d %code.WriteLine(" k:$d(^mtempChangeMonitor(cNameClass,CurID,"""_field_""")) ^mtempChangeMonitor(cNameClass,CurID,"""_field_""")")
}
d %code.WriteLine(" q $$$OK ")
q 1
}


Все это в абстрактном классе. Пишется все в класс Stm.ChangeLog - обычный персистент, к тому же без методов.

В классе, который логируем:
1) указываем в родителях этот абстрактный класс
2) Parameter FieldList = "Field1,Field2";
3) Вызывается не в тригерах, а в %OnDelete и т.д.

VixlerLangobard,

Дык суть то в том, что нужно, чтобы записывались изменения в триггерах, то есть после выполнения SQL-запроса (Insert, Update), а не после сохранения объекта через %Save().

Через триггер тоже можно :-)
Только там при апдейте надо будет сохранять старые значения.
У меня что-то типа такого:

Trigger TUpdBef [ Event = UPDATE ]
{
s cID={ID}
d ..SaveOld(0,cID)
q
}

Trigger TUpdAft [ Event = UPDATE, Time = AFTER ]
{
s cID={ID}
d ..ChangeLog(0,cID)
q
}

Метод SaveOld - тоже в режиме objectgenerator. Там пишет "старые" значения в глобал ^mtempChangeMonitor (в предыдущем моем сообщение он есть)

Vixler,

objectgenerator - чтобы перебирать названия полей через %compiledclass.Properties.GetAt(key).Name
Не буду же я для каждого класса писать отдельный механизм логирования :-)

Если нужно, чтобы класс логировался, то выполняем всего 2 действия:
1. Указываем ChangeMonitor в родителях;
2. Перечисляем, какие поля нужно логировать в параметре "FieldList".

Vixler,

Тоже вариант :-)

Только с точки зрения быстродействия, Ваш вариант будет похуже. С objectgenerator'ом будут пройдены все поля в процессе компиляции, а в Вашем случае обход полей будет осуществляться в процессе выполнения.