Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Неназначенных незавершенных заказов: 2
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Вход | Зарегистрироваться )



> Вывести картинку , Нужна помощь 2 страниц V   1 2 >          
vbnm Подменю пользователя
сообщение 18.11.14, 10:50
Сообщение #1

Общительный
**
Группа: Пользователи
Сообщений: 16
Спасибо сказали: 0 раз
Рейтинг: 0

1С ERP 2.0 , в справочнике добавил дополнительные сведения — файл (картинка).
Ни как не могу его вывести на печатную форму...
То несоответствие типа, то файл не найден, а если использую «Получить()» - не обнаружен метод.

Рис.Картинка = Новый Картинка(ВыборкаЗапрос.Значение.Ссылка.Получить());


Переделал:

&НаСервере
Процедура ПолучитьКартинку(Пппп,ПодписьСотрудника)
    ПС =  ПоместитьВоВременноеХранилище(Пппп.Значение,Новый УникальныйИдентификатор);
КонецПроцедуры


Рис.Картинка =  Новый Картинка(ПС);


Теперь:"Каталог не обнаружен e1cib\tempstorage\....."

есть идеи?

Сообщение отредактировал Vofka - 18.11.14, 12:52

Домовик Подменю пользователя
сообщение 18.11.14, 11:02
Сообщение #2

Ветеран
Иконка группы
Группа: Местный
Сообщений: 975
Из: Киев
Спасибо сказали: 168 раз
Рейтинг: 0

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

&насервере
Процедура ВывестиТаблицу(Таблица,Макет,Картинка1)
Макет.рисунки.Картинка1.Картинка=Картинка1;
СекцияКартинки=Макет.ПолучитьОбласть("СекцияКартинки");    
Таблица.Вывести(СекцияКартинки);    

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



&НаКлиенте
Функция Команда1(Команда)
//ВывестиТаблицу(Таблица);
Таблица = Новый ТабличныйДокумент;
Макет=Отчет.РеквизитМакет;
Области=Макет.Области;
ОбластьКартинки=Области.СекцияКартинки;
Картинка1 = Новый Картинка(ПутьККартинке1);
ВывестиТаблицу(Таблица,Макет,Картинка1);
Таблица.Показать();

КонецФункции


Сообщение отредактировал Домовик - 18.11.14, 11:03

vbnm Подменю пользователя
сообщение 18.11.14, 11:17
Сообщение #3

Общительный
**
Группа: Пользователи
Сообщений: 16
Спасибо сказали: 0 раз
Рейтинг: 0

а так:
Рис.Картинка =  Новый Картинка("c:\Картинка.png");

работает, но это не вариант.

Сообщение отредактировал Vofka - 18.11.14, 12:52

Vofka Подменю пользователя
сообщение 18.11.14, 12:53
Сообщение #4

У нас здесь своя атмосфера...
***********
Группа: Основатель
Сообщений: 13955
Из: Киев
Спасибо сказали: 4520 раз
Рейтинг: 3642.8

А что тут ВыборкаЗапрос.Значение.Ссылка находится?

ПС. выделяйте код!

Домовик Подменю пользователя
сообщение 18.11.14, 12:57
Сообщение #5

Ветеран
Иконка группы
Группа: Местный
Сообщений: 975
Из: Киев
Спасибо сказали: 168 раз
Рейтинг: 0

тоже думаю. может там просто не тип Строка передается...

Сообщение отредактировал Домовик - 18.11.14, 12:57

vbnm Подменю пользователя
сообщение 18.11.14, 13:45
Сообщение #6

Общительный
**
Группа: Пользователи
Сообщений: 16
Спасибо сказали: 0 раз
Рейтинг: 0

Значение "ИмяФайла"
Тип "СправочникСсылка.Файлы"

Рис.Картинка = Новый Картинка(ВыборкаЗапрос.Значение.Ссылка.Наименование);


Значение "ИмяФайла"
Тип "Строка"

,а что там должно быть?
писал и так:
Рис.Картинка =  Новый Картинка(Строка("С:\" + ВыборкаЗапросПодписи.Значение.Наименование)+ "." +Строка(ВыборкаЗапросПодписи.Значение.ТекущаяВерсияРасширение));

, но нужно не с диска, а из базы.

когда
Рис.Картинка = Новый Картинка(ВыборкаЗапрос.Значение.Ссылка.Наименование);
пишет Файл ИмяФайла не найден!

Домовик Подменю пользователя
сообщение 18.11.14, 13:56
Сообщение #7

Ветеран
Иконка группы
Группа: Местный
Сообщений: 975
Из: Киев
Спасибо сказали: 168 раз
Рейтинг: 0

А вот так?
Рис.Картинка = Новый Картинка(Строка(ВыборкаЗапрос.Значение.Ссылка.Наименование));

vbnm Подменю пользователя
сообщение 18.11.14, 14:00
Сообщение #8

Общительный
**
Группа: Пользователи
Сообщений: 16
Спасибо сказали: 0 раз
Рейтинг: 0

еще получается получить
Значение "e1cib/tempstorage/3f53c0c2-f839-40fe-968b-0d8d67978de2"
Тип "Строка"

если через временное хранилище


Цитата(Домовик @ 18.11.14, 14:56) *
А вот так?
Рис.Картинка = Новый Картинка(Строка(ВыборкаЗапрос.Значение.Ссылка.Наименование));



Ошибка при вызове конструктора (Картинка)
Рис.Картинка = Новый Картинка(Строка(ВыборкаЗапросПодписи.Значение.Ссылка.Наименование));
по причине:
Файл не обнаружен

Petre Подменю пользователя
сообщение 18.11.14, 14:02
Сообщение #9

Живет на форуме
Иконка группы
Группа: Местный
Сообщений: 2905
Из: Київ, Україна
Спасибо сказали: 1147 раз
Рейтинг: 1228.9

Ну так ссылка на вх это не есть путь к файлу.
Сохранить во временный файл и прочитать в "картинке".


Signature
Допрацьовую:
- "Бухгалтерія для України 2.1";
- "Альфа-Авто: Автосалон+Автосервіс+Автозапчастини, українська версія".

vbnm Подменю пользователя
сообщение 18.11.14, 14:06
Сообщение #10

Общительный
**
Группа: Пользователи
Сообщений: 16
Спасибо сказали: 0 раз
Рейтинг: 0

Цитата(Petre @ 18.11.14, 15:02) *
Ну так ссылка на вх это не есть путь к файлу.
Сохранить во временный файл и прочитать в "картинке".

ПодскажиТЕ, как ссылку на ВХ сохранить как файл, я уже пробовал не получилось (((


 ! 

Правила, пункт 1
 


Сообщение отредактировал Vofka - 18.11.14, 14:30

Vofka Подменю пользователя
сообщение 18.11.14, 14:30
Сообщение #11

У нас здесь своя атмосфера...
***********
Группа: Основатель
Сообщений: 13955
Из: Киев
Спасибо сказали: 4520 раз
Рейтинг: 3642.8

Цитата(vbnm @ 18.11.14, 14:06) *
Подскажи, как ссылку на ВХ сохранить как файл, я уже пробовал не получилось (((

Скорее всего в справочнике Файлы присутствует какой-то реквизит с типом хранилище значения. Вот его надо получить (метод Получить()), в результате у вас получатся двоичные данные и на основании этих двоичных данных можно создать объект картинки.

vbnm, и я вам настоятельно рекомендую ознакомится с нашими правилами.

vbnm Подменю пользователя
сообщение 18.11.14, 14:40
Сообщение #12

Общительный
**
Группа: Пользователи
Сообщений: 16
Спасибо сказали: 0 раз
Рейтинг: 0

ВыборкаЗапрос.Значение.ТекстХранилище.Получить()

возвращает пустую строку


ок

Vofka Подменю пользователя
сообщение 18.11.14, 15:37
Сообщение #13

У нас здесь своя атмосфера...
***********
Группа: Основатель
Сообщений: 13955
Из: Киев
Спасибо сказали: 4520 раз
Рейтинг: 3642.8

Покажите структуру справочника Файлы.

Домовик Подменю пользователя
сообщение 18.11.14, 18:18
Сообщение #14

Ветеран
Иконка группы
Группа: Местный
Сообщений: 975
Из: Киев
Спасибо сказали: 168 раз
Рейтинг: 0

а в табло в отладчике

когда набираете ВыборкаЗапрос.Значение

что там открывается-разворачивается?

vbnm Подменю пользователя
сообщение 19.11.14, 8:13
Сообщение #15

Общительный
**
Группа: Пользователи
Сообщений: 16
Спасибо сказали: 0 раз
Рейтинг: 0

Цитата(Домовик @ 18.11.14, 19:18) *
а в табло в отладчике

когда набираете ВыборкаЗапрос.Значение

что там открывается-разворачивается?



Значение "ИмяФайла"
Тип "СправочникСсылка.Файлы"

Домовик Подменю пользователя
сообщение 19.11.14, 8:56
Сообщение #16

Ветеран
Иконка группы
Группа: Местный
Сообщений: 975
Из: Киев
Спасибо сказали: 168 раз
Рейтинг: 0

і ніякого "плюсіка", щоб далі порозкривати?

vbnm Подменю пользователя
сообщение 19.11.14, 8:57
Сообщение #17

Общительный
**
Группа: Пользователи
Сообщений: 16
Спасибо сказали: 0 раз
Рейтинг: 0

Цитата(Домовик @ 19.11.14, 9:56) *
і ніякого "плюсіка", щоб далі порозкривати?

есть "плюсик" там полно данных о файле

Домовик Подменю пользователя
сообщение 19.11.14, 16:03
Сообщение #18

Ветеран
Иконка группы
Группа: Местный
Сообщений: 975
Из: Киев
Спасибо сказали: 168 раз
Рейтинг: 0

у меня подозрение, что вы изображения уже держите в справочнике, уже загрузили, уже у вас есть что-то типа "картинка".


И, возможно, нужно Рис. Картинка= Выборка.Значение.... а далее искать в табло в "+" что там тип картинка и подставить.

восьмерки не знаю, может кто поправит.





vbnm Подменю пользователя
сообщение 19.11.14, 16:18
Сообщение #19

Общительный
**
Группа: Пользователи
Сообщений: 16
Спасибо сказали: 0 раз
Рейтинг: 0

Всем сбасибо!
Решено собственными силами
Процедура ПолучитьКартинку(Пппп,ПСотрудника)
    Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ
    |    ПрисоединенныеФайлы.ПрисоединенныйФайл,
    |    ПрисоединенныеФайлы.ХранимыйФайл,
    |    ПрисоединенныеФайлы.ПрисоединенныйФайл.Наименование
    |ИЗ
    |    РегистрСведений.ПрисоединенныеФайлы КАК ПрисоединенныеФайлы
    |ГДЕ
    |    ПрисоединенныеФайлы.ПрисоединенныйФайл.Наименование = &П";
        
        Запрос.УстановитьПараметр("П", Пппп.Значение.Наименование);
        Выборка = Запрос.Выполнить().Выбрать();
        
        Если Выборка.Следующий() Тогда
            ПСотрудника = Выборка.ХранимыйФайл.Получить();
        Иначе
            Сообщить("Файл <" + Строка(Пппп.Значение.Наименование) + "> не найден!",);
        КонецЕсли;

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


ПолучитьКартинку(Пппп,ПСотрудника);
    Рис.Картинка =  Новый Картинка(ПСотрудника);

vbnm Подменю пользователя
сообщение 26.11.14, 14:22
Сообщение #20

Общительный
**
Группа: Пользователи
Сообщений: 16
Спасибо сказали: 0 раз
Рейтинг: 0

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

Выборка = Справочники.КартинкиСотрудников.Выбрать();
    Пока Выборка.Следующий() Цикл
        ИмяФайла = СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(Строка(Выборка.Сотрудник)," ",""),".",""),"(",""),")","");
        ПодписьСотрудника = Выборка.Картинка.Получить();
        ЗначениеВФайл(Строка(ИмяПути)+Строка(ИмяФайла)+".png",ПодписьСотрудника);
    //    Выборка.Подпись.Записать(Строка(ИмяПути)+Строка(ИмяФайла)+".png");
        Сотрудник = ИмяФайла;
        Выборка.Сотрудник.Соханить();
    КонецЦикла;

файлы создаются, не пустые, но не открываются, в чем может быть проблема?

Не нашли ответа на свой вопрос?
Зарегистрируйтесь и задайте новый вопрос.


2 страниц V   1 2 >
Тема закрыта Новая тема
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

RSS Текстовая версия Сейчас: 24.04.24, 3:02
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!