IRdsAttributes.Version

Синтаксис

Version: IRdsAttribute;

Описание

Свойство Version возвращает системный атрибут справочника, назначение которого - Версия элемента.

Комментарии

Данный атрибут имеет целый тип данных, не может содержать пустые и множественные значения. По умолчанию является скрытым. Идентификатор атрибута - "VERSION".

Данный атрибут доступен, если свойству TimeDependent установлено значение True, и используется для фиксации изменений значений атрибутов элементов.

Пример

Для выполнения примера предполагается наличие репозитория НСИ - "NSI_1", содержащего справочник НСИ с идентификатором "Dict_1". Для справочника установлено изменение элементов во времени.

Sub Main;

Var

MB: IMetabase;

Dict: IRdsDictionary;

DictInst: IRdsDictionaryInstance;

Elements: IRdsDictionaryElements;

Attrs: IRdsAttributes;

Hist: IRdsDictionaryElementHistory;

i, j, InDate, OutDate, Ver, Name: Integer;

Begin

MB := MetabaseClass.Active;

Dict := MB.ItemByIdNamespace("Dict_1", MB.ItemById("NSI_1").Key).Bind As IRdsDictionary;

Dict.TimeDependent := True;

Attrs := Dict.Attributes;

InDate := Attrs.InDate.Key;

OutDate := Attrs.OutDate.Key;

Ver := Attrs.Version.Key;

Name := Attrs.Name.Key;

DictInst := Dict.Open(Null);

Elements := DictInst.Elements;

For i := 1 To Elements.Count - 1 Do

Hist := Elements.Item(i).History;

Debug.WriteLine(Elements.Item(i).Name);

For j := 0 To Hist.Count - 1 Do

Debug.Write("Начало: " + Hist.Attribute(j, InDate));

Debug.Write(" Окончание: " + Hist.Attribute(j, OutDate));

Debug.Write(" Версия: " + Hist.Attribute(j, Ver));

Debug.WriteLine(" Значение на данном интервале: " + Hist.Attribute(j, Name));

End For;

End For;

End Sub Main;

После выполнения примера в консоль будет выведена история значений атрибута "Наименование" для всех элементов справочника.

См. также:

IRdsAttributes