Составление блок схемы

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

// Вызывается при нажатии на кнопку "Линейная схема"
процедура кнопкаВыполнитьНажатие(кнопка)
 // грСх - элемент типа ПолеГрафическойСхемы
 грСх = элементыФормы.грСх;
 сх = грСх.ПолучитьСхему();
 схЭгс = сх.ЭлементыГрафическойСхемы;
 лС = новый текстовыйДокумент;
 сз = новый списокЗначений;
 к = 0;
 // Формируем список значений из элементов схемы без соединительных линий
 пока к < схЭгс.Количество() цикл
  эгс = схЭгс[к];
  если не типЗнч(эгс) = тип("ЭлементГрафическойСхемыСоединительнаяЛиния") тогда
   сз.Добавить(эгс, эгс.подсказка);
  конецЕсли;
  к = к + 1;
 конецЦикла;
 сз.СортироватьПоПредставлению();
 сз.ВыбратьЭлемент("Сортировка по Подсказке");
 к = 0;
 вс = сз.Количество();
 пока к < вс цикл
  эгс = сз[к].значение;
  нмр = эгс.подсказка;
  к = к + 1;
  если типЗнч(эгс) = тип("ЭлементГрафическойСхемыУсловие") тогда
   лС.ДобавитьСтроку(нмр + символ(160) + "Если " + эгс.наименование + " Тогда");
   кД = к;
   кН = к;
   нмрД = нмр + "1";
   нмрН = нмр + "2";
   д = стрДлина(нмрН);
   смвл = "";
   для л = 1 по д цикл смвл = смвл + символ(160) конецЦикла;
   // Ветвь "Да"
   однаВетвь(кД, вс, нмрД, д, сз, лС, смвл);
   лС.ДобавитьСтроку(смвл + "Иначе");
   // Ветвь "Нет"
   однаВетвь(кН, вс, нмрН, д, сз, лС, смвл);
   лС.ДобавитьСтроку(смвл + "КонецЕсли");
   к = макс(кД, кН) - 1;
  иначе
   лС.ДобавитьСтроку(нмр + символ(160) + эгс.наименование + ".");
  конецЕсли;
 конецЦикла;
 лС.Показать("Линейная схема");
КонецПроцедуры
 
процедура однаВетвь(кДН, вс, нмрДН, д, сз, лС, смвл)
 пока кДН < вс цикл
  эгс = сз[кДН].значение;
  нмр = сз[кДН].представление;
  кДН = кДН + 1;
  // Обнаружено действие, следующее сразу после Ветвления
  если типЗнч(эгс) = тип("ЭлементГрафическойСхемыДействие") и эгс.групповая тогда прервать конецЕсли;
  если лев(нмр, д) = нмрДН тогда
   лС.ДобавитьСтроку(смвл + символ(160) + нмр + символ(160) + эгс.наименование + ".")
  конецЕсли;
 конецЦикла;
конецПроцедуры