Выгрузка - загрузка изображений из справочника "Хранилище дополнительной информации" 1С 8.1

09.04.15

Интеграция - Файловый обмен (TXT, XML, DBF), FTP

"Управление торговлей", редакция 10.2 + производство 1.0
Столкнулся с тем, что пользователи продолжительное время загружали изображения в BMP. В результате база сильно раздута. Написана обработка, выгружающая Изображения в одном из выбранных форматов (из справочника "ХранилищеДополнительнойИнформации") в папку на жесткий диск. Имена файлов преобразуются в "УникальныйИдентификатор" элемента справочника. Далее сторонней программой (я использовал фотошоп с написанным скриптом автоматизации) файлы конвертировались в JPG. По такому же принципу ("УникальныйИдентификатор") Изображения загружались обратно в базу.  

Скачать файл

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование По подписке [?] Купить один файл
СохранитьЗагрузитьИЗО.epf
.epf 9,30Kb ver:v2
24
24 Скачать (1 SM) Купить за 1 850 руб.

В обработке можно выбрать количество выгружаемых изображений за раз (чтобы не "затормаживать" базу на продолжительное время)

Также Вы можете выбрать формат и расширение для выгружаемых / загружаемых изображений и каталоги.

-----------------------------------------------

Выкладываю код принципа работы обработки для тех, кто учится программировать самостоятельно. Без проверок и возможностей выбора.

Выборку из справочника быстрее, конечно, делать запросом.

 

 

 

Процедура СохранитьИзоНажатие()

    ВыборкаИзо = Справочники.ХранилищеДополнительнойИнформации.Выбрать();

    Пока ВыборкаИзо.Следующий() Цикл

       Если ВыборкаИзо.ВидДанных = Перечисления.ВидыДополнительнойИнформацииОбъектов.Изображение Тогда

       ЗапКартинка = Новый Картинка();
       ЗапКартинка = ВыборкаИзо.Хранилище.Получить();

       ФорматК = ЗапКартинка.Формат();

          Если ФорматК = ФорматКартинки.BMP Тогда

        
          ИмяК = Новый УникальныйИдентификатор;
          ИмяК = ВыборкаИзо.Ссылка.УникальныйИдентификатор();


          Попытка

           ЗапКартинка.Записать("C:\" + ИмяК + "." + ФорматК);
         
          Исключение
           Предупреждение("Ошибка при записи файла" + ВыборкаИзо.Наименование);

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

          КонецЕсли;

       КонецЕсли;

    КонецЦикла;



КонецПроцедуры

 


Процедура ЗагрузитьИзоНажатие()

    ФайлыИзо = НайтиФайлы("C:\", "*.jpg");

    Для Каждого ЭлементМассива Из ФайлыИзо Цикл

        УИН = Новый УникальныйИдентификатор(ЭлементМассива.ИмяБезРасширения);
        СсылкаХДИ = Справочники.ХранилищеДополнительнойИнформации.ПолучитьСсылку(УИН);

        ХДИ = СсылкаХДИ.ПолучитьОбъект();

        НКартинка = Новый Картинка (ЭлементМассива.ПолноеИмя, Ложь);
        ХДИ.Хранилище = Новый ХранилищеЗначения(НКартинка, Новый СжатиеДанных());
        ХДИ.Записать();

    КонецЦикла;

КонецПроцедуры


ХранилищеДополнительнойИнформации Загрузка изображений Выгрузка изображений Изображения Картинки

См. также

SALE! 10%

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист Платформа 1С v8.3 1С:Управление производственным предприятием 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Управленческий учет Платные (руб)

Перенос данных из 1С:Управление производственным предприятием 1.3 в 1С:Бухгалтерия предприятия 3.0 с помощью правил обмена. Переносятся остатки, документы (обороты за период), справочная информация. Правила проверены на конфигурациях УПП 1.3 (1.3.236.x) и БП 3.0 (3.0.164.x). Правила подходят для версии ПРОФ и КОРП.

35000 31500 руб.

15.12.2021    24214    171    51    

130

SALE! 15%

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист Платформа 1С v8.3 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Россия Платные (руб)

Правила в универсальном формате обмена для ERP 2.5, КА 2.5, УТ 11.5, БП 3.0, Розница, УНФ, для последних версий конфигураций. Ссылки на другие конфигурации в описании публикации. Правила совместимы со всеми другими версиями конфигураций новыми и старыми, поддерживающими обмен и синхронизацию в формате EnterpriseData. Не требуется синхронного обновления правил после обновления другой конфигурации, участвующей в обмене. Типовой обмен через планы обмена кнопкой Синхронизация вручную или автоматически по расписанию, или вручную обработкой.

26280 руб.

12.06.2017    141904    798    297    

420

SALE! 10%

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист Платформа 1С v8.3 Оперативный учет 1С:Управление торговлей 10 Россия Управленческий учет Платные (руб)

Перенос данных из 1С:Управление торговлей 10.3 в 1С:Управление торговлей 11.5 с помощью правил обмена. Переносятся остатки, документы (обороты за период), справочная информация. Правила проверены на конфигурациях УТ 10.3 (10.3.88.x) и УТ 11.5 (11.5.19.x).

35000 31500 руб.

23.07.2020    51625    229    70    

187

SALE! 10%

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист Платформа 1С v8.3 1С:Комплексная автоматизация 1.х 1С:Управление производственным предприятием 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Платные (руб)

Перенос данных из 1С:Управление производственным предприятием 1.3 в 1С:Бухгалтерия предприятия 3.0 с помощью правил обмена | Можно выполнить переход с УПП на БП 3 или запускать выгрузку данных за выбранный период времени | Переносятся документы, начальные остатки и вся справочная информация | Есть фильтр по организации и множество других параметров выгрузки | Поддерживается несколько сценариев работы: как первичный полный перенос, так и перенос только новых документов | Перенос данных возможен в "1С: Бухгалтерия 3.0" версии ПРОФ, КОРП или базовую | Переход с "1С: УПП1.3" / "1С:КА 1.1" на "1С:БП3.0" с помощью правил конвертации будет максимально комфортным! | Можно бесплатно проверить перенос на вашем сервере!

48278 43450 руб.

25.02.2015    171326    304    257    

378

SALE! 10%

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Программист Платформа 1С v8.3 Сложные периодические расчеты 1С:Комплексная автоматизация 1.х 1С:Управление производственным предприятием 1С:Зарплата и Управление Персоналом 3.x Россия Бухгалтерский учет Платные (руб)

Правила переноса кадровых и расчетных данных и справочной информации из "1С:УПП1.3" или "1С:КА 1.1" в "1С:ЗУП 3.1 | Разработан в формате КД 2 (правила конвертации данных) | При выгрузке есть фильтр по организациям | Обновляется при выходе новых релизов 1С | Развитие алгоритмов | Расчетные документы переносятся в документ "Перенос данных" | Создаются документы "Начальная штатная расстановка" и "Начальная задолженность по зарплате", переносятся кадровые документы

55778 50200 руб.

29.10.2018    56315    60    105    

61

SALE! 10%

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Программист Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Комплексная автоматизация 2.х 1С:Зарплата и Управление Персоналом 3.x Россия Бухгалтерский учет Управленческий учет Платные (руб)

Перенос данных из ERP в ЗУП 3 | из КА 2 в ЗУП | Готовые правила конвертации данных (КД 2) для переноса остатков, документов с движениями и справочной информации 3 | Есть перенос начальной задолженности по зарплате и начальной штатной расстановки на выбранную дату | Обороты за прошлые годы (данные для расчета среднего) переносятся свернуто в документ "Перенос данных" | Есть фильтр по организациям | Документы за текущий период переносятся сразу с движениями, поэтому не потребуется делать перерасчеты | Перенос можно проверить перед покупкой, обращайтесь!

53111 47800 руб.

03.12.2020    36750    95    66    

91

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист Платформа 1С v8.3 Платформа 1C v8.2 1С:Комплексная автоматизация 1.х 1С:Управление торговлей 10 1С:Управление производственным предприятием Россия Платные (руб)

Регулярный обмен, выгрузка, перенос из КА 1.1, УПП 1.3, УТ 10.3 для обмена с любыми конфигурациями, поддерживающими обмен в формате EnterpriseData (КД3) - БП 3.0, ERP, КА 2, УТ 11, Розница 2, УНФ 1.6 и другими. Правила для старых и доработанных конфигураций не требуют синхронного обновления и совместимы с новыми и будущими конфигурациями. Обмен по расписанию, через папку, FTP, почту.

15300 руб.

18.02.2016    187062    590    509    

527

SALE! 10%

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Программист Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Платные (руб)

Перенос данных из ERP в БП 3 | из КА 2 в БП 3 | из УТ 11 в БП 3 | из ЕРП в БП 3 | Сэкономьте время - используйте готовое решение для перехода! | Перенос разработан в формате КД 2 (правила конвертации данных) | Переносятся все возможные виды документов, начальных остатков и нормативно-справочная информация| Можно опционально выгружать каждую пару "номенклатура+характеристика" как отдельную номенклатуру | Есть выгрузка настроек счетов учета и зарплатных данных из ERP / КА 2 | Можно проверить на вашем сервере перед покупкой

55778 50200 руб.

15.04.2019    72233    182    150    

124
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. dj_serega 393 09.04.15 23:06 Сейчас в теме
1. А почему нет выбора каталога? (если диска D нет)
2. Сохраняем: BMP
Если ФорматК = ФорматКартинки.BMP Тогда
Загружаем:
ФайлыИзо = НайтиФайлы("D:\Temp_izo\1\", "*.jpg");
2. chastliviy 9 10.04.15 08:59 Сейчас в теме
Выложил сам принцип, потому что не нашел похожего в интернете. Для создания своего каталога, воспользуйтесь: СоздатьКаталог(ИмяКаталога).
3. dj_serega 393 10.04.15 11:03 Сейчас в теме
(2) так сделайте рабочий вариант без принципов. и тогда люди потянутся.
1. Выбор каталога.
2. Выбор типов файлов.
Это необходимый минимум.
4. Fox-trot 163 10.04.15 21:45 Сейчас в теме
Пока ВыборкаИзо.Следующий()=1 Цикл

впечатлен 8-0
5. spotegg 15.05.20 12:24 Сейчас в теме
А если пользователи загружали PDF, а не только картинки, то сменив код:
Если ФорматК = ФорматКартинки.BMP Тогда
на
Если ФорматК = ФорматКартинки.PDF Тогда

будет работать выгрузка?

тоже самое для выгрузки:
ФайлыИзо = НайтиФайлы("C:\", "*.pdf");


Или так не сработает?
Оставьте свое сообщение