Прогресс бар и серверная процедура (тонкий клиент)

Как известно, в клиент-серверном режиме 1С прогресс бар (или функция «состояние») бесполезны, если процедура выполняется на сервере.

Одним из решением данной задачи является использование фонового задания. Ниже покажу пример , как это использовать.

Идея заключается в следующем:

1. Запускаем фоновое задание

&НаСервере
Процедура ЗапуститьФоновоеЗадание()

// в данное хранилище можно в обработчике поместить результат выполнения операции
// на форме должен быть реквизит "АдресВременногоХранилища" с типом "строка"
АдресВременногоХранилища = ПоместитьВоВременноеХранилище("", ЭтаФорма.УникальныйИдентификатор);

ПараметрыФоновогоЗадания = Новый Массив;
ПараметрыФоновогоЗадания.Добавить(АдресВременногоХранилища);    // параметр 1
ПараметрыФоновогоЗадания.Добавить(ТаблицаДанных.Выгрузить()); // параметр 2

// запускаем фоновое задание и храним его ID
// на форме должеь быть реквизит "ID_ФоновогоЗадания" с типом "УникальныйИдентификатор"
ID_ФоновогоЗадания = ФоновыеЗадания.Выполнить("ОбработчикиФоновыхЗаданий.ВыполнитьОперациюСПрогрессБаром",
ПараметрыФоновогоЗадания, Новый УникальныйИдентификатор, "Загрука").УникальныйИдентификатор;

КонецПроцедуры

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

&НаКлиенте
Процедура ОбновлениеСостояния() Экспорт

ТекущееЗначение = Прогресс;
Если ПолучитьСостояниеФоновогоЗадания(ТекущееЗначение) Тогда
Прогресс = 100;
ОтключитьОбработчикОжидания("ОбновлениеСостояния");
// получим результат выполнения
РезультатВыполнения = ПолучитьИзВременногоХранилища(АдресВременногоХранилища);
Сообщить(РезультатВыполнения);
Иначе
// обновим значение прогресса
Прогресс = ТекущееЗначение;
КонецЕсли;

КонецПроцедуры

&НаСервере
Функция ПолучитьСостояниеФоновогоЗадания(ТекущееЗначение)
ФЗ = ФоновыеЗадания.НайтиПоУникальномуИдентификатору(ID_ФоновогоЗадания);
Сообщения = ФЗ.ПолучитьСообщенияПользователю(Истина);
Если Сообщения.Количество()>0 Тогда
ТекущееЗначение = Число(Сообщения[Сообщения.ВГраница()].Текст);
Иначе
ТекущееЗначение = ТекущееЗначение;
КонецЕсли;
Если ФЗ.Состояние <> СостояниеФоновогоЗадания.Активно Тогда
Если ФЗ.Состояние <> СостояниеФоновогоЗадания.Активно
И ФЗ.Состояние <> СостояниеФоновогоЗадания.Завершено Тогда
// ошибка выполнения
ИнформацияОбОшибке = ФЗ.ИнформацияОбОшибке.Описание;
КонецЕсли;
КонецЕсли;
Возврат ФЗ.Состояние <> СостояниеФоновогоЗадания.Активно;
КонецФункции

Кроме того, после выполнения процедура зачаустую приходится получать какой-то результат (текстовое сообщение, таблица значений или табличный документ). Любой резултат можно поместить во временное хранилище, а потом на клиенте получить результат.

 // получим результат выполнения
РезультатВыполнения = ПолучитьИзВременногоХранилища(АдресВременногоХранилища);
Сообщить(РезультатВыполнения);