Здравствуйте, пишет вам начинающий программист 1С.
Конфиг УТ 10.3
Такая проблема: при добавлении внешней печатной формы появляется ошибка:
{Документ.РеализацияТоваровУслуг(41,17)}: Переменная не определена (СсылкаНаОбъект)
ВидДокумента = <<?>>СсылкаНаОбъект.ЗначенияСвойствОбъектов.Метаданные().Имя;
{Документ.РеализацияТоваровУслуг(43,11)}: Переменная не определена (СсылкаНаОбъект)
ТекДок = <<?>>СсылкаНаОбъект;
{Документ.РеализацияТоваровУслуг(75,38)}: Переменная не определена (СсылкаНаОбъект)
Запрос.УстановитьПараметр("ТекДок", <<?>>СсылкаНаОбъект);

Посоветуйте пожалуйста как исправить.


Приложение:
Модуль внешней печатной формы:Функция Печать() Экспорт ВидДокумента = СсылкаНаОбъект.Метаданные().Имя; ИмяТабЧасти = "Товары"; ТекДок = СсылкаНаОбъект; ТекстЗапроса = "ВЫБРАТЬ РАЗРЕШЕННЫЕ | ДокТабЧасть.ЕдиницаИзмерения КАК ЕдиницаИзмерения, | ДокТабЧасть.Номенклатура КАК Номенклатура, | ДокТабЧасть.ХарактеристикаНоменклатуры КАК Характеристика, | ДокТабЧасть.СерияНоменклатуры КАК Серия, | ПРЕДСТАВЛЕНИЕ(ДокТабЧасть.ЕдиницаИзмерения) КАК ПечЕдиницаИзмерения, | ПРЕДСТАВЛЕНИЕ(ДокТабЧасть.Номенклатура) КАК ПечНоменклатура, | ДокСерийныеНомера.СерийныйНомер КАК СерийныйНомер, | ДокТабЧасть.Количество КАК Количество, | ДокТабЧасть.НомерСтроки КАК НомерСтроки, | ЗначенияСвойствОбъектов.Значение.Наименование КАК Гарантия |ИЗ | Документ." + ВидДокумента + "." + ИмяТабЧасти + " КАК ДокТабЧасть | ВНУТРЕННЕЕ СОЕДИНЕНИЕ Документ." + ВидДокумента + ".СерийныеНомера КАК ДокСерийныеНомера | ПО ДокТабЧасть.КлючСвязи = ДокСерийныеНомера.КлючСвязи | ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.ЗначенияСвойствОбъектов КАК ЗначенияСвойствОбъектов | ПО ДокТабЧасть.Номенклатура.Ссылка = ЗначенияСвойствОбъектов.Объект.Ссылка |ГДЕ | ДокТабЧасть.Ссылка = &ТекДок | И ДокСерийныеНомера.Ссылка = &ТекДок | И ЗначенияСвойствОбъектов.Свойство.Наименование = ""Гарантия"" | |УПОРЯДОЧИТЬ ПО | НомерСтроки, | ДокСерийныеНомера.НомерСтроки"; Запрос = Новый Запрос; Запрос.Текст = ТекстЗапроса; Запрос.УстановитьПараметр("ТекДок", СсылкаНаОбъект); Запрос.УстановитьПараметр("ИмяТабЧасти", "Товары"); ТабДокумент = Новый ТабличныйДокумент; РезультатЗапроса = Запрос.Выполнить(); Макет = ПолучитьМакет("Гарантия"); Область = Макет.ПолучитьОбласть("Заголовок"); Область.Параметры.ТекстЗаголовок = ОбщегоНазначения.СформироватьЗаголовокДокумента( ТекДок, "ГАРАНТИЙНОЕ СОГЛАШЕНИЕ"); ТабДокумент.Вывести(Область); Область = Макет.ПолучитьОбласть("ПредставлениеОрганизации"); Область.Параметры.ПредставлениеОрганизации = ФормированиеПечатныхФорм.ОписаниеОрганизации(УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(ТекДок.Организация, ТекДок.Дата), "ПолноеНаименование,ИНН,КПП,ЮридическийАдрес,Телефоны,"); ТабДокумент.Вывести(Область); Область = Макет.ПолучитьОбласть("ТабШапка"); ТабДокумент.Вывести(Область); ОбластьНоменклатура = Макет.ПолучитьОбласть("ТабНоменклатура"); ОбластьСерийныйНомер = Макет.ПолучитьОбласть("ТабСерийныйНомер"); //ОбработкаОбъектЗначенияСвойств = ОбработкаОбъект.ЗначенияСвойствОбъекта Индекс = 0; ТекНоменклатура = Неопределено; ТекХарактеристика = Неопределено; ТекСерия = Неопределено; Обход = РезультатЗапроса.Выбрать(); Пока Обход.Следующий() Цикл Если ТекНоменклатура <> Обход.Номенклатура ИЛИ ТекХарактеристика <> Обход.Характеристика ИЛИ ТекСерия <> Обход.Серия Тогда Индекс = Индекс + 1; ТекНоменклатура = Обход.Номенклатура; ТекХарактеристика = Обход.Характеристика; ТекСерия = Обход.Серия; ОбластьНоменклатура.Параметры.НомСтр = Индекс; ОбластьНоменклатура.Параметры.ПечНоменклатура = Обход.ПечНоменклатура + ФормированиеПечатныхФорм.ПредставлениеСерий(Обход); ОбластьНоменклатура.Параметры.Номенклатура = Обход.Номенклатура; ОбластьНоменклатура.Параметры.ЕдИзм = Обход.ЕдиницаИзмерения; ОбластьНоменклатура.Параметры.ПечЕдИзм = Обход.ПечЕдиницаИзмерения; ОбластьНоменклатура.Параметры.Количество = Обход.Количество; ТабДокумент.Вывести(ОбластьНоменклатура); КонецЕсли; ОбластьСерийныйНомер.Параметры.ПечСерийныйНомер = Обход.СерийныйНомер; ОбластьСерийныйНомер.Параметры.СерийныйНомер = Обход.СерийныйНомер; ОбластьСерийныйНомер.Параметры.ГарантийныйСрок = Обход.Гарантия; ТабДокумент.Вывести(ОбластьСерийныйНомер); КонецЦикла; Область = Макет.ПолучитьОбласть("ТабПодвал"); Область.Параметры.Ответственный = ?(ТекДок.Ответственный.Ссылка.Пустая()=1,"______________________",ТекДок.Ответственный); ТабДокумент.Вывести(Область); Возврат ТабДокумент;КонецФункции