IDimHierarchyInstance.Original

Синтаксис Fore

Original: IDimInstance;

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

Original: Prognoz.Platform,Interop.Dimensions.IDimInstance;

Описание

Свойство Original возвращает данные основного справочника.

Комментарии

Свойство доступно только для чтения.

Пример Fore

Для выполнения примера предполагается наличие формы, содержащей компонент Button с идентификатором «Button» и справочника НСИ с идентификатором «DICT», для которого настроена альтернативная иерархия. Справочник НСИ  располагается в репозитории в идентификатором «NSI».

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

Пример является обработчиком события OnClick для компонента «Button1».

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    mb: IMetabase;
    DimInstObj, DimInst: IDimInstance;
    DimHInst: IDimHierarchyInstance;
    DimH: IDimHierarchy;
Begin
    mb := MetabaseClass.Active;
    DimInstObj := mb.ItemByIdNamespace("DICT", mb.GetObjectKeyById("NSI")).Open(Null) As IDimInstance;
    DimHInst := DimInstObj.Hierarchies.Item(0);
    Debug.WriteLine("Данные основного справочника");
    DimInst := DimHInst.Original;
    Debug.Indent;
    Debug.WriteLine("Идентификатор справочника: " + DimInst.Ident);
    Debug.WriteLine("Ключ справочника: " + DimInst.Key.ToString);
    Debug.WriteLine("Наименование справочника: " + DimInst.Name);
    Debug.Unindent;
    Debug.WriteLine("Альтернативная иерархия справочника");
    DimH := DimHInst.Hierarchy;
    Debug.Indent;
    Debug.WriteLine("Идентификатор справочника: " + DimH.Id);
    Debug.WriteLine("Ключ справочника: " + DimH.Key.ToString);
    Debug.WriteLine("Наименование справочника: " + DimH.Name);
    Debug.Unindent;
End Sub Button1OnClick;

После выполнения примера в окно консоли будут выведены данные по основному справочнику и альтернативной иерархии справочника: идентификатор, ключ и наименование.

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore. Вместо компонентов Fore используйте их Fore.NET аналоги.

Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Dimensions;
…
Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
    mb: IMetabase;
    DimInstObj, DimInst: IDimInstance;
    DimHInst: IDimHierarchyInstance;
    DimH: IDimHierarchy;
Begin
    mb := Self.Metabase;
    DimInstObj := mb.ItemByIdNamespace["DICT", mb.GetObjectKeyById("NSI")].Open(Null) As IDimInstance;
    DimHInst := DimInstObj.Hierarchies.Item[0];
    System.Diagnostics.Debug.WriteLine("Данные основного справочника");
    DimInst := DimHInst.Original;
    System.Diagnostics.Debug.Indent();
    System.Diagnostics.Debug.WriteLine("Идентификатор справочника: " + DimInst.Ident);
    System.Diagnostics.Debug.WriteLine("Ключ справочника: " + DimInst.Key.ToString());
    System.Diagnostics.Debug.WriteLine("Наименование справочника: " + DimInst.Name);
    System.Diagnostics.Debug.Unindent();
    System.Diagnostics.Debug.WriteLine("Альтернативная иерархия справочника");
    DimH := DimHInst.Hierarchy;
    System.Diagnostics.Debug.Indent();
    System.Diagnostics.Debug.WriteLine("Идентификатор справочника: " + DimH.Id);
    System.Diagnostics.Debug.WriteLine("Ключ справочника: " + DimH.Key.ToString());
    System.Diagnostics.Debug.WriteLine("Наименование справочника: " + DimH.Name);
    System.Diagnostics.Debug.Unindent();
End Sub;

См. также:

IDimHierarchyInstance