Картинка в макет печати

[E_x]

Правильно, он для торговли 10,2 и он написан на платформе 8.2 )) Если есть такая, попробуйте на ней:)

[Zverff]

Теперь хочю сделать по другому) Например 1 комп, на нем будет общая папка с картинками. Как можно сделать что бы программно указывался ссылки и на макете печати брал оттуда рисунок?

[E_x]

По логике так:
ОбластьМакета.Рисунки.Изображение.Картинка = Новый Картинка(Путь);
а вот в Путь надо будет передавать адрес картинки
Путь = "сеть\\1С_Картинка.bmp" вот только как передавать этому Пути каждый раз новые адреса я не знаю.. это подумать надо:)

[Zverff]

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

[Zverff]

Вот такая процедура для открытия картинки

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


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

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

как указать путь ссылки чтобы сохранялься? Например: C:\img\1.bmp

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


ДиалогОткрытияФайла.ПолноеИмяФайла = "";


[Zverff]

ой не тот процедура для открытия файла
вот ниже

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


Процедура ДействияФормыИзменитьИзображение(Кнопка)
       
        ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
        ДиалогОткрытияФайла.ПредварительныйПросмотр = Истина;
        ДиалогОткрытияФайла.Заголовок = "Выберите файл с фотографией";
        ДиалогОткрытияФайла.ПолноеИмяФайла = "";
        ДиалогОткрытияФайла.Фильтр =
                "Все картинки (*.bmp;*.dib;*.rle;*.jpg;*.jpeg;*.tif;*.gif;*.png;*.ico;*.wmf;*.emf)|*.bmp;*.dib;*.rle;*.jpg;*.jpeg;*.tif;*.gif;*.png;*.ico;*.wmf;*.emf|"
                + "Все файлы (*.*)|*.*|"
                + "Формат bmp (*.bmp;*.dib;*.rle)|*.bmp;*.dib;*.rle|"
                + "Формат JPEG (*.jpg;*.jpeg)|*.jpg;*.jpeg|"
                + "Формат TIFF (*.tif)|*.tif|"
                + "Формат GIF (*.gif)|*.gif|"
                + "Формат PNG (*.png)|*.png|"
                + "Формат icon (*.ico)|*.ico|"
                + "Формат метафайл (*.wmf;*.emf)|*.wmf;*.emf|"; // картинки

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


[Zverff]

ВСе сделал) Теперь вопрос другой) как выташить картинки в печать макета запросом? Есть справочник Картинки там ссылки и наименование картинки, теперь как выташить их по пациенту?

[E_x]

По идее должна быть связь между справочниками. Самый простой вариант - документ (в нем в реквизитах добавляете Пациент и Картинка, так должно быть проще отбирать). Еще проще - добавить в справочник с картинками реквизит Пациент(тип Справочник.Ссылка.Пациенты). И все, когда выбирать картинки будете, то добавляете сразу нужному пациенту. Потом в запросе простой отбор и вывод : пациент - картинка.
Думаю так должно быть:)

[Zverff]

ЗАпрос не работает) РУгаеться

[E_x]

Хм, а на что ругается? По идее все норм должно быть... В запросе только справочник с картинками выбираем, можно еще условие поставить, вроде Пациент=&ВыбПациент (ВыбПациент - передавать на форме). Тогда должны отбираться картинки только для определенного Пациента.^_^