WhereCalendarLevel: DimCalendarLevel;
Свойство WhereCalendarLevel определяет календарную динамику искомых данных.
Для выполнения примера предполагается наличие в репозитории базы данных временных рядов с идентификатором «OBJ_RUBRICATOR».
Sub Main;
Var
MB: IMetabase;
RubDesc: IMetabaseObjectDescriptor;
RubrIn: IRubricatorInstance;
FactsLookup: IRubricatorFactsLookup;
MetaDLookup: IMetaDictionaryLookup;
Cond: IOrmCondition;
FD: IRubricatorFactData;
ObsLook: IRubricatorObservationsLookup;
ObsVal: IFactorObservationValues;
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 := "FACTOR";
Cond.Value := 1;
FD := FactsLookup.LookupData;
ObsLook := RubrIn.CreateObservationsLookup(FD);
ObsLook.WhereCalendarPoint := DateTime.Parse("01.01.2002 00:00:00");
ObsLook.WhereCalendarLevel := DimCalendarLevel.Year;
ObsLook.WhereScenario := -1;
ObsVal := ObsLook.LookupValues;
End Sub Main;
После выполнения примера в переменной ObsVal будет храниться объект, содержащий данные найденных показателей.
См. также: