Процедура ПолеФотоПроверкаПеретаскивания(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка)
	
	Попытка
		Расширение = ВРег(ПараметрыПеретаскивания.Значение.Расширение);
		Если Расширение = ".JPG" или Расширение = ".PNG" или Расширение = ".GIF" или Расширение = ".TIF" или 
			Расширение = ".BMP" Тогда
			СтандартнаяОбработка = Ложь;
			ПараметрыПеретаскивания.ДопустимыеДействия = ДопустимыеДействияПеретаскивания.Перемещение;
		иначе
			ПараметрыПеретаскивания.Действие = ДействиеПеретаскивания.Отмена;
		КонецЕсли;
	Исключение
		ПараметрыПеретаскивания.Действие = ДействиеПеретаскивания.Отмена;
	КонецПопытки;
	
КонецПроцедуры

Процедура ПолеФотоПеретаскивание(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка)
	
	Попытка
		Расширение = ВРег(ПараметрыПеретаскивания.Значение.Расширение);
		Если Расширение = ".JPG" или Расширение = ".PNG" или Расширение = ".GIF" или Расширение = ".TIF" или Расширение = ".BMP" Тогда
			
			МояКартинка = Новый ДвоичныеДанные(ПараметрыПеретаскивания.Значение.ПолноеИмя);
			Фото = Новый ХранилищеЗначения(МояКартинка);
			ОтобразитьФото();
		
		КонецЕсли;
	Исключение
	КонецПопытки;
	
КонецПроцедуры

//Отбор в справочнике установить так можно

Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)
	
	СправочникСписок.Отбор["Объект"].Использование = Истина;
	СправочникСписок.Отбор["Объект"].Значение = ПоОбъекту ;
	СправочникСписок.Отбор["Объект"].ВидСравнения = ВидСравнения.Равно;
	
КонецПроцедуры

//В документе 
Процедура КнСканыНажатие(...
	
	ФормаСканов = Справочники.Сканы.ПолучитьФормуСписка("ПоОдномуОбъекту");
	ФормаСканов.ПоОбъекту = ЭтотОбъект.Ссылка;
	ФормаСканов.ОткрытьМодально();
	
КонецПроцедуры
// Нужно еще проверить записан ли документ ...

Процедура ВыбратьФото()
	Перем РежимДиалога, ДиалогВыбораФайла, Каталог;

	РежимДиалога = РежимДиалогаВыбораФайла.Открытие;//.ВыборКаталога;
	ДиалогВыбораФайла = Новый ДиалогВыбораФайла(РежимДиалога);
	ДиалогВыбораФайла.ПроверятьСуществованиеФайла = Истина;
	ДиалогВыбораФайла.ПредварительныйПросмотр = Истина;
	ДиалогВыбораФайла.Заголовок = "Выберите фотографию";
	ДиалогВыбораФайла.Фильтр = "*.jpg|*.jpg|*.tif|*.tif|*.png|*.png|*.bmp|*.bmp|*.png|*.png|*.*|*.*";
	Если ДиалогВыбораФайла.Выбрать() Тогда
		МояКартинка = Новый ДвоичныеДанные(ДиалогВыбораФайла.ПолноеИмяФайла);
		Фото = Новый ХранилищеЗначения(МояКартинка);
	КонецЕсли;

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

Процедура КоманднаяПанель1ВыбратьФото(Кнопка)
	
	ВыбратьФото();
	
КонецПроцедуры

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

		РежимДиалога = РежимДиалогаВыбораФайла.Открытие;
		ДиалогВыбораФайла = Новый ДиалогВыбораФайла(РежимДиалога);
		ДиалогВыбораФайла.ПроверятьСуществованиеФайла = Истина;
		ДиалогВыбораФайла.ПредварительныйПросмотр = Истина;
		ДиалогВыбораФайла.Заголовок = "Выберите файл приложения";
		ДиалогВыбораФайла.Фильтр = "*.doc|*.doc"; //"*.doc|*.doc|*.xls|*.xls|*.jpg|*.jpg|*.tif|*.tif|*.png|*.png|*.bmp|*.bmp|*.png|*.png|*.*|*.*";
		Если ДиалогВыбораФайла.Выбрать() Тогда
			Попытка
				дд = Новый ДвоичныеДанные(ДиалогВыбораФайла.ПолноеИмяФайла);
				Приложение = Новый ХранилищеЗначения(дд, Новый СжатиеДанных( 6 ));
			Исключение
				Предупреждение(ОписаниеОшибки());
			КонецПопытки;
		КонецЕсли;

	ИначеЕсли Кнопка = Кнопки.Показать тогда
		
		Если Приложение.Получить() <> Неопределено тогда
			//ИмяФайла = "1.doc");
			//Папка = КаталогВременныхФайлов();
			//ПолноеИмяФайла = Папка + ?(Прав(Папка,  1 ) = "\", "", "\") + ИмяФайла; 
			ПолноеИмяФайла = ПолучитьИмяВременногоФайла(".doc");
			Попытка
				дд = Приложение.Получить();
				дд.Записать(ПолноеИмяФайла);
				ЗапуститьПриложение(ПолноеИмяФайла); 
			Исключение
				Предупреждение(ОписаниеОшибки());
			КонецПопытки;
		КонецЕсли;
		
	ИначеЕсли Кнопка = Кнопки.СохранитьВфайл тогда
		
		Если Приложение.Получить() <> Неопределено тогда
			РежимДиалога = РежимДиалогаВыбораФайла.Сохранение;
			ДиалогВыбораФайла = Новый ДиалогВыбораФайла(РежимДиалога);
			ДиалогВыбораФайла.Фильтр = "*.doc|*.doc"; //"*.doc|*.doc|*.xls|*.xls|*.jpg|*.jpg|*.tif|*.tif|*.png|*.png|*.bmp|*.bmp|*.png|*.png|*.*|*.*";
			Если ДиалогВыбораФайла.Выбрать() Тогда
				Попытка
					дд = Приложение.Получить();
					дд.Записать(ДиалогВыбораФайла.ПолноеИмяФайла);
				Исключение
					Предупреждение(ОписаниеОшибки());
				КонецПопытки;
			КонецЕсли;
		КонецЕсли;
		
	ИначеЕсли Кнопка = Кнопки.Удалить тогда
		// Диалог подтверждения 
		// ...
		Приложение = Неопределено;
		
	КонецЕсли;
	
	ДоступностьКнопокОбработкиПриложения(Кнопки);
	
КонецПроцедуры

Процедура ДоступностьКнопокОбработкиПриложения(Кнопки)
	Перем д;
	
	д = Приложение.Получить() = Неопределено;
	Кнопки.Выбрать.Доступность = Не ТолькоПросмотр и д;
	Кнопки.Показать.Доступность = Не ТолькоПросмотр и Не д;
	Кнопки.СохранитьВфайл.Доступность = Не ТолькоПросмотр и Не д;
	Кнопки.Удалить.Доступность = Не ТолькоПросмотр и Не д;
	
КонецПроцедуры

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

/// --------------------------------

Процедура ДоступностьКнопокОбработкиПриложения(Кнопки)
	Перем д;
	
	д = Приложение.Получить() = Неопределено;
	Кнопки.Выбрать.Доступность = Не ТолькоПросмотр и (Не ТолькоПросмотр и д);
	Кнопки.Показать.Доступность = Не д;
	Кнопки.СохранитьВфайл.Доступность = Не д;
	Кнопки.Удалить.Доступность = Не ТолькоПросмотр и (Не ТолькоПросмотр и Не д);
	
КонецПроцедуры

Процедура ПриОткрытии()
	
	Если Проведен тогда
		Толькопросмотр = Истина;
		ДоступностьКнопокОбработкиПриложения(ЭлементыФормы.ДействияФормы.Кнопки.Приложение.Кнопки);
	КонецЕсли;
	
	
КонецПроцедуры