Код

Перем ТПФормы, итРезультат;
//*******************************************
Процедура ПослеСозданияФормы()

     итРезультат=СоздатьОбъект("ИндексированнаяТаблица");
     итРезультат.НоваяКолонка("Номенклатура");
     итРезультат.НоваяКолонка("Количество");
     итРезультат.НоваяСтрока();
     итРезультат.Номенклатура = "Товар1";
     итРезультат.Количество = 1;
     итРезультат.НоваяСтрока();
     итРезультат.Номенклатура = "Товар2";
     итРезультат.Количество = 2;

     Ф=СоздатьОбъект("Форма");
     ТПФормы=Ф.СоздатьЭлементУправленияНаФорме(Форма, "ТабличноеПоле", "тпНаФорме");

     Поставщик=СоздатьОбъект("ПоставщикДанныхИТ");
     Поставщик.ИндексированнаяТаблица=итРезультат;
     ТПФормы.ПоставщикДанных=Поставщик;

	 Колонки = ТПФормы.Колонки;
     Колонка = Колонки.Добавить("Номенклатура");
     Колонка.Данные = "Номенклатура";
     Колонка = Колонки.Добавить("Количество");
     Колонка.Данные = "Количество";

     ТПФормы.ОбновитьСтроки();

КонецПроцедуры	// ПослеСозданияФормы


Процедура ТтпНаФормеПриРедактированииЗначения(__тп, __стр, __кол, __рег, __знач)
	ИмяКол = __кол.Имя;
	//Если ИмяКол = "Статья" Тогда
	//	;
	//КонецЕсли;
	ПредЗнач = итРезультат.ПолучитьЗначение(__стр, ИмяКол);
	Если ПредЗнач <> __знач Тогда
		итРезультат.УстановитьЗначение(__стр, ИмяКол,__знач);
		итРезультат.УстановитьЗначение(__стр, "Изменен",1);

	КонецЕсли;

	ТПФормы.ОбновитьСтроки();
	Форма.Обновить();
КонецПроцедуры

Процедура тпНаФормеВыбор(_ТП, __стр, __кол,__рег)
	Если __рег <> 3 Тогда
		Возврат;
	КонецЕсли;
	//ТПКаленд.ВыделенныеСтроки.Очистить();
	ИмяКол = __кол.Имя;

	Если  (ИмяКол = "Номенклатура")	Тогда
		зн = ТПФормы.ТекущиеДанные.Получить("Номенклатура").ТекущийЭлемент();
		,зн,0,0,"ВыбРеквизит","0x00000020");
	ИначеЕсли (ИмяКол = "Количество") Тогда
		зн = ТПФормы.ТекущиеДанные.Получить(ИмяКол);
		ТПФормы.РедактироватьЗначение(ТПФормы.ТекущаяСтрока,ТПФормы.ТекущаяКолонка, __рег, зн, 17, 2, "ВыбРеквизит", "0x100220");
	КонецЕсли;

	Если (ПустоеЗначение(ТекПользователь) = 1) И (ИмяКол <> "СуммаПодтв") Тогда
		Предупреждение("Сначала надо выбрать Пользователя");
		Возврат;
	КонецЕсли;

	Если ИмяКол = "Статья" Тогда
		зн = ТПКаленд.ТекущиеДанные.Получить("Статья").ТекущийЭлемент();
		зн,0,0,"ВыбРеквизит","0x00000020");