Картинки в 1С

[Pavel779]

Народ объяснить кто нибудь, есть самописная конфигурация.
Надо к справочнику номенклатуру в ручную подгружать картинки. Не пойму как это сделать.
Может кто объяснить по порядку, как это сделать?

[Yura063]

А кто тебе подскажет не виде и не зная как и что реализовано в вашей конфигурации! В типовой надо просто нажать левой кнопкой на место прикрепление картинки! Это в 8.2 УТ11!

[Pavel779]

Я же написал конфа самописная.
Мне надо чтоб кто то объяснил, как с нуля загружать картинки в 1С. т.е. создать справочник, создать реквизит какой описать там код и т.д.

[Dethmontt]

Ну скачай какую-нибудь типовую конфу (УТ, УПП, БП, ЗУП и т.д.) и посмотри как это реализовано там...

[Pavel779]

Я вот в эти конфы гляжу и не чего не пойму!!!!

[Dethmontt]

Тогда чем мы можем тебе помочь?
Конкретизируй что тебе не понятно, постараемся тут разобрать более детально...

Первое на что ты должен себе ответить - это как(где) ты собрался хранить свои картинки (Предполагаю два варианта: 1. В базе данных; 2. В каком либо каталоге на жестком диске)

[Pavel779]

Если хранить картинки в базе, на сколько сильно её может раздуть?

[Klyacksa]

Смотря какого объема картинки будут загружаться и сколько их будет))

[beztrud]

Примерно такие коды. Разбирайся, если нужно пришлю конфигурацию.

Код Выделить Развернуть


&НаКлиенте
Процедура ЗагрузитьСДиска(Команда)

АдресВХранилище = "";
ВыбранноеИмяФайла = "";

Если ПоместитьФайл(АдресВХранилище, , ВыбранноеИмяФайла, , УникальныйИдентификатор) Тогда

Файл = Новый Файл(ВыбранноеИмяФайла);

ИмяФайлаКартинки = Файл.Имя;
СсылкаНаКартинку = АдресВХранилище;

Модифицированность = Истина;

КонецЕсли;

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

&НаКлиенте
Процедура СохранитьНаДиск(Команда)

Если Объект.ИмяФайлаКартинки = "" Тогда
Предупреждение("У товара нет сохраненной в базе картинки");

Иначе
СсылкаНаФайлВИБ = ПолучитьНавигационнуюСсылку(Объект.Ссылка, "ФайлКартинки");
ПолучитьФайл(СсылкаНаФайлВИБ, Объект.ИмяФайлаКартинки);
КонецЕсли;

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

&НаСервере
Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)

// Получить файл из хранилища и поместить его в объект
Если ЭтоАдресВременногоХранилища(СсылкаНаКартинку) Тогда
ДвоичныеДанные = ПолучитьИзВременногоХранилища(СсылкаНаКартинку);
ТекущийОбъект.ФайлКартинки = Новый ХранилищеЗначения(ДвоичныеДанные, Новый СжатиеДанных(9));

ТекущийОбъект.ИмяФайлаКартинки = ИмяФайлаКартинки;
КонецЕсли;

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

&НаСервере
Процедура ПриЗаписиНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)

// Удалить файл из временного хранилища
Если ЭтоАдресВременногоХранилища(СсылкаНаКартинку) Тогда
УдалитьИзВременногоХранилища(СсылкаНаКартинку);
СсылкаНаКартинку = ПолучитьНавигационнуюСсылку(ТекущийОбъект.Ссылка, "ФайлКартинки");

КонецЕсли;

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

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)

Если Объект.ИмяФайлаКартинки <> "" Тогда
СсылкаНаКартинку = ПолучитьНавигационнуюСсылку(Объект.Ссылка, "ФайлКартинки");

КонецЕсли;

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



[Pavel779]

Пришлите конфу.
Вот ящик Pavel.Znaikin@yandex.ru