Модули для задач\БД 1С 8\Выгрузить конфигурацию в файлы
Функция Выполнить()
// Выгрузить конфигурацию в файлы
Задача = Этот.Владелец.Параметр;
Если (Задача=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 """ + Путь + """";
//Сообщить(СтрокаЗапуска);
Запустить(СтрокаЗапуска);
Результат.'Момент окончания выполнения задачи' = Моменты.Текущий;
Результат.Интервал = Моменты.Текущий - Результат.'Момент начала выполнения задачи';
Конец