Каталог решений - Фоновое перепроведение

Доработка позволяет настроить перепроведение документов по расписанию.

Перепроводит документы аналогично закрытию месяца.Период берется с  даты нарушения последовательности, но не раньше начала текущего месяца.

В общем модуле нужно добавить Регламентное задание со ссылкой на общий модуль. В общем модуле вставляем эту процедуру.Нужно заменить Код организации по которой нужно перепроводить.

Затем в режиме предприятия — добавляем и настраиваем расписание нового фонового задания.

Результат перепроведения записывается в журнал регистрации.

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

КонецПроцедуры