ICalculateReportScheduledTask.PutExportSettings

Копировать пример

Sub UserProc;
Var
    MB: IMetabase;
    prop: IScheduledTaskProperties;
    period: IScheduledTaskPeriodOneTimeOnly;
    CrInfo: IMetabaseObjectCreateInfo;
    MObj: IMetabaseObject;
    ex: ICalculateReportScheduledTask;
    exporter: IPrxReportExporter;
    report: IPrxReport;
Begin
    // Получим репозиторий
    MB := MetabaseClass.Active;
    // Получим отчёт
    report := MB.ItemById("REPORT").Bind As IPrxReport;
    // Создадим задачу в контейнере
    CrInfo := MB.CreateCreateInfo;
    CrInfo.ClassID := MetabaseObjectClass.KE_CLASS_TASK_CALCULATEREPORT;
    CrInfo.Id := "REPORT_CALCULATOR1";
    CrInfo.Name := "Задача вычисления отчета 1";
    CrInfo.Parent := MB.ItemById("TASK_CONTAINER");
    MObj := MB.CreateObject(CrInfo).Edit;
    // Зададим настройки задачи вычисления отчёта
    Ex := MObj As ICalculateReportScheduledTask;
    ex.SourceReport := report;
    ex.FormatTag := "xls";
    prop := Ex.Properties;
    prop.AppendAttachment := False;
    period := (prop.CreatePeriod(ScheduledTaskPeriodType.OneTimeOnly) As IScheduledTaskPeriodOneTimeOnly);
    period.StartMode := TaskPeriodOneTimeStartMode.Immediate;
    prop.Period := period;
    prop.MailAddress := "test@mail.com";
    // Определим параметры экспорта отчёта
    Exporter := New PrxReportExporter.Create;
    exporter.Report := report;
    exporter.ExportChartsAsImages := True;
    ex.PutExportSettings(exporter);
    Mobj.Save;
End Sub UserProc;