|
0
Tatevik
20.03.12
✎
13:27
|
В отчете не выводятся оценки, которые берутся из регистра сведений.
"ВЫБРАТЬ
| Оценки.Оценка
|ИЗ
| РегистрСведений.Оценки КАК Оценки
|ГДЕ
| Оценки.Студент = &Студент
| И Оценки.Дисциплина = &Дисциплина
| И Оценки.ТипДисциплины = &ТипДисциплины
| И Оценки.Группа = &Группа
| и Оценки.Пользователь ПОДОБНО &Пользователь";
//Выводим оценки
Для каждого СтрокаТЧ из ЭлементыФормы.ТабличноеПоле1.Значение цикл
ЗапросОценки.УстановитьПараметр("Студент",ВыборкаСтуденты.Студент);
ЗапросОценки.УстановитьПараметр("Дисциплина",СтрокаТЧ.Предмет);
ЗапросОценки.УстановитьПараметр("Группа",Группа);
ЗапросОценки.УстановитьПараметр("ТипДисциплины",СтрокаТЧ.Тип);
ЗапросОценки.УстановитьПараметр("Пользователь", ПользователиИнформационнойБазы.ТекущийПользователь().Имя);
РезультатОценки = ЗапросОценки.Выполнить();
Если РезультатОценки.Пустой() Тогда
ОбластьОценки.Параметры.Оценка = "O";
Иначе
ВыборкаОценки = РезультатОценки.Выбрать();
ВыборкаОценки.Следующий();
ОбластьОценки.Параметры.Оценка = ПолучитьОценку(ВыборкаОценки.Оценка);
КонецЕсли;
ТабДок.Присоединить(ОбластьОценки);
КонецЦикла;
|
|