DeleteLevel(Value: IDimLevel);
Value — уровень справочника, элементы которого необходимо оставить.
Метод DeleteLevel осуществляет удаление уровня справочника из примитива группы элементов.
Для выполнения примера предполагается наличие в репозитории справочника с идентификатором "TAB_DIM". Для справочника создана группа элементов. Первый примитив группы элементов оставляет элементы определенного уровня справочника.
Sub Main;
Var
MB: IMetabase;
ObjDesc: IMetabaseObjectDescriptor;
MObj: IMetabaseObject;
ElemGroup: IDimElementGroup;
LevelPrim: IDimLevelsGroupPrimitive;
Level: IDimLevel;
Begin
MB := MetabaseClass.Active;
ObjDesc := MB.ItemById("TAB_DIM");
MObj := ObjDesc.Children.Item(0).Edit;
ElemGroup := MObj As IDimElementGroup;
LevelPrim := ElemGroup.Item(0) As IDimLevelsGroupPrimitive;
Level := ElemGroup.Dimension.Levels.Item(0);
If LevelPrim.IsLevelIncluded(Level) Then
LevelPrim.DeleteLevel(Level);
End If;
MObj.Save;
End Sub Main;
После выполнения примера из примитива, оставляющего элементы уровня, будет удалена отметка первого уровня справочника, если она была включена.
См. также: