Пересечение периодов ЗБУ 3.0

Процедура LL_ПроверкаПересеченийОбработкаПроведения(Источник, Отказ, РежимПроведения) Экспорт

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

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