IRubricator.Units

Синтаксис

Units: IRdsDictionary;

Описание

Свойство Units определяет справочник репозитория НСИ, содержащий информацию о единицах измерения.

Пример

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

Sub Main;

Var

MB: IMetabase;

Rubr: IRubricator;

Units: IRdsDictionary;

UnitsInst: IRdsDictionaryInstance;

Att: IRdsAttributes;

Elem: IRdsDictionaryElements;

Link: IRDsLinkInstance;

Data: IRdsDictionaryElementData;

LookupElem: IRdsDictionaryElementsLookup;

Begin

Mb := MetabaseClass.Active;

Rubr := MB.ItemById("NewCatalog").Bind As IRubricator;

Units := Rubr.Units;

UnitsInst := Units.Open(Null);

Link := UnitsInst.Links.Item(0);

Att := Units.Attributes;

Elem := UnitsInst.Elements;

Data := Elem.CreateElementData;

Data.Attribute(Att.Name.Key) := "Длина";

LookupElem := Link.ReferenceDictionary.CreateLookup("NAME");

LookupElem.Data.Value(0) := "Метр";

Data.Attribute(Att.FindById("MEASURE").Key) := LookupElem.Lookup.Item(0);

Data.Attribute(Att.FindById("SCALE").Key) := 100;

Elem.Insert(Elem.Item(0).Key, Data);

End Sub Main;

После выполнения примера в справочник, содержащий информацию о единицах измерения для базы данных временных рядов, будет добавлен новый элемент. Данный элемент будет связан с мерой - «Метр», содержащейся в справочнике мер.

См. также:

IRubricator