Edit: IPrxDataIslandDimensionLayout;
Метод Edit создает копию произвольного размещения для редактирования структуры.
В рассматриваемом примере предполагается существование объекта Report типа IPrxReport.
Sub UserProc;
Var
Report : IPrxReport;
DataIsland : IPrxDataIsland;
Prop : IPrxDataIslandProperties;
Layout, LayoutCopy : IPrxDataIslandDimensionLayout;
Dim : IPrxSliceDimension;
DataDim : IPrxDataIslandDimension;
Begin
DataIsland := Report.DataIslands.Item(0).Edit;
Prop := DataIsland.Properties;
Dim := DataIsland.Slice.Dimensions.FindById("CALENDAR");
DataDim := Prop.Dimension(Dim.Dimension.Dimension);
Layout := DataDim.Layout;
LayoutCopy := Layout.Edit;
LayoutCopy.Build(Dim.Selection);
LayoutCopy.Save;
DataIsland.Save;
End Sub UserProc;
После выполнения примера к элементам произвольного размещения будут добавлены элементы, отмеченные в справочнике.
См. также: