IMetaAttributes.BuildFieldsByAttributes

Синтаксис

BuildFieldsByAttributes;

Описание

Метод BuildFieldsByAttributes создает поля таблицы по определениям атрибутов базы данных временных рядов.

Пример

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

Sub Main;

Var

Mb: Imetabase;

ObjMb: IMetabaseObject;

Dict: IMetaDictionary;

CrInfo: IMetabaseObjectCreateInfo;

Des: IMetabaseObjectDescriptor;

Attributes: IMetaAttributes;

Table: ITable;

Begin

Mb := MetabaseClass.Active;

Dict := Mb.ItemById("DICT_AT").Edit As IMetaDictionary;

Attributes := Dict.Attributes;

Table := Mb.ItemById("OBJ_TABLE").Edit As ITable;

Attributes.AttachTable(Table, False);

Attributes.BuildFieldsByAttributes;

(Table As IMetabaseObject).Save;

(Dict As IMetabaseObject).Save;

End Sub Main;

После выполнения примера для объекта «DICT_AT» будет установлена таблица для хранения значений («OBJ_TABLE»). Определения полей данной таблицы будут созданы по атрибутам объекта.

См. также:

IMetaAttributes