Отследить состояние цикла на сервере

Здравствуйте. Помогите пожалуйста, так как я незнаю как сделать индикатор на сервере (УТ11) чтобы можно было бы отслеживать сколько документов проверено, хотелось бы просто напросто чтобы сообщалось пользователю, но к сожалению не получается... строго не судите в 1с новичек с малым стажем)

&НаСервере
Процедура УдалитьЦенуНоменклатуры()

    Результат = Неопределено;
    УдаляемаяСтрока = Неопределено;

    СтруктураДляПоиска = Новый Структура;
    СтруктураДляПоиска.Вставить("Используется",Ложь);

    МассивННДляУдаления = Объект.НайденнаяНоменклатура.НайтиСтроки(СтруктураДляПоиска);

    СтруктураДляПоискаНН = Новый Структура;

    ЗапросЦена = Новый Запрос;
    ЗапросЦена.Текст =
    "ВЫБРАТЬ
    |    УстановкаЦенНоменклатуры.Ссылка
    |ИЗ
    |    Документ.УстановкаЦенНоменклатуры КАК УстановкаЦенНоменклатуры
    |ГДЕ
    |    УстановкаЦенНоменклатуры.ПометкаУдаления = ЛОЖЬ";

    Результат = ЗапросЦена.Выполнить().Выбрать();

    ПроверяемыйДокумент = 0;
    КоличествоДокументовУстановкиЦен = Результат.Количество();

    Пока Результат.Следующий() Цикл
        ДокументУстановкиЦен = Результат.Ссылка.ПолучитьОбъект();
        Для Каждого ЭлементНН ИЗ МассивННДляУдаления Цикл
            СтруктураДляПоискаНН.Вставить("Номенклатура",ЭлементНН.Номенклатура);
            УдаляемаяСтрока = ДокументУстановкиЦен.Товары.НайтиСтроки(СтруктураДляПоискаНН);
            Для Каждого УдаляемаяСтрокаДЦ ИЗ УдаляемаяСтрока Цикл
                ДокументУстановкиЦен.Товары.Удалить(УдаляемаяСтрокаДЦ);
            КонецЦикла;
            СтруктураДляПоискаНН.Очистить();
        КонецЦикла;
        ДокументУстановкиЦен.Записать(РежимЗаписиДокумента.Проведение);
        ПроверяемыйДокумент = ПроверяемыйДокумент + 1;
        Сообщить("Проверено " + ПроверяемыйДокумент + " из " + КоличествоДокументовУстановкиЦен + " док.");
    КонецЦикла;


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