Clear;
Метод Clear очищает коллекцию составных структур.
После вызова данного метода значение свойства IVirtualCubeCompounds.Count становится равным трем, т.к. коллекция всегда содержит предопределенные структуры (факты/календарь/сценарии), которые нельзя удалить.
Для выполнения примера в репозитории предполагается наличие виртуального куба с идентификатором «CUBE_VIRT». Также необходимо добавить ссылки на системные сборки «Metabase», «Cubes».
Sub UserProc;
Var
mb: IMetabase;
VirtCube: IVirtualCube;
Compounds: IVirtualCubeCompounds;
Begin
Mb := MetabaseClass.Active;
VirtCube := Mb.ItemById("CUBE_VIRT").Edit As IVirtualCube;
Compounds := VirtCube.Compounds;
Compounds.Clear;
(VirtCube As IMetabaseObject).Save;
End Sub UserProc;
После выполнения примера из виртуального куба будут удалены все пользовательские предопределенные структуры.
См. также: