Запрос не выполняется в модуле внешнего отчета, в консоли выполняется

Функция ОтпускБольничныйИзРегистраСостояний(Сотр = неопределено,ВыборкаРабочий,ВыборкаПредпраздничный, СуммаОтп=0)
    
    ЗапросБольничныйСрезПоследних = Новый Запрос();
    //МенВремТаблиц = Новый МенеджерВременныхТаблиц;
    //ЗапросБольничныйСрезПоследних.МенеджерВременныхТаблиц = МенВремТаблиц;
    ЗапросБольничныйСрезПоследних.Текст = "ВЫБРАТЬ
                                          |    СостояниеРаботниковОрганизацийСрезПоследних.Сотрудник КАК Сотрудник,
                                          |    СостояниеРаботниковОрганизацийСрезПоследних.Состояние КАК Состояние,
                                          |    СостояниеРаботниковОрганизацийСрезПоследних.Период КАК Период,
                                          |    СостояниеРаботниковОрганизацийСрезПоследних.ПериодЗавершения КАК ПериодЗавершения
                                          |ИЗ
                                          |    РегистрСведений.СостояниеРаботниковОрганизаций.СрезПоследних(&дата, ) КАК СостояниеРаботниковОрганизацийСрезПоследних
                                          |ГДЕ
                                          |    СостояниеРаботниковОрганизацийСрезПоследних.Сотрудник.ВидЗанятости = &ВидЗанятости
                                          |    И СостояниеРаботниковОрганизацийСрезПоследних.Сотрудник = &сотруд
                                          |
                                          |УПОРЯДОЧИТЬ ПО
                                          |    Период";
    ЗапросБольничныйСрезПоследних.УстановитьПараметр("ВидЗанятости", Перечисления.ВидыЗанятостиВОрганизации.ОсновноеМестоРаботы);
    ЗапросБольничныйСрезПоследних.УстановитьПараметр("дата", НачПериода);
    ЗапросБольничныйСрезПоследних.УстановитьПараметр("сотруд", Сотр);
    РезультатЗапросаБольн = ЗапросБольничныйСрезПоследних.Выполнить().Выбрать();
    //Если РезультатЗапросаБольн.Пустой() Тогда
    //    //Предупреждение("Нет данных в запросе больничные.");
    //    Сообщить("Нет данных в запросе больничные.");
    //    //Возврат("Нет данных в запросе больничные.");
    //КонецЕсли;
    //ВыборкаБольн1 = РезультатЗапросаБольн.Выбрать();
    //ПолучитьЗапрос();
    БольничныйНаНачПериода = 0;
    квоДней = 0;
    Пока РезультатЗапросаБольн.Следующий() Цикл
        Если РезультатЗапросаБольн.Состояние = Перечисления.СостоянияРаботникаОрганизации.Работает Тогда
        ИначеЕсли РезультатЗапросаБольн.Состояние = Перечисления.СостоянияРаботникаОрганизации.Заболевание ИЛИ
            РезультатЗапросаБольн.Состояние = Перечисления.СостоянияРаботникаОрганизации.ПоУходуЗаРебенком Тогда  
            БольничныйНаНачПериода = 1;
        КонецЕсли;
    КонецЦикла;
//****************************************************************************************
    ЗапросСостояние = Новый Запрос();
    ЗапросСостояние.Текст = "ВЫБРАТЬ
                            |    СостояниеРаботниковОрганизаций.Сотрудник КАК Сотрудник,
                            |    СостояниеРаботниковОрганизаций.Состояние КАК Состояние,
                            |    СостояниеРаботниковОрганизаций.Период КАК Период,
                            |    СостояниеРаботниковОрганизаций.ПериодЗавершения
                            |ИЗ
                            |    РегистрСведений.СостояниеРаботниковОрганизаций КАК СостояниеРаботниковОрганизаций
                            |ГДЕ
                            |    СостояниеРаботниковОрганизаций.Период >= &НачПериода
                            |    И СостояниеРаботниковОрганизаций.Период <= &КонПериода
                            |    И СостояниеРаботниковОрганизаций.Сотрудник.ВидЗанятости = &осн
                            |    И СостояниеРаботниковОрганизаций.Сотрудник = &сотрудник
                            |
                            |УПОРЯДОЧИТЬ ПО
                            |    Сотрудник,
                            |    Период";

    ЗапросСостояние.УстановитьПараметр("КонПериода", КонецДня(КонПериода));
    ЗапросСостояние.УстановитьПараметр("НачПериода", НачалоДня(НачПериода));
    ЗапросСостояние.УстановитьПараметр("осн", Перечисления.ВидыЗанятостиВОрганизации.ОсновноеМестоРаботы);
    ЗапросСостояние.УстановитьПараметр("сотрудник", Сотр);
    Состояние = ЗапросСостояние.Выполнить().Выбрать();      //РезультатЗапроса
    //Состояние = РезультатЗапросаСостояние.Выбрать();
//****************************************************************************************
    
    ДатНачЗаболевания = '00010101';
    Пока Состояние.Следующий() Цикл
        Если Состояние.Состояние = Перечисления.СостоянияРаботникаОрганизации.Работает  Тогда
            Если  БольничныйНаНачПериода = 1 Тогда
                квоДней=(НачалоДня(Состояние.Период)-НачалоДня(НачПериода))/86400;   //(60*60*24+1)   НачалоДня(ВыборкаБольн1.Период)
                ДатНач = НачалоДня(НачПериода);    //НачалоДня(ВыборкаБольн1.Период);
                ДатКон = НачалоДня(Состояние.Период);
            Иначе
                квоДней=(НачалоДня(Состояние.Период)-НачалоДня(ДатНачЗаболевания))/86400;   //(60*60*24+1)   НачалоДня(ВыборкаБольн1.Период)
                ДатНач = НачалоДня(ДатНачЗаболевания);
                ДатКон = НачалоДня(Состояние.Период);
                ДатНачЗаболевания = '00010101';
            КонецЕсли;
        ИначеЕсли Состояние.Состояние = Перечисления.СостоянияРаботникаОрганизации.Заболевание ИЛИ
                    РезультатЗапросаБольн.Состояние = Перечисления.СостоянияРаботникаОрганизации.ПоУходуЗаРебенком Тогда
            ДатНачЗаболевания = Состояние.Период;
        КонецЕсли;
        Если Состояние.Состояние = Перечисления.СостоянияРаботникаОрганизации.ОтпускЕжегодный ИЛИ
            Состояние.Состояние = Перечисления.СостоянияРаботникаОрганизации.ОтпускУчебный ИЛИ
            Состояние.Состояние = Перечисления.СостоянияРаботникаОрганизации.ОтпускПоБеременностиИРодам  Тогда
            Если  НачалоДня(Состояние.ПериодЗавершения) >= НачалоДня(КонПериода) Тогда
                квоДней = (НачалоДня(КонПериода) - НачалоДня(Состояние.Период))/86400;
                ДатКон = НачалоДня(КонПериода);
            Иначе    
                квоДней=(НачалоДня(Состояние.ПериодЗавершения)-НачалоДня(Состояние.Период))/86400;  //(60*60*24+1)
                ДатКон = КонецДня(Состояние.ПериодЗавершения);
            КонецЕсли;
            ДатНач = НачалоДня(Состояние.Период);
        КонецЕсли;    
    КонецЦикла;
    Если ДатНачЗаболевания <> '00010101' Тогда
        квоДней = (НачалоДня(КонПериода) - НачалоДня(ДатНачЗаболевания))/86400;
        ДатНач = НачалоДня(ДатНачЗаболевания);
        
    КонецЕсли;    
    Для Сч=0 По квоДней Цикл
        
         ДатаВЦикле = ДатНач + 86400 * Сч;
        //ДатаВЦикле = Дата(ДатаВЦикле);
        Если ВыборкаРабочий.Количество() <> 0   Тогда
            Для Индекс = 0 по ВыборкаРабочий.ВГраница() Цикл
                Если Формат(ВыборкаРабочий.Получить(Индекс),"ДЛФ=Д") = Формат(ДатаВЦикле,"ДЛФ=Д") Тогда
                    СуммаОтп = СуммаОтп + 8;
                    прервать;
                КонецЕсли;    
            КонецЦикла;
            Для Индекс = 0 по ВыборкаПредпраздничный.ВГраница() Цикл
                Если Формат(ВыборкаПредпраздничный.Получить(Индекс),"ДЛФ=Д") = Формат(ДатаВЦикле,"ДЛФ=Д") Тогда
                    СуммаОтп = СуммаОтп + 7;
                    прервать;
                КонецЕсли;    
            КонецЦикла;
        Иначе
        КонецЕсли;
        
    КонецЦикла;
    Возврат СуммаОтп;
    
    
КонецФункции