IMetabaseObjectDescriptor.Shortcut

Синтаксис

Shortcut: IMetabaseObjectDescriptor;

Shortcut: Prognoz.Platform.Interop.Metabase.IMetabaseObjectDescriptor;

Описание

Свойство Shortcut определяет описание объекта, на который ссылается ярлык.

Комментарии

Если объект не является ярлыком, то данное свойство возвращает значение Null.

Примечание. Если объект является ярлыком для объекта из другого репозитория, то данное свойство также вернет значение Null. Для проверки необходимо использовать свойство IMetabaseObjectDescriptor.IsLink. Объект, на который ссылается ярлык, будет доступен после открытия ярлыка в свойстве IMetabaseObjectInstance.Object.

Пример

Для выполнения примера предполагается наличие ярлыка с идентификатором «SHORTCUT_TO_OBJ_1», ссылающегося на какой-либо объект репозитория. Также в репозитории имеется объект с идентификатором «OBJ2».

Добавьте ссылку на системную сборку Metabase.

Sub UserProc;
Var
    MB: IMetabase;
    MDesc: IMetabaseObjectDescriptor;
Begin
    MB := MetabaseClass.Active;
    MDesc := MB.ItemById("SHORTCUT_TO_OBJ_1");
    MDesc := MDesc.EditDescriptor;
    MDesc.Shortcut := MB.ItemById("OBJ2");
    MDesc.Name := "Ярлык для OBJ2";
    MDesc.Id := "SHORTCUT_TO_OBJ2";
    MDesc.SaveDescriptor;
End Sub UserProc;
Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    MDesc: IMetabaseObjectDescriptor;
Begin
    MB := Params.Metabase;
    MDesc := MB.ItemById["SHORTCUT_TO_OBJ_1"];
    MDesc := MDesc.EditDescriptor();
    MDesc.Shortcut := MB.ItemById["OBJ2"];
    MDesc.Name := "Ярлык для OBJ2";
    MDesc.Id := "SHORTCUT_TO_OBJ2";
    MDesc.SaveDescriptor();
End Sub;

После выполнения примера для ярлыка «SHORTCUT_TO_OBJ_1» будет изменен объект, на который он ссылается, а также его наименование и идентификатор.

См. также:

IMetabaseObjectDescriptor