Код

Процедура УстановитьИТЗ(тзИсточник) Экспорт
	Сам().ПоставщикДанных = "";
	Сам().Подвал.ПоставщикДанных = "";
	Сам().Колонки.Очистить();
	Если тзИсточник.КоличествоКолонок()<>0 Тогда
		Сам().СоздатьКолонкиПоИсточнику(тзИсточник);
		Попытка	тзИсточник.ЗаполнитьКолонкуПоАлгоритму("", "НомерПоПорядку", 1, 1);
		Исключение
			идКолонки="НомерПоПорядку";
			тзИсточник.НоваяКолонка(идКолонки);
			тзИсточник.ЗаполнитьКолонкуПоАлгоритму("", идКолонки, 1, 1);

			НоваяКолонка=Сам().Колонки.Добавить(идКолонки);
			НоваяКолонка.Заголовок="№ строки";
			ИндексКолонки=Сам().Колонки.Индекс(НоваяКолонка);
			Если ИндексКолонки>1 Тогда
				Сам().Колонки.Сдвинуть(ИндексКолонки, (-1)*(ИндексКолонки));
			КонецЕсли;
			НоваяКолонка.Данные=идКолонки;
			НоваяКолонка.ИзменениеРазмера=1;
			КартинкаКолонки=спСтрокСКартинками.Получить(Нрег(идКолонки));
			Если ПустоеЗначение(КартинкаКолонки)=0 Тогда
				НоваяКолонка.УстановитьКартинкиСтрок(КартинкаКолонки);
			КонецЕсли;
		КонецПопытки;
	КонецЕсли;
	Поставщик=СоздатьОбъект("ПоставщикДанныхИТ");
	Поставщик.ИндексированнаяТаблица=тзИсточник;

	итПодвала=тзИсточник.Копия(0,0);
	итПодвала.НоваяСтрока();
	ПоставщикПодвала=СоздатьОбъект("ПоставщикДанныхИТ");
	ПоставщикПодвала.ИндексированнаяТаблица=итПодвала;

	Сам().ПоставщикДанных = Поставщик;
	Сам().Подвал.ПоставщикДанных=ПоставщикПодвала;

	Сам().НачальноеПредставление = 0;
	Сам().ОбновитьСтроки();
	ОбновитьСтрокиПодвала();
	Сам().АвтоШирина();
КонецПроцедуры	// УстановитьИТЗ