Добрый день. Подскажите, пожалуйста, в чем ошибка? Ругается на #Вставку #КонецВставки, и #Удаление #КонецУдаления. Ошибка "{ot РегистрСведений.ПриглашенияНаКурсы.Форма.ОтправкаПриглашенийПоПочте.Форма(18,4)}: Ожидается оператор препроцессора
#<<?>>Удаление (Проверка: Сервер)
{ot РегистрСведений.ПриглашенияНаКурсы.Форма.ОтправкаПриглашенийПоПочте.Форма(25,4)}: Ожидается оператор препроцессора
#<<?>>КонецУдаления (Проверка: Сервер)
{ot РегистрСведений.ПриглашенияНаКурсы.Форма.ОтправкаПриглашенийПоПочте.Форма(27,4)}: Ожидается оператор препроцессора
#<<?>>Вставка (Проверка: Сервер)
{ot РегистрСведений.ПриглашенияНаКурсы.Форма.ОтправкаПриглашенийПоПочте.Форма(35,4)}: Ожидается оператор препроцессора
#<<?>>КонецВставки (Проверка: Сервер)"
&ИзменениеИКонтроль("ОтправитьПочтуНаСервере")
&НаСервере
Функция расш_ОтправитьПочтуНаСервере()
Если РаботаСПочтовымиСообщениями.УчетнаяЗаписьНастроена(УчетнаяЗаписьЭлектроннойПочты, Истина, Ложь) = Ложь Тогда
ОбщегоНазначения.СообщитьПользователю(НСтр("ru = 'Указанная учетная запись электронной почты не настроена для отправки'; en = 'The specified email account is not configured for sending'"));
Возврат Новый Массив;
КонецЕсли;
ИдентификаторыОтправленныхПриглашений = Новый Массив;
Для Каждого ТекСтрока Из ТаблицаОтправки Цикл
Если ТекСтрока.Отправлено ИЛИ НЕ ЗначениеЗаполнено(ТекСтрока.АдресЭлектроннойПочты) Тогда
Продолжить;
КонецЕсли;
#Удаление
// Заполнение текста письма
ТекстПисьма = СокрЛП(ШаблонТекстаПисьма);
ТекстПисьма = СтрЗаменить(ТекстПисьма, "[ФИО]", ТекСтрока.ФизЛицо);
ТекстПисьма = СтрЗаменить(ТекстПисьма, "[Организация]", ТекСтрока.НаименованиеОрганизации);
ТекстПисьма = СтрЗаменить(ТекстПисьма, "[Курс]", ТекСтрока.Курс);
ТекстПисьма = СтрЗаменить(ТекстПисьма, "[Ссылка]", ТекСтрока.СсылкаНаКурс);
#КонецУдаления
#Вставка
// Заполнение текста письма
ТекстПисьма = СокрЛП(ШаблонТекстаПисьма);
ТекстПисьма = СтрЗаменить(ТекстПисьма, "[ФИО]", ТекСтрока.ФизЛицо);
ТекстПисьма = СтрЗаменить(ТекстПисьма, "[Организация]", ТекСтрока.НаименованиеОрганизации);
ТекстПисьма = СтрЗаменить(ТекстПисьма, "[Курс]", ТекСтрока.Курс);
ТекстПисьма = СтрЗаменить(ТекстПисьма, "[Ссылка]", ТекСтрока.СсылкаНаКурс);
ТекстПисьма = ТекстПисьма + "это тестирование";
#КонецВставки
Показать
Версия платформы 1С:Предприятие 8.3 (8.3.14.2095).