Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
16 апр 2024, 20:51

Вывести в табличную часть макета, картинку из навигационнойссылке

Автор mauar, 27 ноя 2015, 16:45

0 Пользователей и 1 гость просматривают эту тему.

mauar

Храню картинку в справочнике сотрудники так:


&НаКлиенте
Процедура ЗагрузитьШтамп(Команда)
ПолученныеДанныеАдрес = "";
Если ПоместитьФайл(ПолученныеДанныеАдрес, , Объект.ПодписьШтамп, Истина, УникальныйИдентификатор)Тогда ДанныеАдресШтампа = ПолученныеДанныеАдрес;
ВыбранныйФайл = Новый Файл(Объект.ПодписьШтамп);
Модифицированность = Истина;
КонецЕсли;
КонецПроцедуры


Выводится картинка в реквизит ДанныеАдресШтампа строковой тип, на форме вид ПолеКартинки

Тут я при закрытии сохраняю эту картинку как навигационную ссылку в реквизит "Штамп" с типом временноехранилище:


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

Тут я при открытии вывожу загруженную картинку:

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Если НЕ Параметры.Ключ.Пустая()
Тогда ДанныеАдресШтампа = ПолучитьНавигационнуюСсылку(Объект.Ссылка, "Штамп");
КонецЕсли;
КонецПроцедуры


Всё работает.

Теперь мне нужно эту самую загруженную картинку загрузить в рисунок макета табличной части,
заполняю макет, пытаясь вывести эту картинку так:

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

Если ЗначениеЗаполнено(ШтампМенеджера )
Тогда
ОбластьМакета.Рисунки.D1.Картинка = ШтампМенеджера ; КонецЕсли; ТабДок.Вывести(ОбластьМакета);


Ничего не получается, не хочет выводить он этот штамп в картинку, преобразование делал.


При этом спокойно выводит эту картинку в текстовый реквизит с видом картинка из любой другой формы, любого другого документа.
Как эту картинку вывести в макет?




Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск