Функция ПолучитьТаблицуСсылокНаОбъект(СсылкаНаОбъект,Отказ)
мСсылок = Новый Массив();
мСсылок.Добавить(СсылкаНаОбъект);
ТаблицаСсылок = НайтиПоСсылкам(мСсылок);
//
мСсылокНаСебя = ТаблицаСсылок.НайтиСтроки(Новый Структура("Данные",СсылкаНаОбъект));
//
Для сч=0 ПО мСсылокНаСебя.ВГраница() Цикл
ОбратныйИндекс = мСсылокНаСебя.ВГраница()-сч;
ТаблицаСсылок.Удалить(мСсылокНаСебя[ОбратныйИндекс]);
КонецЦикла;
//
Отказ = Булево(ТаблицаСсылок.Количество());
Возврат ТаблицаСсылок;
КонецФункции
 
Функция ЭтоИгнорируемыйПользователь()
РезультатПроверки = ПараметрыСеанса.ТекущийПользователь = Константы.ПользовательДляВыполненияРегламентныхЗаданийВФайловомВарианте.Получить();
//можно дополнять всякими извратами :)
Возврат РезультатПроверки;
КонецФункции // ()
 
//////////////////////////////////////////////
Процедура ПриЗаписиУстановкаПометкиУдаленияПриЗаписи(Источник, Отказ) Экспорт
#Если НЕ Клиент Тогда
Возврат;
#КонецЕсли
//
Если НЕ Источник.ПометкаУдаления Тогда
Возврат;
КонецЕсли;
//
Если ЭтоИгнорируемыйПользователь() Тогда
возврат;
КонецЕсли;
//
СсылкаИсточника = Источник.Ссылка;
//
ТаблицаСсылок = ПолучитьТаблицуСсылокНаОбъект(СсылкаИсточника,Отказ);
//
#Если Клиент Тогда
Если Отказ И Вопрос("На данный объект существуют ссылки!!!
|Установка пометки удаления не возможна. Желаете просмотреть
|ссылки на обект?",
РежимДиалогаВопрос.ОКОтмена,,
КодВозвратаДиалога.ОК, "ВНИМАНИЕ!!!") = КодВозвратаДиалога.ОК Тогда
ФормаСсылокНаОбъект = ПолучитьОбщуюФорму("ФормаСсылокНаОбъект");
ОбщегоНазначения.ЗагрузитьВТаблицуЗначений(ТаблицаСсылок,ФормаСсылокНаОбъект.ТаблицаСсылок);
ФормаСсылокНаОбъект.Открыть();
КонецЕсли;
#КонецЕсли
КонецПроцедуры

статья с сайта: www.infostart.ru