IOrmCondition.JoinAttributeName

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

Sub UserCond;
Var
    MB: IMetabase;
    RubDesc: IMetabaseObjectDescriptor;
    RubrIn: IRubricatorInstance;
    DictInst: IMetaDictionaryInstance;
    MetaDLookup: IMetaDictionaryLookup;
    Conditions: IOrmConditions;
    Cond: IOrmCondition;
    Current: IMetaDictionaryData;
Begin
    // Получаем БД временных рядов
    MB := MetabaseClass.Active;
    RubDesc := MB.ItemById("TSDB");
    RubrIn := RubDesc.Open(Null) As IRubricatorInstance;
    // Получаем справочник временных рядов
    DictInst := RubrIn.Facts;
    // Создаем объект для поиска в справочнике
    MetaDLookup := DictInst.CreateLookup("");
    // Задаем условия поиска
    Conditions := MetaDLookup.Where;
    // Условие 1: значение атрибута COUNTRY=512
    Cond := Conditions.Add;
    Cond.AttributeName := "COUNTRY";
    Cond.Value := 512;
    // Условие 2 (вложенное): значение атрибута PERFORMANCE
    // должно быть больше значения атрибута TARGET
    Cond := Conditions.Add;
    Cond.Operator_ := OrmComparisonOperator.Conditions;
    Conditions := Cond.Nested;
    Cond := Conditions.Add;
    Cond.AttributeName := "PERFORMANCE";
    Cond.Operator_ := OrmComparisonOperator.JoinGreater;
    Cond.JoinAttributeName := "TARGET";
    // Выполняем поиск и выводим результаты в окно консоли
    MetaDLookup.Open(DictionaryCursorOptions.None);
    While Not MetaDLookup.Eof Do
        Current := MetaDLookup.Current;
        Debug.WriteLine(Current.Record.Key.ToString);
        MetaDLookup.Next;
    End While;
    MetaDLookup.Close;
End Sub UserCond;