Сдвиг даты контроля последовательности проведения документов в БП 3.0

// Устанавливает состояние "Проведен в последовательности" для всех записей 
// последовательности за указанный период. 
//
// Параметры:
// 	Организация 	- СправочникСсылка.Организации, по которой меняется последовательность.
//	ДатаНачала 		- Дата начала периода. Если указана пустая дата, то самого начала последовательности.
// 	ДатаОкончания	- Дата окончания периода, за который необходимо установить состояние последовательности.
//
// Возвращаемое значение:
//	Момент времени, на который фактически была установлена последовательность.
//
Функция УстановитьПоследовательность(Организация, ДатаНачала, ДатаОкончания) Экспорт

	МоментСледующегоДокумента = Неопределено;
	
	// Для изменения состояний в последовательности блокируем последовательность
	// в целом по организации. 
	// Установка управляемой блокировки возможно только в рамках транзакции.
	// В случае возникновения ошибок отменяем транзакцию.
	
	НачатьТранзакцию();

	Попытка 

		УстановитьБлокировкуПоследовательностиПоОрганизации(Организация);

		Запрос = Новый Запрос;
		Запрос.УстановитьПараметр("Организация", 	Организация);
		Запрос.УстановитьПараметр("ДатаНачала", 	ДатаНачала);
		Запрос.УстановитьПараметр("ДатаОкончания", 	ДатаОкончания);

		Запрос.Текст = 
		"ВЫБРАТЬ РАЗЛИЧНЫЕ
		|	ТаблицаПоследовательности.Регистратор
		|ИЗ
		|	Последовательность.ДокументыОрганизаций КАК ТаблицаПоследовательности
		|ГДЕ
		|	ТаблицаПоследовательности.Организация = &Организация
		|	И &УсловиеПериод
		|	И ТаблицаПоследовательности.СостояниеПроведения В (ЗНАЧЕНИЕ(Перечисление.СостоянияПроведенияВПоследовательности.ПроведенСНарушениемПоследовательности), ЗНАЧЕНИЕ(Перечисление.СостоянияПроведенияВПоследовательности.ИсключенИзПоследовательности))";
		
		ТекстУсловиеПериод = "";
		Если ЗначениеЗаполнено(ДатаНачала) И ЗначениеЗаполнено(ДатаОкончания) Тогда
			ТекстУсловиеПериод = "ТаблицаПоследовательности.Период МЕЖДУ &ДатаНачала И &ДатаОкончания";
		ИначеЕсли ЗначениеЗаполнено(ДатаНачала) Тогда
			ТекстУсловиеПериод = "ТаблицаПоследовательности.Период >= &ДатаНачала";
		ИначеЕсли ЗначениеЗаполнено(ДатаОкончания) Тогда
			ТекстУсловиеПериод = "ТаблицаПоследовательности.Период <= &ДатаОкончания";
		КонецЕсли;
		
		Если ЗначениеЗаполнено(ТекстУсловиеПериод) Тогда
			Запрос.Текст = СтрЗаменить(Запрос.Текст, "&УсловиеПериод", ТекстУсловиеПериод);
		Иначе
			Запрос.Текст = СтрЗаменить(Запрос.Текст, "И &УсловиеПериод", "");
		КонецЕсли;
		
		Выборка = Запрос.Выполнить().Выбрать();
		
		НаборЗаписей = Последовательности.ДокументыОрганизаций.СоздатьНаборЗаписей();
		
		Пока Выборка.Следующий() Цикл
		
			НаборЗаписей.Отбор.Регистратор.Установить(Выборка.Регистратор);
			НаборЗаписей.Прочитать();
			
			ВГраница = НаборЗаписей.Количество() - 1;
			
			Для Сч = 0 По ВГраница Цикл
				// Удаляем с конца набора
				Движение = НаборЗаписей[ВГраница - Сч];
				
				// У документа могут быть записи последовательности по нескольким организациям,
				// если у него ранее меняли реквизит Организация, поэтому обрабатываем
				// только записи по текущей организации.
				Если Движение.Организация = Организация Тогда
				
					Если Движение.СостояниеПроведения = Перечисления.СостоянияПроведенияВПоследовательности.ИсключенИзПоследовательности Тогда
						НаборЗаписей.Удалить(Движение);
					Иначе
						Движение.СостояниеПроведения = Перечисления.СостоянияПроведенияВПоследовательности.ПроведенВПоследовательности;
					КонецЕсли;
				
				КонецЕсли;
			
			КонецЦикла;
			
			НаборЗаписей.Записать();
		
		КонецЦикла;
		
		Если ЗначениеЗаполнено(ДатаОкончания) Тогда
		
			// Следующий по очереди документ объявляем проведенным с нарушением, 
			// чтобы с него начать потом перепроведение.
			МоментСледующегоДокумента = МоментВремениПервогоДокументаВПоследовательности(Организация, ДатаОкончания + 1);
			
			Если МоментСледующегоДокумента <> Неопределено Тогда
			
				СброситьСостояниеПоследовательностиДокумента(
					МоментСледующегоДокумента.Ссылка, 
					МоментСледующегоДокумента.Дата,
					Организация);
				
			КонецЕсли;
		
		КонецЕсли;
		
		ЗафиксироватьТранзакцию();
	
	Исключение
	
		ТекстОшибки = ОписаниеОшибки();
		ОписаниеОшибки = ИнформацияОбОшибке();
	
		ОтменитьТранзакцию();
		
		ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстОшибки);
		ЗаписьЖурналаРегистрации(НСтр("ru = 'Операция не выполнена'"), УровеньЖурналаРегистрации.Ошибка,,, ОписаниеОшибки.Описание);
		ВызватьИсключение ТекстОшибки;
	
	КонецПопытки;
		
	Возврат МоментСледующегоДокумента;
	
КонецФункции