Загрузка данных

&НаСервереБезКонтекста
Функция ПолучитьСтудентовГруппы(ВыбраннаяГруппа)
	Запрос = Новый Запрос;
	Запрос.Текст = 
		"ВЫБРАТЬ Студенты.Ссылка КАК СсылкаСтудента 
		|ИЗ Справочник.Студенты КАК Студенты 
		|ГДЕ Студенты.Группа = &Группа И Студенты.Активен = ИСТИНА";
	Запрос.УстановитьПараметр("Группа", ВыбраннаяГруппа);
	
	Результат = Запрос.Выполнить();
	Массив = Новый Массив;
	Если Не Результат.Пустой() Тогда
		Выборка = Результат.Выбрать();
		Пока Выборка.Next() Цикл
			Массив.Добавить(Выборка.СсылкаСтудента);
		КонецЦикла;
	КонецЕсли;
	Возврат Массив;
КонецФункции

&НаКлиенте
Процедура ЗаполнитьСтудентов(Команда)
	Если Не ЗначениеЗаполнено(Объект.Группа) Тогда
		ПоказатьПредупреждение(, "Сначала выберите группу в шапке!");
		Возврат;
	КонецЕсли;
	
	МассивСтудентов = ПолучитьСтудентовГруппы(Объект.Группа);
	Объект.СеткаЖурнала.Очистить();
	
	Для Каждого ТекСтудент Из МассивСтудентов Цикл
		НоваяСтрока = Объект.СеткаЖурнала.Добавить();
		НоваяСтрока.Студент = ТекСтудент;
		НоваяСтрока.Посещаемость = ПредопределенноеЗначение("Перечисление.ВидыПосещаемости.Присутствовал");
	КонецЦикла;
КонецПроцедуры