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

На печать выходят все макеты списка документов

Автор Space_minus, 28 июл 2016, 11:07

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

Space_minus

Всем привет! Подскажите пожалуйста, почему у меня выходят на печать все макеты списков документов
Есть 3 документа:

И на печать выходят все макеты 3-х документов с разными данными



&НаСервере
Функция ПечатьЗаявка (МассивОбъектов,ОбъектыПечати)
ТабДок = Новый ТабличныйДокумент;
ТабДок.АвтоМасштаб = Истина;
ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Портрет;

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


Запрос.УстановитьПараметр("Ссылка",МассивОбъектов);
РезультатЗапроса = Запрос.Выполнить();

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

Пока Выборка.Следующий() Цикл
НомерСтрокиНачало = ТабДок.ВысотаТаблицы + 1;

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

ОбластьМакета = Макет.ПолучитьОбласть("Абзац1");
ОбластьМакета.Параметры.Абзац1 = "        Прошу Вас зарегистрировать группу № "+Выборка.Группа+" категории «"+Выборка.Категория+"»  колличестве "+Выборка.КолличествоЛюдейВГруппе+" чел";
ТабДок.Вывести(ОбластьМакета);

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

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

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

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

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

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

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

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

УправлениеПечатью.ЗадатьОбластьПечатиДокумента(ТабДок,
НомерСтрокиНачало, ОбъектыПечати, Выборка.Ссылка);

КонецЦикла;
Возврат ТабДок;
КонецФункции //Заявка


Kironten

Не указана ссылка в запросе на МассивОбъектов.

...
ГДЕ <ВашДокумент.Ссылка> В (&МассивОбъектов)
...
...
Запрос.УстановитьПараметр("МассивОбъектов", МассивОбъектов);


Это при учете, что вы передаете нужные документы в этот массив.

Space_minus

Цитата: Kironten от 28 июл 2016, 11:46
Не указана ссылка в запросе на МассивОбъектов.

...
ГДЕ <ВашДокумент.Ссылка> В (&МассивОбъектов)
...
...
Запрос.УстановитьПараметр("МассивОбъектов", МассивОбъектов);


Это при учете, что вы передаете нужные документы в этот массив.

Спасибо большое :)) Все получилось! + тебе в карму нажал

Теги:

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

Рейтинг@Mail.ru

Поиск