Как сделать загрузку из накладных более удобной пользователю?

	СтруктураНазванийПеременныхИНазванийКолонок=Новый Структура;
	СтруктураПризнакОбязательностиКолонок=Новый Структура;
	
	СтруктураНазванийПеременныхИНазванийКолонок.Вставить("НомерКолонкиPickupDateTime","Дата");
	СтруктураПризнакОбязательностиКолонок.Вставить("НомерКолонкиPickupDateTime",Истина);

	СтруктураНазванийПеременныхИНазванийКолонок.Вставить("НомерКолонкиCMN","cm");
	СтруктураПризнакОбязательностиКолонок.Вставить("НомерКолонкиCMN",Истина);
	
	СтруктураНазванийПеременныхИНазванийКолонок.Вставить("НомерКолонкиRUR","Стоимость");
	СтруктураПризнакОбязательностиКолонок.Вставить("НомерКолонкиRUR",Истина);
          
	СтруктураЗначенийПеременных=НайтиНомераКолонок(Worksheet,СтруктураНазванийПеременныхИНазванийКолонок,СтруктураПризнакОбязательностиКолонок,НомерСтрокиШапкиТаблицы,НомерПоследнейКолонкиШапкиТаблицы);
	Если СтруктураЗначенийПеременных=Неопределено Тогда
		ЗакрытьФайл(WorkBook,Excel);
		Возврат;
	КонецЕсли;
	
	НомерКолонкиPickupDateTime=СтруктураЗначенийПеременных.НомерКолонкиPickupDateTime;
	НомерКолонкиCMN=СтруктураЗначенийПеременных.НомерКолонкиCMN;
 	НомерКолонкиRUR=СтруктураЗначенийПеременных.НомерКолонкиRUR;

&НаКлиенте
Функция НайтиНомераКолонок(Worksheet,СтруктураНазванийПеременныхИНазванийКолонок,СтруктураПризнакОбязательностиКолонок,НомерСтрокиШапкиТаблицы,НомерПоследнейКолонкиШапкиТаблицы) 
	
	СтруктураЗначенийПеременных=Новый Структура;

	Счетчик=1;
	НазвКолонки=СокрЛП(Строка(Worksheet.Cells(НомерСтрокиШапкиТаблицы,1).Value));//ищем номера колонок
	Пока Счетчик<=НомерПоследнейКолонкиШапкиТаблицы Цикл
		Если Не ПустаяСтрока(НазвКолонки) Тогда
			Для каждого стрПН из СтруктураНазванийПеременныхИНазванийКолонок Цикл
				Если СокрЛП(НазвКолонки)=СокрЛП(стрПН.Значение) Тогда
 					СтруктураЗначенийПеременных.Вставить(стрПН.Ключ,Счетчик);
				КонецЕсли;
			КонецЦикла;
		КонецЕсли;
		Счетчик=Счетчик+1;
		НазвКолонки=СокрЛП(Строка(Worksheet.Cells(НомерСтрокиШапкиТаблицы,Счетчик).Value));
	КонецЦикла;
	
	ВсеОбязательныеКолонкиНайдены=Истина;
	Для каждого стрПрПН из СтруктураПризнакОбязательностиКолонок Цикл
		Если НЕ СтруктураЗначенийПеременных.Свойство(стрПрПн.Ключ) Тогда
			Если стрПрПН.Значение Тогда
				ОбщегоНазначенияКлиентСервер.СообщитьПользователю("Не найдена колонка """+СтруктураНазванийПеременныхИНазванийКолонок[стрПрПн.Ключ]+""". Возможно, в xls-файле эта колонка сейчас называется по-другому. "+Символы.ПС+
				"Скопируйте название колонки из окна сообщения и вставьте в xls-файл. Это необходимо для полного совпадения ожидаемого и реального названия колонки в xls-файле.");
				ВсеОбязательныеКолонкиНайдены=Ложь;
				Прервать;
			Иначе
				СтруктураЗначенийПеременных.Вставить(стрПрПН.Ключ,0);
			КонецЕсли;
		КонецЕсли;
	КонецЦикла;
	
	Если Не ВсеОбязательныеКолонкиНайдены Тогда
		Возврат Неопределено;
	КонецЕсли;
	
	Возврат СтруктураЗначенийПеременных;
	
КонецФункции