запрет на запись в справочнике

[ls600]

Доброго времени суток. Помогите разобраться в коде. Ситуация такая нужно запретить создание контрагента в справочнике если такой уже есть.
База самописная, форма обычная.

Код Выделить Развернуть



Функция ПроверкаДубликатовКонтрагента()

КоличествоЗнаковРНН = СтрДлина(ЭлементыФормы.РНН.Значение);
Если КоличествоЗнаковРНН = 12 Тогда
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| Контрагенты.Ссылка,
| Контрагенты.РНН,
| Контрагенты.Наименование
|ИЗ
| Справочник.Контрагенты КАК Контрагенты
|ГДЕ
| Контрагенты.Ссылка <> &Ссылка
| И Контрагенты.ЭтоГруппа = ЛОЖЬ
| И Контрагенты.РНН = &РНН";

Запрос.УстановитьПараметр("Ссылка", Ссылка);    
Запрос.УстановитьПараметр("РНН"   , ЭлементыФормы.РНН.Значение);
Результат = Запрос.Выполнить();

Если Не Результат.Пустой() Тогда
Выборка = Результат.Выбрать();
ТекстСообщения = "";

КонецЕсли;
КонецЕсли;

возврат истина;     <<<------ что то с возвратом
КонецФункции




Процедура ПередЗаписью(Отказ)

ПрисутствиеОшибок = ПроверкаДубликатовКонтрагента();

Если ПрисутствиеОшибок Тогда
Предупреждение("Контрагент уже есть в базе ...",,"Контрагент не записан");
Отказ = Истина;


КонецЕсли;



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






если так и оставить то запрет полный на создание контрагента

[Yura063]

Возврат у вас без условия и всегда возвращает истину, не важно на код функции

Код Выделить Развернуть


      Если Не Результат.Пустой() Тогда
            Выборка = Результат.Выбрать();
            ТекстСообщения = "";
            возврат истина;             
         КонецЕсли;
      КонецЕсли;
     
      возврат Ложь;   
КонецФункции

наверно так!!!

[mixqn]

интересный у вас код
вне зависимости от результата запроса ВСЕГДА возвращается ИСТИНА, т.е. ВСЕГДА как бы есть дубль.
Скорее всего в конце функции надо возвращать ЛОЖЬ, а вот если попали в

Код Выделить Развернуть

Если Не Результат.Пустой() Тогда
КонецЕсли;
то как раз вернуть нужно ИСТИНУ - значит нашли контрагента по заданным условиям.

Код Выделить Развернуть

Если Не Результат.Пустой() Тогда
Возврат Истина
КонецЕсли;


[ls600]

Возврат у вас без условия и всегда возвращает истину, не важно на код функции

Код Выделить Развернуть


      Если Не Результат.Пустой() Тогда
            Выборка = Результат.Выбрать();
            ТекстСообщения = "";
            возврат истина;             
         КонецЕсли;
      КонецЕсли;
     
      возврат Ложь;   
КонецФункции

наверно так!!!

БЛАГОДАРЮ РАБОТАЕТ!!!!

[Dethmontt]

Код Выделить Развернуть

Если Не Результат.Пустой() Тогда
            Выборка = Результат.Выбрать();
            ТекстСообщения = "";
            возврат истина;             
         КонецЕсли;
      КонецЕсли;
     
      возврат Ложь;   
А можно одной строкой:

Код Выделить Развернуть

Возврат НЕ Результат.Пустой();

[ls600]

...

[LordWizard]

Странно, а если с одним и тем же ИНН и КПП программа хавает и дает записать??