Проверка контрагентов на задвоение по ИНН при вводе

1С 8.x : Проверка контрагентов на задвоение по ИНН при вводе

В 7.7 Откройте Справочник Контрагенты - Форма Элемента, двойным щелчком по полю ИНН, на закладке Дополнительно в поле формула введите ПроверкаИНН()
И в Модуль добавьте процедуру ПроверкаИНН()

Код 1C v 7.x

 Процедура ПроверкаИНН() 

	СпрКонтрагенты = СоздатьОбъект("Справочник.Контрагенты");

	Если СпрКонтрагенты.НайтиПоРеквизиту("ИНН",ИНН,1) = 1 Тогда

		Предупреждение("Найден контрагент с таким же ИНН :"+РазделительСтрок+Строка(СпрКонтрагенты.Код)+" - "+Строка(СпрКонтрагенты));

	КонецЕсли;

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

В 8- ой версии, откройте Справочник Контрагенты - Форму Элемента, двойным щелчком по полю ИНН, в событиях ПриИзменении введите ПроверкаИНН()
И в Модуль добавьте процедуру ПроверкаИНН()

Код 1C v 8.х

 Процедура ПроверкаИНН() 

	СпрКонтрагенты = Справочники.Контрагенты;

	Если СпрКонтрагенты.НайтиПоРеквизиту("ИНН",ИНН) Тогда

		Предупреждение("Найден контрагент с таким же ИНН :"+РазделительСтрок+Строка(СпрКонтрагенты.Код)+" - "+Строка(СпрКонтрагенты));

	КонецЕсли;

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

Теперь при вводе ИНН происходит проверка, если Контрагент с таким ИНН уже есть в базе, то выдается Предупреждение!

Код 1C v 8.2 УП

 СпрКонтрагенты = Справочники.Контрагенты.НайтиПоРеквизиту("ИНН",Запись.ИНН);

	Если Не СпрКонтрагенты=Справочники.Контрагенты.ПустаяСсылка() Тогда

		Предупреждение("Найден контрагент с таким же ИНН : "+Строка(СпрКонтрагенты.Код)+" - "+Строка(СпрКонтрагенты));

	КонецЕсли;

Разместил: E_Migachev Версии: | 7.x | 8.x | 8.2 УП | Дата: 26.10.2009 Прочитано: 32080

1С 8.x : Проверка контрагентов на задвоение по ИНН при вводе

Похожие FAQ

Еще в этой же категории

Ключевые слова и Изображения

Слова упорядочены по частоте использования в тексте

Изображения