сть ЯК ЕкзаменаціоннаяВедомость1
| ПО ЕкзаменаціоннаяВедомостьТаблічнаяЧасть1.Ссилка=ЕкзаменаціоннаяВедомость1.Ссилка
| ДЕ (ЕкзаменаціоннаяВедомостьТаблічнаяЧасть1.Оценка= amp; Оценка1
| АБО ЕкзаменаціоннаяВедомостьТаблічнаяЧасть1.Оценка= amp; Оценка2)
| І ЕкзаменаціоннаяВедомость1.Ссилка= amp; Посилання" ;
ЗапросН.Текст=ТекстЗапросаН;
Область.Параметри.Неявка=ЗапросН.Виполніть (). Вибрати (). Кількість ();
//Підрахунок оцінок
ТекстЗапроса="ВИБРАТИ ЕкзаменаціоннаяВедомостьТаблічнаяЧасть1.Оценка
| ІЗ Документ.ЕкзаменаціоннаяВедомость.ТаблічнаяЧасть1 ЯК ЕкзаменаціоннаяВедомостьТаблічнаяЧасть1
| ЛІВЕ З'ЄДНАННЯ Документ.ЕкзаменаціоннаяВедомость ЯК ЕкзаменаціоннаяВедомость1
| ПО ЕкзаменаціоннаяВедомостьТаблічнаяЧасть1.Ссилка=ЕкзаменаціоннаяВедомость1.Ссилка
| ДЕ ЕкзаменаціоннаяВедомость1.Ссилка= amp; Посилання
| І ЕкзаменаціоннаяВедомостьТаблічнаяЧасть1.Оценка= amp; Оцінка" ;
//Підрахунок 5 (отл)
Запрос5=Новий Запит;
Запрос5.УстановитьПараметр(laquo;Оценкаraquo;,Перечисления.Оценки.Отлично );
Запрос5.УстановитьПараметр(laquo;Ссылкаraquo;,ЭтотОбъект.Ссылка);
Запрос5.Текст=ТекстЗапроса;
Область.Параметри.Отлічно=Запрос5.Виполніть (). Вибрати (). Кількість ();
//Підрахунок 4 (хор)
Запрос4=Новий Запит;
Запрос4.УстановитьПараметр(laquo;Оценкаraquo;,Перечисления.Оценки.Хорошо );
Запрос4.УстановитьПараметр(laquo;Ссылкаraquo;,ЭтотОбъект.Ссылка);
Запрос4.Текст=ТекстЗапроса;
Область.Параметри.Хорошо=Запрос4.Виполніть (). Вибрати (). Кількість ();
//Підрахунок 3 (удов)
Запрос3=Новий Запит;
Запрос3.УстановитьПараметр(laquo;Оценкаraquo;,Перечисления.Оценки.Удовлетворительно);
Запрос3.УстановитьПараметр(laquo;Ссылкаraquo;,ЭтотОбъект.Ссылка);
Запрос3.Текст=ТекстЗапроса;
Область.Параметри.Удовл=Запрос3.Виполніть (). Вибрати (). Кількість ();
//Підрахунок 2 (незадовільно)
Запрос2=Новий Запит;
Запрос2.УстановитьПараметр(laquo;Оценкаraquo;,Перечисления.Оценки.Неудовлетворительно );
Запрос2.УстановитьПараметр(laquo;Ссылкаraquo;,ЭтотОбъект.Ссылка);
Запрос2.Текст=ТекстЗапроса;
Область.Параметри.Неуд=Запрос2.Виполніть (). Вибрати (). Кількість ();
//Декан
Область.Параметри.Декан=Константи.Декан.Получіть ();
ТабДок.ОріентаціяСтраніци=ОріентаціяСтраніци.Портрет;
ТабДок.Вивесті (Область);
ТабДок.ОтображатьСетку=Брехня;
ТабДок.Защіта=Брехня;
ТабДок.ТолькоПросмотр=Брехня;
ТабДок.ОтображатьЗаголовкі=Брехня;
ТабДок.Показать ();
//}} _ КОНСТРУКТОР_ПЕЧАТІ_ЕЛЕМЕНТ
КонецПроцедури
Друкована форма документа «Екзаменаційна відомість»
Друкована форма документа «Відомість курсових робіт»
Друкована форма документа «Залікова відомість»
Додаток 2
Текст процедури обробки проведення документа «Екзаменаційна відомість»
Процедура ОбработкаПроведенія (Відмова, Режим)
//{{__ КОНСТРУКТОР_ДВІЖЕНІЙ_РЕГІСТРОВ
//Даний фрагмент побудований конструктором.
//При повторному використанні конструктора, внесені вручну зміни будуть загублені !!!
Для Кожного ТекСтрокаТаблічнаяЧасть1 З ТаблічнаяЧасть1 Цикл
//регістр Успішність
Рух=Двіженія.Успеваемость.Добавіть ();
Двіженіе.Студент=ТекСтрокаТаблічнаяЧасть1.ФІОСтудента;
Двіженіе.Дісціпліна=Дисципліна;
Двіженіе.Преподаватель=Викладач;
Двіженіе.Группа=Група;
Двіженіе.Год=Рік;
Двіженіе.Семестр=Семестр;
Двіженіе.ФормаКонтроля=Перечісленія.ФормаКонтроля.Екзамен;
