IMetabaseObjectDescriptor.SaveDescriptor

Метод SaveDescriptor сохраняет изменения описания объекта репозитория.

Пример

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

Fore Fore.NET

Sub UserProc;
Var
    MB: IMetabase;
    MDesc: IMetabaseObjectDescriptor;
Begin
    MB := MetabaseClass.Active;
    MDesc := MB.ItemById("QUERY_1");
    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["QUERY_1"];
    MDesc := MDesc.EditDescriptor();
    MDesc.Description := "Устаревшая версия объекта " + MDesc.Id;
    MDesc.Id := MDesc.Id + "_Old";
    MDesc.Name := MDesc.Name + " (Устаревшая версия)";
    MDesc.SaveDescriptor();
End Sub;

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

IMetabaseObjectDescriptor.SaveDescriptor

Синтаксис

Описание

Пример