8.х Помогите пожалуйста новечку побороть ошибку

При запуске выдает
{Справочник.Животные.МодульМенеджера(64,7)}: Ожидается ключевое слово 'КонецПроцедуры' ('EndProcedure')
<<?>>ИначеЕсли ИмяМакета = "ВетеринарныеМероприятия" Тогда (Проверка: Сервер)
Процедура Печать(ТабДок, Ссылка) Экспорт

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

ТабДок.Вывести(Шапка, Выборка.Уровень());

ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
//
ИначеЕсли ИмяМакета = "ВетеринарныеМероприятияа" Тогда
ТабДокумент = ВетеринарныеМероприятия(Истина);
//
КонецПроцедуры
Процедура ПолучитьСтруктуруПечатныхФорм(ТабДок, Ссылка) Экспорт
СтруктураМакетов.Вставить("ВетеринарныеМероприятия", "Ветеринарные Мероприятия");
КонецПроцедуры

Ожидается ключевое слово 'КонецПроцедуры' ('EndProcedure')
Вовсе не означает отсутствие завершения процедуры.

У Вас это связано с незавершенной (и вообще "повисшей в воздухе") конструкцией ИначеЕсли ИмяМакета = "ВетеринарныеМероприятияа" Тогда.

В приведенном коде все конструкции "Если ... Тогда ... КонецЕсли;" логически завершены, а отмеченная выше непонятно откуда взялась, открыта неправильно и не имеет завешения.

PS Если у Вас один макет, то уберите условие ИначеЕсли, если же хотите выбирать макет, то следовало бы записать примерно так:

Если ИмяМакета = Макет1 Тогда
.....
ИначеЕсли ИмяМакета = Макет2 Тогда
.....
ИначеЕсли ИмяМакета = Макет3 Тогда
.....
КонецЕсли;