Файл: Разработка и реализация конфигурации «Институт» на платформе «1С:Предприятие».pdf

Макет = Справочники.Группы.ПолучитьМакет("Печать");

Запрос = Новый Запрос;

Запрос.Текст =

"ВЫБРАТЬ

| Группы.Код,

| Группы.Наименование

|ИЗ

| Справочник.Группы КАК Группы

|ГДЕ

| Группы.Ссылка В (&Ссылка)";

Запрос.Параметры.Вставить("Ссылка", Ссылка);

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

ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");

Шапка = Макет.ПолучитьОбласть("Шапка");

ТабДок.Очистить();

ВставлятьРазделительСтраниц = Ложь;

Пока Выборка.Следующий() Цикл

Если ВставлятьРазделительСтраниц Тогда

ТабДок.ВывестиГоризонтальныйРазделительСтраниц();

КонецЕсли;

ТабДок.Вывести(ОбластьЗаголовок);

Шапка.Параметры.Заполнить(Выборка);

ТабДок.Вывести(Шапка, Выборка.Уровень());

ВставлятьРазделительСтраниц = Истина;

КонецЦикла;

//}}

КонецПроцедуры

Документ ЗачетнаяВедомость: Модуль менеджера

Процедура Печать(ТабДок, Ссылка) Экспорт

//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)

Макет = Документы.ЗачетнаяВедомость.ПолучитьМакет("Печать");

Запрос = Новый Запрос;

Запрос.Текст =

"ВЫБРАТЬ

| ЗачетнаяВедомость.Группа,

| ЗачетнаяВедомость.Дата,

| ЗачетнаяВедомость.Дисциплина,

| ЗачетнаяВедомость.Номер,

| ЗачетнаяВедомость.Преподаватель,

| ЗачетнаяВедомость.Оценки.(

| НомерСтроки,

| Студент,

| Оценка

| )

|ИЗ

| Документ.ЗачетнаяВедомость КАК ЗачетнаяВедомость

|ГДЕ

| ЗачетнаяВедомость.Ссылка В (&Ссылка)";

Запрос.Параметры.Вставить("Ссылка", Ссылка);

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

ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");

Шапка = Макет.ПолучитьОбласть("Шапка");

ОбластьОценкиШапка = Макет.ПолучитьОбласть("ОценкиШапка");

ОбластьОценки = Макет.ПолучитьОбласть("Оценки");

ТабДок.Очистить();

ВставлятьРазделительСтраниц = Ложь;

Пока Выборка.Следующий() Цикл

Если ВставлятьРазделительСтраниц Тогда

ТабДок.ВывестиГоризонтальныйРазделительСтраниц();

КонецЕсли;

ТабДок.Вывести(ОбластьЗаголовок);

Шапка.Параметры.Заполнить(Выборка);

ТабДок.Вывести(Шапка, Выборка.Уровень());

ТабДок.Вывести(ОбластьОценкиШапка);

ВыборкаОценки = Выборка.Оценки.Выбрать();

Пока ВыборкаОценки.Следующий() Цикл

ОбластьОценки.Параметры.Заполнить(ВыборкаОценки);

ТабДок.Вывести(ОбластьОценки, ВыборкаОценки.Уровень());

КонецЦикла;

ВставлятьРазделительСтраниц = Истина;

КонецЦикла;

//}}

КонецПроцедуры

Команда Печать: Модуль команды