Создание репозитория НСИ

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

Sub Main;

Var

MB: IMetabase;

NSI: IRdsDatabase;

CrInfo: IMetabaseObjectCreateInfo;

Begin

MB := MetabaseClass.Active;

CrInfo := MB.CreateCreateInfo;

CrInfo.ClassID := MetabaseObjectClass.KE_CLASS_RDS_DATABASE;

CrInfo.Id := "NSI_1";

CrInfo.Name := "Репозиторий НСИ";

CrInfo.Parent := Null;

NSI := MB.CreateObject(CrInfo).Edit As IRdsDatabase;

NSI.Database := MB.ItemById("NSI_BD").Bind As IDatabase;

(NSI As IMetabaseObject).Save;

End Sub Main;

После выполнения примера в корневом каталоге репозитория будет создан новый репозиторий НСИ с идентификатором "NSI_1".

См. также:

Примеры