8.х УТ Дополнительные реквизиты документа

Здравствуйте, прошу у вас совета. В общем ситуация такая. Платформа 8.2, УНФ 1.4. Создаю ВПФ договор, которая будет распечатываться из документа СчетНаОплату, нужно добавить доп.реквизит ДатаОбучения, я его добавила в режиме с предприятия, он у меня храниться в ПВХ. И вытащить на печать ДатуОбучения у меня не получается. Подскажите, где я ошибаюсь.

Код:

Функция ПечатнаяФорма(МассивОбъектов, ОбъектыПечати, ИмяМакета) Экспорт[/size]
ТабличныйДокумент = Новый ТабличныйДокумент;

ИмяМакета = "ДоговорЮЛ";
Запрос = Новый Запрос();
//Запрос.УстановитьПараметр("ТекущийДокумент", Документы.СчетНаОплату);
Запрос.УстановитьПараметр("МассивОбъектов", МассивОбъектов);
Запрос.Текст =

"ВЫБРАТЬ
| СчетНаОплату.Ссылка,
| СчетНаОплату.Дата КАК ДатаДокумента,
| СчетНаОплату.Контрагент,
| СчетНаОплату.Организация,
| СчетНаОплату.Организация.Префикс КАК Префикс,
| СчетНаОплату.Контрагент.КонтактноеЛицо КАК КонтактныеЛица,
| СчетНаОплату.БанковскийСчет,
| СчетНаОплату.Номер КАК НомерД,
| СчетНаОплату.Запасы.(
|  Ссылка,
|  Номенклатура,
|  Количество,
|  Сумма КАК СуммаДок,
|  Содержание,
|  ВЫБОР
|   КОГДА (ВЫРАЗИТЬ(СчетНаОплату.Запасы.Номенклатура.НаименованиеПолное КАК СТРОКА(1000))) = """"
|    ТОГДА СчетНаОплату.Запасы.Номенклатура.Наименование
|   ИНАЧЕ ВЫРАЗИТЬ(СчетНаОплату.Запасы.Номенклатура.НаименованиеПолное КАК СТРОКА(1000))
|  КОНЕЦ КАК Поле1
| ),
| СчетНаОплату.ВалютаДокумента
|ИЗ
| Документ.СчетНаОплату КАК СчетНаОплату";

Шапка = Запрос.Выполнить().Выбрать();

//ПервыйДокумент = Истина;

Пока Шапка.Следующий() Цикл
ВыборкаСтрокЗапасы = Шапка.Запасы.Выбрать();

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

//ВыборкаСтрокДополнительныеРеквизиты=Запрос1.ДополнительныеРеквизиты.Выполнить().Выбрать();


Макет = ПолучитьМакет("ПФ_MXL_ДоговорЮЛ");
СведенияОбОрганизации = УправлениеНебольшойФирмойСервер.СведенияОЮрФизЛице(Шапка.Организация, Шапка.ДатаДокумента, ,Шапка.БанковскийСчет);
СведенияОбКонтрагенте = УправлениеНебольшойФирмойСервер.СведенияОЮрФизЛице(Шапка.Контрагент,Шапка.КонтактныеЛица);


ОбластьМакета = Макет.ПолучитьОбласть("Заголовок");
НомерДок= ПрефиксацияОбъектовКлиентСервер.ПолучитьНомерНаПечать(Шапка.НомерД);
ОбластьМакета.Параметры.ТекстЗаголовка = "Договор №КЦР " 
+  НомерДок 
+  "о проведении обучения. " ;

ОбластьМакета.Параметры.Дата=Формат(Шапка.ДатаДокумента, "ДФ=""dd. MM. yyyy""");
ТабличныйДокумент.Вывести(ОбластьМакета);

ОбластьМакета = Макет.ПолучитьОбласть("Тело");
ОбластьМакета.Параметры.Контрагент = УправлениеНебольшойФирмойСервер.ОписаниеОрганизации(СведенияОбКонтрагенте, "ПолноеНаименование");
ОбластьМакета.Параметры.Контакт =УправлениеНебольшойФирмойСервер.ПолучитьКонтактныеЛицаКонтрагента(Шапка.Контрагент ); 
Пока ВыборкаСтрокЗапасы.Следующий() Цикл
ОбластьМакета.Параметры.Заполнить(ВыборкаСтрокЗапасы);
Если ЗначениеЗаполнено(ВыборкаСтрокЗапасы.Содержание) Тогда
ОбластьМакета.Параметры.Запас = ВыборкаСтрокЗапасы.Содержание;
Иначе
ОбластьМакета.Параметры.Запас = УправлениеНебольшойФирмойСервер.ПолучитьПредставлениеНоменклатурыДляПечати(ВыборкаСтрокЗапасы.Запас, );
КонецЕсли;
ОбластьМакета.Параметры.Сумма = ВыборкаСтрокЗапасы.СуммаДок;
СуммаКПрописи = ВыборкаСтрокЗапасы.СуммаДок;
СуммаТ =УправлениеНебольшойФирмойСервер.СформироватьСуммуПрописью(СуммаКПрописи,Шапка.ВалютаДокумента);
ОбластьМакета.Параметры.СуммаПрописью= "("+ СуммаТ + ")";
КонецЦикла;
Пока Шапка1.Следующий() Цикл
ВыборкаСтрокДополнительныеРеквизиты = Шапка1.ДополнительныеРеквизиты.Выбрать();
Пока ВыборкаСтрокДополнительныеРеквизиты.Следующий() Цикл
ОбластьМакета.Параметры.Заполнить(ВыборкаСтрокДополнительныеРеквизиты);
ОбластьМакета.Параметры.ДатаОб = Формат(ВыборкаСтрокДополнительныеРеквизиты.Значение,"ДФ=""dd. MM. yyyy""" );
КонецЦикла; 
КонецЦикла;
ТабличныйДокумент.Вывести(ОбластьМакета);
КонецЦикла;
ОбластьМакета = Макет.ПолучитьОбласть("Подвал");
Если ЗначениеЗаполнено(СведенияОбОрганизации.Банк) Тогда
ОбластьМакета.Параметры.БанкПолучателяПредставление = СведенияОбОрганизации.Банк.Наименование + " " + СведенияОбОрганизации.Банк.Город;
КонецЕсли;
ОбластьМакета.Параметры.ИНН = СведенияОбОрганизации.ИНН;
ОбластьМакета.Параметры.КПП = СведенияОбОрганизации.КПП;
ОбластьМакета.Параметры.БИКБанкаПолучателя = СведенияОбОрганизации.БИК;
ОбластьМакета.Параметры.СчетБанкаПолучателяПредставление = СведенияОбОрганизации.КоррСчет;
ОбластьМакета.Параметры.СчетПолучателяПредставление = СведенияОбОрганизации.НомерСчета;
ОбластьМакета.Параметры.ПредставлениеЗаказчика = УправлениеНебольшойФирмойСервер.ОписаниеОрганизации(СведенияОбКонтрагенте, "ПолноеНаименование,ЮридическийАдрес,ПочтовыйАдрес,Телефоны,");

ТабличныйДокумент.Вывести(ОбластьМакета);

ОбластьМакета = Макет.ПолучитьОбласть("ПодвалТаб");
ТабличныйДокумент.Вывести(ОбластьМакета);
Возврат ТабличныйДокумент;						   

КонецФункции

И вам не хворать.
Вот, что есть вот это -

Код:

СчетНаОплату.ДополнительныеРеквизиты.Ссылка

, тип значения Ссылки?

Разобралась, с горем пополам скидываю

Код:

, доп реквизит выводит, но вот с циклом где то косячнула, буду дальше разбираться. [/size]
[size=4]Функция ПечатнаяФорма(МассивОбъектов, ОбъектыПечати, ИмяМакета) Экспорт[/size]

ТабличныйДокумент = Новый ТабличныйДокумент;

ИмяМакета = "ДоговорЮЛ";
Запрос = Новый Запрос();
//Запрос.УстановитьПараметр("ТекущийДокумент", Документы.СчетНаОплату);
Запрос.УстановитьПараметр("МассивОбъектов", МассивОбъектов);
Запрос.Текст =

"ВЫБРАТЬ
| СчетНаОплату.Ссылка,
| СчетНаОплату.Дата КАК ДатаДокумента,
| СчетНаОплату.Контрагент,
| СчетНаОплату.Организация,
| СчетНаОплату.Организация.Префикс КАК Префикс,
| СчетНаОплату.Контрагент.КонтактноеЛицо КАК КонтактныеЛица,
| СчетНаОплату.БанковскийСчет,
| СчетНаОплату.Номер КАК НомерД,
| СчетНаОплату.Запасы.(
|  Ссылка,
|  Номенклатура,
|  Количество,
|  Сумма КАК СуммаДок,
|  Содержание,
|  ВЫБОР
|   КОГДА (ВЫРАЗИТЬ(СчетНаОплату.Запасы.Номенклатура.НаименованиеПолное КАК СТРОКА(1000))) = """"
|    ТОГДА СчетНаОплату.Запасы.Номенклатура.Наименование
|   ИНАЧЕ ВЫРАЗИТЬ(СчетНаОплату.Запасы.Номенклатура.НаименованиеПолное КАК СТРОКА(1000))
|  КОНЕЦ КАК Запас
| ),
| СчетНаОплату.ВалютаДокумента
|ИЗ
| Документ.СчетНаОплату КАК СчетНаОплату";

Шапка = Запрос.Выполнить().Выбрать();
Пока Шапка.Следующий() Цикл
ВыборкаСтрокЗапасы = Шапка.Запасы.Выбрать();

// 1-ый вариант
Запрос1 = Новый Запрос;
ПВХ = ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоНаименованию("ДатаОбучения");
Запрос1.УстановитьПараметр("Свойство",ПВХ);
Запрос1.УстановитьПараметр("Ссылка",Шапка.Ссылка);
Запрос1.Текст =
"ВЫБРАТЬ
| СчетНаОплатуДополнительныеРеквизиты.Ссылка.Ссылка,
| СчетНаОплатуДополнительныеРеквизиты.Свойство,
| СчетНаОплатуДополнительныеРеквизиты.Значение
|ИЗ
| Документ.СчетНаОплату.ДополнительныеРеквизиты КАК СчетНаОплатуДополнительныеРеквизиты
|ГДЕ
| СчетНаОплатуДополнительныеРеквизиты.Ссылка.Ссылка = &Ссылка
| И СчетНаОплатуДополнительныеРеквизиты.Свойство = &Свойство";

//Шапка1 = Запрос1.Выполнить().Выбрать();
ТЗ1 = Запрос1.Выполнить().Выгрузить();

// 2-ой вариант
//Объект = Шапка.Ссылка.ПолучитьОбъект();
//ТабДок = Объект.ДополнительныеРеквизиты;
//ДатаОб = ТабДок.Найти(ПВХ,"Свойство").Значение;

Макет = ПолучитьМакет("ПФ_MXL_ДоговорЮЛ");
СведенияОбОрганизации = УправлениеНебольшойФирмойСервер.СведенияОЮрФизЛице(Шапка.Организация, Шапка.ДатаДокумента, ,Шапка.БанковскийСчет);
СведенияОбКонтрагенте = УправлениеНебольшойФирмойСервер.СведенияОЮрФизЛице(Шапка.Контрагент,Шапка.КонтактныеЛица);


ОбластьМакета = Макет.ПолучитьОбласть("Заголовок");
НомерДок= ПрефиксацияОбъектовКлиентСервер.ПолучитьНомерНаПечать(Шапка.НомерД);
ОбластьМакета.Параметры.ТекстЗаголовка = "Договор №КЦР " 
+  НомерДок 
+  "о проведении обучения. " ;

ОбластьМакета.Параметры.Дата=Формат(Шапка.ДатаДокумента, "ДФ=""dd. MM. yyyy""");
ТабличныйДокумент.Вывести(ОбластьМакета);

ОбластьМакета = Макет.ПолучитьОбласть("Тело");
ОбластьМакета.Параметры.Контрагент = УправлениеНебольшойФирмойСервер.ОписаниеОрганизации(СведенияОбКонтрагенте, "ПолноеНаименование");
ОбластьМакета.Параметры.Контакт =УправлениеНебольшойФирмойСервер.ПолучитьКонтактныеЛицаКонтрагента(Шапка.Контрагент ); 
Пока ВыборкаСтрокЗапасы.Следующий() Цикл
ОбластьМакета.Параметры.Заполнить(ВыборкаСтрокЗапасы);
Если ЗначениеЗаполнено(ВыборкаСтрокЗапасы.Содержание) Тогда
ОбластьМакета.Параметры.Запас = ВыборкаСтрокЗапасы.Содержание;
Иначе
ОбластьМакета.Параметры.Запас = УправлениеНебольшойФирмойСервер.ПолучитьПредставлениеНоменклатурыДляПечати(ВыборкаСтрокЗапасы.Запас, );
КонецЕсли;
ОбластьМакета.Параметры.Сумма = ВыборкаСтрокЗапасы.СуммаДок;
СуммаКПрописи = ВыборкаСтрокЗапасы.СуммаДок;
СуммаТ =УправлениеНебольшойФирмойСервер.СформироватьСуммуПрописью(СуммаКПрописи,Шапка.ВалютаДокумента);
ОбластьМакета.Параметры.СуммаПрописью= "("+ СуммаТ + ")";
//выводим в макет по 1-му варианту
ОбластьМакета.Параметры.ДатаОб = Формат(ТЗ1[0].Значение,"ДЛФ=DD");
//выводим в макет по 2-му варианту
//ОбластьМакета.Параметры.ДатаОб = Формат(ДатаОб,"ДЛФ=DD");
КонецЦикла;
ТабличныйДокумент.Вывести(ОбластьМакета);
КонецЦикла;
ОбластьМакета = Макет.ПолучитьОбласть("Подвал");
Если ЗначениеЗаполнено(СведенияОбОрганизации.Банк) Тогда
ОбластьМакета.Параметры.БанкПолучателяПредставление = СведенияОбОрганизации.Банк.Наименование + " " + СведенияОбОрганизации.Банк.Город;
КонецЕсли;
ОбластьМакета.Параметры.ИНН = СведенияОбОрганизации.ИНН;
ОбластьМакета.Параметры.КПП = СведенияОбОрганизации.КПП;
ОбластьМакета.Параметры.БИКБанкаПолучателя = СведенияОбОрганизации.БИК;
ОбластьМакета.Параметры.СчетБанкаПолучателяПредставление = СведенияОбОрганизации.КоррСчет;
ОбластьМакета.Параметры.СчетПолучателяПредставление = СведенияОбОрганизации.НомерСчета;
ОбластьМакета.Параметры.ПредставлениеЗаказчика = УправлениеНебольшойФирмойСервер.ОписаниеОрганизации(СведенияОбКонтрагенте, "ПолноеНаименование,ЮридическийАдрес,ПочтовыйАдрес,Телефоны,");
ТабличныйДокумент.Вывести(ОбластьМакета);
ОбластьМакета = Макет.ПолучитьОбласть("ПодвалТаб");
ТабличныйДокумент.Вывести(ОбластьМакета);
Возврат ТабличныйДокумент;						   

КонецФункции


Функция ОпределитьЗначениеСвойства(ЗначениеСвойства,ВыбОбъект) Экспорт

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

КонецФункции
[size=4]

программный код для тех кто столкнется с такой же проблемой.

да и беда была не с циклом, а просто в запрос нужно было добавить строку
Где
| СчетНаОплату.Ссылка В(&МассивОбъектов)", и все выводиться просто замечательно. Если у кого чего не получиться могу скинуть полный код ВПФ.