Вопрос по ошибкам в внешней печатной форме

1. VKuser276384143 27.08.18 17:24 Сейчас в теме
Помогите убрать ошибки в коде внешней печатной формы
Функция СведенияОВнешнейОбработке() Экспорт
	
	ПараметрыРегистрации = ДополнительныеОтчетыИОбработки.СведенияОВнешнейОбработке("2.1.3.1");
	
	ПараметрыРегистрации.Вид = ДополнительныеОтчетыИОбработкиКлиентСервер.ВидОбработкиПечатнаяФорма();
	ПараметрыРегистрации.Версия = "1.01";
	ПараметрыРегистрации.БезопасныйРежим = Истина;
	ПараметрыРегистрации.Вставить("Информация","Печатная форма");
    ПараметрыРегистрации.Назначение.Добавить ("Документы.РеализацияТоваров");
	                                               
	НоваяКоманда = ПараметрыРегистрации.Команды.Добавить();
	НоваяКоманда.Представление = НСтр("ru = 'Печатнаяформа'");
	НоваяКоманда.Идентификатор = "Печатнаяформа";
	НоваяКоманда.Использование = ДополнительныеОтчетыИОбработкиКлиентСервер.ТипКомандыВызовСерверногоМетода();
	НоваяКоманда.ПоказыватьОповещение = Истина;
	НоваяКоманда.Модификатор = "ПечатьMXL";
               	
	Возврат ПараметрыРегистрации;
	
КонецФункции 
Процедура Печать(МассивОбъектов, КоллекцияПечатныхФорм, ОбъектыПечати, ПараметрыВывода) Экспорт
	
Функция ПечатьФормы(МассивОбъектов)
ТабДок = новый ТабличныйДокумент;

Макет = ПолучитьМакет("Макет");

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

КонецЦикла;
	
КонецФункции;
КонецПроцедуры
Процедура Печать(МассивОбъектов, КоллекцияПечатныхФорм, ОбъектыПечати, ПараметрыВывода) Экспорт

    УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(
        КоллекцияПечатныхФорм,
        УказатьНаименованиеКомандыПечати(),
        УказатьНаименованиеВнешнейПечатнойФормы(),
        ПечатьФормы(МассивОбъектов));
		КонецПроцедуры
Показать

Вот ошибки
{ВнешняяОбработка.ВнешняяОбработка3.МодульОбъекта(23,1)}: Ожидается ключевое слово 'КонецПроцедуры' ('EndProcedure')
<<?>>Функция ПечатьФормы(МассивОбъектов) (Проверка: Сервер)
{ВнешняяОбработка.ВнешняяОбработка3.МодульОбъекта(51,14)}: Обнаружено логическое завершение исходного текста модуля
КонецФункции;<<?>> (Проверка: Сервер)
По теме из базы знаний
Ответы
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
2. login1020 138 27.08.18 17:33 Сейчас в теме
(1)
КонецФункции;


; уберите

и у вас функция ещё внутри процедуры сидит
3. login1020 138 27.08.18 17:37 Сейчас в теме
и 2 раза процедура Печать
Оставьте свое сообщение

Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот