Код

Процедура ТП_ЖурнДокПриВыбореЗаголовка(_ТП,_Колонка)
	ТекИмяКол = _Колонка.Имя;
	Для Нк = 0 По _ТП.Колонки.Количество()-1 Цикл
		ИндКол = _ТП.Колонки.Получить(Нк).Имя;
		Если ТекИмяКол = ИндКол Тогда
			_Колонка.ЦветФонаЗаголовка = глПолучитьЦвет(0,192,255);
			_Колонка.ЗнакУпорядочивания = 1;
		Иначе
			_Колонка.ЦветФонаЗаголовка = -1;
			_Колонка.ЗнакУпорядочивания = 0;
		КонецЕсли;

	КонецЦикла;
	ОбновитьДанные(_Колонка.Имя);
	//"DATE_TIME_IDDOC"
	_ТП.ПоставщикДанных.УстКлючПорядка(_Колонка.Имя);
КонецПроцедуры