Есть способ организовать автоматический запуск обработок, отчетов, программ без использования планировщика задач, используя для этой цели лишь средства самой 1С. Для этого необходимо чтобы на компьютере была запущена постоянно 1С со специальной обработкой, которая в свою очередь по таймеру запустит необходимую нам обработку или отчет.
Авторские права на предоставленный материал принадлежат автору сайта [необходимо зарегистрироваться для просмотра ссылки]
Текст обработки:
Перем СчетчикСек;
Перем Запущен;
Процедура Сформировать() Экспорт Далее
Процедура ОбнулитьСчетчик()
Ч=0;М=0;С=0;
ТекущееВремя(Ч,М,С);
СчетчикСек=Ч*3600+М*60+С;
КонецПроцедуры
Процедура ОткрытьОбработкуВыгрузкиДляторговыхТочек()
ОткрытьФорму("Отчет","Ночной дозор",КаталогИБ()+"ExtFormsНашаВнешняяОбработка.ert");
КонецПроцедуры
Процедура ОбновитьСчетчик_()
СчетчикСек = СчетчикСек+1;
Часов = Цел(СчетчикСек/3600);
Минут = Цел((СчетчикСек-Часов*3600)/60);
Сек = СчетчикСек - Часов*3600 - Минут*60;
Форма.Цифры.Заголовок(Формат(Часов,"Ч(0)2")+":"+Формат(Минут,"Ч(0)2")+":"+Формат(Сек,"Ч(0)2"));
Если (Часов=1)и(Минут=1)и(Сек=1) тогда
Форма.ОбработкаОжидания("",1);
ОткрытьОбработкуВыгрузкиДляторговыхТочек();
ОбнулитьСчетчик();
Запущен=0;
Сформировать();
КонецЕсли;
КонецПроцедуры
Процедура Сформировать() Экспорт
Если Запущен=0 тогда
Форма.ОбработкаОжидания("ОбновитьСчетчик_",1); //Запускаем таймер
Сообщить(12);
Форма.кнСтарт.Заголовок("Стоп");
Запущен=1;
Иначе
Сообщить(13);
Форма.ОбработкаОжидания("ОбновитьСчетчик_",0); //Отключаем таймер
Форма.кнСтарт.Заголовок("Старт");
Запущен=0;
КонецЕсли;
КонецПроцедуры
Процедура ПриОткрытии()
ОбнулитьСчетчик();
Сформировать();
КонецПроцедуры
СчетчикСек=0;
Запущен=0;
Процесс=0;
В данном конкретном примере Запускается обработка КаталогИБ()+»\ExtForms\НашаВнешняяОбработка.ert» в час ночи.
Сообщение отредактировал Vofka - 05.04.13, 11:50
Прикрепленные файлы
robot.zip ( 12,19 килобайт )
Кол-во скачиваний: 131
То, что для одного человека константа, для другого - переменная. (Алан.Дж.Перлис)