//Проверка ИНН на дублирование

Процедура ЗапретДублированияКонтрагентовОбработкаПроверкиЗаполнения(ИНН, КПП, Источник, Отказ) Экспорт

	

 	// Проверка осуществляется только для контрагентов с заполненным ИНН и КПП

	Если Не ЗначениеЗаполнено(ИНН) ИЛИ Не ЗначениеЗаполнено(КПП) Тогда

		Возврат;

	КонецЕсли;

	

	Запрос = Новый Запрос;

	Запрос.Текст = 

		"ВЫБРАТЬ

		|	ПРЕДСТАВЛЕНИЕ(Контрагенты.Код) КАК Код,

		|	Контрагенты.Наименование,

		|	ПРЕДСТАВЛЕНИЕ(Контрагенты.КПП) КАК КПП

		|ИЗ

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

		|ГДЕ

		|	Контрагенты.ИНН =ИНН

		|	И Контрагенты.КПП =КПП";

	

	Если Не ЗначениеЗаполнено(Источник) Тогда

		Запрос.Текст = Запрос.Текст + "

		|И Контрагенты.Ссылка <>ссылкаТекущийКонтрагент";

	КонецЕсли;

	Запрос.УстановитьПараметр("ссылкаТекущийКонтрагент", Источник);

	Запрос.УстановитьПараметр("ИНН", ИНН);

	Запрос.УстановитьПараметр("КПП", КПП);

		

	РезультатЗапроса = Запрос.Выполнить();

	Если Не РезультатЗапроса.Пустой() Тогда

		ТекстСообщения = "ВНИМАНИЕ! Существуют контрагенты с таким же ИНН/КПП ("+ИНН+"/"+КПП+"):";

		ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

		Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

			ТекстСообщения = ТекстСообщения + Символы.ПС + Строка(ВыборкаДетальныеЗаписи.Код)+" "+ Строка(ВыборкаДетальныеЗаписи.Наименование); 

		КонецЦикла;

		Сообщение = Новый СообщениеПользователю;

		Сообщение.Текст = ТекстСообщения;

		Сообщение.Сообщить();

		Отказ = Истина;

	КонецЕсли;  

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

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

	

	мЭтоНовый = ЭтоНовый();

	мИНН = Ссылка.ИНН;

	

	Если ОбособленноеПодразделение И ЗначениеЗаполнено(ГоловнойКонтрагент) И ГоловнойКонтрагент <> Ссылка Тогда

		ИНН = ГоловнойКонтрагент.ИНН;

	КонецЕсли;

	//all4cf проверка на дубли

	all4cf.ЗапретДублированияКонтрагентовОбработкаПроверкиЗаполнения(ИНН, КПП, Ссылка, Отказ);	

	

КонецПроцедуры // ПередЗаписью()   

  Запрос.Текст =

    "ВЫБРАТЬ 

    |    усЕдиницыХранения.Ссылка

    |ИЗ

    |    Справочник.усЕдиницыХранения КАК усЕдиницыХранения"



    // Пример 1. сравнение с не заполненным булевым значением:

    |ГДЕ

    |     усЕдиницыХранения.РазрешитьОтборИзРезервнойЗоны = Ложь



    // Пример 2. но если это булево определено, то лучше так: // условие на отрицательное булево:

    |ГДЕ

    |     НЕ усЕдиницыХранения.РазрешитьОтборИзРезервнойЗоны



    // Пример 3. выборка по условию не заполненного поля, имеющего тип "справочник конкретного типа"

    |ГДЕ

    |    усЕдиницыХранения.АктивнаяОбластьОтбора = ЗНАЧЕНИЕ(Справочник.усОбластиОтбора.ПустаяСсылка)



    // Пример 3а. выборка по условию не заполненного поля, имеющего тип "документ конкретного типа"

    |ГДЕ

    |    НашРегистрСведений.Документ = ЗНАЧЕНИЕ(Документ.НашДокумент.ПустаяСсылка)



    // Пример 3б. выборка по условию не заполненного поля, имеющего тип "документы разных типов" (составное поле)

    |ГДЕ

    |    (НашРегистрСведений.Документ = ЗНАЧЕНИЕ(Документ.НашДокумент1.ПустаяСсылка)

    |    ИЛИ НашРегистрСведений.Документ = ЗНАЧЕНИЕ(Документ.НашДокумент2.ПустаяСсылка)

    |    ИЛИ ...(и т.д. - последовательно перечисляем условия для всех возможных типов этого составного поля))



    // Пример 4. или наоборот, если нужно выбрать заполненное значение типа "строка", то поможет условие:

    |ГДЕ

    |    усЕдиницыХранения.Наименование > """"



    // Пример 5. если нужно выбрать документы конкретного типа, при составном типе данных, например в регистре "ВыполняемыеЗадания" ресурс "Задание" имеет составной тип, среди значений которого возможен документ "Отбор"

    |ГДЕ

    |    ВЫРАЗИТЬ(РегистрСведенийВыполняемыеЗадания.Задание КАК Документ.Отбор) ССЫЛКА Документ.Отбор



    // Пример 5а. Еще аналогичный пример, когда нужно выбрать документы конкретного типа

    |	ВЫБОР

    |		КОГДА ВЫРАЗИТЬ(агСоответствиеДокументов.ДокументБУ КАК Документ.ПоступлениеТоваровУслуг) ССЫЛКА Документ.ПоступлениеТоваровУслуг

    |			ТОГДА ""ПоступлениеТоваровУслуг""

    |		КОГДА ВЫРАЗИТЬ(агСоответствиеДокументов.ДокументБУ КАК Документ.РеализацияТоваровУслуг) ССЫЛКА Документ.РеализацияТоваровУслуг

    |			ТОГДА ""РеализацияТоваровУслуг""

    |		ИНАЧЕ """"

    |	КОНЕЦ КАК ВидДокумента



    // Пример 6. выбор по условию не определенного значения:

    |ГДЕ

    |    СохраненныеНастройки.Пользователь = НЕОПРЕДЕЛЕНО



    // Пример 7. выбор по виду движения "Приход" регистра накопления, "Расход" - аналогично):

    |ГДЕ

    |    РегТоварыВРознице.ВидДвижения = ЗНАЧЕНИЕ(ВидДвиженияНакопления.Приход)



    // Пример 8. Как в запросе указать, что выполнять запрос не нужно (например, нужно программно в зависимости от какого-то

    // условия вернуть пустой результат запроса - 

    // Запрос.Текст = СтрЗаменить(Запрос.Текст, "ГДЕ Док.Ссылка = &ДокументСсылка", "ГДЕ ЛОЖЬ");).

    // Для этого достаточно добавить условие "Где Ложь".

    // Кстати, независимо от объема запрашиваемых в выборке данных, такой запрос будет выполнен мгновенно.

    |ГДЕ ЛОЖЬ



    // Пример 9. Проверка на то, что результат выполнения запроса содержит данные:

    Если НЕ Запрос.Выполнить().Пустой() Тогда



    // Пример 10. выбор по условию не заполненной даты:

    |ГДЕ

    |    тбСтроки.ДатаОтмены = ДАТАВРЕМЯ(1, 1, 1)   

 Запрос.Текст =

    "ВЫБРАТЬ 

    |    ЕдиницыХранения.Ссылка

    |ИЗ

    |    Справочник.ЕдиницыХранения КАК ЕдиницыХранения

    |ГДЕ

    // сравнение с не заполненным булевым значением:

    |     ЕдиницыХранения.РазрешитьОтборИзРезервнойЗоны = Ложь

    // сравнение с незаполненным полем типа справочник

    |    ИЛИ ЕдиницыХранения.АктивнаяОбластьОтбора = ЗНАЧЕНИЕ(Справочник.ОбластиОтбора.ПустаяСсылка)";

    // или наоборот, если нужно выбрать заполненное значение типа "строка", то поможет условие:

    |    ИЛИ ЕдиницыХранения.Наименование > """"

    |";