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

//Процедура КонтрагентПриИзменении(Элемент)

//     Если Не КонтактноеЛицо.Пустая()Тогда

//         Если Контрагент<>КонтактноеЛицо.Владелец Тогда

//              КонтактноеЛицо=Справочники.КонтактныеЛица.ПустаяСсылка();

//         КонецЕсли;

//     КонецЕсли;

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

//Процедура ТоварыСуммаПриИзменении(Элемент)

//     //расчет суммы строки табличной части

//    СтрочкаТЧ=ЭлементыФормы.Товары.ТекущиеДанные;

//    СтрочкаТЧ.Сумма=СтрочкаТЧ.Цена*СтрочкаТЧ.Количество.

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

Процедура ТоварыНоменклатураПриИзменении(Элемент)

   СтрочкаТЧ=ЭлементыФормы.Товары.ТекущиеДанные;

   СтрочкаТЧ.Цена=СтрочкаТЧ.Номенклатура.ЦенаПокупки;

   Товары.КоличествоПриИзменении(Элемент);

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

Процедура Печать(Элемент)

   //{{_КОНСТРУКТОР_ПЕЧАТИ_ЭЛЕМЕНТ(Печать)

   // Данный фрагмент построен конструктором.

   // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

   ТабДок = Новый ТабличныйДокумент;

   Макет = Документы.Приходная.ПолучитьМакет(«Печать»);

   // Заголовок

   Область = Макет.ПолучитьОбласть(«Заголовок»);

   ТабДок.Вывести(Область);

   ТабДок.ОтображатьСетку = Ложь;

   ТабДок.Защита = Ложь;

   ТабДок.ТолькоПросмотр = Ложь;

   ТабДок.ОтображатьЗаголовки = Ложь;

   ТабДок.Показать();

   //}}_КОНСТРУКТОР_ПЕЧАТИ_ЭЛЕМЕНТ

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

Процедура ОткрытьИсториюНажатие(Элемент)

   ФормаСР=РегистрыСведений.Валюты.ПолучитьФормуСписка(,ЭтаФорма,»Док»+Номер);

   ФормаСР.РегистрСведенийСписок.Отбор.Валюта.Значение=Валюта;

   ФормаСР.РегистрСведенийСписок.Отбор.Валюта.Использование=Истина;

   ФормаСР.ЗакрыватьПриЗакрытииВладельца=Истина;

   Если Не ФормаСР.Открыта() Тогда

       ФормаСР.РазрешитьСостояниеПрячущееся=Истина;

       ФормаСР.РазрешитьСостояниеПрикрепленное=Истина;

       ФормаСР.РазрешитьСоединятьОкно=Истина;

   КонецЕсли;

   ФормаСР.Открыть();

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

//НЕПОНЯТНО:

//Необходимо определить как обработчик события  «ПриИзмененении»

//для элемента диалога, связанного с реквизитом диалога «Валюта»

Процедура ВалютаПриИзменении(Элемент)

   Отбор=Новый Структура(«Валюта»,Валюта);

   Запись=РегистрыСведений.Валюты.ПолучитьПоследнее(Дата.Отбор);

   Курс=Запись.Курс;

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

Такой вот модуль. Если одну из первых процедур активировать, то ругается(

Если Остат = 0 Тогда
Сообщить(...

Обучение наступательной кибербезопасности в игровой форме. Начать игру!

Здравствуйте уважаемые,возник вопрос по ошибке в процедуре,изучаю программирование по книге Радченко «Практическое пособие разработчика.Примеры и типовые приемы» и делал все по примеру как написано в книге и тут бац,в коде пока не разбираюсь достаточно чтобы понять причину ошибки сам.Текст ошибки и сама процедура ниже,помогите пожалуйста понять причину ошибок.
{Документ.ОказаниеУслуги.МодульОбъекта(30,3)}: Ожидается ключевое слово ‘КонецПроцедуры’ (‘EndProcedure’)
      <<?>>|   ОказаниеУслугиПереченьНоменклатуры.НаборСвойств»; (Проверка: Сервер)
{Документ.ОказаниеУслуги.МодульОбъекта(34,38)}: Ошибка в выражении
   РезультатЗапроса = Запрос.Выполнить(<<?>>); (Проверка: Сервер)
{Документ.ОказаниеУслуги.МодульОбъекта(151,1)}: Неопознанный оператор
<<?>>» из набора свойств «»» + ВыборкаДетальныеЗаписи.НаборСвойств + «»»»; (Проверка: Сервер)
{Документ.ОказаниеУслуги.МодульОбъекта(154,1)}: Ожидается ключевое слово ‘КонецЕсли’ (‘EndIf’)
<<?>>КонецЦикла; (Проверка: Сервер)
{Документ.ОказаниеУслуги.МодульОбъекта(154,12)}: Обнаружено логическое завершение исходного текста модуля
КонецЦикла;<<?>> (Проверка: Сервер)

Процедура ОбработкаПроведения(Отказ, Режим)

      Движения.ОстаткиМатериалов.Записывать = Истина;
   Движения.СтоимостьМатериалов.Записывать = Истина;
   Движения.Продажи.Записывать = Истина;   

        // Создать менеджер временных таблиц
     МенеджерВТ = Новый МенеджерВременныхТаблиц;
   #Область НоменклатураДокумента
   Запрос = Новый Запрос;
   // Укажем, какой менеджер временных таблиц использует этот запрос
    Запрос.МенеджерВременныхТаблиц = МенеджерВТ;
   Запрос.Текст =
      «ВЫБРАТЬ
      |   ОказаниеУслугиПереченьНоменклатуры.Номенклатура,
      |   ОказаниеУслугиПереченьНоменклатуры.Номенклатура.ВидНоменклатуры КАК ВидНоменклатуры,
      |   ОказаниеУслугиПереченьНоменклатуры.НаборСвойств,
      |   СУММА(ОказаниеУслугиПереченьНоменклатуры.Количество) КАК КоличествоВДокументе,
      |   СУММА(ОказаниеУслугиПереченьНоменклатуры.Сумма) КАК СуммаВДокументе
      |ПОМЕСТИТЬ НоменклатураДокумента
      |ИЗ
      |   Документ.ОказаниеУслуги.ПереченьНоменклатуры КАК ОказаниеУслугиПереченьНоменклатуры
      |ГДЕ
      |   ОказаниеУслугиПереченьНоменклатуры.Ссылка = &Ссылка
      |
      |СГРУППИРОВАТЬ ПО
      |   ОказаниеУслугиПереченьНоменклатуры.Номенклатура,
      |   ОказаниеУслугиПереченьНоменклатуры.Номенклатура.ВидНоменклатуры»;
      |   ОказаниеУслугиПереченьНоменклатуры.НаборСвойств»;

      Запрос.УстановитьПараметр(«Ссылка», Ссылка);

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

    #Область ДвиженияДокумента
     Запрос2 = Новый Запрос;
     Запрос2.МенеджерВременныхТаблиц = МенеджерВТ;
     Запрос2.Текст = «ВЫБРАТЬ
                     |   НоменклатураДокумента.Номенклатура,
                     |   НоменклатураДокумента.ВидНоменклатуры,
                 | НоменклатураДокумента.НаборСвойств,
                     |   НоменклатураДокумента.КоличествоВДокументе,
                     |   НоменклатураДокумента.СуммаВДокументе,
                     |   ЕСТЬNULL(СтоимостьМатериаловОстатки.СтоимостьОстаток, 0) КАК Стоимость,
                     |   ЕСТЬNULL(ОстаткиМатериаловОстатки.КоличествоОстаток, 0) КАК Количество
                     |ИЗ
                     |   НоменклатураДокумента КАК НоменклатураДокумента
                     |      ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.СтоимостьМатериалов.Остатки(
                     |            ,
                     |            Материал В
                     |               (ВЫБРАТЬ
                     |                  НоменклатураДокумента.Номенклатура
                     |               ИЗ
                     |                  НоменклатураДокумента)) КАК СтоимостьМатериаловОстатки
                     |      ПО НоменклатураДокумента.Номенклатура = СтоимостьМатериаловОстатки.Материал
                     |      ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ОстаткиМатериалов.Остатки(
                     |            ,
                     |            Материал В
                     |               (ВЫБРАТЬ
                     |                  НоменклатураДокумента.Номенклатура
                     |               ИЗ
                     |                  НоменклатураДокумента)) КАК ОстаткиМатериаловОстатки
                     |      ПО НоменклатураДокумента.Номенклатура = ОстаткиМатериаловОстатки.Материал»;

                    // Установим необходимость блокировки данных в регистрах СтоимостьМатериалов
   // и ОстаткиМатериалов
      Движения.СтоимостьМатериалов.БлокироватьДляИзменения = Истина;
      Движения.ОстаткиМатериалов.БлокироватьДляИзменения = Истина;

                    // Запишем пустые наборы записей, чтобы читать остатки без учета данных в документе
      Движения.СтоимостьМатериалов.Записать();
      Движения.ОстаткиМатериалов.Записать();

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

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

      Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
Если ВыборкаДетальныеЗаписи.Количество = 0 Тогда
СтоимостьМатериала = 0;
Иначе
СтоимостьМатериала =
ВыборкаДетальныеЗаписи.Стоимость / ВыборкаДетальныеЗаписи.Количество;
КонецЕсли;
   Если ВыборкаДетальныеЗаписи.ВидНоменклатуры =
Перечисления.ВидыНоменклатуры.Материал Тогда
   // Регистр ОстаткиМатериалов Расход
      Движение = Движения.ОстаткиМатериалов.Добавить();
      Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
      Движение.Период = Дата;
      Движение.Материал = ВыборкаДетальныеЗаписи.Номенклатура;
      Движение.НаборСвойств = ВыборкаДетальныеЗаписи.НаборСвойств;
      Движение.Склад = Склад;
      Движение.Количество = ВыборкаДетальныеЗаписи.КоличествоВДокументе;
   // регистр СтоимостьМатериалов Расход
      Движение = Движения.СтоимостьМатериалов.Добавить();
      Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
      Движение.Период = Дата;
      Движение.Материал = ВыборкаДетальныеЗаписи.Номенклатура;
      Движение.Стоимость = ВыборкаДетальныеЗаписи.КоличествоВДокументе *
      СтоимостьМатериала;   
КонецЕсли;
// Регистр Продажи
Движение = Движения.Продажи.Добавить();
Движение.Период = Дата;
Движение.Номенклатура = ВыборкаДетальныеЗаписи.Номенклатура;
Движение.Клиент = Клиент;
Движение.Мастер = Мастер;
Движение.Количество = ВыборкаДетальныеЗаписи.КоличествоВДокументе;
Движение.Выручка = ВыборкаДетальныеЗаписи.СуммаВДокументе;
Движение.Стоимость = СтоимостьМатериала *
ВыборкаДетальныеЗаписи.КоличествоВДокументе;

      КонецЦикла;
Движения.Записать();
#КонецОбласти

#Область КонтрольОстатков
Если Режим = РежимПроведенияДокумента.Оперативный Тогда
// Проверить отрицательные остатки

Запрос3 = Новый Запрос;
Запрос3.МенеджерВременныхТаблиц = МенеджерВТ;
Запрос3.Текст = «ВЫБРАТЬ
                |   ОстаткиМатериаловОстатки.Материал,
            |   ОстаткиМатериаловОстатки.НаборСвойств,
                |   ОстаткиМатериаловОстатки.КоличествоОстаток
                |ИЗ
                |   РегистрНакопления.ОстаткиМатериалов.Остатки(
                |         ,(Материал, НаборСвойств)
                |          В
                |               (ВЫБРАТЬ
                |                  НоменклатураДокумента.Номенклатура,
            |                       НоменклатураДокумента.НаборСвойств
                |               ИЗ
                |                  НоменклатураДокумента)
                |            И Склад = &Склад) КАК ОстаткиМатериаловОстатки
                |ГДЕ
                |   ОстаткиМатериаловОстатки.КоличествоОстаток < 0″;

            Запрос3.УстановитьПараметр(«Склад», Склад);
РезультатЗапроса = Запрос3.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
Сообщение = Новый СообщениеПользователю();
Сообщение.Текст = «Не хватает » + Строка(- ВыборкаДетальныеЗаписи.КоличествоОстаток) +
» единиц материала «»» + ВыборкаДетальныеЗаписи.Материал + «»»»;
» из набора свойств «»» + ВыборкаДетальныеЗаписи.НаборСвойств + «»»»;
Сообщение.Сообщить();
Отказ = Истина;
КонецЦикла;

КонецЕсли;
#КонецОбласти

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