Обновление данных формы после заполнения

&НаКлиенте
Процедура ВыполнитьКоманду(ИдентификаторКоманды, ОбъектыНазначенияМассив) Экспорт
	Если ПутьКФайлу = "" Тогда
		ВыбратьФайлЗ();
	КонецЕсли;
	//Если ПутьКФайлу <> "" Тогда
	//	ВладелецФормы.Объект.Товары.Очистить();
	//КонецЕсли;
    Попытка
		ОбъектExcel = Новый COMОбъект("Excel.Application");
	Исключение
		Сообщить ("Ошибка открытия MS Excel");	
	КонецПопытки;
	
	Попытка
		ОбъектExcel.WorkBooks.Open(ПутьКФайлу);
	Исключение
		ОбъектExcel.DisplayAlerts = 0; 
		ОбъектExcel.Quit();
		ОбъектExcel.DisplayAlerts = 1;
		
		Сообщить ("Ошибка открытия файла для чтения: " + ПутьКФайлу);	
	КонецПопытки;
	
	Попытка
		ОбъектExcel.Sheets(1).Select();
	Исключение
		ОбъектExcel.ActiveWorkbook.Close();
		ОбъектExcel = 0;
		
		Сообщить( "Ошибка при чтении файла: " + ПутьКФайлу);
	КонецПопытки;
	
	Version	= ОбъектExcel.Version;
	
	Версия = Лев(Version, Найти(Version,".") - 1 );
	
	Если Версия = "8" тогда
		ФайлСтрок	= ОбъектExcel.Cells.CurrentRegion.Rows.Count;
		ФайлКолонок = Макс(ОбъектExcel.Cells.CurrentRegion.Columns.Count, 13);
	Иначе
		ФайлСтрок	= ОбъектExcel.Cells(1,1).SpecialCells(11).Row;
		ФайлКолонок = ОбъектExcel.Cells(1,1).SpecialCells(11).Column;
	Конецесли;
	
	ЦеныДляПрайса 		= ПолучитьМассивДляПрайса();
	Сообщить(ЦеныДляПрайса[0]);
	Сообщить(ЦеныДляПрайса[1]);
	ТЧВидЦены 			= ВладелецФормы.Объект.ВидыЦен.Добавить();
    ТЧВидЦены.ВидЦены 	= ЦеныДляПрайса[0] ;
	ТЧВидЦены 			= ВладелецФормы.Объект.ВидыЦен.Добавить();
    ТЧВидЦены.ВидЦены 	= ЦеныДляПрайса[1] ;
	
 	Для НС = 1 по ФайлСтрок Цикл 
		Артикул = СокрЛП(ОбъектExcel.Cells(НС, 2).Text); //СокрЛП(ОбъектExcel.Cells(НС, 1).Text);
		Если Артикул = "" Тогда
			Продолжить;
		КонецЕсли; 
		Номенклатура = ПолучитьНоменклатуруПоАртикулу(Артикул);
		Сообщить(Артикул + " - " + Номенклатура);
		Если Номенклатура = Неопределено Тогда
		 	Продолжить;
		КонецЕсли; 
		ЦенаОпт 	=  СокрЛП(ОбъектExcel.Cells(НС, 5).Text); //СокрЛП(ОбъектExcel.Cells(НС, 16).Text);
		ЦенаРозн 	=  СокрЛП(ОбъектExcel.Cells(НС, 7).Text); //СокрЛП(ОбъектExcel.Cells(НС, 17).Text);
		
	//Строка с ценой Оптовая
        СтрокаТЧ 				= ВладелецФормы.Объект.Товары.Добавить();
	СтрокаТЧ.Номенклатура 	= Номенклатура;
        СтрокаТЧ.ВидЦены 		= ЦеныДляПрайса[0];
        СтрокаТЧ.Цена 			= ЦенаОпт;
		
	//Строка с ценой РРЦ
        СтрокаТЧ 				= ВладелецФормы.Объект.Товары.Добавить();
        СтрокаТЧ.Номенклатура 	= Номенклатура;
	СтрокаТЧ.ВидЦены 		= ЦеныДляПрайса[1];
        СтрокаТЧ.Цена 			= ЦенаРозн;
	КонецЦикла;
	
	
	ОбъектExcel.DisplayAlerts = 0; 
	ОбъектExcel.Quit();
	ОбъектExcel.DisplayAlerts = 1;
	ОтобразитьИзменениеДанных(ВладелецФормы.Объект,ВидИзмененияДанных.Изменение); 
	Сообщить(ВладелецФормы.Объект.Товары.Количество());
	
КонецПроцедуры