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