Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
28 мар 2024, 15:22

Как вывести табличный документ в форму "Печать документов"

Автор boldinov, 03 апр 2015, 17:50

0 Пользователей и 1 гость просматривают эту тему.

boldinov

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

Запрос.УстановитьПараметр("Номенклатура", Номенклатура);

РезультатЗапроса = Запрос.Выполнить();

ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
ОбластьЗаголовок.Параметры.Номенклатура=Номенклатура;
ОбластьПодвал = Макет.ПолучитьОбласть("Подвал");
ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ШапкаТаблицы");
ОбластьПодвалТаблицы = Макет.ПолучитьОбласть("ПодвалТаблицы");
ОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("Детали");
ТабДок=Новый ТабличныйДокумент;
ТабДок.Очистить();
ТабДок.Вывести(ОбластьЗаголовок);
ТабДок.Вывести(ОбластьШапкаТаблицы);
ТабДок.НачатьАвтогруппировкуСтрок();

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

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
ОбластьДетальныхЗаписей.Параметры.Заполнить(ВыборкаДетальныеЗаписи);
ТабДок.Вывести(ОбластьДетальныхЗаписей, ВыборкаДетальныеЗаписи.Уровень());
КонецЦикла;

ТабДок.ЗакончитьАвтогруппировкуСтрок();
ТабДок.Вывести(ОбластьПодвалТаблицы);
ТабДок.Вывести(ОбластьПодвал);
ТабДок.ТолькоПросмотр=Истина;
ТабДок.АвтоМасштаб=Истина;
    Возврат ТабДок;
КонецФункции


&НаКлиенте
Процедура ОжидаемоеПоступление(Команда)
Если ЭтаФорма.Элементы.СписокРасширенныйПоискНоменклатура.ТекущиеДанные<>Неопределено  Тогда
Строка=ЭтаФорма.Элементы.СписокРасширенныйПоискНоменклатура.ТекущиеДанные;
Номенклатура=Получить(Строка.Наименование);
КонецЕсли;
ТабДок=ОжидаемыеПоступлнеияСервер(Номенклатура);
МассивОбъектов=Новый Массив;
МассивОбъектов.Добавить(ТабДок);
ПараметрыОткрытия = Новый Структура("ИмяМенеджераПечати,ИменаМакетов,ПараметрКоманды");
ПараметрыОткрытия.ИмяМенеджераПечати = "Справочник.Номенклатура";
ПараметрыОткрытия.ИменаМакетов = "ОжидаемоеПоступление";
ПараметрыОткрытия.ПараметрКоманды = МассивОбъектов;
ОткрытьФорму("ОбщаяФорма.ПечатьДокументов", ПараметрыОткрытия, ЭтаФорма.ВладелецФормы);
КонецПроцедуры

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск