2
OnePrg
16.03.23
✎
21:15
|
(1)
&НаКлиенте
Процедура Выгрузить(Команда)
#Если ВебКлиент Тогда
// Попробуем подключить расширение работы с файлами
РасширениеПодключено = ПодключитьРасширениеРаботыСФайлами();
Если НЕ РасширениеПодключено Тогда
// Расширение не установлено, пробуем установить
УстановитьРасширениеРаботыСФайлами();
КонецЕсли;
РасширениеПодключено = ПодключитьРасширениеРаботыСФайлами();
Если Не РасширениеПодключено Тогда
// Расширение не удалось установить, сообщаем об этом пользователю
ПоказатьПредупреждение( , НСтр("ru = 'Для выполнения данной операции вам нужно установить расширение работы с файлами.'"));
Возврат;
КонецЕсли;
Для каждого строка из объект.Журнал Цикл
ИмяФайла = СокрЛП(объект.Каталог)+СокрЛП(строка.Номер)+".txt";
КопироватьФайл(строка.ПолноеИмяФайла,ИмяФайла);
КонецЦикла;
#КонецЕсли
КонецПроцедуры
"Использование модальных окон в данном режиме запрещено"
|
|