0
v_kras
11.11.19
✎
17:48
|
Процедура ЗагрузитьФайл(
ОбработчикЗавершения,
ПараметрыЗагрузки = Неопределено,
ИмяФайла = "",
АдресВоВременномХранилище = "") Экспорт
Если ПараметрыЗагрузки = Неопределено Тогда
ПараметрыЗагрузки = ПараметрыЗагрузкиФайла();
ИначеЕсли Не ПараметрыЗагрузки.Интерактивно
И ПустаяСтрока(ИмяФайла) Тогда
ВызватьИсключение НСтр("ru ='Не указано имя файла для загрузки в неинтерактивном режиме.'");
КонецЕсли;
Если Не ЗначениеЗаполнено(ПараметрыЗагрузки.ИдентификаторФормы) Тогда
ПараметрыЗагрузки.ИдентификаторФормы = Новый УникальныйИдентификатор;
КонецЕсли;
ОписаниеФайла = Новый ОписаниеПередаваемогоФайла(ИмяФайла, АдресВоВременномХранилище);
ЗагружаемыеФайлы = Новый Массив;
ЗагружаемыеФайлы.Добавить(ОписаниеФайла);
ПараметрыЗагрузки.Вставить("ЗагружаемыеФайлы", ЗагружаемыеФайлы);
ПараметрыЗагрузки.Диалог.ПолноеИмяФайла = ИмяФайла;
ПараметрыЗагрузки.Диалог.МножественныйВыбор = Ложь;
ПоказатьПомещениеФайла(ОбработчикЗавершения, ПараметрыЗагрузки);
КонецПроцедуры
--------------------------------------------------------------------------------
Значение не является значением объектного типа (Интерактивно)
|
|