Проблема с кодом

 &НаСервере  
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)  
    ЗаполнитьПланировщикНаСервере();  
    // Настроить планировщик.  
    Планировщик.ЕдиницаПериодическогоВарианта = ТипЕдиницыШкалыВремени.Час;  
    Планировщик.КратностьПериодическогоВарианта = 24;  
    Планировщик.ОтступСНачалаПереносаШкалыВремени = 8;  
    Планировщик.ОтступСКонцаПереносаШкалыВремени = 9;  
    Планировщик.ВыравниватьГраницыЭлементовПоШкалеВремени = Ложь;  
    Планировщик.ФорматПеренесенныхЗаголовковШкалыВремени = "ДФ='дддд, д ММММ гггг'";  
    Планировщик.ТекущиеПериодыОтображения.Очистить();  
    НачалоПериода = НачалоНедели(ТекущаяДата());  
    КонецПериода = КонецНедели(ТекущаяДата()) - 2 * 24 * 60 * 60;  
    Планировщик.ТекущиеПериодыОтображения.Добавить(НачалоПериода, КонецПериода);  
КонецПроцедуры  
 
&НаСервере  
Процедура ЗаполнитьПланировщикНаСервере()  
    Запрос = Новый Запрос;  
    Запрос.Текст = "ВЫБРАТЬ  
    | УчебныйДеньУроки.Ссылка.Дата КАК Дата,  
    | УчебныйДеньУроки.НомерСтроки КАК НомерУрока,  
    | УчебныйДеньУроки.Предмет.Представление КАК Предмет,  
    | УчебныйДеньУроки.Ссылка КАК УчебныйДень  
    |ИЗ  
    | Документ.УчебныйДень.Уроки КАК УчебныйДеньУроки  
    |  
    |УПОРЯДОЧИТЬ ПО  
    | Дата,  
    | НомерУрока";  
    РезультатЗапроса = Запрос.Выполнить();  
    Выборка = РезультатЗапроса.Выбрать();  
    Пока Выборка.Следующий() Цикл  
        ДатаНачала = НачалоДня(Выборка.Дата) + (Выборка.НомерУрока);  
        ДатаОкончания = НачалоДня(Выборка.Дата) + КонецУрока(Выборка.НомерУрока);  
        НовыйЭлемент = Планировщик.Элементы.Добавить(ДатаНачала, ДатаОкончания);  
        НовыйЭлемент.Текст = Выборка.Предмет;  
        НовыйЭлемент.Значение = Выборка.УчебныйДень;  
    КонецЦикла;  
КонецПроцедуры  
 
&НаСервере  
Функция КонецУрока(НомерУрока)  
    Если НомерУрока = 1 Тогда  
        Возврат 9 * 60 * 60 + 15 * 60; // 09:15  
    ИначеЕсли НомерУрока = 2 Тогда  
        Возврат 10 * 60 * 60 + 15 * 60; // 10:15  
    ИначеЕсли НомерУрока = 3 Тогда  
        Возврат 11 * 60 * 60 + 15 * 60; // 11:15  
    ИначеЕсли НомерУрока = 4 Тогда  
        Возврат 12 * 60 * 60 + 15 * 60; // 12:15  
    ИначеЕсли НомерУрока = 5 Тогда  
        Возврат 13 * 60 * 60 + 20 * 60; // 13:20  
    ИначеЕсли НомерУрока = 6 Тогда  
        Возврат 14 * 60 * 60 + 15 * 60; // 14:15  
    ИначеЕсли НомерУрока = 7 Тогда  
        Возврат 15 * 60 * 60 + 10 * 60; // 15:10  
    Иначе  
        Возврат 0;  
    КонецЕсли;  
КонецФункции  
 
&НаКлиенте  
Процедура ПланировщикПриВыбореЭлемента(Элемент, ВыбранныеЭлементы, СтандартнаяОбработка)  
    СтандартнаяОбработка = Ложь;  
    ПараметрыФормы = Новый Структура("Ключ", Элемент.ВыделенныеЭлементы[0].Значение);  
    ОткрытьФорму("Документ.УчебныйДень.ФормаОбъекта", ПараметрыФормы);  
КонецПроцедуры