IRubricatorObservationsLookup.LookupValues

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

Sub UserProc;
Var
    MB: IMetabase;
    RubrInst: IRubricatorInstance;
    FactsLookup: IRubricatorFactsLookup;
    MetaDLookup: IMetaDictionaryLookup;
    Cond: IOrmCondition;
    FD: IRubricatorFactData;
    ObsLook: IRubricatorObservationsLookup;
    ObsVal: IFactorObservationValues;
Begin
    MB := MetabaseClass.Active;
    RubrInst := MB.ItemById("OBJ_RUBRICATOR").Open(Null) As IRubricatorInstance;
    FactsLookup := RubrInst.CreateFactsLookup;
    MetaDLookup := FactsLookup.Lookup;
    Cond := MetaDLookup.Where.Add;
    Cond.AttributeName := "FACTOR";
    Cond.Value := 1;
    FD := FactsLookup.LookupData;
    ObsLook := RubrInst.CreateObservationsLookup(FD);
    ObsLook.WhereCalendarPoint := DateTime.Parse("01.01.2020 00:00:00");
    ObsLook.WhereCalendarLevel := DimCalendarLevel.Year;
    ObsLook.WhereScenario := -1;
    ObsVal := ObsLook.LookupValues;
End Sub UserProc;