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