IScheduledTaskProperties.FtpAddress

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

Sub UserProc;
Var
    MB: IMetabase;
    CrInfo: IMetabaseObjectCreateInfo;
    MObj: IMetabaseObject;
    CalcReport: ICalculateReportScheduledTask;
    Per: IScheduledTaskPeriodOneTimeOnly;
    Prop: IScheduledTaskProperties;
Begin
    MB := MetabaseClass.Active;
    CrInfo := MB.CreateCreateInfo;
    CrInfo.ClassID := MetabaseObjectClass.KE_CLASS_TASK_CALCULATEREPORT;
    CrInfo.Id := "CALCULATE_REPORT";
    CrInfo.Name := "Вычисление регламентного отчета";
    CrInfo.Parent := MB.ItemById("TASK_CONTAINTER");
    MObj := MB.CreateObject(CrInfo).Edit;
    CalcReport := MObj As ICalculateReportScheduledTask;
    CalcReport.FormatTag := "xls";
    CalcReport.SourceReport := MB.ItemById("Report_1").Bind As IPrxReport;
    Prop := CalcReport.Properties;
    Per := Prop.CreatePeriod(ScheduledTaskPeriodType.OneTimeOnly) As IScheduledTaskPeriodOneTimeOnly;
    Per.StartMode := TaskPeriodOneTimeStartMode.OnLogon;
    Prop.Period := Per;
    Prop.MailAddress := "User1@Mail.ru";
    Prop.FtpAddress := "ftp://10.0.0.1/Report"
    MObj.Save;
End Sub UserProc;