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