IRubricatorInstance.GetRevision

Копировать пример

Sub UserProc;
Var
    MB: IMetabase;
    RubDesc: IMetabaseObjectDescriptor;
    RubrIn: IRubricatorInstance;
    DictIn: IMetaDictionaryInstance;
    Record: IMetaDataMemberRecord;
    TSKey: Integer;
    RevDim: IDimInstance;
    DimAtt: IDimAttributesInstance;
    DimA: IDimAttributeInstance;
    RubrRev: IRubricatorRevision;
    i: integer;
Begin
    // Получаем репозиторий
    MB := MetabaseClass.Active;
    // Получаем базу данных временных рядов
    RubDesc := MB.ItemById("TSDB");
    // Получаем открытый экземпляр базы данных временных рядов
    RubrIn := RubDesc.Open(Null) As IRubricatorInstance;
    // Получаем данные справочника временных рядов
    DictIn := RubrIn.GetDictionary(RubricatorDictionary.Facts);
    // Получаем данные первого временного ряда в справочнике
    Record := DictIn.GetData(1).Record;
    // Получаем ключ первого временного ряда
    TSKey := Record.Members.FindById("KEY").Value;
    // Получаем данные справочника ревизий для первого временного ряда на определенную дату
    RevDim := RubrIn.RevisionsDimensionPoint(TSKey, DateTime.Parse("01.01.2002 00:00:00"));
    // Получаем атрибуты справочника ревизий
    DimAtt := RevDim.Attributes;
    // Получаем атрибут «KEY»
    DimA := DimAtt.FindById("KEY");
    // Получаем ключ ревизии
    i := DimA.Attribute.Key;
    // Получаем данные ревизии с указанным ключом
    RubrRev := RubrIn.GetRevision(i, DictionaryGetDataOptions.EditExisting);
    // Выводим наименование ревизии в окно консоли
    Debug.WriteLine(RubrRev.Name);
End Sub UserProc;