CalcTransformations: IEaxDataAreaTransformations;
CalcTransformations: Prognoz.Platfrorm.Interop.Express.IEaxDataAreaTransformations;
Свойство CalcTransformations возвращает коллекцию формул преобразования данных, заданных для вычисляемых элементов.
Вычисляемые элементы создаются в конструируемом справочнике отдельной альтернативной иерархии. Альтернативная иерархия должна быть создана для того измерения, в котором необходимо использовать вычисляемые элементы. Для каждого вычисляемого элемента в коллекции CalcTransformations создается собственная формула преобразования данных, по которой будут вычисляться значения.
Для выполнения примера предполагается наличие в репозитории регламентного отчета с идентификатором «REPORT». В отчете создана аналитическая область данных, среди измерений источника имеется измерение с идентификатором «REGIONS».
Подключите системные сборки: Dal, Dimensions, Express, Metabase, Report.
Sub UserProc;
Var
MB: IMetabase;
Report: IPrxReport;
DataArea: IEaxDataArea;
DataAreaSlice: IEaxDataAreaSlice;
DimSS: IDimSelectionSet;
DimS: IDimSelection;
Hierarchies: IEaxDataAreaHierarchies;
Hierarchy: IEaxDataAreaHierarchy;
CustomDim: ICustomDimension;
Elements: ICustomDimElements;
Attributes: ICustomDimAttributes;
NameAttribute: ICustomDimAttribute;
Transform: IEaxDataAreaTransformation;
hKey, newElIndex, ElId: Integer;
Begin
MB := MetabaseClass.Active;
Report := MB.ItemById("REPORT").Edit As IPrxReport;
DataArea := Report.DataArea As IEaxDataArea;
DataAreaSlice := DataArea.Slices.Item(0);
//Измерение источника
DimSS := DataAreaSlice.Selection;
DimS := DimSS.FindById("REGIONS");
//Создадим вычисляемый элемент на базе созданного параметра
Hierarchies := DataArea.Hierarchies;
//Уникальный ключ иерархии
hKey := Hierarchies.CreateKey(DataAreaSlice.Key, DimS.Dimension.Key);
//Получим альтернативную иерархию по ее ключу
Hierarchy := Hierarchies.FindByKey(hKey);
//Если иерархия не найдена по ключу, то создадим её
If Hierarchy = Null Then
Hierarchy := Hierarchies.Add(DataAreaSlice, DimS, hKey);
End If;
//Получим измерение фактов
CustomDim := Hierarchy.CustomDimension;
//Получим элементы и индексы атрибутов измерения фактов
Elements := CustomDim.Elements;
Attributes := CustomDim.Attributes;
NameAttribute := Attributes.Name;
//Создание нового элемента
newElIndex := Elements.Add;
ElId := Elements.RowCount + 1;
//Значения атрибутов для нового элемента
Elements.AttributeValueByKey(newElIndex, NameAttribute.Key) := "Calculated element";
Elements.AttributeValueByKey(newElIndex, Attributes.Id.Key) := ElId.ToString;
Elements.AttributeValueByKey(newElIndex, Attributes.Order.Key) := ElId;
//Применение изменений к измерению с альтернативной иерархией
Hierarchies.PushChangesToDimInstance(DimS, CustomDim);
newElIndex := DimS.Dimension.Elements.FindById(ElId.ToString);
//Формула трансформации для вычисляемого элемента
Transform := DataAreaSlice.CalcTransformations.Add(DimSS, DimS, newElIndex);
Transform.Enabled := True;
Transform.Expression.AsString := '{' + Elements.AttributeValueByKey(0, NameAttribute.Key) + "[t]}+{" + Elements.AttributeValueByKey(1, NameAttribute.Key) + "[t]}";
Hierarchies.AddDependant(DimS, hKey, DimSS, ElId.ToString, Transform);
//Сохранение
Report.MetabaseObject.Save;
End Sub UserProc;
При выполнении примера будет осуществлена доработка среза аналитической области данных:
для измерения «REGIONS» будет создана альтернативная иерархия, в которой будет добавлен вычисляемый элемент;
для вычисляемого элемента будет задана формула трансформации, по которой будут суммироваться значения двух первых элементов измерения.
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
Imports Prognoz.Platform.Interop.Dimensions;
Imports Prognoz.Platform.Interop.Express;
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Report;
Public Shared Sub Main(Params: StartParams);
Var
MB: IMetabase;
Report: IPrxReport;
DataArea: IEaxDataArea;
DataAreaSlice: IEaxDataAreaSlice;
DimSS: IDimSelectionSet;
DimS: IDimSelection;
Hierarchies: IEaxDataAreaHierarchies;
Hierarchy: IEaxDataAreaHierarchy;
CustomDim: ICustomDimension;
Elements: ICustomDimElements;
Attributes: ICustomDimAttributes;
NameAttribute: ICustomDimAttribute;
Transform: IEaxDataAreaTransformation;
hKey, elIndex: uinteger;
newElIndex, ElId: Integer;
Begin
MB := Params.Metabase;
Report := MB.ItemById["REPORT"].Edit() As IPrxReport;
DataArea := Report.DataArea As IEaxDataArea;
DataAreaSlice := DataArea.Slices.Item[0];
//Измерение источника
DimSS := DataAreaSlice.Selection;
DimS := DimSS.FindById("REGIONS");
//Создадим вычисляемый элемент на базе созданного параметра
Hierarchies := DataArea.Hierarchies;
//Уникальный ключ иерархии
hKey := Hierarchies.CreateKey(DataAreaSlice.Key, DimS.Dimension.Key);
//Получим альтернативную иерархию по ее ключу
Hierarchy := Hierarchies.FindByKey(hKey);
//Если иерархия не найдена по ключу, то создадим её
If Hierarchy = Null Then
Hierarchy := Hierarchies.Add(DataAreaSlice, DimS, hKey, Null);
End If;
//Получим измерение фактов
CustomDim := Hierarchy.CustomDimension;
//Получим элементы и индексы атрибутов измерения фактов
Elements := CustomDim.Elements;
Attributes := CustomDim.Attributes;
NameAttribute := Attributes.Name;
//Создание нового элемента
newElIndex := Elements.Add();
ElId := Elements.RowCount + 1;
//Значения атрибутов для нового элемента
Elements.AttributeValueByKey[newElIndex, NameAttribute.Key] := "Calculated element";
Elements.AttributeValueByKey[newElIndex, Attributes.Id.Key] := ElId.ToString();
Elements.AttributeValueByKey[newElIndex, Attributes.Order.Key] := ElId;
//Применение изменений к измерению с альтернативной иерархией
Hierarchies.PushChangesToDimInstance(DimS, CustomDim);
elIndex := DimS.Dimension.Elements.FindById(ElId.ToString());
//Формула трансформации для вычисляемого элемента
Transform := DataAreaSlice.CalcTransformations.Add(DimSS, DimS, elIndex);
Transform.Enabled := True;
Transform.Expression.AsString := '{' + Elements.AttributeValueByKey[0, NameAttribute.Key] + "[t]}+{" + Elements.AttributeValueByKey[1, NameAttribute.Key] + "[t]}";
Hierarchies.AddDependant(DimS, hKey, DimSS, ElId.ToString(), Transform);
//Сохранение
Report.MetabaseObject.Save();
End Sub;
См. также: