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