IRubricatorRevision.UserName

Синтаксис

UserName: String;

Описание

Свойство UserName возвращает пользователя объекта.

Пример

Для выполнения примера предполагается наличие базы данных временных рядов с идентификатором «OBJ_RUBRICATOR».

Sub Main;

Var

MB: IMetabase;

RubDesc: IMetabaseObjectDescriptor;

RubrIn: IRubricatorInstance;

RubrRev: IRubricatorRevision;

Begin

MB := MetabaseClass.Active;

RubDesc := MB.ItemById("OBJ_RUBRICATOR");

RubrIn := RubDesc.Open(Null) As IRubricatorInstance;

RubrRev := RubrIn.OpenRevision("Ревизия");

RubrRev.Name := RubrRev.Name + " №1";

RubrRev.ObjectKey := 1;

RubrRev.Comment := "Новая ревизия";

RubrRev.Save;

Debug.WriteLine("Дата: " + RubrRev.Stamp.ToString);

Debug.WriteLine("Метка: " + RubrRev.IsLabel.ToString);

Debug.WriteLine("Пользователь: " + RubrRev.UserName);

Debug.WriteLine("Ключ ревизии: " + RubrRev.Key.ToString);

End Sub Main;

После выполнения примера для базы данных временных рядов будет создана, сохранена ревизия с наименованием «Ревизия №1» и примечанием «Новая ревизия». В окно консоли будет выведена информация о ревизии.

См. также:

IRubricatorRevision