Add(Name: String, [Type: PrxSheetType = 1]): IPrxSheet;
Add(Name: string; Type: Prognoz.Platform.Interop.Report.PrxSheetType): Prognoz.Platform.Interop.Report.IPrxSheet;
Name. Наименование нового листа;
Type. Тип добавляемого листа, по умолчанию будет добавлен лист табличного типа.
Метод Add добавляет лист в регламентный отчет.
Если значение параметра Type равно PrxSheetType.Table, возвращаемый методом Add лист может быть приведен к интерфейсу IPrxTable, если равно PrxSheetType.Document - к интрефейсу IPrxDocument.
Для выполнения примера в репозитории предполагается наличие регламентного отчета с идентификатором REPORT.
Добавьте ссылки на системные сборки: Metabase, Report.
Sub UserProc;
Var
MB: IMetabase;
Report: IPrxReport;
Sheets: IPrxSheets;
Sheet: IPrxSheet;
SheetDoc: IPrxDocument;
SheetTab: IPrxTable;
i: Integer;
Begin
// Получаем текущий репозиторий
MB := MetabaseClass.Active;
// Получаем отчёт
Report := Mb.ItemById("REPORT").Edit As IPrxReport;
// Получаем листы отчёта
Sheets := Report.Sheets;
i := Sheets.Count;
// Добавляем табличный лист
Sheet := Sheets.Add("Table" + (i).ToString, PrxSheetType.Table);
Debug.WriteLine("Добавлен табличный лист " + Sheet.Name + ";");
// Вводим значение на табличный лист
SheetTab := Sheet As IPrxTable;
SheetTab.TabSheet.Cell(5, 5).Value := (i);
// Добавляем текстовый лист
Sheet := Sheets.Add("Doc" + (i + 1).ToString, PrxSheetType.Document);
Debug.WriteLine("Добавлен текстовый лист " + Sheet.Name + ";");
// Вводим значение на текстовый лист
SheetDoc := Sheet As IPrxDocument;
SheetDoc.RichText := "{\rtf1 Текстовый лист}";
// Сохраняем отчёт
(Report As IMetabaseObject).Save;
End Sub UserProc;
Imports Prognoz.Platform.Interop.Report;
…
Public Shared Sub Main(Params: StartParams);
Var
MB: IMetabase;
Report: IPrxReport;
Sheets: IPrxSheets;
SheetDoc: IPrxDocument;
SheetTab: IPrxTable;
Sheet: IPrxSheet;
i: integer;
Begin
// Получаем текущий репозиторий
MB := Params.Metabase;
// Получаем отчёт
Report := Mb.ItemById["REPORT"].Edit() As IPrxReport;
// Получаем листы отчёта
Sheets := Report.Sheets;
i := Sheets.Count;
// Добавляем табличный лист
Sheet := Sheets.Add("Table" + (i).ToString(), PrxSheetType.pstTable);
System.Diagnostics.Debug.WriteLine("Добавлен табличный лист " + Sheet.Name + ";");
// Вводим значение на табличный лист
SheetTab := Sheet As IPrxTable;
SheetTab.TabSheet.Cell[5, 5].Value := (i);
// Добавляем текстовый лист
Sheet := Sheets.Add("Doc" + (i + 1).ToString(), PrxSheetType.pstDocument);
System.Diagnostics.Debug.WriteLine("Добавлен текстовый лист " + Sheet.Name + ";");
// Вводим значение на текстовый лист
SheetDoc := Sheet As IPrxDocument;
SheetDoc.RichText := "{\rtf1 Текстовый лист}";
// Сохраняем отчёт
(Report As IMetabaseObject).Save();
End Sub;
В результате выполнения примера в отчёт добавлены табличный и текстовый листы, на табличный лист введено значение равное номеру в названии листа, на текстовый лист добавлен текст «Текстовый лист», в окно консоли будет выведена информация о добавлении листов.
См. также: