IRubricatorDictionaryLookup.CurrentRevision

Syntax

CurrentRevision: IRubricatorRevision;

Description

The CurrentRevision property determines a revision for editing.

Example

Executing the example requires that the repository contains a time series database with the OBJ_RUBRICATOR identifier. This database must contain an indicator attribute with the COUNTRIES identifier.

Sub UserProc;
Var
    MB: IMetabase;
    RubDesc: IMetabaseObjectDescriptor;
    RubrIn: IRubricatorInstance;
    FactsLookup: IRubricatorFactsLookup;
    MetaDLookup: IMetaDictionaryLookup;
    Cond: IOrmCondition;
    i: Integer;
    key: Array Of integer;
Begin
    MB := MetabaseClass.Active;
    RubDesc := MB.ItemById("OBJ_RUBRICATOR");
    RubrIn := RubDesc.Open(Null) As IRubricatorInstance;
    FactsLookup := RubrIn.CreateFactsLookup;
    MetaDLookup := FactsLookup.Lookup;
    Cond := MetaDLookup.Where.Add;
    Cond.AttributeName := "COUNTRIES";
    Cond.Value := 512;
    FactsLookup.CurrentRevision := RubrIn.OpenRevision("New revision");
    FactsLookup.CurrentRevision.Save;
    i := FactsLookup.LookupFactors.Length;
    key := New Integer[i];
    key := FactsLookup.LookupFactors;
End Sub UserProc;

After executing the example the Key array contains keys of indicators that correspond to the following condition: value of the COUNTRIES attribute of the indicator is 512.

See also:

IRubricatorDictionaryLookup