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

09.04.15

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

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

Файлы

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

Наименование Скачано Купить файл
СохранитьЗагрузитьИЗО.epf
.epf 9,30Kb ver:v2
24 2 500 руб. Купить

Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний

Оформите подписку на компанию для решения рабочих задач

Оформить подписку и скачать решение со скидкой

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

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

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

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

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

 

 

 

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

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

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

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

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

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

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

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


          Попытка

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

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

          КонецЕсли;

       КонецЕсли;

    КонецЦикла;



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

 


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

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

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

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

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

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

    КонецЦикла;

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


Вступайте в нашу телеграмм-группу Инфостарт

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

См. также

НДС 22% Учетные задачи ККМ Файловый обмен (TXT, XML, DBF), FTP 1С 8.3 1С:Комплексная автоматизация 1.х 1С:Управление торговлей 10 1С:Управление производственным предприятием Бухгалтерский учет Налоговый учет НДС Платные (руб)

Готовое обновление для конфигурации 1С:Управление торговлей 10.3, 1С:Комплексная автоматизация 1.1 , 1С:Управление производственным предприятием 1.3 обеспечивающее полную поддержку новой ставки НДС 22%. Для 1С:УТ 10.3 реализована поддержка печати чеков ККМ, а также Правила обмена с 1С:БП 3.0. Решение встраивает необходимые изменения в перечисления и документы, включая торговые операции и печатные формы.

12200 руб.

16.12.2025    7635    83    0    

78

SALE! 10%

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

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

38000 34200 руб.

15.12.2021    32946    245    61    

185

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист 1С:Предприятие 8 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. Не требуется синхронного обновления правил после обновления другой конфигурации, участвующей в обмене. Типовой обмен через планы обмена кнопкой Синхронизация вручную или автоматически по расписанию, или вручную обработкой.

22650 руб.

12.06.2017    158649    948    317    

478

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист 1С:Предприятие 8 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" с помощью правил конвертации будет максимально комфортным! | Можно бесплатно проверить перенос на вашем сервере!

50050 руб.

25.02.2015    186849    350    284    

412

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

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

58000 руб.

29.10.2018    61831    78    129    

77

SALE! 10%

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

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

38000 34200 руб.

23.07.2020    66548    311    86    

250

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

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

16531 руб.

18.02.2016    200643    663    543    

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

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

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

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


Или так не сработает?
Для отправки сообщения требуется регистрация/авторизация