Процедура ДействияФормыДобавитьФото(Кнопка)
	Отказ = Ложь;
	
	Если ЭтоНовый() Тогда
		Вопрос = "Перед вводом файлов и изображений необходимо записать элемент. Записать?";
		Ответ  = Вопрос(Вопрос, РежимДиалогаВопрос.ОКОтмена);
		Если Ответ = КодВозвратаДиалога.ОК Тогда
			Отказ = Не ЗаписатьВФорме();
		Иначе
			Отказ = Истина;
		КонецЕсли;
	КонецЕсли;
	
	Если НЕ Отказ Тогда
		ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
		ДиалогОткрытияФайла.Заголовок = "Выберите файл с фотографией";
		ДиалогОткрытияФайла.ПолноеИмяФайла = "";
		ДиалогОткрытияФайла.ПредварительныйПросмотр = Истина;
		ДиалогОткрытияФайла.Фильтр = 
		"Все картинки (*.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|"; // картинки
		
		Если ДиалогОткрытияФайла.Выбрать() Тогда
			
			ВыбранноеФото = Новый Картинка(ДиалогОткрытияФайла.ПолноеИмяФайла,Ложь);
			ЭлементыФормы.ОсновноеИзображение.Картинка = ВыбранноеФото;
			
			Файл = Новый Файл(ДиалогОткрытияФайла.ПолноеИмяФайла);
			
			НайтиИмя = Справочники.ХранилищеДополнительнойИнформации.НайтиПоНаименованию(Строка(Файл.ПолноеИмя));
			Если НайтиИмя.Наименование = "" Тогда	
				НовыйЭлемент = Справочники.ХранилищеДополнительнойИнформации.СоздатьЭлемент();
				НовыйЭлемент.Объект = ЭтотОбъект.Ссылка;
				НовыйЭлемент.ВидДанных = Перечисления.ВидыДополнительнойИнформацииОбъектов.Изображение;
				НовыйЭлемент.Наименование = Строка(Файл.ПолноеИмя);
				НовыйЭлемент.Хранилище = Новый ХранилищеЗначения(ВыбранноеФото); 
				НовыйЭлемент.Записать();
				ОсновноеИзображение = НовыйЭлемент.Ссылка;
			Иначе
				ОсновноеИзображение = НайтиИмя.ССылка;
			КонецЕсли;
		Иначе
			Отказ = Истина;
			Возврат;
		КонецЕсли;
	КонецЕсли;
КонецПроцедуры

        ДанныеФотографии = Фотография.Получить();
	Если ДанныеФотографии <> Неопределено Тогда
		ЭлементыФормы.Фотография.Картинка = Фотография.Получить();
	КонецЕсли;