Оптимизация код регламентного задания (УПП 1.3)

	УстановитьПривилегированныйРежим(Истина);
	
	Запрос = Новый Запрос;
	Запрос.УстановитьПараметр("ДатаПроверки", ТекущаяДата());
	Запрос.Текст = 
	"ВЫБРАТЬ
	|	БИТ_СТ_ГруппыНоменклатурыВКаталоге.Ссылка КАК ГНК,
	|	Номенклатура.БИТ_СТ_ГруппаНоменклатуры.ОтветственныйКонструктор КАК ОтветственныйКонструктор,
	|	Номенклатура.Ссылка КАК Номенклатура // добавил поле
	|ИЗ
	|	Справочник.БИТ_СТ_ГруппыНоменклатурыВКаталоге КАК БИТ_СТ_ГруппыНоменклатурыВКаталоге
	|		ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Номенклатура КАК Номенклатура
	|		ПО (Номенклатура.БИТ_СТ_ГруппаНомеклатурыВКаталоге = БИТ_СТ_ГруппыНоменклатурыВКаталоге.Ссылка)
	|			И (Номенклатура.БИТ_СТ_ГруппаНоменклатуры.ОтветственныйКонструктор <> ЗНАЧЕНИЕ(Справочник.Пользователи.Пустаяссылка))
	|ГДЕ
	|	НЕ БИТ_СТ_ГруппыНоменклатурыВКаталоге.ПометкаУдаления
	|	И БИТ_СТ_ГруппыНоменклатурыВКаталоге.СТ_R_AndD
	|	И БИТ_СТ_ГруппыНоменклатурыВКаталоге.СТ_ПлановаяДатаСнятия <= &ДатаПроверки
	|
	|СГРУППИРОВАТЬ ПО
	|	Номенклатура.БИТ_СТ_ГруппаНоменклатуры.ОтветственныйКонструктор,
	|	БИТ_СТ_ГруппыНоменклатурыВКаталоге.Ссылка,
	|	Номенклатура.Ссылка
	|ИТОГИ ПО
	|	ГНК,
	|	Номенклатура";
	
	Шаблон = БИТ_СТ_ПовторноеИспользованиеЗначений.ПолучитьЗначениеКонстанты("СТ_ШаблонСообщенияСнятиеRndГНК");
	
	ВыборкаГНК = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам,"ГНК");
	Пока ВыборкаГНК.Следующий() цикл
		СправочникОбъект = ВыборкаГНК.ГНК.ПолучитьОбъект();
		СправочникОбъект.СТ_R_AndD = Ложь;   
		СправочникОбъект.СТ_ДатаУстановкиСтатуса =  ТекущаяДата();
		
                // добавил цикл
		ВыборкаНоменклатура = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "НК");
		Пока ВыборкаНоменклатура.Следующий() Цикл
			НоменклатураОбъект = ВыборкаНоменклатура.Номенклатура.ПолучитьОбъект();
			НоменклатураОбъект.Записать();
		КонецЦикла;
		// конец цикла


		Успех = Истина;
		НачатьТранзакцию();
        Попытка
			СправочникОбъект.Записать();
			СтруктураКонтекст = СформироватьСтруктуруКонтекст(ВыборкаГНК.ГНК);
			Если ЗначениеЗаполнено(СправочникОбъект.СТ_ОтветственныйКонструктор) тогда
				СтруктураСообщения	= бит_фн_ОповещенияСервер.СформироватьСообщениеПоШаблону(Шаблон, СтруктураКонтекст);
			КонецЕсли;
			БИТ_СТ_Оповещения.ЗаписатьОповещение(ВыборкаГНК.ГНК,СправочникОбъект.СТ_ОтветственныйКонструктор , СтруктураСообщения.Заголовок, СтруктураСообщения.Текст, СтруктураСообщения.Подпись,Неопределено , );
			АдресаПолучателей = БИТ_СТ_ПовторноеИспользованиеЗначений.ПолучитьЗначениеКонстанты("АдресаПолучателейДляОповещенияПоИзменениюПараметра_R_AndD");
			Если ЗначениеЗаполнено(АдресаПолучателей) Тогда 
				БИТ_СТ_Оповещения.ЗаписатьОповещение(ВыборкаГНК.ГНК, , СтруктураСообщения.Заголовок, СтруктураСообщения.Текст, СтруктураСообщения.Подпись, АдресаПолучателей , );
    		КонецЕсли;

		Исключение
			Успех = Ложь;
		КонецПопытки;
		
		Если Успех Тогда
			ЗафиксироватьТранзакцию();
		Иначе
			ОтменитьТранзакцию();
		КонецЕсли;
		ВыборкаКонструтор = ВыборкаГНК.Выбрать();
		Пока ВыборкаКонструтор.Следующий() Цикл
			Успех = Истина;
			НачатьТранзакцию();
	        Попытка
				БИТ_СТ_Оповещения.ЗаписатьОповещение(ВыборкаГНК.ГНК,ВыборкаКонструтор.ОтветственныйКонструктор , СтруктураСообщения.Заголовок, СтруктураСообщения.Текст, СтруктураСообщения.Подпись,Неопределено , );
			Исключение
				Успех = Ложь;
			КонецПопытки;
			
			Если Успех Тогда
				ЗафиксироватьТранзакцию();
			Иначе
				ОтменитьТранзакцию();
			КонецЕсли;
		КонецЦикла; 
	КонецЦикла;