Загрузка данных


Процедура ПередЗаписью(Отказ) 
	Если Не Ссылка.ЭтоГруппа Тогда    
		Запрос = Новый Запрос;
		Запрос.Текст = 
		"ВЫБРАТЬ
		|	ГрафикРаботы.Ссылка КАК ПроизводственныйКалендарь
		|ИЗ
		|	Справочник.ГрафикРаботы КАК ГрафикРаботы
		|ГДЕ
		|	ГОД(ГрафикРаботы.ДатаНачала) = &Год
		|	И НЕ ГрафикРаботы.ПометкаУдаления
		|	И ГрафикРаботы.Ссылка <> &Ссылка
		|
		|УПОРЯДОЧИТЬ ПО
		|	ГрафикРаботы.Наименование";   
		Запрос.УстановитьПараметр("Год", Год);      
		Запрос.УстановитьПараметр("Ссылка", Ссылка);

		РезультатМассив = Запрос.Выполнить().Выгрузить().ВыгрузитьКолонку("ПроизводственныйКалендарь");

		Если РезультатМассив.Количество() > 0 Тогда
			Отказ = Истина;
			Сообщить("График работы за " + Строка(Год) + " год уже существует.");
		КонецЕсли;
	КонецЕсли;
КонецПроцедуры