Задвоение КПС при проведении Планового назначения. БГУ 8

ДубльСсылка = НайтиКПС(КодКПС, ВидКПС, ДатаНачала, ДатаОкончания, УточнениеКПС);
	
	Если НЕ ДубльСсылка.Пустая() Тогда
		
		ДубльОбъект = ДубльСсылка.ПолучитьОбъект();
		
		СообщениеОбОшибке = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
		НСтр("ru = 'Код КПС %3 в заданном периоде (%1—%2) не уникален'"),
		Формат(ДатаНачала, "ДЛФ=D"),
		Формат(ДубльОбъект.ДатаОкончания, "ДЛФ=D; ДП=…"),
		КодКПС);
		
		Если НЕ ВидКПС = Перечисления.ВидыКБК.Произвольный Тогда
			
			СообщениеОбОшибке = СообщениеОбОшибке + "
			|Невозможно записать объект по причине:";
			
			Для Каждого КлючИЗначение Из СтруктураБК Цикл
				
				Если КлючИЗначение.Ключ =  "Глава" //в структуру добавляется свойство Глава для совместимости с БГУ 2.0
					ИЛИ КлючИЗначение.Ключ = "ДатаНачалаДействия" 
					ИЛИ КлючИЗначение.Ключ = "ДатаОкончанияДействия" Тогда 				
					Продолжить;
				КонецЕсли;
				
				Если НЕ КлючИЗначение.Значение = ДубльОбъект[КлючИЗначение.Ключ] Тогда
					СообщениеОбОшибке =	СообщениеОбОшибке + "
					|" + СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
					НСтр("ru = 'Совпадают коды разных элеменов справочника ""%1"" (%2). Проверьте реквизит ""Бюджет""'"),
					КлючИЗначение.Ключ,
					КлючИЗначение.Значение);				
				КонецЕсли;
				
			КонецЦикла;
			
		КонецЕсли;
		
		ОбщегоНазначенияКлиентСервер.СообщитьПользователю(СообщениеОбОшибке, ДубльСсылка);
		
		ВызватьИсключение СообщениеОбОшибке;
		
		Возврат ПустойКПС;
		
	КонецЕсли;

НайтиКПС()

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