Проверка контрагентов по ИНН не проходит, по наименованию проходит (должен и то и то)

Question

Привет всем)
попросили меня бухи дописать одну простую вещь: чтоб когда они создавали контрагентов, была проверка по наименованию и инн+кпп на дубль. 
Вроде и просто а уже мучаюсь хз сколько.
Сделала так:

[1C-CODE]Функция ЕстьВБазеКонтрагент(ИНН = "", КПП = "", Наименование = "")
  
    Запрос = Новый Запрос;
    Запрос.Текст =
        "ВЫБРАТЬ
        |    СпрКонтрагенты.Ссылка КАК Ссылка
        |ИЗ
        |    Справочник.Контрагенты КАК СпрКонтрагенты
        |ГДЕ
        |    ИСТИНА
        |    И СпрКонтрагенты.ИНН = &ИНН
        |    И СпрКонтрагенты.КПП = &КПП
        |    И СпрКонтрагенты.Наименование = &Наименование";
    
    Если ИНН = "" Тогда
        Запрос.Текст = СтрЗаменить(Запрос.Текст, "И СпрКонтрагенты.ИНН = &ИНН", "");
    Иначе
        Запрос.УстановитьПараметр("ИНН", ИНН);
    КонецЕсли;
    Если КПП = "" Тогда
        Запрос.Текст = СтрЗаменить(Запрос.Текст, "И СпрКонтрагенты.КПП = &КПП", "");
    Иначе
        Запрос.УстановитьПараметр("КПП", КПП);
    КонецЕсли;
    Если Наименование = "" Тогда
        Запрос.Текст = СтрЗаменить(Запрос.Текст, "И СпрКонтрагенты.Наименование = &Наименование", "");
    Иначе
        Запрос.УстановитьПараметр("Наименование", Наименование);
    КонецЕсли;
    РезультатЗапроса = Запрос.Выполнить();
    Если РезультатЗапроса.Пустой() Тогда
        Возврат Ложь;
    КонецЕсли;
    Возврат Истина;
КонецФункции

Процедура ОбработкаПроверкиЗаполнения(Отказ, ПроверяемыеРеквизиты) 
Если ЭтоНовый() И ЕстьВБазеКонтрагент(ИНН, КПП, Наименование) Тогда
Отказ = Истина; 
        Сообщение = Новый СообщениеПользователю; 
        Сообщение.Текст = "Такой Контрагент уже есть в базе"; 
        Сообщение.Поле = "Объект.Наименование"; 
        Сообщение.Сообщить(); 
КонецЕсли; 

[/1C-CODE]

Но! Если одинаковое наименование записывать программа отказывается, а если одинкаовые инн и кпп, то проверка как будто не делается вообще.

Я тут ещё делала так, что если инн не заполнено, то проверку только по наименованию проводить, а оно инн как понла вообще отключило.

Accepted Answer

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