Структура подчиненности в не типовых документах

Добрый день, о великий форум! До сих пор мучаю гостиницу. Остался отчет загруженности НФ, который я так долго откладывала.

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


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

    ВыборкаНомер = РезультатЗапроса.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);

    Пока ВыборкаНомер.Следующий() Цикл
        // Вставить обработку выборки ВыборкаНомер
        ТочкаНомер = ДиаграммаГанта.УстановитьТочку(ВыборкаНомер.Номер);
        ВыборкаКомната = ВыборкаНомер.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);

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

            Запрос.УстановитьПараметр("КойкаПроживания", Справочники.Койки.ПустаяСсылка());
            Запрос.УстановитьПараметр("КомнатаПроживания",  Справочники.Комнаты.ПустаяСсылка());

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

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

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

            ТочкаКомната = ТочкаНомер.Точки.Добавить();
            ТочкаКомната.Значение = ВыборкаКомната.Комната;
            ТочкаКомната.Текст = ВыборкаКомната.Комната.Наименование;

            ВыборкаКойка = ВыборкаКомната.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);

            Пока ВыборкаКойка.Следующий() Цикл
                Запрос = Новый Запрос;
                Запрос.Текст =
                "ВЫБРАТЬ
                |    ЗагруженностьНФ.НомерПроживания КАК НомерПроживания,
                |    ЗагруженностьНФ.КомнатаПроживания КАК КомнатаПроживания,
                |    ЗагруженностьНФ.КойкаПроживания КАК КойкаПроживания,
                |    ЗагруженностьНФ.ДатаЗаселения КАК ДатаЗаселения,
                |    ЗагруженностьНФ.ДатаВыезда КАК ДатаВыезда
                |ИЗ
                |    РегистрСведений.ЗагруженностьНФ КАК ЗагруженностьНФ
                |ГДЕ
                |    ЗагруженностьНФ.КойкаПроживания = &КойкаПроживания
                |    И ЗагруженностьНФ.КомнатаПроживания <> &КомнатаПроживания";

                Запрос.УстановитьПараметр("КойкаПроживания", Справочники.Койки.ПустаяСсылка());
                Запрос.УстановитьПараметр("КомнатаПроживания",  Справочники.Комнаты.ПустаяСсылка());
                РезультатЗапроса = Запрос.Выполнить();

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

                Пока ВыборкаДетальныеЗаписи1.Следующий() Цикл
                    Если ТочкаНомер.Значение = ВыборкаДетальныеЗаписи1.НомерПроживания и ТочкаКомната.Значение = ВыборкаДетальныеЗаписи1.КомнатаПроживания Тогда
                        Значение1 = ДиаграммаГанта.ПолучитьЗначение(ТочкаНомер,Серия);
                        Интервал1 = Значение1.Добавить();
                        Интервал1.Начало = ВыборкаДетальныеЗаписи1.ДатаЗаселения;
                        Интервал1.Конец = ВыборкаДетальныеЗаписи1.ДатаВыезда;
                        Интервал1.Цвет = WebЦвета.Бирюзовый;

                        Значение2 = ДиаграммаГанта.ПолучитьЗначение(ТочкаКомната,Серия);
                        Интервал2 = Значение2.Добавить();
                        Интервал2.Начало = ВыборкаДетальныеЗаписи1.ДатаЗаселения;
                        Интервал2.Конец = ВыборкаДетальныеЗаписи1.ДатаВыезда;
                        Интервал2.Цвет = WebЦвета.ЦветМорскойВолны;

                    КонецЕсли;
                КонецЦикла;



                ТочкаКойка = ТочкаКомната.Точки.Добавить();
                ТочкаКойка.Значение = ВыборкаКойка.Койка;
                ТочкаКойка.Текст = ВыборкаКойка.Койка.Наименование;

                ВыборкаДетальныеЗаписи = ВыборкаКойка.Выбрать();

                Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
                    // Вставить обработку выборки ВыборкаДетальныеЗаписи
                    Если ВыборкаДетальныеЗаписи.ДатаЗаселения <> NULL и ВыборкаДетальныеЗаписи.ДатаВыезда <> NULL  Тогда
                        Значение1 = ДиаграммаГанта.ПолучитьЗначение(ТочкаНомер,Серия);
                        Интервал1 = Значение1.Добавить();
                        Интервал1.Начало = ВыборкаДетальныеЗаписи.ДатаЗаселения;
                        Интервал1.Конец = ВыборкаДетальныеЗаписи.ДатаВыезда;
                        Интервал1.Цвет = WebЦвета.БледноБирюзовый;

                        Значение2 = ДиаграммаГанта.ПолучитьЗначение(ТочкаКомната,Серия);
                        Интервал2 = Значение2.Добавить();
                        Интервал2.Начало = ВыборкаДетальныеЗаписи.ДатаЗаселения;
                        Интервал2.Конец = ВыборкаДетальныеЗаписи.ДатаВыезда;
                        Интервал2.Цвет = WebЦвета.Бирюзовый;

                        Значение3 = ДиаграммаГанта.ПолучитьЗначение(ТочкаКойка,Серия);
                        Интервал3 = Значение3.Добавить();
                        Интервал3.Начало = ВыборкаДетальныеЗаписи.ДатаЗаселения;
                        Интервал3.Конец = ВыборкаДетальныеЗаписи.ДатаВыезда;
                        Интервал3.Цвет = WebЦвета.ЦветМорскойВолны;
                    КонецЕсли;
                КонецЦикла;
            КонецЦикла;
        КонецЦикла;
    КонецЦикла;




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

&НаКлиенте
Процедура Посмотреть(Команда)
    ПосмотретьНаСервере(Отчет.ДГ);
КонецПроцедуры