Как исправить ошибки синтаксиса в 1С при использовании анонимных процедур?

[Odineski]

{АктивF Документ.РозничнаяПродажа.Форма.ФормаДокументаОбщая.Форма(24,45)}: Ожидается выражение
Новый ОписаниеПроцедуры(<<?>> (Проверка: Сервер)
{АктивF Документ.РозничнаяПродажа.Форма.ФормаДокументаОбщая.Форма(25,25)}: Ожидается ключевое слово ‘КонецЕсли’ (‘EndIf’)
<<?>>Процедура() (Проверка: Сервер)
{АктивF Документ.РозничнаяПродажа.Форма.ФормаДокументаОбщая.Форма(25,25)}: Ожидается ключевое слово ‘КонецЕсли’ (‘EndIf’)
<<?>>Процедура() (Проверка: Сервер)
{АктивF Документ.РозничнаяПродажа.Форма.ФормаДокументаОбщая.Форма(25,25)}: Ожидается ключевое слово ‘КонецЕсли’ (‘EndIf’)
<<?>>Процедура() (Проверка: Сервер)
{АктивF Документ.РозничнаяПродажа.Форма.ФормаДокументаОбщая.Форма(25,25)}: Ожидается ключевое слово ‘КонецПроцедуры’ (‘EndProcedure’)
<<?>>Процедура() (Проверка: Сервер)
{АктивF Документ.РозничнаяПродажа.Форма.ФормаДокументаОбщая.Форма(25,34)}: Ожидается имя процедуры
Процедура<<?>>() (Проверка: Сервер)
{АктивF Документ.РозничнаяПродажа.Форма.ФормаДокументаОбщая.Форма(28,82)}: Обнаружено логическое завершение исходного текста модуля
Элементы.Товары.РедактироватьЯчейку(ИндексСтроки, 0);<<?>> (Проверка: Сервер)
{АктивF Документ.РозничнаяПродажа.Форма.ФормаДокументаОбщая.Форма(24,45)}: Ожидается выражение
Новый ОписаниеПроцедуры(<<?>> (Проверка: Тонкий клиент)
{АктивF Документ.РозничнаяПродажа.Форма.ФормаДокументаОбщая.Форма(25,25)}: Ожидается ключевое слово ‘КонецЕсли’ (‘EndIf’)
<<?>>Процедура() (Проверка: Тонкий клиент)
{АктивF Документ.РозничнаяПродажа.Форма.ФормаДокументаОбщая.Форма(25,25)}: Ожидается ключевое слово ‘КонецЕсли’ (‘EndIf’)
<<?>>Процедура() (Проверка: Тонкий клиент)
{АктивF Документ.РозничнаяПродажа.Форма.ФормаДокументаОбщая.Форма(25,25)}: Ожидается ключевое слово ‘КонецЕсли’ (‘EndIf’)
<<?>>Процедура() (Проверка: Тонкий клиент)
{АктивF Документ.РозничнаяПродажа.Форма.ФормаДокументаОбщая.Форма(25,25)}: Ожидается ключевое слово ‘КонецПроцедуры’ (‘EndProcedure’)
<<?>>Процедура() (Проверка: Тонкий клиент)
{АктивF Документ.РозничнаяПродажа.Форма.ФормаДокументаОбщая.Форма(25,34)}: Ожидается имя процедуры
Процедура<<?>>() (Проверка: Тонкий клиент)
{АктивF Документ.РозничнаяПродажа.Форма.ФормаДокументаОбщая.Форма(28,82)}: Обнаружено логическое завершение исходного текста модуля
Элементы.Товары.РедактироватьЯчейку(ИндексСтроки, 0);<<?>> (Проверка: Тонкий клиент)

[Odin — Одинэсник]

Ошибка «Ожидается выражение» и «Ожидается ключевое слово ‘КонецЕсли'» указывает на синтаксическую ошибку в коде, чаще всего из-за неправильного использования Новый ОписаниеПроцедуры.

В 1С Новый ОписаниеПроцедуры требует в качестве параметра имя процедуры или анонимную процедуру, но анонимные процедуры в 1С пишутся так:

1С (Код)

Новый ОписаниеПроцедуры(Процедура() // тело процедуры КонецПроцедуры)

1 2 3

Новый ОписаниеПроцедуры(Процедура()     // тело процедуры КонецПроцедуры)

Обратите внимание, что Процедура() и КонецПроцедуры должны быть внутри скобок Новый ОписаниеПроцедуры(...).

В вашем коде, скорее всего, пропущена скобка или неверно оформлен блок.

Правильный пример с отложенным выполнением:

1С (Код)

ОтложитьВыполнение( Новый ОписаниеПроцедуры( Процедура() Элементы.Товары.УстановитьФокус(); Элементы.Товары.ТекущаяСтрока = ИндексСтроки; Элементы.Товары.РедактироватьЯчейку(ИндексСтроки, 0); КонецПроцедуры ) );

1 2 3 4 5 6 7 8 9

ОтложитьВыполнение(     Новый ОписаниеПроцедуры(         Процедура()             Элементы.Товары.УстановитьФокус();             Элементы.Товары.ТекущаяСтрока = ИндексСтроки;             Элементы.Товары.РедактироватьЯчейку(ИндексСтроки, 0);         КонецПроцедуры     ) );

Если у вас ошибка, значит, в вашем коде где-то:

— Лишний или отсутствующий символ ( или )
— Неправильное расположение Процедура() и КонецПроцедуры
— Возможно, вы вставили код в модуль, где нельзя использовать анонимные процедуры (например, в серверном модуле)

—

Проверьте, что:

1. Процедура с ОтложитьВыполнение находится в клиентском модуле (форма, общий модуль с пометкой &НаКлиенте).

2. Код выглядит именно так (пример):

1С (Код)

&НаКлиенте Процедура VDP_Подключаемый_ПослеОбработкиШтрихкодов(РезультатОбработкиШтрихкода, ДополнительныеПараметры) Экспорт Если РезультатОбработкиШтрихкода.ТребуетсяОбработкаШтрихкода Тогда // Вызов основной обработки ШтрихкодированиеИСКлиентПереопределяемый.ПослеОбработкиШтрихкодов( ЭтотОбъект, ДанныеДляОбработки, КэшированныеЗначения); Если РезультатОбработкиШтрихкода.ДобавленныеСтроки <> Неопределено И РезультатОбработкиШтрихкода.ДобавленныеСтроки.Количество() > 0 Тогда ПоследняяСтрока = РезультатОбработкиШтрихкода.ДобавленныеСтроки[РезультатОбработкиШтрихкода.ДобавленныеСтроки.Количество() - 1]; ИндексСтроки = Элементы.Товары.Объект.НайтиПоИдентификатору(ПоследняяСтрока); Если ИндексСтроки <> Неопределено Тогда ОтложитьВыполнение( Новый ОписаниеПроцедуры( Процедура() Элементы.Товары.УстановитьФокус(); Элементы.Товары.ТекущаяСтрока = ИндексСтроки; Элементы.Товары.РедактироватьЯчейку(ИндексСтроки, 0); КонецПроцедуры ) ); КонецЕсли; КонецЕсли; КонецЕсли; КонецПроцедуры

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

&НаКлиенте Процедура VDP_Подключаемый_ПослеОбработкиШтрихкодов(РезультатОбработкиШтрихкода, ДополнительныеПараметры) Экспорт       Если РезультатОбработкиШтрихкода.ТребуетсяОбработкаШтрихкода Тогда           // Вызов основной обработки         ШтрихкодированиеИСКлиентПереопределяемый.ПослеОбработкиШтрихкодов(             ЭтотОбъект,             ДанныеДляОбработки,             КэшированныеЗначения);           Если РезультатОбработкиШтрихкода.ДобавленныеСтроки <> Неопределено И РезультатОбработкиШтрихкода.ДобавленныеСтроки.Количество() > 0 Тогда               ПоследняяСтрока = РезультатОбработкиШтрихкода.ДобавленныеСтроки[РезультатОбработкиШтрихкода.ДобавленныеСтроки.Количество() - 1];               ИндексСтроки = Элементы.Товары.Объект.НайтиПоИдентификатору(ПоследняяСтрока);               Если ИндексСтроки <> Неопределено Тогда                   ОтложитьВыполнение(                     Новый ОписаниеПроцедуры(                         Процедура()                             Элементы.Товары.УстановитьФокус();                             Элементы.Товары.ТекущаяСтрока = ИндексСтроки;                             Элементы.Товары.РедактироватьЯчейку(ИндексСтроки, 0);                         КонецПроцедуры                     )                 );               КонецЕсли;           КонецЕсли;       КонецЕсли;   КонецПроцедуры

3. Если ошибка сохраняется, попробуйте временно заменить ОтложитьВыполнение на простой вызов, чтобы проверить синтаксис:

1С (Код)

Элементы.Товары.УстановитьФокус(); Элементы.Товары.ТекущаяСтрока = ИндексСтроки; Элементы.Товары.РедактироватьЯчейку(ИндексСтроки, 0);

1 2 3

Элементы.Товары.УстановитьФокус(); Элементы.Товары.ТекущаяСтрока = ИндексСтроки; Элементы.Товары.РедактироватьЯчейку(ИндексСтроки, 0);

Если с этим всё нормально, значит проблема именно в оформлении Новый ОписаниеПроцедуры.

—

Если хотите, могу проверить ваш конкретный код — пришлите точный фрагмент с ОтложитьВыполнение.

[Автор]

Сообщения