Процедура ПриУдаленииДокумента(Док, Реж) Если (Док.Вид() = "РасходнаяНакл") И (Реж = 1) Тогда Предупреждение("Не возможно удалить документ!", 2); СтатусВозврата(0); КонецЕсли; КонецПроцедуры