Администратор (Все сообщения пользователя)

Ниже код

[CODE]ИмяФайла = СформироватьИмяФайлаНоменклатуры(ХранилищеДополнительнойИнформацииСсылка);
КаталогФайлов = Константы.APPLIX_RU_ХДВИ_КаталогХраненияФайлов.Получить();
Путь = НайтиФайлВПодкаталогах(КаталогФайлов, ИмяФайла);


Функция СформироватьИмяФайлаНоменклатуры(ОбъектСсылка) Экспорт
   
   Расширение = ПолучитьЗначениеРеквизитаОбъекта(ОбъектСсылка, "Расширение");
   Если Лев(Расширение, 1)="." Тогда
       Расширение = Сред(Расширение, 2);
   КонецЕсли;
   
   Если Не ЗначениеЗаполнено(Расширение) Тогда
       Попытка
           Расширение = НРег(ОбъектСсылка.Хранилище.Получить().Формат());
       Исключение
           //Расширение = "jpg";
       КонецПопытки;
       
       Если Не ЗначениеЗаполнено(Расширение) Тогда
           ИмяФайла = ПолучитьЗначениеРеквизитаОбъекта(ОбъектСсылка, "ИмяФайла");
           Расширение = APPLIX_RU_ХДВИ_ОбщийМодуль.ПолучитьРасширениеИмениФайла(ИмяФайла);
           
           Если Не ЗначениеЗаполнено(Расширение) Тогда
               Расширение = APPLIX_RU_ПолучитьЗначениеСтруктуры(ОбъектСсылка, "ТипФайла", "");
               Расширение = СтрЗаменить(Расширение, ".", "");
           КонецЕсли;
       КонецЕсли;
   КонецЕсли;
   
   ИмяФайла = Строка(ОбъектСсылка.Ссылка.УникальныйИдентификатор());
   Если ЗначениеЗаполнено(Расширение) Тогда
       ИмяФайла = ИмяФайла + "." + СокрЛП(Расширение);
   КонецЕсли;
   
   Возврат ИмяФайла;
КонецФункции

Функция НайтиФайлВПодкаталогах(Каталог, Маска, ВозможныеРасширения=Неопределено, ИскатьВПодкаталогах = Истина) Экспорт
//сначала просто составим путь из имени без поиска
Подкаталог = Лев(Маска, 4);
тмп = Каталог + "\" + Подкаталог + "\" + Маска;
ф = Новый Файл(тмп);
Если ф.Существует() Тогда
Возврат тмп;
КонецЕсли;

Попытка
ИмяБезРасширения = ф.Путь + ф.ИмяБезРасширения;
Для каждого Расш Из ВозможныеРасширения Цикл
НовоеИмя = ИмяБезРасширения + "." + Расш;
ф = Новый Файл(НовоеИмя);
Если ф.Существует() Тогда
Возврат НовоеИмя;
КонецЕсли;
КонецЦикла;
Исключение
КонецПопытки;

Если ИскатьВПодкаталогах <> Истина Тогда
Возврат "";
КонецЕсли;

МассивФайлов = НайтиФайлы(Каталог, Маска, Истина);
Попытка
ИмяФайла = МассивФайлов[0].ПолноеИмя;
Исключение
ИмяФайла = "";
КонецПопытки;

Возврат ИмяФайла;
КонецФункции

[/CODE]

проверьте активацию бонусной системы

файл по указанной ссылке не скачивается и не открывается

здравствуйте

в нашем решении к сожалению нет обратной загрузки картинок в 1с

пришлите ссылку на файл
протестируем

вы случайно не забыли ПРОЧИТАТЬ ФАЙЛ пере выполнением Распознавания?

то есть по отмеченным видам эл.почт партнеров не загружаются адреса. верно?

доработаем
ожидайте

покажите настройки всех колонок (скриншоты)

вопросы по модулю авошоп задавайте на сайте Авошоп https://avoshop.ru/forum/