Программно загрузить картинки в базу 1С УТ 10.3

Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.ВыборКаталога);

Если Диалог.Выбрать() Тогда

  ИмяКаталога = Диалог.Каталог;

Запрос = Новый Запрос;

Запрос.Текст = "ВЫБРАТЬ

               | ХранилищеДополнительнойИнформации.Ссылка,

               | ХранилищеДополнительнойИнформации.ИмяФайла,

               | ХранилищеДополнительнойИнформации.Объект

               |ИЗ

               | Справочник.ХранилищеДополнительнойИнформации КАК ХранилищеДополнительнойИнформации";

Результат = Запрос.Выполнить().Выбрать();

ФайлыКартинок = НайтиФайлы(ИмяКаталога, "*");

//сообщить("Пока не работает эта кнопка");

Сообщить("Начало Загрузки картинок "+текущаяДата());

НомерСтроки=0;

Пока Результат.следующий() Цикл

Номерстроки= Номерстроки+1;

ОбработкаПрерыванияПользователя();

Картинка = Неопределено;

Попытка

Картинка = Новый Картинка(ИмяКаталога+"\"+Результат.ИмяФайла);

Исключение

конецПопытки;

Если не Картинка = Неопределено Тогда

СсылкаХранилище = Результат.Ссылка;

ОБъектхранилище = СсылкаХранилище.ПолучитьОБъект();

ОбъектХранилище.Хранилище = Новый ХранилищеЗначения(Картинка);

ОбъектХранилище.Записать();

ОбъектНоменклатура = Результат.Объект.ПолучитьОБъект();

ОБъектНоменклатура.ОсновноеИзображение = СсылкаХранилище;

ОбъектНоменклатура.Записать();

Сообщить(строка(НомерСтроки) +" Заменена картинка ******* "+ Строка(Результат.ИмяФайла));

КонецЕсли;

конецЦикла;

Сообщить("Загрузка завершена из каталога "+ ИмяКаталога + " " +ТекущаяДата());

КонецЕсли;

Как предварительно выгрузить картинки рассказано в статье ниже