Сохранение картинки

[Дмитрий Корнилов]

Здравствуйте помогите пожалуйта как осуществить сохранение картинки при нажатии на саму картинку, при этом
должен появиться вопрос Сохранить картинку?, и в случае ответа «Да» картинка сохраняется, в
случае «Нет» - картинка загружается.
В какую часть вписать надо

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


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

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

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

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

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



[sali]

у вас по крайней мере должна быть процедура , где будут прописаны действия для каждого ответа (да и нет). к примеру

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

&НаКлиенте
Процедура ПослеНажатияНаКартинку(Результат, ДопПараметры) Экспорт
    Если Результат  = КодВозвратаДиалога.Да Тогда
        //выбираем путь и сохраняем картинку
    Иначе
       //выбираем путь и сохраняем картинку
    КонецЕсли;
КонецПроцедуры
а у картинки , при нажатии сделать

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

Режим = РежимДиалогаВопрос.ДаНет;
Оповещение = Новый ОписаниеОповещения("ПослеНажатияНаКартинку", ЭтаФорма); 
ПоказатьВопрос(Оповещение, НСтр("ru='Сохранить картинку?'"), Режим, 60);
затем оповещение , показать вопрос