IsChildrenBeforeParents: Boolean;
Свойство IsChildrenBeforeParents определяет, установлена ли опция «Дети перед родителями».
Допустимые значения:
True. Опция «Дети перед родителями» установлена;
False. Опция «Дети перед родителями» не установлена.
Для выполнения примера предполагается наличие формы, содержащей компонент Button с идентификатором «Button1» и компонент UiReport с идентификатором «UiReport1». В качестве источника данных используется регламентный отчет с настроенной иерархией. Пример является обработчиком события OnClick для компонента «Button1».
Добавьте ссылку на системную сборку «Dimensions».
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
Rep: IPrxReport;
DIs: IPrxDataIslands;
DI: IPrxDataIsland;
DimModel: IDimensionModel;
DIProp: IPrxDataIslandProperties;
Top: IPrxDataIslandDimension;
Level: IPrxDataIslandLevel;
Begin
Rep := UiReport1.Report.Edit;
DIs := Rep.DataIslands;
DI := DIs.Item(0).Edit;
DimModel := DI.Slice.TopHeader.Item(0).Dimension.Dimension;
DIProp := DI.Properties;
Top := DIProp.Dimension(DimModel);
Level := Top.Level(DimModel.Levels.Item(0));
If Not Level.IsChildrenBeforeParents Then
Level.ChildrenBeforeParents := TriState.OnOption;
End If;
Debug.Write("Опция Дети перед родителями: ");
Select Case Level.ChildrenBeforeParents
Case TriState.OnOption:
Debug.WriteLine("включена");
Case TriState.OffOption:
Debug.WriteLine("отключена");
End Select;
DI.Save;
Rep.Save;
End Sub Button1OnClick;
После выполнения примера в окно консоли будет выведен результат проверки, установлена ли опция «Дети перед родителями» для столбцов первой области данных регламентного отчета.
В случае, если опция была установлена, то она будет отключена для столбцов заданной области.
См. также: