[Constantus]

Приветствую, Форумчане!

УТ 10.3, 1с8.2, обычное приложение.

Имеется такое ТЗ: в "Реализации товаров и услуг" будут вставляться только товары конкретного поставщика. По регламенту, в одной фактуре не может быть товары разных поставщиков.

У каждого поставщика свой логотип. Необходимо, чтобы в Расходной накладной печатался Логотип поставщика.

Как это сделать?

Мысли такие:

1. Добавить новый реквизит "Логотип" в справочник Контрагенты.
2. Немыслимым способом связать этот логотип с картинкой. Кстати как?
3. В Документе "Реализация" добавить реквизит "Поставщик" со ссылкой на Контрагента с логотипом.
4. При нажатии кнопки, в Макете проставляется нужная картика с выбранным поставщиком.

Как реализовать данную задумку?

[Нонна]

Может быть есть другой способ, например перед выводом счета на печать сначала выбрать нужную картинку из библиотеки или какого-то там хранилища и вставить в счет. Счет распечатать. Тогда не надо привязывать картинку к поставщику.

[Petre]

2. Немыслимым способом связать этот логотип с картинкой. Кстати как?

Либо как ХранилищеЗначений, либо как ссылка на внешний файл, либо воспользоваться стандартным механизмом хранения файлов и картинок.
Ничего сложного в реализации нет.
Но для данной задачи необходимо еще и править алгоритм проведения.

[Constantus]

УТ 10.3 1с8.2, обычное

В справочнике "Контрагенты" (Поставщики), в Хранилище Дополнительной Информации установил основной Рисунок-Логотип.
Я так понял, что храниться в двоичном формате (?).

В Документе "Реализация Товаров" установил дополнительный реквизит "производитель" со ссылкой на справочник Контрагенты (соответственно получаем и ссылку на рисунок в хранилище Доп. Инф.)

На Макете вставил Рисунок с именем "Картинка", установил туда "левую" картинку из файла" и визуально расположил его в Области "Шапка".

Теперь пытаюсь вывести нужную картинку из Хранилища Дополнительной Информации.

Шапка.Рисунки.Картинка=Этотобъект.Производитель.ОсновноеИзображение.Объект.ПолучитьОбъект();

Выдает ошибку, что нету поля "Картинка"...

1. Как правильно расположить объект "Рисунок" в макете?
2. Как правильно обратиться к этому объекту: Шапка.Рисунки.Картинка?
3. Как правильно вытащить картинку из "Производитель" на форме документа:
Этотобъект.Производитель.ОсновноеИзображение.Объект.ПолучитьОбъект();

Попробовал так:

Шапка.Рисунки.Картинка.Картинка =Этотобъект.Производитель.ОсновноеИзображение.Хранилище.Получить();

Вроде не ругается и не дает ошибку, но и картинку не меняет...

Как вытащить картинку из ссылки на контрагента?

Попробовал так:

Шапка.Рисунки.Картинка.Картинка =Этотобъект.Производитель.ОсновноеИзображение.Хранилище.Получить();

Ошибку не дает, но и картинку не меняет

[Vofka]

Что такое "хранилище дополнительной информации"?

[VikingKosmo]

Что такое "хранилище дополнительной информации"?

Мне кажется, что это аналог справочника ПрисоединенныеФайлы в УТ11. Справочник в котором хранятся внешние файлы для справочников и документов.

[batlcat]

Должно работать так

Шапка.Рисунки.Картинка.Картинка =Производитель.ОсновноеИзображение.Хранилище.Получить();

У меня по крайней мере работает

И рекомендую еще прикрутить ImageMagick для подгонки размера в печатной форме

У меня реализовано вот так

         Формат=НРег(Строка(Карт.Формат())); 
         ИмяФайла = ПолучитьИмяВременногоФайла(Формат);
         Карт.Записать(ИмяФайла);   
        
         СистемнаяИнформация = Новый СистемнаяИнформация;
    
         Если СистемнаяИнформация.ТипПлатформы = ТипПлатформы.Windows_x86 ИЛИ СистемнаяИнформация.ТипПлатформы = ТипПлатформы.Windows_x86_64  Тогда 
             Фото       = Новый COMОбъект("ImageMagickObject.MagickImage.1");
             Ответ = Фото.Convert( ИмяФайла , "-trim" , "-set", "colorspace", "RGB ", "-colorspace", "gray", "-contrast",  "-resize", Размер , "-contrast" , "-normalize" , ИмяФайла);
         ИначеЕсли СистемнаяИнформация.ТипПлатформы = ТипПлатформы.Linux_x86 ИЛИ СистемнаяИнформация.ТипПлатформы = ТипПлатформы.Linux_x86_64  Тогда
            СтрокаЗапуска = "convert  -trim -set colorspace RGB -colorspace gray -contrast -resize " + Размер + " -contrast -normalize " + ИмяФайла + " "  + ИмяФайла;
            КомандаСистемы(СтрокаЗапуска); 
            //ЗапуститьПриложение(СтрокаЗапуска);
            // Сообщить(СтрокаЗапуска);
        Конецесли;