&НаКлиенте
Процедура ВывестиПрогрессБар() //Индикатор
//&НаКлиенте
//Перем ТекАдрессПрогрессБара;
//&НаКлиенте
//Процедура СоздатьДокументыКорректировкаДолга(Команда)
//
// СтруктураПрогресса = Новый Структура("ТекТекст, ТекПрогресс, ТекПояснение", "начало выполнения обработки", 0, "");
// ТекАдрессПрогрессБара = ПоместитьВоВременноеХранилище(СтруктураПрогресса, УникальныйИдентификатор);
// ПодключитьОбработчикОжидания("ВывестиПрогрессБар", 1);
//
// ЕстьОшибки = СоздатьДокументыКорректировкаДолгаНаСервере(ТекАдрессПрогрессБара);
// Если ЕстьОшибки Тогда
// Предупреждение("Есть ошибки. Не все документы сформированы", 15);
// КонецЕсли;
//
// ОтключитьОбработчикОжидания("ВывестиПрогрессБар");
//
//КонецПроцедуры
//&НаСервере
//Функция СоздатьДокументыКорректировкаДолгаНаСервере(ТекАдрессПрогрессБара)
//
// Сообщение = Новый СообщениеПользователю;
// Сообщение.Текст = "Начали создавать документы!";
// //Сообщение.Поле = "Создание документов";
// Сообщение.Сообщить();
//
// ЕстьОшибки = Ложь;
// КолвоВсего = ТаблицаКорректировкиДолга.Количество();
// ВремяНачала = ТекущаяДата();
// Ном = 0;
//
// ...........
// Ном = Ном + 1;
// ТекПрогресс = Ном / (КолвоВсего/100);
// ВремяПромежутокВсего = (ТекущаяДата() - ВремяНачала) / Ном * КолвоВсего;
// ТекСообщение = "Обрабатано: " + Стр.Контрагент;
// ТекПояснение = "Время окончания: " + (ВремяНачала + ВремяПромежутокВсего);
// СтруктураПрогресса = Новый Структура("ТекТекст, ТекПрогресс, ТекПояснение", ТекСообщение, ТекПрогресс, ТекПояснение);
// ПоместитьВоВременноеХранилище(СтруктураПрогресса, ТекАдрессПрогрессБара);
//
// Сообщение = Новый СообщениеПользователю;
// Сообщение.Текст = "Закончили создавать документы!";
// Сообщение.Поле = "Создание документов";
// Сообщение.Сообщить();
//
// Возврат ЕстьОшибки;
//
//
//КонецФункции
СтруктураПрогресса = ПолучитьИзВременногоХранилища(ТекАдрессПрогрессБара);
Состояние(СтруктураПрогресса.ТекТекст, СтруктураПрогресса.ТекПрогресс, СтруктураПрогресса.ТекПояснение);
КонецПроцедуры
Показать