HasHierarchy: Boolean;
HasHierarchy: boolean;
Свойство HasHierarchy определяет, используется ли атрибут в качестве альтернативной иерархии.
Возможные значения:
True. Атрибут используется в качестве альтернативной иерархии;
False. Атрибут не используется в качестве альтернативной иерархии.
Для выполнения примера в репозитории предполагается наличие табличного справочника с идентификатором «DIM_SEP», содержащего атрибут с идентификатором «NAME».
Добавьте ссылки на системные сборки: Dimensions, Metabase.
Sub UserProc;
Var
mb: IMetabase;
standardDim: IStandardDimension;
attrs: IStandardDimAttributes;
attr: IStandardDimAttribute;
Begin
// Получим репозиторий
mb := MetabaseClass.Active;
// Получим табличный справочник
standardDim := MB.ItemById("DIM_SEP").Edit As IStandardDimension;
// Получим коллекцию атрибутов
attrs := standardDim.Attributes;
// Получим атрибут «Name»
attr := attrs.Item("NAME");
// Установим атрибут
в качестве альтернативной иерархии
attr.HasHierarchy := True;
// Сохраним изменения
(standardDim As IMetabaseObject).Save;
End Sub UserProc;
После выполнения примера указанный атрибут будет использоваться в качестве альтернативной иерархии.
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
Imports Prognoz.Platform.Interop.Dimensions;
…
Public Shared Sub Main(Params: StartParams);
Var
mb: IMetabase;
standardDim: IStandardDimension;
attrs: IStandardDimAttributes;
attr: IStandardDimAttribute;
Begin
// Получим репозиторий
mb := Params.Metabase;
// Получим табличный справочник
standardDim := MB.ItemById["DIM_SEP"].Edit() As IStandardDimension;
// Получим коллекцию атрибутов
attrs := standardDim.Attributes;
// Получим атрибут «Name»
attr := attrs.Item["NAME"];
// Установим атрибут
в качестве альтернативной иерархии
attr.HasHierarchy := True;
// Сохраним изменения
(standardDim As IMetabaseObject).Save();
End Sub;
См. также: