IRubricatorFactorExecutor.UseDeduplication

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

Sub UserProc;
Var
    MB: IMetabase;
    RubDesc: IMetabaseObjectDescriptor;
    RubrIn: IRubricatorInstance;
    Cub: ICubeInstance;
    Dest: ICubeInstanceDestination;
    FactorExec: IRubricatorFactorExecutor;
    FactsLookup: IRubricatorFactsLookup;
    MetaDLookup: IMetaDictionaryLookup;
    Key: Array Of Integer;
    i: Integer;
    Cond: IOrmCondition;
    Exec: ICubeInstanceDestinationExecutor;
    Mat: IMatrix;
    Ite: IMatrixIterator;
    SelSet: IDImSelectionSet;
Begin
    // Получаем текущий репозиторий
    MB := MetabaseClass.Active;
    // Получаем базу данных временных рядов
    RubDesc := MB.ItemById("TSDB");
    // Открываем базу данных временных рядов
    RubrIn := RubDesc.Open(Null) As IRubricatorInstance;
    // Получаем вариант отображения базы данных временных рядов, используемый по умолчанию
    Cub := RubrIn As ICubeInstance;
    Dest := Cub.Destinations.DefaultDestination;
    // Создаем объект для извлечения данных
    Exec := Dest.CreateExecutor;
    FactorExec := Exec As IRubricatorFactorExecutor;
    // Указываем, что используем дедупликацию
    FactorExec.UseDeduplication := True;
    // Задаем параметры отбора данных
    FactsLookup := RubrIn.CreateFactsLookup;
    MetaDLookup := FactsLookup.Lookup;
    // Значение атрибута CITY должно быть равно 750
    Cond := MetaDLookup.Where.Add;
    Cond.AttributeName := "CITY";
    Cond.Value := 750;
    // Создаем массив для ключей рядов, соответствующих условиям отбора
    i := FactsLookup.LookupFactors.Length;
    Key := New Integer[i];
    // Получаем массив ключей рядов, соответствующих условиям отбора
    Key := FactsLookup.LookupFactors;
    // Указываем, что именно из рядов с данными ключами необходимо получить данные
    FactorExec.SetFactorKeys(Key);
    // Указываем, что получаем значения по атрибуту VL,
    // то есть получаем значения рядов
    FactorExec.ValueKind := MetaAttributeKind.Value;
    FactorExec.ValueId := "VL";
    // Указываем, что значения должны быть получены по состоянию на последнюю ревизию
    FactorExec.WhereRevisionBetween(-1, -1);
    // Выполняем получение данных
    Exec := FactorExec.AsCubeExecutor;
    Exec.PrepareExecute(Null);
    Exec.PerformExecute;
    // Получаем матрицу с данными
    Mat := Exec.Matrix;
    // Выводим значение элемента до изменения
    Ite := Mat.CreateIterator;
    Ite.Move(IteratorDirection.Last);
    Debug.Write("Значение элемента до изменения: ");
    Debug.WriteLine(Ite.Value);
    // Задаем отметку по которой будем менять значение
    SelSet := Dest.CreateDimSelectionSet;
    For i := 0 To SelSet.Count - 1 Do
        SelSet.Item(i).SelectElement(0, False);
    End For;
    // Меняем значение элемента
    Mat.SetValueBySelection(SelSet, 0.547);
    // Выводим значение элемента после изменения
    Ite.Move(IteratorDirection.Last);
    Debug.Write("Значение элемента после изменения: ");
    Debug.WriteLine(Ite.Value);
End Sub UserProc;