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

Хранилище

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

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



> Добавление картинки По книге "Разработка управл. интерф"          
bodka Подменю пользователя
сообщение 02.02.12, 18:28
Сообщение #1

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

Проделал все по книге не один раз. Но всеравно не сохраняется картинка (Выбираю - отображается - сохраняю - исчезает из формы. Вот код:

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

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



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


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

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

    КонецЕсли;



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

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

    КонецЕсли;    



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

Ошибок никаких не выдает. Отладчиком прошел, вроде бы все нужные данные есть. В чем проблема? Подскажите пожалуйста....

Вот, добрался до ошибки при нажатии на кнопку Сохранить на диск = выдает:

{Справочник.Номенклатура.Форма.ФормаЭлемента.Форма(28)}: Ошибка при вызове метода контекста (ПолучитьФайл)
ПолучитьФайл(СсылкаНаФайлВИБ, Объект.ИмяФайлаКартинки);
по причине:
Файл не обнаружен 'e1c://filev/G/1с видео литра инфа/Базы/УПП/e1cib/data/Справочник.Номенклатура.ФайлКартинки?ref="99a00022b0e5b4d011e14da816930e6a"'
по причине:
Неправильный путь к файлу '/e1cib/data/Справочник.Номенклатура.ФайлКартинки?ref="99a00022b0e5b4d011e14da816930e6a"'

09000000.gif Вопрос решен......в книге в явном виде не написано что у реквизита "ФайлКартинки" тип - Хранилище значения.

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


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

 

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