DAiMorв другом проекте, используется журнал, куда регистрируются события разного вида в том числе и изменения документа, и на каждое поле своя запись в журнале, и когда пользователь хочет просмотреть историю, он видит всю историю по этому объекту хронологически, и для каждого изменения отображается какое значение было до изменения и какое стало после. для всех событий и всех объектов используется один журнал. с таким журналом, администратор может просматривать изменения по одному документу или например, что изменял пользователь в указанный период, так же и попытки авторизации и прочее. только %OnAfterSave, через SQL изменений не происходит.
Вот так же хочу сделать. А как у вас выглядела вообще структура классов или глобалов для хранения истории? Сейчас стоит проблема сравнения текущего значения поля с предыдущим ранее сохранённым значением. Если пробегаться по журналу в поисках последней версии, то чем больше было изменений, тем дольше будет поиск. Как у вас это решалось? И как происходило хранение изменений полей-ссылок, отношений и списков? Ну к примеру. В классе есть поле-отношение один-ко-многим Users, описывающее список юзеров, причём каждый объект списка-отношения - это объект класса User. В какой-то момент список пополняется новым юзером. Как в таком случае у вас бы хранилась информация об этом изменении?
Кстати, почему может не работать <propertyName>GetStored? Пишет ошибку:
>w a.IsBlockedGetStored()
Quit $Select(id'="":$listget($g(^User(id)),18),1:"") }
^
<UNDEFINED>zIsBlockedGetStored+1^User.1 *id
doublefintVixler, если позволяет логика приложения, можно выгружать перед изменением версию на диск +
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
/// Выгрузка при изменении
Class test.version Extends (%Persistent, %Populate, %XML.Adaptor) {
/// VERSIONPROPERTY = <property> means that the <property> in memory will be compared to
/// the <property> on disk during an update. If different a concurrency conflict
/// error will be reported and the save will fail.
Parameter VERSIONPROPERTY As STRING = "Version";
/// Свойство - Версия объекта - на него указывает системе параметр класса <parameter>VERSIONPROPERTY</parameter>
Property Version As %Integer [ InitialExpression = 1 ,Private ];
/// Директория для истории изменений
Parameter DIR As %String = "c:\temp\";
/// Свойство
Property Name As %String;
/// This callback method is invoked by the <METHOD>%Save</METHOD> method to
/// provide notification that the object is being saved. It is called before
/// any data is written to disk.
///
/// <P><VAR>insert</VAR> will be set to 1 if this object is being saved for the first time.
///
/// <P>If this method returns an error then the call to <METHOD>%Save</METHOD> will fail.
Method %OnBeforeSave(insert As %Boolean) As %Status [ Private, ServerOnly = 1 ] {
if ('insert) && (..%Id()'="") && (..%IsModified()) {
JOB ..OnChangeExport(..%Id())
}
Quit $$$OK
}
/// Выгрузка перед сохранением
ClassMethod OnChangeExport(id As %String) As %Status [CodeMode = generator ] {
s %code($i(%code))=" s stored=..%OpenId(id) Q:'$IsObject(stored) $$$OK "
s %code($i(%code))=" s file="""_%parameter("DIR")_%class_".""_stored.%Id()_"".""_stored.Version_"".""_$USERNAME_"".xml"" "
s %code($i(%code))=" o file:""WNU"" u file d stored.XMLExport() k stored c file "
s %code($i(%code))=" Q $$$OK "
Q $$$OK
}
}
Попробовал сделать экспорт объекта в XML-файл функцией XMLExport, когда дошло до поля-отношения, вывалилась ошибка. Не хочет что-то функа эта работать с отношениями.
