coolalex12
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Процедура Печать(ТабДок, Ссылка) Экспорт
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
Макет = Документы.ОтчетУспеваемостиОчная.ПолучитьМакет("Печать");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ОтчетУспеваемостиОчная.БюджетКонтракт,
| ОтчетУспеваемостиОчная.Дата,
| ОтчетУспеваемостиОчная.Сессия,
| ОтчетУспеваемостиОчная.ТабличнаяЧасть1.(
| НомерСтроки,
| Группа,
| КНачалуСессии,
| ПолучилиОтсрочку,
| ОбязаныСдаватьЭкзамены,
| ЯвившихсяНаЭкзаменационнуюСессию,
| НеЯвившихсяПоНеуважительнойПричине,
| СдавшихЭкзаменыПоВсемПредметам,
| НаОтлично,
| НаОтличноПроцент,
| НаОтличноИХорошо,
| НаОтличноИХорошоПроцент,
| НаХорошо,
| НаХорошоПроцент,
| НаУдовлетворительно,
| НаУдовлетворительноПроцент,
| НаСмешанныеОценки,
| НаСмешанныеОценкиПроцент,
| ПолучившихНеудовлетворительнуюОценку,
| ПереведеноНаСледующийКурс,
| ПереведеноУсловно,
| ОставленНаВторойГод,
| ОкончилоТеоретическийКурс,
| ОтчисленоПереводнымПриказом,
| ОтчисленоЗаПериодСессии,
| Успеваемость,
| Качество
| ),
| NULL КАК Группа
|ИЗ
| Документ.ОтчетУспеваемостиОчная КАК ОтчетУспеваемостиОчная
|ГДЕ
| ОтчетУспеваемостиОчная.Ссылка В(&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ОбластьТабличнаяЧасть1Шапка = Макет.ПолучитьОбласть("ТабличнаяЧасть1Шапка");
ОбластьТабличнаяЧасть1 = Макет.ПолучитьОбласть("ТабличнаяЧасть1");
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Шапка, Выборка.Уровень());
ТабДок.Вывести(ОбластьТабличнаяЧасть1Шапка);
ВыборкаТабличнаяЧасть1 = Выборка.ТабличнаяЧасть1.Выбрать();
Пока ВыборкаТабличнаяЧасть1.Следующий() Цикл
ОбластьТабличнаяЧасть1.Параметры.Заполнить(ВыборкаТабличнаяЧасть1);
ТабДок.Вывести(ОбластьТабличнаяЧасть1, ВыборкаТабличнаяЧасть1.Уровень());
КонецЦикла;
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
//}}
КонецПроцедуры
Добавлено:
вот мне надо сделать, чтобы в строках, в которых поле "Группа" содержало "1 курс" или "2 курс".. и т.д. во всех остальных полях этой строки нули не отображались. чтобы строки в которых указан только курс были какбы разделителями, для улучшения "читабельности" таблицы |
Программы » 
Варезник » 
))
