Append(Source: IPrxReport);
Append(Source: Prognoz.Platform.Interop.Report.IPrxReport);
Source. Идентификатор отчета-шаблона.
Метод Append добавляет к отчету листы отчета-шаблона.
Идентификатор отчёта шаблона передаётся с помощью параметра Source.
Если у регламентного отчета и добавляемого к нему отчета-шаблона совпадают наименования листов, они корректируются как при копировании листов. По такому же принципу корректируются ссылки на диапазоны в листах отчета-шаблона.
Для выполнения примера предполагается наличие регламентного отчета с идентификатором «REP_SOURCE» и регламентного отчета с идентификатором «REP_DEST». Создайте форму, добавьте на нее кнопку с идентификатором «Button1», добавьте ссылку на системную сборку Report.
Const R_S = "REP_SOURCE";
Const R_D = "REP_DEST";
Class TEST_FORM_405331Form: Form
Button1: Button;
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var RepSource, RepDest: IPrxReport;
Begin
RepSource := MetabaseClass.Active.ItemById(R_S).Edit As IPrxReport;
RepDest := MetabaseClass.Active.ItemById(R_D).Edit As IPrxReport;
RepDest.Append(RepSource);
(RepDest As IMetabaseObject).Save;
End Sub Button1OnClick;
End Class TEST_FORM_405331Form;
При нажатии на кнопку «Button1» листы регламентного отчета с идентификатором «REP_SOURCE» будут добавлены в регламентный отчет с идентификатором «REP_DEST».
Для выполнения примера предполагается наличие регламентного отчета с идентификатором «REP_SOURCE» и регламентного отчета с идентификатором «REP_DEST». Создайте .NET форму, добавьте на нее кнопку с идентификатором «Button1», добавьте ссылку на системную сборку Report.
Imports System;
Imports System.Collections.Generic;
Imports System.ComponentModel;
Imports System.Data;
Imports System.Drawing;
Imports System.Text;
Imports System.Windows.Forms;
Imports Prognoz.Platform.Forms.NET;
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Report;
Const R_S = "REP_SOURCE";
Const R_D = "REP_DEST";
Public Partial Class OBJ963Form: Prognoz.Platform.Forms.NET.ForeNetForm
Public Constructor OBJ963Form();
Begin
InitializeComponent();
End Constructor;
Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
RepSource, RepDest: IPrxReport;
mb: IMetabase;
Begin
mb := self.Metabase;
RepSource := mb.ItemById[R_S].Edit() As IPrxReport;
RepDest := mb.ItemById[R_D].Edit() As IPrxReport;
RepDest.Append(RepSource);
(RepDest As IMetabaseObject).Save();
End Sub;
End Class;
При нажатии на кнопку «Button1» листы регламентного отчета с идентификатором «REP_SOURCE» будут добавлены в регламентный отчет с идентификатором «REP_DEST».
См. также: