Перенесение данных из текстового файла в справочник

Процедура ДобавитьТовар(Наименование) Экспорт
	НовыйЭлемент = Справочники.Товары.СоздатьЭлемент();
	НовыйЭлемент.Наименование = Наименование;
	НовыйЭлемент.Записать();
КонецПроцедуры

Процедура ЗагрузитьИзТекстовогоФайла(ТекстовыйФайл) Экспорт
	ДД = ПолучитьИзВременногоХранилища(ТекстовыйФайл);
	ЧтениеДанных = Новый ЧтениеДанных(ДД);
	стрДанные = ЧтениеДанных.ПрочитатьСтроку("UTF8");
	
	Пока не ПустаяСтрока(стрДанные) Цикл
		ДобавитьТовар(стрДанные);
		стрДанные = ЧтениеДанных.ПрочитатьСтроку("UTF8");
	КонецЦикла;
	УдалитьИзВременногоХранилища(ТекстовыйФайл);
КонецПроцедуры

&НаКлиенте
Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды)
	ВыборФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
	ВыборФайла.ПолноеИмяФайла = "";
	ВыборФайла.Фильтр ="Файл .txt|*.txt|Файл .docx|*.docx";
	ВыборФайла.МножественныйВыбор = Ложь;
	ВыборФайла.Заголовок = "Выберите текстовый файл";
	ЗагрузкаФайлаНаСерверОповещение = Новый ОписаниеОповещения("ПослеЗагрузкиФайла", ЭтотОбъект);
	ВыборФайла.Показать(ЗагрузкаФайлаНаСерверОповещение);
КонецПроцедуры

&НаКлиенте
Процедура ПослеЗагрузкиФайла(ЗагружаемыйФайл, ДопПараметр) Экспорт
	Если ЗагружаемыйФайл = Неопределено Тогда
		Возврат;
	Иначе
		ЗагрузкаНаСерверОповещение = Новый ОписаниеОповещения("ПослеЗагрузкиФайлаНаСервер", ЭтотОбъект);
		НачатьПомещениеФайлаНаСервер(ЗагрузкаНаСерверОповещение, , , , ЗагружаемыйФайл[0]);
	КонецЕсли
КонецПроцедуры

&НаКлиенте
Процедура ПослеЗагрузкиФайлаНаСервер(Результат, ДопПараметр) Экспорт
	Если Результат = Ложь Тогда
		Возврат;
	Иначе
		РаботаСТоварами.ЗагрузитьИзТекстовогоФайла(Результат.Адрес);
	КонецЕсли;
КонецПроцедуры