Авторские права на предоставленный материал принадлежат автору сайта необходимо зарегистрироваться для просмотра ссылки
Текст обработки:
Перем СчетчикСек;
Перем Запущен;
Процедура Сформировать() Экспорт Далее
Процедура ОбнулитьСчетчик()
Ч=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» в час ночи.
