программно заполнить поле табл части

&НаКлиенте
Процедура ТЧСписокПослеУдаления(Элемент)
	НумерацияСтрокТЧ(ТЧСписок);
КонецПроцедуры


&НаКлиенте
Процедура НумерацияСтрокТЧ(ТекТЧ)
	Для Каждого СтрТЧ ИЗ ТекТЧ Цикл
		СтрТЧ.НомерПП = ТекТЧ.Индекс(СтрТЧ) + 1;
	КонецЦикла;	
КонецПроцедуры

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
	Если Элементы.Найти("ЭлементСправочника") = Неопределено Тогда
		Если НЕ Параметры.Свойство("ОбъектыНазначения") Тогда 	
			Сообщить("Ошибка получения докумнта!");
			Отказ = Истина;
			Возврат;
		КонецЕсли;
	КонецЕсли;
	Если Параметры.Свойство("ОбъектыНазначения") Тогда
		мОбъектов = Параметры.ОбъектыНазначения;
		Если НЕ мОбъектов = Неопределено И ТипЗнч(мОбъектов) = Тип("Массив") Тогда
			Если НЕ мОбъектов.Количество() = 0 Тогда
				ЭлементСправочника = Параметры.ОбъектыНазначения[0];
			КонецЕсли;
		КонецЕсли;	
	Иначе
		Сообщить("Ошибка получения объекта формы вызова!");
	КонецЕсли;
	Вт = РеквизитФормыВЗначение("ТЧНастройки");
	СтруктураПараметров = Объект.СтруктураПараметров;
	Если СтруктураПараметров = Неопределено ИЛИ НЕ ТипЗнч(СтруктураПараметров) = Тип("Структура") Тогда
		СтруктураПараметров = Новый Структура;
	КонецЕсли;
	Объект.СтруктураПараметров = СтруктураПараметров;
	СтрОбязательныхРеквизитов = "НомерЛиста,НомерПервойСтроки,КолонкаНоменклатура,КолонкаКоличество";
	мПараметрыСтрокой = СтрЗаменить(СтрОбязательныхРеквизитов, ",", Символы.ПС);
	Для н = 1 По СтрЧислоСтрок(мПараметрыСтрокой) Цикл
		ТекПараметр = СтрПолучитьСтроку(мПараметрыСтрокой,н);
		Если НЕ Вт.Найти(ТекПараметр, "ИмяПараметра") = Неопределено Тогда
			Продолжить;
		КонецЕсли;	
		Если ТекПараметр = "КолонкаКоличество" Тогда
			Значение = "2";
		Иначе
			Значение = "1";
		КонецЕсли;
		Если ТекПараметр = "КолонкаНоменклатура" Тогда
			Тип = "СправочникСсылка.Номенклатура";
		ИначеЕсли ТекПараметр = "КолонкаКоличество" Тогда
			Тип = "Число";
		Иначе
			Тип = "НеУчитывать";
		КонецЕсли;
		СтрВт = Вт.Добавить();
		СтрВт.НомерПП = Вт.Индекс(СтрВт) + 1;
		СтрВт.ИмяПараметра = ТекПараметр;
		СтрВт.НомерКолонкиВФайле = Значение;
		СтрВт.ТипЗначения = Тип;
	КонецЦикла;	
	ЗначениеВРеквизитФормы(Вт, "ТЧНастройки"); 
КонецПроцедуры