Проверка на дублирование контрагентов по ИНН и КПП

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

 Процедура ПередЗаписью(Отказ)
	
	мЭтоНовый = ЭтоНовый();
	мИНН = Ссылка.ИНН;
	
	Если ОбособленноеПодразделение И ЗначениеЗаполнено(ГоловнойКонтрагент) И ГоловнойКонтрагент <> Ссылка Тогда
		ИНН = ГоловнойКонтрагент.ИНН;
	КонецЕсли;
	//all4cf проверка на дубли
	all4cf.ЗапретДублированияКонтрагентовОбработкаПроверкиЗаполнения(ИНН, КПП, Ссылка, Отказ);	
	
КонецПроцедуры // ПередЗаписью()