Процедура глВывестиОшибку(Ош,ФлагОш="",Конт="") Экспорт
Если Конт="" Тогда
Сообщить(Ош,".");
//Возврат;
Иначе
Попытка
Спр=СоздатьОбъект("Справочник.ХронологияНеПроведения");
Спр.Новый();
Спр.Документ=Конт.ТекущийДокумент();
Спр.Пользователь=глПользователь;
Спр.ДатаОш=ТекущаяДата();
Спр.ВремяОш=""+ТекущееВремя();
Спр.Ошибка=Ош;
Спр.Записать();
Сообщить(Ош,"!");
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;
КонецЕсли;
КонецПроцедуры
[11:39:10] Максим Полтавский: //-------------------------------
В исключение не заходит, записывается. На форме списка справочника появляется даже новая строка, которая пропадает, как только нажимаешь "Ок" в предупреждении "Документ не проведен"
А это в модуле проведения РН
глВывестиОшибку("Отсрочка по "+Клиент+" превысила максимальную "+"("+МаксПросрочка+">"+Макс_СрокКредита+")."+" Отгрузка запрещена.",,Контекст);
Возврат 0;
НеПроводить(Контекст);
Возврат;
//------------------------- в глобальном модул ----------------------------------
Процедура НеПроводить(Конт) Экспорт
Сообщить("Документ "+Конт.Вид()+" №"+Конт.НомерДок+" от "+Конт.ДатаДок+" не проводится!");
Конт.НеПроводитьДокумент();
КонецПроцедуры
В модуле проведения РН без "Возврат 0"