DeleteElementsData(Selection: IDimSelectionSet);
Selection. Отметка элементов, значения которых необходимо удалить.
Метод DeleteElementsData осуществляет удаление данных в элементах, отметка которых передается посредством параметра Selection.
Для выполнения примера предполагается наличие автоматического куба с идентификатором «AUTO_CUBE». В кубе имеется два измерения.
Добавьте ссылки на системные сборки «Metabase», «Cubes» и «Dimensions».
Sub UserProc;
Var
MB: IMetabase;
CubeI: ICubeInstance;
DimSS: IDimSelectionSet;
Begin
MB := MetabaseClass.Active;
CubeI := MB.ItemById("AUTO_CUBE").Open(Null) As ICubeInstance;
DimSS := CubeI.Destinations.DefaultDestination.CreateDimSelectionSet;
DimSS.Item(1).SelectElement(1, False);
DimSS.Item(0).SelectElement(0, False);
(CubeI As IAutoCubeInstance).DeleteElementsData(DimSS);
End Sub UserProc;
После выполнения примера в соответствии с полученной отметкой будут удалены данные из автоматического куба.
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Cubes;
Imports Prognoz.Platform.Interop.Dimensions;
Public Shared Sub Main(Params: StartParams);
Var
MB: IMetabase;
CubeI: ICubeInstance;
DimSS: IDimSelectionSet;
Begin
MB := Self.Metabase;
CubeI := MB.ItemById["AUTO_CUBE"].Open(Null) As ICubeInstance;
DimSS := CubeI.Destinations.DefaultDestination.CreateDimSelectionSet();
DimSS.Item[1].SelectElement(1, False);
DimSS.Item[0].SelectElement(0, False);
(CubeI As IAutoCubeInstance).DeleteElementsData(DimSS);
End Sub;
См. также: