Спец 1С8 УПП/УТ+dropbox.
Нужно в карточку физ лица подтягивать в хранилище pdf файл из dropbox-а
Заранее ссылка на pdf-файл НЕизвестна, но известно как называется файл и в какой он папке
Простой код типа того что ниже не работает
Вызывающая процедура:
ПолноеИмяФайла = СкачатьФайл("preview/Анкета полная Образец/"+сокрлп(да.к8)+"-"+сокрлп(да.к1)+".pdf?role=personal");
если не ПолноеИмяФайла=Неопределено тогда
ВыбранныйФайл = Новый Файл(ПолноеИмяФайла);
НовыйОбъект = Справочники.ХранилищеДополнительнойИнформации.СоздатьЭлемент();
НовыйОбъект.ВидДанных = Перечисления.ВидыДополнительнойИнформацииОбъектов.Файл;
НовыйОбъект.Хранилище = Новый ХранилищеЗначения(ВыбранныйФайл, Новый СжатиеДанных);
НовыйОбъект.Объект = стз.Ссылка;
НовыйОбъект.Наименование = "Анкета";
НовыйОбъект.Записать();
конецесли;
Отрабатывающая функция:
функция СкачатьФайл(урл)
попытка
ssl1 = Новый ЗащищенноеСоединениеOpenSSL(
Новый СертификатКлиентаWindows(СпособВыбораСертификатаWindows.Авто),
Новый СертификатыУдостоверяющихЦентровWindows());
Соединение = Новый HTTPСоединение("www.dropbox.com", , , , ,,ssl1);
ФайлИд = ПолучитьИмяВременногоФайла("pdf");
Соединение.Получить(урл, ФайлИД);
ВыбФайл = Новый Файл(ФайлИД);
если ВыбФайл.Размер()>0 тогда
возврат ФайлИД;
иначе
возврат Неопределено;
конецесли;
исключение
возврат Неопределено;
КонецПопытки;
конецфункции
нужно работающее решение
Ожидаемый результат на скрине во вложении
Цена ваша