AggregationGroups: IMsAggregationGroups;
Свойство AggregationGroups возвращает объект, содержащий коллекцию групп агрегации.
Для выполнения примера предполагается наличие в репозитории базы данных временных рядов с идентификатором OBJ_RUBRICATOR. В контейнере моделирования данной базы данных временных рядов должна существовать задача с идентификатором OBJ_PROBLEM. COUNTRY - пользовательский атрибут показателей базы, ссылающийся на справочник. D_COUNTRY - группа элементов данного справочника.
Sub Main;
Var
MB: IMetabase;
RKey, ContKey, DimKey: Integer;
Obj: IMetabaseObject;
Problem: IMsProblem;
T: IMsTransformationProblem;
CalcSettings: IMsProblemCalculationSettings;
Calculation: IMsProblemCalculation;
Rubricator: IRubricator;
Atrs: IMetaAttributes;
Atr: IMetaAttribute;
AgrGroups: IMsAggregationGroups;
AgrGroup: IMsAggregationGroup;
Group: IDimElementGroup;
Begin
MB := MetabaseClass.Active;
RKey := MB.ItemById("OBJ_RUBRICATOR").Key;
ContKey := MB.ItemByIdNamespace("MODELSPACE_TRANSFORMS", RKey).Key;
Obj := MB.ItemByIdNamespace("OBJ_PROBLEM", ContKey).Edit;
Problem := Obj As IMsProblem;
T := New MsTransformationProblem.Create;
Problem.Details := T;
CalcSettings := Problem.CreateCalculationSettings;
CalcSettings.FactIncluded := True;
Obj.Save;
Calculation := Problem.Calculate(CalcSettings);
AgrGroups := Calculation.AggregationGroups;
If AgrGroups.Count > 0 Then
AgrGroups.Clear;
End If;
AgrGroup := AgrGroups.Add;
Rubricator := MB.ItemById("OBJ_RUBRICATOR").Edit As IRubricator;
Atrs := Rubricator.Facts.Attributes;
Atr := Atrs.FindById("COUNTRY");
AgrGroup.Attribute := Atr;
DimKey := Atr.ValuesObject.Key;
Group := MB.ItemByIdNamespace("D_COUNTRY", DimKey).Edit As IDimElementGroup;
AgrGroup.ElementGroup := Group;
AgrGroup.AttributeValue := 1;
Calculation.Run;
End Sub Main;
После выполнения примера, для задачи моделирования будет добавлена группа агрегации, затем задача будет рассчитана.
См. также: