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

Для всех
Модули для задач\Директория\Замена типов файлов
Модули для задач\Директория\Переименовать отмеченные
Модули для задач\Директория\Создать архив директории
Модули для задач\Директория\Заменить текст в файлах
Модули для задач\Диск\Заполнить диск пустыми файлами
Модули для действий\Текст\Итого по строкам
Модули для действий\Текст\Сортировать строки
Модули для действий\Текст\Свернуть строки
Модули для действий\Текст\Удалить пустые строки
Модули для действий\Текст\Перевести текст
Модули для действий\Список\Обработка списка
Модули для действий\Группа\Обработка группы
Модули для действий\Директория\Исправить имена файлов
Модули для действий\Задача\Создать скрипт для автовыполнения задачи
Defy
Автосохранение Yandex
AutoLoadTorrents
Анализ объявлений Авито
Faster
Модули для буфера\Разделить буфер обмена
Модули для буфера\Соединить буфер обмена
Настройка реестра Windows
DBI
Модули для задач\БД 1С 8\Выгрузить базу данных
Модули для задач\БД 1С 8\Загрузить базу данных
Модули для задач\БД 1С 8\Выгрузить конфигурацию в файлы
Модули для действий\Директория\Проверить все обработки
Модули для действий\Модуль 1С\Проверить модуль
Модули для действий\БД 1С 8\Открыть временную локальную папку
Запуск RDP
Модули для 1С\Обновление конфигураций 1С
Модули для 1С\Выгрузка конфигураций 1С в файлы
Модули для 1С\Выгрузка информационных баз 1С


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

Конец

  

http://moolex.ru