Присоединенные файлы номенклатуры

[bony_ann]

Помогите, пожалуйста, удалить фото, присоединенные к номенклатуре. При простой установке пометки на удаление файла, ссылается на саму номенклатуру.

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

&НаСервере
Процедура ОчисткаРанееЗагруженныхФайловИзНоменклатуры()
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Номенклатура.Ссылка,
| Номенклатура.ФайлКартинки.Ссылка
|ИЗ
| Справочник.Номенклатура КАК Номенклатура
|ГДЕ
| Номенклатура.ФайлКартинки <> ЗНАЧЕНИЕ(Справочник.НоменклатураПрисоединенныеФайлы.ПустаяСсылка)";
Результат = Запрос.Выполнить();
Выборка = Результат.Выбрать();
Пока Выборка.Следующий() Цикл
ОбъектНоменклатуры = Выборка.Ссылка.ПолучитьОбъект();
ОбъектНоменклатуры.ФайлКартинки = Справочники.НоменклатураПрисоединенныеФайлы.ПустаяСсылка();
ОбъектНоменклатуры.Записать();

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

ОбъектНоменклатураПрисоединенныеФайлы.Удалить();
КонецЦикла;

Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| НоменклатураПрисоединенныеФайлы.Ссылка
|ИЗ
| Справочник.НоменклатураПрисоединенныеФайлы КАК НоменклатураПрисоединенныеФайлы";
Результат = Запрос.Выполнить();
Выборка = Результат.Выбрать();
Пока Выборка.Следующий() Цикл
ОбъектНоменклатураПрисоединенныеФайлы = Выборка.Ссылка.ПолучитьОбъект();
ПутьНахожденияФайлаНаДиске = ОбъектНоменклатураПрисоединенныеФайлы.Том.ПолныйПутьWindows + ОбъектНоменклатураПрисоединенныеФайлы.ПутьКФайлу;
Попытка
УдалитьФайлы(ПутьНахожденияФайлаНаДиске);
Исключение
ВызватьИсключение "Ошибка удаления файла"
КонецПопытки;

ОбъектНоменклатураПрисоединенныеФайлы.Удалить();
КонецЦикла;

НайденныеКаталоги = НайтиФайлы(Константы.ТомХраненияФайловДляКартинок_8Марта.Получить().ПолныйПутьWindows,"*");
Для Каждого ПутьКаталога Из НайденныеКаталоги Цикл
Попытка
УдалитьФайлы(ПутьКаталога.ПолноеИмя);
Исключение
ВызватьИсключение "Ошибка удаления файла"
КонецПопытки; 
КонецЦикла

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

Выводит сообщение об ошибке, в чем проблема?