Ценовая власть. Выносим из цикла схему СКД

// Заполняет значения цен, рассчитываемым по данным информационной базы
//
// Параметры:
//  Форма - ФормаКлиентскогоПриложения - 
//  ТаблицаНоменклатуры - ТаблицаЗначений - таблица данных по номенклатуре.
//  СтрокаВидЦены - ДанныеФормыЭлементКоллекции - Строка вида цен
//  ТолькоНезаполненные - Булево- Указывает на необходимость вычисления только незаполненных цен.
//  НастройкиКомпоновкиДанных - НастройкиКомпоновкиДанных - 
//  КэшДанных - см. ИнициализироватьСтруктуруКэшаДанных
//
(Форма,
	                                      ТаблицаНоменклатуры,
	                                      СтрокаВидЦены,
	                                      ТолькоНезаполненные,
	                                      НастройкиКомпоновкиДанных,
	                                      КэшДанных)
	
			
			// Копирование схемы компоновки данных
				
				Схема = Новый ХранилищеЗначения(СтрокаВидЦены.СхемаКомпоновкиДанных);
				СхемаКомпоновкиДанных = Схема.Получить();
				
			
				// Заполнение набора данных ТаблицаНоменклатуры
				РабочийНаборДанных = СхемаКомпоновкиДанных.НаборыДанных[0];
				
				ТекстЗапроса = РабочийНаборДанных.Запрос;
				ТекстЗапроса = СтрЗаменить(
					ТекстЗапроса, 
					"&ТекстЗапросаКоэффициентУпаковки1", 
					Справочники.УпаковкиЕдиницыИзмерения.ТекстЗапросаКоэффициентаУпаковки(
						"ЦеныНоменклатурыПоставщиковСрезПоследних.Упаковка", 
						"ЦеныНоменклатурыПоставщиковСрезПоследних.Номенклатура"));
				
				ТекстЗапроса = СтрЗаменить(
					ТекстЗапроса, 
					"&ТекстЗапросаКоэффициентУпаковки2", 
					Справочники.УпаковкиЕдиницыИзмерения.ТекстЗапросаКоэффициентаУпаковки(
						"ТоварыДокумента.Упаковка", 
						"ТоварыДокумента.Номенклатура"));
						
				ТекстЗапроса = СтрЗаменить(
					ТекстЗапроса, 
					"&ТекстЗапросаКоэффициентУпаковки3", 
					Справочники.УпаковкиЕдиницыИзмерения.ТекстЗапросаКоэффициентаУпаковки(
						"ТоварыДокументаВводНаОсновании.Упаковка", 
						"ТоварыДокументаВводНаОсновании.Номенклатура"));
					
				РабочийНаборДанных.Запрос = ТекстЗапроса;
				
				НаборДанныхНоменклатура                = СхемаКомпоновкиДанных.НаборыДанных.Добавить(Тип("НаборДанныхОбъектСхемыКомпоновкиДанных"));
				НаборДанныхНоменклатура.Имя            = "ТаблицаНоменклатуры";
				НаборДанныхНоменклатура.ИмяОбъекта     = "ТаблицаНоменклатуры";
				НаборДанныхНоменклатура.ИсточникДанных = РабочийНаборДанных.ИсточникДанных;
				
				СхемаКомпоновкиДанных.СвязиНаборовДанных.Очистить();
				
				ДобавитьПолеНабораДанныхСКД(НаборДанныхНоменклатура, "Номенклатура", "СправочникСсылка.Номенклатура");
				ДобавитьСвязьНаборовДанныхСКД(СхемаКомпоновкиДанных, НаборДанныхНоменклатура, РабочийНаборДанных, "Номенклатура");
				
				Если Форма.ИспользоватьХарактеристикиНоменклатуры Тогда
					ДобавитьПолеНабораДанныхСКД(НаборДанныхНоменклатура, "ХарактеристикаЦО", "СправочникСсылка.ХарактеристикиНоменклатурыДляЦенообразования");
					ДобавитьСвязьНаборовДанныхСКД(СхемаКомпоновкиДанных, НаборДанныхНоменклатура, РабочийНаборДанных, "ХарактеристикаЦО");
				КонецЕсли;
				
				Если Форма.ИспользоватьСерииНоменклатуры Тогда
					ДобавитьПолеНабораДанныхСКД(НаборДанныхНоменклатура, "СерияЦО",         "СправочникСсылка.СерииНоменклатурыДляЦенообразования");
					ДобавитьПолеНабораДанныхСКД(НаборДанныхНоменклатура, "СерияЦОДляСвязи", "СправочникСсылка.СерииНоменклатурыДляЦенообразования");
					ДобавитьСвязьНаборовДанныхСКД(СхемаКомпоновкиДанных, НаборДанныхНоменклатура, РабочийНаборДанных, "СерияЦОДляСвязи");
				КонецЕсли;
				
				Если Форма.ИспользоватьУпаковкиНоменклатуры Тогда
					ДобавитьПолеНабораДанныхСКД(НаборДанныхНоменклатура, "УпаковкаЦО", "СправочникСсылка.УпаковкиЕдиницыИзмерения");
					ДобавитьПолеНабораДанныхСКД(НаборДанныхНоменклатура, "УпаковкаЦОДляСвязи", "СправочникСсылка.УпаковкиЕдиницыИзмерения");
					ДобавитьСвязьНаборовДанныхСКД(СхемаКомпоновкиДанных, НаборДанныхНоменклатура, РабочийНаборДанных, "УпаковкаЦОДляСвязи");
				КонецЕсли;
				
				// Подготовка компоновщика макета компоновки данных, загрузка настроек
				КомпоновщикНастроек = Новый КомпоновщикНастроекКомпоновкиДанных;
				КомпоновщикНастроек.Инициализировать(Новый ИсточникДоступныхНастроекКомпоновкиДанных(СхемаКомпоновкиДанных));
				
				Если НастройкиКомпоновкиДанных <> Неопределено Тогда
					КомпоновщикНастроек.ЗагрузитьНастройки(НастройкиКомпоновкиДанных);
					КомпоновщикНастроек.Восстановить(СпособВосстановленияНастроекКомпоновкиДанных.ПроверятьДоступность);
				Иначе
					
					Если ЗначениеЗаполнено(СтрокаВидЦены.АдресНастроекСхемыКомпоновкиДанных) Тогда
						НастройкиИзВидаЦены = ПолучитьИзВременногоХранилища(СтрокаВидЦены.АдресНастроекСхемыКомпоновкиДанных);
						КомпоновщикНастроек.ЗагрузитьНастройки(НастройкиИзВидаЦены);
						КомпоновщикНастроек.Восстановить(СпособВосстановленияНастроекКомпоновкиДанных.ПроверятьДоступность);
					Иначе
						КомпоновщикНастроек.ЗагрузитьНастройки(СхемаКомпоновкиДанных.НастройкиПоУмолчанию);
					КонецЕсли;
					
				КонецЕсли;
				
				// Заполнение структуры отчета и выбранных полей.
				КомпоновщикНастроек.Настройки.Структура.Очистить();
				
				ГруппировкаДетальныеЗаписи = КомпоновщикНастроек.Настройки.Структура.Добавить(Тип("ГруппировкаКомпоновкиДанных"));
				ГруппировкаДетальныеЗаписи.Использование = Истина;
				
				КомпоновщикНастроек.Настройки.Выбор.Элементы.Очистить();
				ДобавитьВыбранноеПолеСКД(ГруппировкаДетальныеЗаписи, "Номенклатура");
				
				Если Форма.ИспользоватьХарактеристикиНоменклатуры Тогда
					ДобавитьВыбранноеПолеСКД(ГруппировкаДетальныеЗаписи, "ХарактеристикаЦО");
				КонецЕсли;
				
				Если Форма.ИспользоватьСерииНоменклатуры Тогда
					ДобавитьВыбранноеПолеСКД(ГруппировкаДетальныеЗаписи, "СерияЦО");
					ДобавитьВыбранноеПолеСКД(ГруппировкаДетальныеЗаписи, "СерияЦОДляСвязи");
				КонецЕсли;
				
				Если Форма.ИспользоватьУпаковкиНоменклатуры Тогда
					ДобавитьВыбранноеПолеСКД(ГруппировкаДетальныеЗаписи, "УпаковкаЦО");
					ДобавитьВыбранноеПолеСКД(ГруппировкаДетальныеЗаписи, "УпаковкаЦОДляСвязи");
					ДобавитьВыбранноеПолеСКД(ГруппировкаДетальныеЗаписи, "Упаковка");
					ДобавитьВыбранноеПолеСКД(ГруппировкаДетальныеЗаписи, "Коэффициент");
				КонецЕсли;
				
				ДобавитьВыбранноеПолеСКД(ГруппировкаДетальныеЗаписи, "Цена");
				ДобавитьВыбранноеПолеСКД(ГруппировкаДетальныеЗаписи, "Валюта");
				
				ПараметрыКомпоновки = КомпоновщикНастроек.настройки.параметрыДанных.Элементы;
				Если ЭтоУстановкаЦенНоменклатуры(Форма) Тогда
					Параметр = ПараметрыКомпоновки.Найти("Основание");
					Если Параметр <> Неопределено Тогда
						Параметр.Значение = Форма.Объект.ДокументОснование;
						Параметр.Использование = ЗначениеЗаполнено(Параметр.Значение);
					КонецЕсли;
					Параметр = ПараметрыКомпоновки.Найти("ЭтоВводНаОсновании");
					Если Параметр <> Неопределено Тогда
						Параметр.Значение = ЗначениеЗаполнено(Форма.Объект.ДокументОснование);
						Параметр.Использование = ЗначениеЗаполнено(Параметр.Значение);
					КонецЕсли;
				КонецЕсли;
				Параметр = ПараметрыКомпоновки.Найти("ИсключаемыеХозОперации");
				Если Параметр <> Неопределено Тогда
					Параметр.Значение = РасчетСебестоимостиПрикладныеАлгоритмы.ХозяйственныеОперацииПеремещений();
					Параметр.Использование = ЗначениеЗаполнено(Параметр.Значение);
				КонецЕсли;
				Параметр = ПараметрыКомпоновки.Найти("ДатаДокумента");
				Если Параметр <> Неопределено Тогда
					Параметр.Значение = ДатаДокумента(Форма);
					Параметр.Использование = ЗначениеЗаполнено(Параметр.Значение);
				КонецЕсли;
				Параметр = ПараметрыКомпоновки.Найти("ВидЦены");
				Если Параметр <> Неопределено Тогда
					Параметр.Значение = СтрокаВидЦены.Ссылка;
					Параметр.Использование = ЗначениеЗаполнено(Параметр.Значение);
				КонецЕсли;
				Параметр = ПараметрыКомпоновки.Найти("Валюта");
				Если Параметр <> Неопределено Тогда
					Параметр.Значение = СтрокаВидЦены.Валюта;
					Параметр.Использование = ЗначениеЗаполнено(Параметр.Значение);
				КонецЕсли;
				
				// Компоновка макета и исполнение запроса.
				КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
				СегментыСервер.ВключитьОтборПоСегментуНоменклатурыВСКД(КомпоновщикНастроек);
				МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, КомпоновщикНастроек.ПолучитьНастройки(), , , Тип("ГенераторМакетаКомпоновкиДанныхДляКоллекцииЗначений"), Ложь);
				
				ВнешниеНаборыДанных = Новый Структура;
				ВнешниеНаборыДанных.Вставить("ТаблицаНоменклатуры", ТаблицаНоменклатуры.Скопировать(, "Номенклатура, ХарактеристикаЦО, СерияЦО, СерияЦОДляСвязи, УпаковкаЦО, УпаковкаЦОДляСвязи"));
				
				ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;
				ПроцессорКомпоновки.Инициализировать(МакетКомпоновки, ВнешниеНаборыДанных,,Истина);
				ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВКоллекциюЗначений;

				ДанныеОтчета = Новый ТаблицаЗначений();
				ПроцессорВывода.УстановитьОбъект(ДанныеОтчета);
				ДанныеОтчета = ПроцессорВывода.Вывести(ПроцессорКомпоновки);
				
			
			Если Форма.ИспользоватьУпаковкиНоменклатуры Тогда
				ТаблицаКоэффициентовУпаковокНоменклатуры = КоэффициентыУпаковокНоменклатурыДереваТоваров(Форма);
			Иначе
				ТаблицаКоэффициентовУпаковокНоменклатуры = Неопределено;
			КонецЕсли;
			
			СтруктураПараметров = Новый Структура();
			СтруктураПараметров.Вставить("ТолькоНезаполненные",  ТолькоНезаполненные);
			СтруктураПараметров.Вставить("ПрименитьОкругление",  Истина);
			СтруктураПараметров.Вставить("ЗагружатьУпаковку",    Ложь);
			СтруктураПараметров.Вставить("АвтоматическийРасчет", Истина);

				
				СтруктураПараметров.Вставить("Наценивать", Истина);
				ЗагрузитьЦеныИзТаблицыЗначений(
					Форма,
					ДанныеОтчета,
					ТаблицаКоэффициентовУпаковокНоменклатуры,
					КэшДанных,
					СтрокаВидЦены,
					СтруктураПараметров);