Ошибка: Ожидается ключевое слово 'КонецПроцедуры'

[Sariel Kitsune]

Подскажите пожалуйста, я не понимаю!

Вроде все ; на месте количество Если и Циклов совпадает друг с другом. Я не понимаю откуда ошибка. Подскажите пожалуйста

Код Выделить Развернуть

&НаКлиенте
Процедура Расчет(Команда)
Для каждого Урок Из Объект.РасписаниеНаДень Цикл
Если Урок.Мероприятие.Пустая() и
ЗначениеЗаполнено(Урок.ВидУрока) Тогда
Урок.Мероприятие = СоздатьМероприятие(Урок.НомерСтроки-1)
КонецЕсли;
КонецЦикла;


Функция СоздатьМероприятие(ИндексСтроки)

ТС = Объект.РасписаниеНаДень[ИндексСтроки];
НовоеМероприятие = Документы.Мероприятие.СоздатьДокумент();
КодУрока = Число(ТС.НомерСтроки);
Урок = Справочники.ВремяУроков.НайтиПоКоду(КодУрока);
НовоеМероприятие = НачалоДня (Объект.Дата) + (Урок.ВремяНачала-'00010101');
НовоеМероприятие.Номер = "У" + "-" +ТС.НомерСтроки;
НовоеМероприятие.ТипМероприятия = Справочники.ТипМероприятия.Урок;
НовоеМероприятие.ВидМероприятий = ТС.ВидУрока;
НовоеМероприятие.Учитель = ТС.Учитель;
НовоеМероприятие.Записать();
Возврат НовоеМероприятие.Ссылка


КонецФункции


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

[MuI_I_Ika]

Функция не может находиться внутри процедуры. Она должна быть на верхнем уровне модуля.