Каталог решений - Небольшой пакет функций для использования в обработках (8.x)

Тексты функций и пример использования: //sale.itcity.ru/profile/18122/projects/2824/

Первый набор функций — флаги начала / окончания процессов:

Функция НачалоПроцесса(НаименованиеПроцесса = "", ОбработчикПрерывания = "", ПараметрыОбработчика = Неопределено)
Процедура ОкончаниеПроцесса()

Как следует из названия — первая функция предназначена для обозначения начала процесса. При этом, при вызове из формы возможно передать либо код, который должен выполниться после прерывания процесса пользователем (по ctrl+break) — стоку кода, либо наименование функции и массив параметров. Вторая функция — обозначает конец процесса. Эти функции используют стек процессов, т.е. на каждое начало процесса необходимо обозначить его окончание. При прерыванни процесса вызываются обработчики прерывания для всего стека процессов.

Второй набор — процедуры для визуализации процесса выполнения операций:

Функция мСоздатьПрогрессор(Описание="", ВсегоШагов=0, НеВычислятьВремя=Ложь, ЭлементФормы=Неопределено, Кратность = 1)
Процедура мОбновитьПрогрессор(прогрессор, ДопИнформация="")

Предназначены для вывода информации (%, счетчик, оставшееся время) в строку состояния, либо в указанный элемент формы.

Третий набор — служебные функции, среди которых следует отметить:

Процедура мСообщить(Сообщение, Знач Важность = Неопределено)

Процедура повторяет по назначению встроенную «Сообщить», с тем отличием, что учитывает уровень процесса.

Также используется переменная:

Перем мИмяФайлаЛога;

При указании имени файла, функция мСообщить() будет дублировать сообщения в указанный файл

Пример использования процедур (результаты — на скриншотах):

Процедура ОсновныеДействияФормыТест(Кнопка)
	Процесс = НачалоПроцесса("Вход в процедуру", "ЭлементыФормы.СтрокаПрогрессора.Заголовок = """"");
	ОбщийПрогрессор = мСоздатьПрогрессор(Процесс.Наименование, 3, , ЭлементыФормы.СтрокаПрогрессора);
	Для н = 0 по 3 Цикл
		мОбновитьПрогрессор(ОбщийПрогрессор, "Шаг №: " + н);
		мСообщить("	Шаг внешнего цикла №: " + н);
		Процесс = НачалоПроцесса("Вложенный цикл");
		Прогрессор = мСоздатьПрогрессор("Тест прогрессора", 5);
		Для к = 0 по 5 Цикл
			мОбновитьПрогрессор(Прогрессор);
			мСообщить("	Шаг внутреннего цикла №: " + к);
			Пауза(2);
		КонецЦикла;
		ОкончаниеПроцесса();
	КонецЦикла;
	ОкончаниеПроцесса();
	ЭлементыФормы.СтрокаПрогрессора.Заголовок = "";
КонецПроцедуры

Тексты функций и пример использования: //sale.itcity.ru/profile/18122/projects/2824/

Далее результаты использования: