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