Отображение загрузки выбранного номера в календаре

Доброго дня! Пытаюсь вот вывести корректно загруженность номера в календарь, но столкнулась с проблемой неправильного отображения, подскажите пожалуйста, что я делаю не так?

&НаСервере
Функция ПолучитьСведенияОЗанятостиНомера()
     лТекст = "
        |ВЫБРАТЬ
        |    ПП_ЗагруженностьОстатки.Организация КАК Организация,
        |    ПП_ЗагруженностьОстатки.НомерПроживания КАК НомерПроживания,
        |    ПП_ЗагруженностьОстатки.КомнатаПроживания КАК КомнатаПроживания,
        |    ПП_ЗагруженностьОстатки.КойкаПроживания КАК КойкаПроживания,
        |    ПП_ЗагруженностьОстатки.День КАК День,
        |    ПП_ЗагруженностьОстатки.ВидЗанятостиНомера КАК ВидЗанятостиНомера,
        |    ПП_ЗагруженностьОстатки.СостояниеОстаток КАК СостояниеОстаток
        |ИЗ
        |    РегистрНакопления.ПП_Загруженность.Остатки(&ДТ, ) КАК ПП_ЗагруженностьОстатки
        |ГДЕ
        |    ПП_ЗагруженностьОстатки.НомерПроживания = &НомерПроживания
        |
        |УПОРЯДОЧИТЬ ПО
        |    Организация,
        |    НомерПроживания,
        |    КомнатаПроживания,
        |    КойкаПроживания,
        |    День,
        |    ВидЗанятостиНомера
        |";
    лЗапрос = Новый Запрос(лТекст);

    ДТ = Объект.Дата;
    НомерПроживания = Объект.НомерПроживания;
    лЗапрос.УстановитьПараметр("ДТ", ДТ);
    лЗапрос.УстановитьПараметр("НомерПроживания", НомерПроживания);

    ТЗ = лЗапрос.Выполнить().Выгрузить();
    ТЗ.Колонки.Добавить("ТекущееЗаселение");
    ТЗ.ЗаполнитьЗначения(ЛОЖЬ,"ТекущееЗаселение");

    КоличествоДней = (НачалоДня(Объект.ДатаОкончания) - НачалоДня(Объект.ДатаНачала)) / (60 * 60 * 24)+1;

    ТекДата = НачалоДня(Объект.ДатаНачала);
    Для Сч = 1 по КоличествоДней Цикл
        строкаТЗ = ТЗ.Найти(ТекДата,"День");
        Если строкаТЗ = Неопределено Тогда
            строкаТЗ = ТЗ.Добавить();
            строкаТЗ.Организация = Объект.Организация;
            строкаТЗ.номерПроживания = Объект.НомерПроживания;
            строкаТЗ.КомнатаПроживания = Объект.КомнатаПроживания;
            строкаТЗ.КойкаПроживания = Объект.КойкаПроживания;
            строкаТЗ.День    = ТекДата;
            строкаТЗ.ТекущееЗаселение = ИСТИНА;
        Иначе
            Если строкаТЗ.День>=Объект.ДатаНачала и строкаТЗ.День<=Объект.ДатаОкончания Тогда
                строкаТЗ.ТекущееЗаселение = ИСТИНА;
            КонецЕсли;
        КонецЕсли;
        ТекДата = ТекДата+60*60*24;
    КонецЦикла;
    ТЗ.ВыбратьСтроку("Посмотримс");
    Возврат ТЗ;
КонецФункции

&НаСервере
Процедура ПолучитьЗнвченияПеречислений(Бронь,Проживание)
    Бронь = Перечисления.ВидЗанятостиНомера.Бронь;
    Проживание = Перечисления.ВидЗанятостиНомера.Проживание;
Конецпроцедуры

&НаКлиенте
Процедура КалендарьПриВыводеПериода(Элемент, ОформлениеПериода)
    Перем Бронь,Проживание;
     загруженность = ПолучитьСведенияОЗанятостиНомера();
     ПолучитьЗнвченияПеречислений(Бронь,Проживание);
     Для каждого ТекДата Из ОформлениеПериода.Даты Цикл
         Для каждого стр из загруженность Цикл
             Если (ТекДата.Дата = стр.День) Тогда
                 Если стр.ТекущееЗаселение Тогда
                     ТекДата.ЦветФона = WebЦвета.ХакиТемный;
                 ИначеЕсли стр.ВидЗанятостиНомера = Проживание Тогда
                     ТекДата.ЦветФона = WebЦвета.НейтральноАквамариновый;
                 ИначеЕсли стр.ВидЗанятостиНомера = Бронь Тогда
                     ТекДата.ЦветФона = WebЦвета.Хаки;
                 КонецЕсли;
             КонецЕсли;
         КонецЦикла;
     КонецЦикла;
КонецПроцедуры