Properties: IPrxDataIslandProperties;
Properties: Prognoz.Platform.Interop.Report.IPrxDataIslandProperties;
Свойство Properties определяет параметры области данных.
Для выполнения примера предполагается наличие регламентного отчета с идентификатором «REPORT», который содержит область данных. Добавьте ссылки на системные сборки: Metabase, Report.
Sub UserProc;
Var
MB: IMetabase;
MObj: IMetabaseObject;
Prop: IPrxDataIslandProperties;
DI: IPrxDataIsland;
Begin
MB := MetabaseClass.Active;
MObj := MB.ItemById("REPORT").Edit;
DI := (MObj As IPrxReport).DataIslands.Item(0).Edit;
Prop := DI.Properties;
// Задаем отступ
в иерархии.
Prop.HierarchyIndent := 10;
DI.Save;
// Сохраняем отчет.
MObj.Save;
End Sub UserProc;
После выполнения примера отступ в раскрывающейся иерархии первой области данных регламентного отчета «REPORT» будет равен 10.
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Report;
...
Sub Main(Params: StartParams);
Var
MB: IMetabase;
MObj: IMetabaseObject;
Prop: IPrxDataIslandProperties;
DI: IPrxDataIsland;
Begin
MB := Params.Metabase;
MObj := MB.ItemById["REPORT"].Edit();
DI := (MObj As IPrxReport).DataIslands.Item[0].Edit();
Prop := DI.Properties;
// Задаем отступ
в иерахии.
Prop.HierarchyIndent := 10;
DI.Save();
// Сохраняем отчет.
MObj.Save();
End Sub;
См. также: