franciskthedirty

16.01.2020 07:23

Информатика

Есть ответ 👍

Эксельтан загрузка файыллары, хартыына. ДокСан &НаКлиенте
Процедура АдресКартинкиНажатие(Элемент, СтандартнаяОбработка)

Оповещение = Новый ОписаниеОповещения ("", ЭтотОбъект);
НачатьПомещениеФайла(Оповещение,,,Истина,УникальныйИдентификатор);
СтандартнаяОбработка = Ложь;

КонецПроцедуры

&НаКлиенте
Процедура (Результат, Адрес, ПомещаемыйФайл, ДополнительныеПараметры) Экспорт

Если НЕ Результат Тогда
Возврат
КонецЕсли;
АдресКартинки = Адрес;
Модифицированность = Истина;

КонецПроцедуры

&НаСервере
Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)
Если (АдресКартинки) Тогда
ТекущийОбъект.Изображение = Новый ХранилищеЗначения ((АдресКартинки));
КонецЕсли;
КонецПроцедуры

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
АдресКартинки = (Объект.Ссылка, "Изображение");
КонецПроцедуры


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

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

&НаКлиенте
Процедура (Элемент)
Строка = Элементы.Материалы.ТекущиеДанные;
Строка.Сумма=Строка.Количество*Строка.Цена;
КонецПроцедуры
&НаКлиенте
Процедура (Элемент)
Строка = Элементы.Материалы.ТекущиеДанные;
Строка.Сумма=Строка.Количество*Строка.Цена;
КонецПроцедуры