Lookup: IMetaDictionaryLookup;
Lookup: Prognoz.Platform.Interop.Rds.IMetaDictionaryLookup;
Свойство Lookup возвращает условие поиска.
Для выполнения примера в репозитории предполагается наличие базы данных временных рядов с идентификатором «TSDB». В данной базе должен присутствовать атрибут временных рядов с идентификатором «COUNTRY».
Добавьте ссылки на системные сборки: Cubes, Metabase, Orm, Rds.
Sub UserProc;
Var
MB: IMetabase;
RubrInst: IRubricatorInstance;
FactsLookup: IRubricatorFactsLookup;
MetaDLookup: IMetaDictionaryLookup;
Cond: IOrmCondition;
Key: Array Of Integer;
i: Integer;
Begin
MB := MetabaseClass.Active;
RubrInst := MB.ItemById("TSDB").Open(Null) As IRubricatorInstance;
FactsLookup := RubrInst.CreateFactsLookup;
MetaDLookup := FactsLookup.Lookup;
Cond := MetaDLookup.Where.Add;
Cond.AttributeName := "COUNTRY";
Cond.Value := 512;
FactsLookup.Open(DictionaryCursorOptions.None);
Key := FactsLookup.LookupFactors;
For Each i In Key Do
Debug.WriteLine(i);
End For;
End Sub UserProc;
При выполнении примера будет осуществлен поиск временных рядов по следующему условию: значение атрибута «COUNTRY» равняется «512». Ключи найденных временных рядов будут выведены в консоль среды разработки.
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
Imports Prognoz.Platform.Interop.Cubes;
Imports Prognoz.Platform.Interop.Orm;
Imports Prognoz.Platform.Interop.Rds;
Public Shared Sub Main(Params: StartParams);
Var
MB: IMetabase;
RubrInst: IRubricatorInstance;
FactsLookup: IRubricatorFactsLookup;
MetaDLookup: IMetaDictionaryLookup;
Cond: IOrmCondition;
Key: System.Array;
i: Integer;
Begin
MB := Params.Metabase;
RubrInst := MB.ItemById["TSDB"].Open(Null) As IRubricatorInstance;
FactsLookup := RubrInst.CreateFactsLookup();
MetaDLookup := FactsLookup.Lookup;
Cond := MetaDLookup.Where.Add();
Cond.AttributeName := "COUNTRY";
Cond.Value := 512;
FactsLookup.Open(DictionaryCursorOptions.dcuoNone);
Key := FactsLookup.LookupFactors();
For Each i In Key Do
System.Diagnostics.Debug.WriteLine(i);
End For;
End Sub;
См. также: