IMetabaseLinkInstance.Metabase

Синтаксис

Metabase: IMetabase;

Описание

Свойство Metabase возвращает данные репозитория, с которым осуществляется связь.

Пример

Для выполнения примера предполагается наличие объекта "Связь с репозиторием" с идентификатором "Link_Test". В репозитории, с которым осуществляется связь, имеется регламентный отчет с идентификатором "Report_1".

Sub Main;

Var

MB: IMetabase;

CrInfo: IMetabaseObjectCreateInfo;

Link: IMetabaseObject;

LinkInst: IMetabaseLinkInstance;

Begin

MB := MetabaseClass.Active;

CrInfo := MB.CreateCreateInfo;

CrInfo.ClassId := MetabaseObjectClass.KE_CLASS_PROCEDURALREPORT;

CrInfo.Id := "Shortcut_Report_1";

CrInfo.Name := "Ярлык для Report_1";

CrInfo.Parent := MB.Root;

Link := MB.ItemById("Link_Test").Bind;

LinkInst := Link.Open(Null) As IMetabaseLinkInstance;

CrInfo.Link := Link As IMetabaseLink;

CrInfo.Shortcut := LinkInst.Metabase.ItemById("Report_1");

MB.CreateObject(CrInfo);

End Sub Main;

После выполнения примера в корневом каталоге репозитория будет создан ярлык для регламентного отчета "Report_1".

См. также:

IMetabaseLinkInstance