ДлительныеОперации.СообщитьПрогресс работает выборочно!

Процедура ПолучитьРезультатЗапросаЗЕРНО(ПараметрыЗадания, АдресРезультата) Экспорт
    РезультатРаботы = Новый Структура("Ошибка,ТекстОшибки,Результат,Операция,Запросы,Ответы",
        Ложь, "", Новый Массив, Неопределено, Новый Массив, Новый Массив);
    
    ПараметрыЗапроса = ПараметрыЗадания.ПараметрыЗапроса;

    // специально для разграничения запуска в фоне или не в фоне
    ЗапущенВФоне = ПараметрыЗапроса.Свойство("ЗапущенВФоне");    

    Версия = ПараметрыЗапроса.Версия;
    Операция = ПараметрыЗадания.Операция;
    РезультатРаботы.Операция = Операция;

    ПараметрыЗапроса.Страницы.НомерСтраницы = 0;    

    Если ПараметрыЗадания.Свойство("КоличествоЗапросов") Тогда
        КоличествоЗапросов = ?(ПараметрыЗадания.КоличествоЗапросов = 0, 50, 
            ПараметрыЗадания.КоличествоЗапросов);
    Иначе
        КоличествоЗапросов = 50;
    КонецЕсли;
    
    //ПараметрыЗапроса.Страницы.ДлинаСтраницы = 100;
    Если ЗапущенВФоне Тогда                  
        ДлительныеОперации.СообщитьПрогресс(0, 
            СтрШаблон("[%1] Начинаем...", Операция)
        );
    КонецЕсли;
     // ....................... далее всякое-разное. .................................................

        Для к = 1 По КоличествоЗапросов Цикл
            ОтветНаГотовность = СГМ_ОбменЗерноСервер.ОтправитьЗапросНаСервер(
                ЗапросОГотовности.КонвертSOAP, ПараметрыЗапроса);
            Если Не ОтветНаГотовность.Успех Тогда
                Если Не ОтветОтправкиЗапроса.Успех Тогда
                    sReturn = WshShell.run(
                        СтрШаблон("ping 127.0.0.1 -n %1", Формат(Замедлитель, "ЧГ=0")),
                        1,True);
                    Замедлитель = 6 + Окр(?(к <= 10, 0, 
                                            ?(к <= 50, Окр(((к - 10) / 40) * 93 + 1, 0), 100
                                      )        ));       
                    Если ЗапущенВФоне Тогда                  
                        ДлительныеОперации.СообщитьПрогресс(Окр(к / КоличествоЗапросов * 100,0), 
                            СтрШаблон("[%1] Запрос №%2: интервал %3", Операция, к, Замедлитель));
                    КонецЕсли;
                    Продолжить;
                КонецЕсли;
            Иначе
                // проверить, что ответ на исходный запрос сформирован
                КонвертТип = ФабрикаXDTO.Пакеты.Получить(
                        Метаданные.ПакетыXDTO.Envelope.ПространствоИмен).КорневыеСвойства.Получить("Envelope").Тип;
                Ответ = Новый ЧтениеXML;
                Ответ.УстановитьСтроку(ОтветНаГотовность.Текст);
                ПринятоЛи = ФабрикаXDTO.ПрочитатьXML(Ответ, КонвертТип).Body;
                СостояниеОтвета = Неопределено;
                Если ПринятоЛи.Свойства().Получить("SendResponseResponse") <> Неопределено Тогда
                    Если ПринятоЛи.SendResponseResponse.Свойства().Получить("ResponseCode") <> Неопределено Тогда
                        СостояниеОтвета = НРег(Строка(ПринятоЛи.SendResponseResponse.ResponseCode));
                        Если СостояниеОтвета = "success" Тогда
                            // принято и сделано
                            ФлагПолучено = Истина;
                            РезультатРаботы.Ответы.Добавить(ОтветНаГотовность.Текст);
                            Прервать;
                        КонецЕсли;
                    КонецЕсли;
                КонецЕсли;
            КонецЕсли;

            // пауза    
            sReturn = WshShell.run(
                СтрШаблон("ping 127.0.0.1 -n %1", Формат(Замедлитель, "ЧГ=0")),
                1,True);
            Замедлитель = 6 + Окр(?(к <= 10, 0, 
                                    ?(к <= 50, Окр(((к - 10) / 40) * 93 + 1, 0), 100
                              )        ));       
            Если ЗапущенВФоне Тогда                  
                ДлительныеОперации.СообщитьПрогресс(Окр(к / КоличествоЗапросов * 100, 0), 
                    СтрШаблон("[%1] Запрос №%2: интервал %3", Операция, к, Замедлитель));
            КонецЕсли;
        КонецЦикла;

// ................................... дальше обработка полученного и пр........................

Процедура МассовоеГашениеСДИЗППЗ(ПараметрыЗадания, АдресРезультата) Экспорт
    
 // ......................................... здесь разбор входных данных ......................................
        Всего = СписокДляГашения.Количество();
        Счетчик = 0;

        Для каждого Элем Из СписокДляГашения Цикл
        
            //ПараметрыЗапроса.ЭтоВопрос = Истина;
            
            Если ЗапущенВФоне Тогда
                ДлительныеОперации.СообщитьПрогресс(Окр(Счетчик / Всего * 100, 0),
                    СтрШаблон("Обрабатываем %1, количество %2",
                        Элем.Номер, Элем.Количество)
                );
            КонецЕсли;
            Счетчик = Счетчик + 1;


// .................................. дальше цикл, всё работает .....................            

    ИДЗадания = "";
    
    СтруктураФоновогоЗадания = ЗагрузитьСписокСДИЗППЗНаСервере();
    ИДЗадания     = СтруктураФоновогоЗадания.ИдентификаторЗадания;
    
    ПараметрыОжидания  = ДлительныеОперацииКлиент.ПараметрыОжидания(ЭтотОбъект);
    ПараметрыОжидания.ВыводитьПрогрессВыполнения = Истина;
    //ПараметрыОжидания.Интервал  = 3;
    //ПараметрыОжидания.ВыводитьОкноОжидания = Истина;
    //ПараметрыОжидания.ОповещениеОПрогрессеВыполнения
    
    
    ДлительныеОперацииКлиент.ОжидатьЗавершение(
        СтруктураФоновогоЗадания, 
        Новый ОписаниеОповещения("ОбработатьСписокППЗ", ЭтотОбъект), 
        ПараметрыОжидания);

    СтруктураФоновогоЗадания = ПогаситьСДИЗППЗНаСервере(СписокДляГашения);
    ИДЗадания     = СтруктураФоновогоЗадания.ИдентификаторЗадания;
    
    ПараметрыОжидания  = ДлительныеОперацииКлиент.ПараметрыОжидания(ЭтотОбъект);
    ПараметрыОжидания.ВыводитьПрогрессВыполнения = Истина;
        //ПараметрыОжидания.Интервал  = 3;
        //ПараметрыОжидания.ВыводитьОкноОжидания = Истина;
        //ПараметрыОжидания.ОповещениеОПрогрессеВыполнения
    
    ДлительныеОперацииКлиент.ОжидатьЗавершение(
        СтруктураФоновогоЗадания, 
        Новый ОписаниеОповещения("ОбработатьГашениеСДИЗППЗ", ЭтотОбъект, СписокДляГашения), 
        ПараметрыОжидания);