Новости для бухгалтера, бухучет, налогообложение, отчетность, ФСБУ, прослеживаемость и маркировка, 1С:Бухгалтерия

Вход или Регистрация

Показывать по 10 20 40 сообщений
Новая тема Ответить
Письмо в техподдержку 1С
[Другие решения на платформе "1С:Предприятие 8"]

Запись и получение изображения

Федько_Андрей
читатель
офлайн
Дата регистрации: 15.04.2011
Сообщений: 378
Пост №11
 
27.05.2011 05:34

"Нужно получать навигационную ссылку:<br> <br><pre><br>&НаКлиентеПроцедура ВыбратьФайл(Команда) Режим = РежимДиалогаВыбораФайла.Открытие; ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим); ДиалогОткрытияФайла.ПолноеИмяФайла = """"; Текст = "Изображение PNG"; Фильтр = НСтр(Текст)+"(*.png)|*.png"; ДиалогОткрытияФайла.ПредварительныйПросмотр = Истина; ДиалогОткрытияФайла.МножественныйВыбор = Ложь; ДиалогОткрытияФайла.Заголовок = "Выберите файл..."; Если ДиалогОткрытияФайла.Выбрать() Тогда АдресВХран=""""; //ВыбрИмя=""""; ПоместитьФайл(АдресВХран,ДиалогОткрытияФайла.ПолноеИмяФайла,,Ложь,УникальныйИдентификатор); АдресФото=АдресВХран; // ИзображениеФото = Новый Картинка(ДиалогОткрытияФайла.ПолноеИмяФайла); // Если ИзображениеФото <> Неопределено Тогда // АдресФото = ПоместитьВоВременноеХранилище(ИзображениеФото.ПолучитьДвоичныеДанные()); // КонецЕсли; КонецЕсли;КонецПроцедуры&НаСервереПроцедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи) Если АдресФото <> Неопределено Тогда Данные = ПолучитьИзВременногоХранилища(АдресФото); //ИзображениеФото = Новый Картинка(Данные); ТекущийОбъект.Фото = Новый ХранилищеЗначения(Данные); КонецЕсли;КонецПроцедуры&НаСервереПроцедура ПриСозданииНаСервере(Отказ,СтандартнаяОбработка) //ИзображениеФото = ТекущийОбъект.Фото.Получить(); //АдресФото = ПоместитьВоВременноеХранилище(ИзображениеФото.ПолучитьДвоичныеДанные()); АдресФото = ПолучитьНавигационнуюСсылку(Объект.Ссылка,"Фото");КонецПроцедуры </pre>"

_Dmitry_
читатель
офлайн
Дата регистрации: 26.05.2011
Сообщений: 7
Пост №12
 
27.05.2011 09:19

Большущее спасибо! Все работает! А не подскажите как в форме "список элементов" можно вывести это изображение? В списке Реквизитов указано: ХранилищеЗначения (Недоступен в данных формы)

Федько_Андрей
читатель
офлайн
Дата регистрации: 15.04.2011
Сообщений: 378
Пост №13
 
27.05.2011 17:04

"Добавить в форму списка реквизит АдресФото. При переходе между элементами списка картинка относящиеся к текущему элементу будет отображаться в поле(не списка) АдресФото. Отображать все картинки сразу нельзя.<br> <br><pre>&НаСервереПроцедура ОбработкаАктивизацииСерв(АктивнОбъект) Если АктивныйОбъект1<>Неопределено Тогда АдресФото = ПолучитьНавигационнуюСсылку(АктивнОбъект,"Фото"); КонецЕсли;КонецПроцедуры&НаКлиентеПроцедура СписокПриАктивизацииСтроки(Элемент) ОбработкаАктивизацииСерв(Элементы.Список.ТекущаяСтрока)КонецПроцедуры </pre>"

Показывать по 10 20 40 сообщений

Читают тему:

1 гостей
Быстрый переход
Для технических специалистов
  • Книга жалоб и предложений по работе сайта
  • Для технических специалистов
  • Представление регламентированной отчетности
  • Говорильня
  • Бухгалтерский учет: обсуждаем проекты нормативных актов и рекомендаций по ведению учета от БМЦ
  • Новый порядок применения ККТ (онлайн кассы с передачей сведений в ФНС)
  • Интернет-конференция: Оформление командировок по новым правилам
  • МАРКИРОВКА
  • ЕГАИС
  • Учет, налогообложение, автоматизация