Загрузка картинок из внешнего каталога обратно в базу 1С

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


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

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