Доработка позволяет настроить перепроведение документов по расписанию.
Перепроводит документы аналогично закрытию месяца.Период берется с даты нарушения последовательности, но не раньше начала текущего месяца.
В общем модуле нужно добавить Регламентное задание со ссылкой на общий модуль. В общем модуле вставляем эту процедуру.Нужно заменить Код организации по которой нужно перепроводить.
Затем в режиме предприятия - добавляем и настраиваем расписание нового фонового задания.
Результат перепроведения записывается в журнал регистрации.
Процедура ПерепроведениеДокументов() Экспорт
ОбщегоНазначения.ПриНачалеВыполненияРегламентногоЗадания();
Организация = Справочники.Организации.НайтиПоКоду("00-000001").Ссылка;
СтрокаСообщения = "Начало: "+Формат(ТекущаяДата(), "ДФ=""дд ММММ гггг 'г.' ЧЧ:мм:сс""")+Символы.ПС;
МоментНарушенияПоЗакрытию = РаботаСПоследовательностями.МоментНачалаПерепроведенияСУчетомИсключенныхМесяцев(Организация, КонецМесяца(ТекущаяДата()));
ДополнительныеПараметры = Новый Структура();
ДополнительныеПараметры.Вставить("СамостоятельнаяОперация", Истина);
ДополнительныеПараметры.Вставить("ВидОперации", Неопределено);
ПараметрыПерепроведения = Обработки.ГрупповоеПерепроведениеДокументов.ПараметрыПерепроведения();
ПараметрыПерепроведения.Организация = Организация;
Если МоментНарушенияПоЗакрытию = Неопределено тогда
СтрокаСообщения = СтрокаСообщения+
" Нет нарушения в хронологии проведения"+Символы.ПС+
" Окончание: "+Формат(ТекущаяДата(), "ДФ=""дд ММММ гггг 'г.' ЧЧ:мм:сс""");
ЗаписьЖурналаРегистрации("Регламентное задание.Фоновое перепроведение", УровеньЖурналаРегистрации.Информация,,,СтрокаСообщения);
Возврат;
КонецЕсли;
МоментНарушения = ?(МоментНарушенияПоЗакрытию.Дата<НачалоМесяца(ТекущаяДата()),НачалоМесяца(ТекущаяДата()),МоментНарушенияПоЗакрытию.Дата);
МоментНарушения = Новый МоментВремени(МоментНарушения, Неопределено);
ПараметрыПерепроведения.МоментНачала = МоментНарушения;
ПараметрыПерепроведения.ДатаОкончания = КонецМесяца(ТекущаяДата());
ПараметрыПерепроведения.ЭтоЗакрытиеМесяца = Ложь;
Уид = Новый УникальныйИдентификатор;
ПараметрыПерепроведения.УникальныйИдентификаторФормы = Уид;
ПараметрыПерепроведения.ДополнительныеПараметры = ДополнительныеПараметры;
Результат = Обработки.ГрупповоеПерепроведениеДокументов.ЗапуститьПерепроведение(ПараметрыПерепроведения);
ВидСообщения = УровеньЖурналаРегистрации.Информация;
СтрокаСообщения = СтрокаСообщения+ " Проведение "+МоментНарушения.Дата+" - " + КонецМесяца(ТекущаяДата())+Символы.ПС;
Если Результат = Неопределено Тогда
ВидСообщения = УровеньЖурналаРегистрации.Ошибка;
СтрокаСообщения = СтрокаСообщения+" Ошибка проведения. Результат неопределен"+Символы.ПС;
Иначе
Если НЕ Результат.ЗаданиеВыполнено Тогда
ВидСообщения = УровеньЖурналаРегистрации.Ошибка;
СтрокаСообщения = СтрокаСообщения+" Ошибка проведения. Задание не выполнено"+Символы.ПС;
КонецЕсли;
КонецЕсли;
СтрокаСообщения = СтрокаСообщения+ " Окончание: "+Формат(ТекущаяДата(), "ДФ=""дд ММММ гггг 'г.' ЧЧ:мм:сс""");
ЗаписьЖурналаРегистрации("Регламентное задание.Фоновое перепроведение", ВидСообщения,,,СтрокаСообщения);
КонецПроцедуры
Вступайте в нашу телеграмм-группу Инфостарт