WhereRevisionBetween(First: Integer; Last: Integer);
First. Key of the first revision.
Last. Key of the last revision.
The WhereRevisionBetween method searches for indicators, which have been changed during the interval between two revisions.
Executing the example requires that the repository contains a time series database with the OBJ_RUBRICATOR identifier.
Sub UserProc;
Var
MB: IMetabase;
RubDesc: IMetabaseObjectDescriptor;
Factors: Array;
RubrIn: IRubricatorInstance;
FactsLookup: IRubricatorFactsLookup;
Factor: IRubricatorFactor;
Record: IRubricatorRecord;
a: Array;
i: Integer;
Begin
MB := MetabaseClass.Active;
RubDesc := MB.ItemById("OBJ_RUBRICATOR");
RubrIn := RubDesc.Open(Null) As IRubricatorInstance;
FactsLookup := RubrIn.CreateFactsLookup;
FactsLookup.WhereFactorKey := 12195998;
FactsLookup.WhereRevisionBetween(1, 13);
Factors := FactsLookup.GetFactors;
If Factors <> Null Then
Factor := Factors[0];
Record := Factor.FactData As IRubricatorRecord;
a := Record.Record.Value As Array;
If a <> Null Then
For i := 0 To a.Length - 1 Do
Debug.WriteLine(a[i] As String);
End For;
End If;
End If;
End Sub UserProc;
After executing the example the indicator with the 12195998 key changed between the first and thirteenth revision is searched. If the indicator is found, the console window displays the record that contains information on the indicator.
See also: