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

&НаКлиенте
Процедура ПосчитатьНа(Команда)
    ПоказатьОповещениеПользователя(ПосчитатьНаСервере());
КонецПроцедуры


&НаСервереБезКонтекста
Функция ПосчитатьНаСервере()

КоличествоНа=0;
ВыборкаИзСправочника=Справочники.Номенклатура.Выбрать();
Пока ВыборкаИзСправочника.Следующий() Цикл
Переменная1=ВыборкаИзСправочника.Наименование;
Если ВРег(Лев(Переменная1,1))="А"
    Тогда
КоличествоНаА=КоличествоНаА+1;
Возврат(КоличествоНаА);
    
КонецЕсли
КонецЦикла
КонецФункции


&НаКлиенте
Процедура ПеренестиВПредопределеннуюГруппу(Команда)
ПеренестиВПредопределеннуюГруппуНаСервере();
КонецПроцедуры


&НаСервереБезКонтекста
Процедура ПеренестиВПредопределеннуюГруппуНаСервере()
КудаПеренести=Справочники.Номенклатура.ПрочиеТовары;
Выборка=Справочники.Номенклатура.Выбрать();
Пока Выборка.Следующий() Цикл
    Если Не Выборка.Ссылка=КудаПеренести Тогда ПолученныйОбъект=Выборка.ПолучитьОбъект();
        ПолученныйОбъект.Родитель=КудаПеренести;
        ПолученныйОбъект.Записать();

КонецЕсли;

КонецЦикла
КонецФункции
КонецПроцедуры


&НаСервере
Процедура ВыдатьСписокНаСервере()

Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
|    КонтактныеЛица.Владелец

|ИЗ

|    Справочник.КонтактныеЛица КАК КонтактныеЛица
|ГДЕ
| КонтактныеЛица.Ссылка = &КЛ";

Запрос.УстановитьПараметр("КЛ", КЛ);
РезультатЗапроса = Запрос.Выполнить;
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

Пока ВыборкаДетальныеЗаписи.Следующий()
    Цикл Сообщение=Новый СообщениеПользователю;
    Сообщение.Текст=
    
    ВыборкаДетальныеЗаписи.Наименование+":"+ ВыборкаДетальныеЗаписи.Номенклатура.ЦенаПродажи;
Сообщение.Сообщить();

КонецЦикла
КонецФункции
КонецПроцедуры


&НаКлиенте
Процедура ВыдатьСписок(Команда)
ВыдатьСписокНаСервере();
КонецПроцедуры



____________________________________________________________________________________________________________________________




{Справочник.Номенклатура.Форма.ФормаЭлемента.Форма(42,1)}: Ожидается ключевое слово 'КонецПроцедуры' ('EndProcedure')
<<?>>КонецФункции (Проверка: Сервер)
{Справочник.Номенклатура.Форма.ФормаЭлемента.Форма(72,1)}: Ожидается ключевое слово 'КонецПроцедуры' ('EndProcedure')
<<?>>КонецФункции (Проверка: Сервер)
{Справочник.Номенклатура.Форма.ФормаЭлемента.Форма(42,1)}: Ожидается ключевое слово 'КонецПроцедуры' ('EndProcedure')
<<?>>КонецФункции (Проверка: Сервер)
{Справочник.Номенклатура.Форма.ФормаЭлемента.Форма(42,1)}: Ожидается ключевое слово 'КонецПроцедуры' ('EndProcedure')
<<?>>КонецФункции (Проверка: Тонкий клиент)
{Справочник.Номенклатура.Форма.ФормаЭлемента.Форма(72,1)}: Ожидается ключевое слово 'КонецПроцедуры' ('EndProcedure')
<<?>>КонецФункции (Проверка: Тонкий клиент)