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

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

	

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

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

		Возврат;

	КонецЕсли;

	

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

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

		"ВЫБРАТЬ

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

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

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

		|ИЗ

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

		|ГДЕ

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

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

	

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

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

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

	КонецЕсли;

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

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

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

		

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

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

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

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

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

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

		КонецЦикла;

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

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

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

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

	КонецЕсли;  

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

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

	

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

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

	

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

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

	КонецЕсли;

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

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

	

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

  // Отбирать нужно за 1 месяц

// Выводит: Сотрудник, Организация, Норма в часах, норма в днях

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

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

"ВЫБРАТЬ

|	НАЧАЛОПЕРИОДА(Норма.ДатаКалендаря, МЕСЯЦ) КАК ПериодДействия,

|	СотрудникиОрганизаций.Ссылка КАК Сотрудник,

|	СотрудникиОрганизаций.ОбособленноеПодразделение КАК Организация,

|	СУММА(ВЫБОР

|			КОГДА Норма.ДатаКалендаря >= СотрудникиОрганизаций.ДатаПриемаНаРаботу

|						И Норма.ДатаКалендаря <= СотрудникиОрганизаций.ДатаУвольнения

|					ИЛИ Норма.ДатаКалендаря >= СотрудникиОрганизаций.ДатаПриемаНаРаботу

|						И СотрудникиОрганизаций.ДатаУвольнения = ДАТАВРЕМЯ(1, 1, 1, 0, 0, 0)

|				ТОГДА Норма.НормаВЧасах

|			ИНАЧЕ 0

|		КОНЕЦ) КАК НормаЧасов,

|	СУММА(ВЫБОР

|			КОГДА Норма.ДатаКалендаря >= СотрудникиОрганизаций.ДатаПриемаНаРаботу

|						И Норма.ДатаКалендаря <= СотрудникиОрганизаций.ДатаУвольнения

|					ИЛИ Норма.ДатаКалендаря >= СотрудникиОрганизаций.ДатаПриемаНаРаботу

|						И СотрудникиОрганизаций.ДатаУвольнения = ДАТАВРЕМЯ(1, 1, 1, 0, 0, 0)

|				ТОГДА Норма.НормаВДнях

|			ИНАЧЕ 0

|		КОНЕЦ) КАК НормаДней

|ИЗ

|	(ВЫБРАТЬ

|		СУММА(ВЫБОР

|				КОГДА Норма.ВидДня = ЗНАЧЕНИЕ(Перечисление.ВидыДнейПроизводственногоКалендаря.Рабочий)

|					ТОГДА 8

|				ИНАЧЕ ВЫБОР

|						КОГДА Норма.ВидДня = ЗНАЧЕНИЕ(Перечисление.ВидыДнейПроизводственногоКалендаря.Предпраздничный)

|							ТОГДА 7

|						ИНАЧЕ 0

|					КОНЕЦ

|			КОНЕЦ) КАК НормаВЧасах,

|		Норма.ДатаКалендаря КАК ДатаКалендаря,

|		ВЫБОР

|			КОГДА Норма.ВидДня = ЗНАЧЕНИЕ(Перечисление.ВидыДнейПроизводственногоКалендаря.Рабочий)

|				ТОГДА 1

|			ИНАЧЕ ВЫБОР

|					КОГДА Норма.ВидДня = ЗНАЧЕНИЕ(Перечисление.ВидыДнейПроизводственногоКалендаря.Предпраздничный)

|						ТОГДА 1

|					ИНАЧЕ 0

|				КОНЕЦ

|		КОНЕЦ КАК НормаВДнях

|	ИЗ

|		РегистрСведений.РегламентированныйПроизводственныйКалендарь КАК Норма

|	ГДЕ

|		Норма.ДатаКалендаря МЕЖДУ &НачалоПериода И &КонецПериода

|	

|	СГРУППИРОВАТЬ ПО

|		Норма.ДатаКалендаря,

|		ВЫБОР

|			КОГДА Норма.ВидДня = ЗНАЧЕНИЕ(Перечисление.ВидыДнейПроизводственногоКалендаря.Рабочий)

|				ТОГДА 1

|			ИНАЧЕ ВЫБОР

|					КОГДА Норма.ВидДня = ЗНАЧЕНИЕ(Перечисление.ВидыДнейПроизводственногоКалендаря.Предпраздничный)

|						ТОГДА 1

|					ИНАЧЕ 0

|				КОНЕЦ

|		КОНЕЦ) КАК Норма,

|	Справочник.СотрудникиОрганизаций КАК СотрудникиОрганизаций

|

|СГРУППИРОВАТЬ ПО

|	НАЧАЛОПЕРИОДА(Норма.ДатаКалендаря, МЕСЯЦ),

|	СотрудникиОрганизаций.Ссылка,

|	СотрудникиОрганизаций.ОбособленноеПодразделение";

Запрос.УстановитьПараметр("КонецПериода", Дата("31.05.2012 0:00:00"));

Запрос.УстановитьПараметр("НачалоПериода", Дата("01.05.2012 0:00:00"));



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

Выборка = Результат.Выгрузить();

Для каждого СтрокаТЗ Из Выборка Цикл

КонецЦикла;