Загрузка данных


&НаКлиенте
Процедура Импортировать(Команда)

    Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
    Диалог.Заголовок = "Выберите файл Excel";
    Диалог.Фильтр = "Файлы Excel (*.xlsx)|*.xlsx";

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

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

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

    Если ОписаниеПомещенногоФайла = Неопределено Тогда
        Возврат;
    КонецЕсли;

    ИмпортироватьНаСервере(ОписаниеПомещенногоФайла.Адрес);

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