IEaxWorkbookRubricatorOptionsList.Remove

Синтаксис Fore

Remove(RubricatorKey: Integer): Boolean;

Синтаксис Fore.NET

Remove(RubricatorKey: integer): boolean;

Параметры

RubricatorKey. Ключ базы данных временных рядов.

Описание

Метод Remove удаляет настройки для указанной базы данных временных рядов.

Если удаление выполнено успешно, то метод возвращает значение True, в противном случае - False. Для удаления всех настроек из коллекции используйте метод IEaxWorkbookRubricatorOptionsList.Clear.

Пример Fore

Для выполнения примера предполагается наличие формы, расположенной на ней компонента LanerBox и компонента UiErAnalyzer с идентификатором «UiErAnalyzer1», являющегося источником данных для LanerBox. В «UiErAnalyzer1» должна быть загружена рабочая книга базы данных временных рядов.

Добавьте ссылки на системные сборки «Express», «Cubes».

Sub procRemove;
Var
    Ea: IEaxAnalyzer;
    Wb: IEaxWorkbook;
    WbTree: IEaxWorkbookMetaAttributesTree;
    Laner: ILaner;
    Rub: IRubricator;
    RubKey: Integer;
    OpList: IEaxWorkbookRubricatorOptionsList;
    Res: Boolean;
Begin
    // Получаем рабочую книгу
    Ea := UiErAnalyzer1.ErAnalyzer;
    Wb := Ea As IEaxWorkbook;
    // Получаем параметры дерева объектов
    WbTree := Wb.MetaAttributesTree;
    Laner := Ea.Laner;
    Rub := Laner.RubricatorInstance.Rubricator;
    RubKey := (Rub As IMetabaseObjectDescriptor).Key;
    // Получаем параметры каталогов, связанных с деревом показателей
    OpList := WbTree.RubricatorsOptions;
    Res := OpList.Remove(RubKey);
    If Res Then
        Debug.WriteLine("Удаление выполнено успешно");
    Else
        Debug.WriteLine("Настройки для указанной базы данных временных рядов отсутствуют");
    End If;
    (Ea As IMetabaseObject).Save;
End Sub procRemove;

После выполнения примера будут удалены настройки базы данных временных рядов для рабочей книги, загруженной в LanerBox. Результат удаления будет выведен в окно консоли.

Пример Fore.NET

Для выполнения примера предполагается наличие формы, расположенной на ней компонента LanerBoxNet и компонента UiErAnalyzerNet с идентификатором «UiErAnalyzerNet1», являющегося источником данных для LanerBoxNet. В «UiErAnalyzerNet1» должна быть загружена рабочая книга базы данных временных рядов.

Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Express;
Imports Prognoz.Platform.Interop.Cubes;
Imports Prognoz.Platform.Interop.Laner;
…
Private Sub procRemove();
Var
    Ea: IEaxAnalyzer;
    Wb: IEaxWorkbook;
    WbTree: IEaxWorkbookMetaAttributesTree;
    Laner: ILaner;
    Rub: IRubricator;
    RubKey: Integer;
    OpList: IEaxWorkbookRubricatorOptionsList;
    Res: Boolean;
Begin
    // Получаем рабочую книгу
    Ea := UiErAnalyzerNet1.ErAnalyzer.ErAnalyzer;
    Wb := Ea As IEaxWorkbook;
    // Получаем параметры дерева объектов
    WbTree := Wb.MetaAttributesTree;
    Laner := Ea.Laner;
    Rub := Laner.RubricatorInstance.Rubricator;
    RubKey := (Rub As IMetabaseObjectDescriptor).Key As integer;
    // Получаем параметры каталогов, связанных с деревом показателей
    OpList := WbTree.RubricatorsOptions;
    Res := OpList.Remove(RubKey);
    If Res Then
        System.Diagnostics.Debug.WriteLine("Удаление выполнено успешно");
    Else
        System.Diagnostics.Debug.WriteLine("Настройки для указанной базы данных временных рядов отсутствуют");
    End If;
    (Ea As IMetabaseObject).Save();
End Sub procRemove;

См. также:

IEaxWorkbookRubricatorOptionsList