IMetabaseObjectDescriptor.EditDescriptor

Синтаксис

EditDescriptor: IMetabaseObjectDescriptor;

EditDescriptor(): Prognoz.Platform.Interop.Metabase.IMetabaseObjectDescriptor;

Описание

Метод EditDescriptor осуществляет редактирование описания объекта репозитория.

Пример

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

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

Sub UserProc;
Var
    MB: IMetabase;
    MDesc: IMetabaseObjectDescriptor;
Begin
    MB := MetabaseClass.Active;
    MDesc := MB.ItemById("TSDB");
    MDesc := MDesc.EditDescriptor;
    MDesc.Description := "Устаревшая версия объекта " + MDesc.Id;
    MDesc.Id := MDesc.Id + "_Old";
    MDesc.Name := MDesc.Name + " (Устаревшая версия)";
    MDesc.SaveDescriptor;
End Sub UserProc;
Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    MDesc: IMetabaseObjectDescriptor;
Begin
    MB := Params.Metabase;
    MDesc := MB.ItemById["TSDB"];
    MDesc := MDesc.EditDescriptor();
    MDesc.Description := "Устаревшая версия объекта " + MDesc.Id;
    MDesc.Id := MDesc.Id + "_Old";
    MDesc.Name := MDesc.Name + " (Устаревшая версия)";
    MDesc.SaveDescriptor();
End Sub;

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

См. также:

IMetabaseObjectDescriptor

IMetabaseObjectDescriptor.SaveDescriptor