---

&НаКлиенте
Процедура СписокСтудентовИтоговаяОценкаПриИзменении(Элемент)
	
	ТекущаяСтрока = Элементы.СписокСтудентов.ТекущиеДанные;
	
	Если ТекущаяСтрока <> Неопределено Тогда
		
		// Переводим ввод в нижний регистр, чтобы не важно было, как написали: "зачет" или "Зачет"
		ЗначениеОценки = НРег(СокрЛП(ТекущаяСтрока.ИтоговаяОценка));
		
		// Если это не зачет и не незачет, проверяем, цифра ли это от 1 до 5
		Если ЗначениеОценки <> "зачет" И ЗначениеОценки <> "незачет" Тогда
			
			// Пытаемся превратить строку в число
			Число Оценки = 0;
			Попытка
				ЧислоОценки = Число(ЗначениеОценки);
			Исключение
				ЧислоОценки = 0;
			КонецПопытки;
			
			// Если ввели ерунду или число не входит в рамки 1-5
			Если ЧислоОценки < 1 Или ЧислоОценки > 5 Тогда
				ТекущаяСтрока.ИтоговаяОценка = "";
				ПоказатьПредупреждение(, "Допустимые значения: цифры от 1 до 5, либо слова 'Зачет', 'Незачет'!");
			КонецЕсли;
			
		КонецЕсли;
		
	КонецЕсли;
	
КонецПроцедуры