Прикрепление внешних файлов (ссылка на файл) к документам и справочникам 1С 8.х.

Процедура ФайлыПередНачаломДобавления(Элемент, Отказ, Копирование)

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

Фильтр = "MS Word 2003(*.doc)|*.doc"; //Можно прописать форматы файлов (один или несколько), доступные для приклепления
ДиалогОткрытияФайла.Фильтр = Фильтр;
ДиалогОткрытияФайла.МножественныйВыбор = ложь;
ДиалогОткрытияФайла.Заголовок = "Выберите файл:";

Если ДиалогОткрытияФайла.Выбрать() Тогда
	ИмяФайла = Прав(СтрЗаменить(ДиалогОткрытияФайла.ПолноеИмяФайла, ДиалогОткрытияФайла.Каталог, ""), 100); //Усекаем до 100 символов, с сохранением расширения
	КаталогКФ = "\\Server\Files$\"; //Лучше конечно хранить это значение где-нибудь в константах, на случай перемещения папки с файлами
	ПутьДляКопирования = КаталогКФ + Ссылка.УникальныйИдентификатор() +"\";
	
	Попытка
		СоздатьКаталог(ПутьДляКопирования);
        КопироватьФайл(ДиалогОткрытияФайла.ПолноеИмяФайла, ПутьДляКопирования+ИмяФайла);
		МЗ = РегистрыСведений.ПрикрепленныеФайлы.СоздатьМенеджерЗаписи();
		МЗ.Ссылка = Ссылка;
		МЗ.ИмяФайла = ИмяФайла;
		МЗ.ПутьДоФайла = Ссылка.УникальныйИдентификатор();
		МЗ.Записать(Истина);
		ОбновитьТаблицуФайлов(); //Перезаполняем таблицу "Файлы" аналогично как "ПриОткрытии" формы
        Отказ = Истина;

	Исключение
		Сообщить("Недостаточно прав для редактирования!");
		Отказ = Истина;
	КонецПопытки;
Иначе
    Предупреждение("Файл не выбран!");
	Отказ = Истина;
КонецЕсли;

КонецЕсли;	

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


//Для колонки "Имя файла" добавить кнопку "Открытие", но запретить редактирование текста
Процедура ФайлыИмяФайлаОткрытие(Элемент, СтандартнаяОбработка)
	
	СтандартнаяОбработка = Ложь;
	КаталогКФ = "\\Server\Files$\"; //Лучше конечно хранить это значение где-нибудь в константах, на случай перемещения папки с файлами
	ПутьДоФайла = КаталогКФ + ЭлементыФормы.Файлы.ТекущаяСтрока.ПутьДоФайла +"\"+ ЭлементыФормы.Файлы.ТекущаяСтрока.ИмяФайла;
	ЗапуститьПриложение(ПутьДоФайла);
		
КонецПроцедуры

//Обработка удаления файла
Процедура ФайлыПередУдалением(Элемент, Отказ)	
	
	Режим = РежимДиалогаВопрос.ДаНет;
	Ответ = Вопрос("УДАЛИТЬ файл?", Режим, 0);
	Если Ответ = КодВозвратаДиалога.Нет Тогда
		Отказ = Истина;
		Возврат;
	КонецЕсли;
	
	Попытка
//Очищается только регистр, если нужно, то допиши тут и удаление самого файла с сервера
	МЗ = РегистрыСведений.ПрикрепленныеФайлы.СоздатьМенеджерЗаписи();
	МЗ.ИмяФайла = ЭлементыФормы.Файлы.ТекущаяСтрока.ИмяФайла;
	МЗ.Ссылка = Ссылка;
	МЗ.Удалить();	
	Исключение
	Сообщить("Недостаточно прав для редактирования!");
	Отказ = Истина;
	КонецПопытки;
КонецПроцедуры