0
BushNik
05.09.19
✎
17:16
|
В документообороте 8 КОРП, редакция 2.1 (2.1.13.28) есть механизм перетаскивания файлов из формы документа ВходящееПисьмо в проводник, таким методом можно вытащить файл из базы в проводник windows. Но он работает только для одного файла, для нескольких выделенных файлов не работает. Как это можно исправить? Каким образом можно получить каталог куда перетаскиваются файлы? Если его получить то проблем нет.
|
|
2
BushNik
05.09.19
✎
17:52
|
&НаКлиенте
Процедура ВложенияНачалоПеретаскивания(Элемент, ПараметрыПеретаскивания, Выполнение)
#Если Не ВебКлиент Тогда
КоличествоВыделенныйВложений = Элементы.Вложения.ВыделенныеСтроки.Количество();
Если КоличествоВыделенныйВложений = 0 Тогда
Возврат;
ИначеЕсли КоличествоВыделенныйВложений = 1 Тогда
ФайлСсылка = Элементы.Вложения.ТекущиеДанные.Ссылка;
ДанныеФайла = РаботаСФайламиВызовСервера.ДанныеФайлаДляОткрытия(ФайлСсылка);
ПолноеИмяПеретаскиваемогоФайла = "";
Обработчик = Новый ОписаниеОповещения("ПослеПолучитьФайлВерсииВРабочийКаталог", ЭтотОбъект);
РаботаСФайламиКлиент.ПолучитьФайлВерсииВРабочийКаталог(Обработчик,
ДанныеФайла, ПолноеИмяПеретаскиваемогоФайла, УникальныйИдентификатор);
Если ЗначениеЗаполнено(ПолноеИмяПеретаскиваемогоФайла) Тогда
Файл = Новый Файл(ПолноеИмяПеретаскиваемогоФайла);
ПараметрыПеретаскивания.Значение = Файл;
Иначе
Выполнение = Ложь;
КонецЕсли;
Иначе
МассивФайлов = Новый Массив;
Для каждого ВыделеннаяСтрока Из Элементы.Вложения.ВыделенныеСтроки Цикл
ДанныеСтроки = Вложения.НайтиПоИдентификатору(ВыделеннаяСтрока);
МассивФайлов.Добавить(ДанныеСтроки.Ссылка);
КонецЦикла;
Если МассивФайлов.Количество() = 0 Тогда
Возврат;
КонецЕсли;
ПараметрыПеретаскивания.Значение = МассивФайлов;
КонецЕсли;
#Иначе
Выполнение = Ложь;
#КонецЕсли
КонецПроцедуры
|
|