Код

Перем Сериализуемый,ИДЭУ;
Функция Сам(Конт) Возврат Конт; КонецФункции

Процедура Сериализовать(Режим)
	ТП=Сам(Контекст).ПолучитьБазовыйКласс("ТабличноеПоле");
	ИмяФайла=КаталогПользователя()+"_ТП_"+ИДЭУ+".tfs";
	Если Режим=0 Тогда //load
		Сп="";
		ЗначениеИзФайла(ИмяФайла,Сп,1);
		Если ПустоеЗначение(Сп)=0 Тогда
			ИмяКолонки="";
			Индекс=0;
			Для Тек=1 По Сп.РазмерСписка() Цикл
				СпКолонка=Сп.ПолучитьЗначение(Тек,ИмяКолонки);
				Попытка
					Колонка=ТП.Колонки.Получить(ИмяКолонки);
				Исключение
					Колонка="";
				КонецПопытки;
				Если ПустоеЗначение(Колонка)=0 Тогда
					Колонка.Видимость=СпКолонка.Получить("Видимость");
					Колонка.Ширина=СпКолонка.Получить("Ширина");
					ИндексВТП=ТП.Колонки.Индекс(Колонка);
					Если Индекс<>ИндексВТП Тогда
						ТП.Колонки.Сдвинуть(ИндексВТП,Индекс-ИндексВТП);
					КонецЕсли;
					Индекс=Индекс+1;
				КонецЕсли;
			КонецЦикла;
		КонецЕсли;
	Иначе //store
		Сп=СоздатьОбъект("СписокЗначений");
		Для Тек=1 По ТП.Колонки.Количество() Цикл
			Колонка=ТП.Колонки.Получить(Тек-1);
			СпКолонка=СоздатьОбъект("СписокЗначений");
			Сп.ДобавитьЗначение(СпКолонка,Колонка.Имя);
			СпКолонка.Установить("Видимость",Колонка.Видимость);
			СпКолонка.Установить("Ширина",Колонка.Ширина );
		КонецЦикла;
		ЗначениеВФайл(ИмяФайла,Сп,1);
	КонецЕсли;
КонецПроцедуры

Процедура Сериализация(пИДЭУ) Экспорт
	Если ПустаяСтрока(пИДЭУ)=0 Тогда
		Сериализуемый=1;
		ИДЭУ=пИДЭУ;
		Сериализовать(0);
	КонецЕсли;
КонецПроцедуры

Процедура ПриУничтожении() Экспорт
	Если Сериализуемый=1 Тогда
		Сериализовать(1);
	КонецЕсли;
КонецПроцедуры