77
Запрос.УстановитьПараметр("Группа", объект.Группа); РезультатЗапроса = За-
прос.Выполнить(); ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
объект.Результаты.Очистить(); Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
нов=объект.Результаты.Добавить();нов.студент=выборкадетальныезаписи.ссылка;
КонецЦикла;КонецПроцедуры &НаКлиенте Процедура Заполнить(Команда)
ЗаполнитьНаСервере(); КонецПроцедуры
Процедура Печать(ТабДок, Ссылка) Экспорт Макет = Докумен-
ты.Экзамен.ПолучитьМакет("Печать"); кол5=0; кол4=0; кол3=0; кол2=0; колня=0;
Запрос = Новый Запрос; Запрос.Текст =
"ВЫБРАТЬ | Экзамен.Группа, | Экзамен.ДатаЭкзамена, | Эк-
замен.Дисциплина,
| Экзамен.Преподаватель, | Экзамен.Результаты.( |
Студент,
| НомерБилета, | Оценка | )
|ИЗ | Документ.Экзамен КАК Экзамен
|ГДЕ | Экзамен.Ссылка В (&Ссылка)"; За-
прос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать(); ОбластьЗаголовок = Ма-
кет.ПолучитьОбласть("Заголовок"); Шапка = Макет.ПолучитьОбласть("Шапка");
ОбластьРезультатыШапка = Макет.ПолучитьОбласть("РезультатыШапка");
ОбластьРезультаты = Макет.ПолучитьОбласть("Результаты"); ОбластьПодвал =
Макет.ПолучитьОбласть("Подвал"); ТабДок.Очистить(); ВставлятьРазделительСтраниц
= Ложь; Пока Выборка.Следующий() Цикл Если ВставлятьРазделитель-
Страниц Тогда ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли; ТабДок.Вывести(ОбластьЗаголовок); Шап-
ка.Параметры.Заполнить(Выборка); ТабДок.Вывести(Шапка, Выбор-
ка.Уровень()); ТабДок.Вывести(ОбластьРезультатыШапка); Выборка-
Результаты = Выборка.Результаты.Выбрать(); Пока ВыборкаРезульта-
ты.Следующий() Цикл ОбластьРезульта-
ты.Параметры.Заполнить(ВыборкаРезультаты); Таб-
Док.Вывести(ОбластьРезультаты, ВыборкаРезультаты.Уровень()); если вы-
боркарезультаты.оценка=перечисления.оценки.отлично тогда кол5=кол5+1; конецесли;
если выборкарезультаты.оценка=перечисления.оценки.хорошо тогда
кол4=кол4+1; конецесли; если выборкарезульта-
ты.оценка=перечисления.оценки.удовлетворительно тогда кол3=кол3+1; конецесли;
если выборкарезультаты.оценка=перечисления.оценки.неудовлетворительно
тогда кол2=кол2+1; конецесли; если выборкарезульта-
ты.оценка=перечисления.оценки.неявка тогда колня=колня+1; конецесли; Ко-
нецЦикла; ВставлятьРазделительСтраниц = Истина; КонецЦикла; ОбластьШПод-
вал = Макет.ПолучитьОбласть("ШПодвал"); Табдок.вывести(ОбластьШподвал);
ОбластьПодвал.Параметры.оц="Отлично"; Областьподвал.Параметры.колоц=кол5;
Табдок.вывести(Областьподвал); ОбластьПодвал.Параметры.оц="Хорошо";
Областьподвал.Параметры.колоц=кол4; Табдок.вывести(Областьподвал);
ОбластьПодвал.Параметры.оц="Удовлетворительно"; Областьпод-
вал.Параметры.колоц=кол3; Табдок.вывести(Областьподвал); ОбластьПод-
вал.Параметры.оц="Неудовлетворительно"; Областьподвал.Параметры.колоц=кол2;
Табдок.вывести(Областьподвал); ОбластьПодвал.Параметры.оц="Не явились";
Областьподвал.Параметры.колоц=колня; Табдок.вывести(Областьподвал);
КонецПроцедуры Запрос отчета «Отчет по занятиям»
ВЫБРАТЬ Занятие.ДатаЗанятия КАК ДатаЗанятия, Занятие.Дисциплина, Заня-
тие.Группа,
Занятие.Преподаватель, Занятие.Часов, Занятие.ВидЗанятия, Заня-