Индикация процесса выполнения фонового задания функцией Состояние()

Question

Тестирую индикацию процесса выполнения фоновых заданий через ПолучитьСообщенияПользователю(), Состояние() и обработчик ожидания. В результате работы такого когда окошко, которое появляется при вызове функции Состояние() "мигает", что очень неприятно. Уменьшать интервал опроса сервера еще (в начале там была 1 секунда) не хочется. Есть какие-то варианты, как обойти "мигание"? Пока только пришел к мысли, что нужно сделать отдельную форму, со своим индикатором, на которой будет производиться опрос сервера. Кроме убирания мигания это также позволит пользователю работать с другими окнами, пока идет выполнение какой-то долговременной операции. Кто-то еще так делает? Поделитесь опытом.

[1C-CODE]&НаКлиенте
Перем УИД;

&НаКлиенте
Процедура Команда1(Команда)
	
	УИД = П();
	ПодключитьОбработчикОжидания("П2", 0.1, Истина);
	
КонецПроцедуры

&НаСервереБезКонтекста
Функция П()
	
	ФЗ = ФоновыеЗадания.Выполнить("мФоновыеЗадания.Проц1");
	Возврат ФЗ.УникальныйИдентификатор;
	
КонецФункции

&НаСервереБезКонтекста
Функция П1(УИД, Завершено)
	
	ФЗ = ФоновыеЗадания.НайтиПоУникальномуИдентификатору(УИД);
	
	Если ФЗ = Неопределено Или
		ФЗ.Состояние = СостояниеФоновогоЗадания.Завершено Тогда
		Завершено = Истина;
		Возврат Неопределено;
	Иначе
		Завершено = Ложь;
	КонецЕсли;
	
	Возврат ФЗ.ПолучитьСообщенияПользователю(Истина);
	
КонецФункции

&НаКлиенте
Процедура П2()
	
	Перем Завершено;
	
	Сообщения = П1(УИД, Завершено);
	
	Если Завершено Тогда
		ОтключитьОбработчикОжидания("П2");
		Возврат;
	КонецЕсли;
	
	Если Не Сообщения = Неопределено 
		И Не Сообщения.Количество() = 0 Тогда
		Сообщение = Сообщения.Получить(Сообщения.ВГраница());
		Состояние("Превед", Число(Сообщение.Текст));
	КонецЕсли;
	
	ПодключитьОбработчикОжидания("П2", 0.5, Истина);
	
КонецПроцедуры[/1C-CODE]

Код фонового задания (в принципе, неважен)
[1C-CODE]Процедура Проц1() Экспорт
	
	А = 0;
	Б = 0;
	ГСЧ = Новый ГенераторСлучайныхЧисел;
	Для ВремПер = 1 По 1000000 Цикл
		
		// Блок мат. операций для увеличения времени работы кода
		А = А + ГСЧ.СлучайноеЧисло(ВремПер);
		А = Log10(А);
		А = А / ГСЧ.СлучайноеЧисло(ВремПер);
		Б = ГСЧ.СлучайноеЧисло(ВремПер);
		А = А * Б + ГСЧ.СлучайноеЧисло();
		А = Log10(А);
		А = А * А;
		А = А + Б;
		А = Log10(А * Б);
		
		Если ВремПер % (Цел(1000000 / 100)) = 0 Тогда
			
			Сообщить(Цел(ВремПер / 1000000 * 100));
			
		КонецЕсли;
		
	КонецЦикла;
	
КонецПроцедуры[/1C-CODE]

P.S. Если кому-то в голову придет проверить, тестировать надо на клиент-серверной базе, т.к. в файловой фоновые задания не работают.

Accepted Answer

Предлагаю следующее решение: сделать форму с индикатором отдельно. Добавить в общие формы, добавить реквизит Индикатор, вывести поле соответствующего вида.

В вашу тестовую форму добавляем:
[CODE]&НаКлиенте
Перем ФормаСост;
[/CODE]
В процедуру Команда1 в конец:
[CODE]	ФормаСост = ПолучитьФорму("ОбщаяФорма.СостояниеУпр");
	ФормаСост.Открыть();
[/CODE]
В процедуру П2 после Состояние:
[CODE]ФормаСост.Индикатор = Число(Сообщение.Текст);[/CODE]

В итоге две формы с индикатором, нижняя моргает. Но теперь новая проблема, эта форма может прятаться. Отразить модально?