В 7.7 Откройте Справочник Контрагенты — Форма Элемента, двойным щелчком по полю ИНН, на закладке Дополнительно в поле формула введите ПроверкаИНН()
И в Модуль добавьте процедуру ПроверкаИНН()
|
1 2 3 4 5 6 |
Процедура ПроверкаИНН() СпрКонтрагенты = СоздатьОбъект("Справочник.Контрагенты"); Если СпрКонтрагенты.НайтиПоРеквизиту("ИНН",ИНН,1) = 1 Тогда Предупреждение("Найден контрагент с таким же ИНН :"+РазделительСтрок+Строка(СпрКонтрагенты.Код)+" - "+Строка(СпрКонтрагенты)); КонецЕсли; КонецПроцедуры |
В 8- ой версии, откройте Справочник Контрагенты — Форму Элемента, двойным щелчком по полю ИНН, в событиях ПриИзменении введите ПроверкаИНН()
И в Модуль добавьте процедуру ПроверкаИНН()
|
1 2 3 4 5 6 |
Процедура ПроверкаИНН() СпрКонтрагенты = Справочники.Контрагенты; Если СпрКонтрагенты.НайтиПоРеквизиту("ИНН",ИНН) Тогда Предупреждение("Найден контрагент с таким же ИНН :"+РазделительСтрок+Строка(СпрКонтрагенты.Код)+" - "+Строка(СпрКонтрагенты)); КонецЕсли; КонецПроцедуры |
Теперь при вводе ИНН происходит проверка, если Контрагент с таким ИНН уже есть в базе, то выдается Предупреждение!
|
1 2 3 4 |
СпрКонтрагенты = Справочники.Контрагенты.НайтиПоРеквизиту("ИНН",Запись.ИНН); Если Не СпрКонтрагенты=Справочники.Контрагенты.ПустаяСсылка() Тогда Предупреждение("Найден контрагент с таким же ИНН : "+Строка(СпрКонтрагенты.Код)+" - "+Строка(СпрКонтрагенты)); КонецЕсли; |
About the Author
