Готовые модули

Функция Выполнить()
 
    // Выгрузить конфигурацию в файлы
     
    Задача = Этот.Владелец.Параметр;
    Если (Задача=0) Тогда Возврат 0; Конец;
     
    Результаты   = Задача.Определить(0, Объекты.Список, Свойства.Наименование, "Результат");
    Результаты.Колонки.Определить(Свойства.'Момент начала выполнения задачи',    0, 128, 1, 0);
    Результаты.Колонки.Определить(Свойства.'Момент окончания выполнения задачи', 0, 128, 1, 0);
    Результаты.Колонки.Определить(Свойства.Интервал,                             0, 120, 1, 0);
    Результаты.Колонки.Определить(Свойства.Состояние,                            0, 135, 1, 0);
    Результаты.Колонки.Определить(Свойства.Путь,                                 0, 300, 1, 0);
    Результаты.'Отключить канву объекта' = 1;
    Результаты.'Отключить отметку'       = 1;
 
    Каталог = Задача.Владелец.'Имя базы данных 1С';
    Если (Каталог="") Тогда
        Каталог = Файлы.Каталог(Задача.Владелец.Путь);
    Конец;
    Путь = "C:\Cms" + Символы.ОС + Каталог;
     
    Результат = Результаты.Определить(0, Объекты.Объект, Свойства.'Момент начала выполнения задачи', Моменты.Текущий);
    Результат.'Путь к файлу' = Путь;
     
    Задача.Выбранный(Результаты);
    СтрокаЗапуска = Задача.Владелец.'Строка запуска конфигуратора';
    СтрокаЗапуска = СтрокаЗапуска + " /DisableStartupMessages /DumpConfigToFiles """ + Путь + """";
    //Сообщить(СтрокаЗапуска);
    Запустить(СтрокаЗапуска);
     
    Результат.'Момент окончания выполнения задачи' = Моменты.Текущий;
    Результат.Интервал                             = Моменты.Текущий - Результат.'Момент начала выполнения задачи';
 
Конец
 
  