Скидка на количество для Розницы 2.2

СуммаСкидки = Окр(КоличествоСкидки * ТоварСегмента.Цена * ПроцентСкидки / 100, ОкруглятьСуммуДо);

Запрос = Новый Запрос;
	Запрос.Текст = 
	"ВЫБРАТЬ
	|	Товары.КлючСвязи КАК КлючСвязи,
	|	Товары.Номенклатура КАК Номенклатура,
	|	Товары.Характеристика КАК Характеристика,
	|	Товары.Количество КАК Количество,
	|	Товары.Сумма КАК Сумма,
	|	Товары.СуммаВГруппе КАК СуммаВГруппе,
	|	Товары.СуммаБезСкидки КАК СуммаБезСкидки
	|ПОМЕСТИТЬ ТоварыДокумента
	|ИЗ
	|	&ВсеТовары КАК Товары
	|;
	|
	|////////////////////////////////////////////////////////////­////////////////////
	|ВЫБРАТЬ
	|	Товары.КлючСвязи КАК КлючСвязи,
	|	Товары.Номенклатура КАК Номенклатура,
	|	Товары.Характеристика КАК Характеристика,
	|	Товары.Количество КАК Количество,
	|	Товары.Сумма КАК Сумма,
	|	Товары.СуммаВГруппе КАК СуммаВГруппе,
	|	Товары.СуммаБезСкидки КАК СуммаБезСкидки
	|ИЗ
	|	ТоварыДокумента КАК Товары
	|		ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.НоменклатураСегмента КАК НоменклатураСегмента
	|		ПО (НоменклатураСегмента.Сегмент = &Сегмент)
	|			И Товары.Номенклатура = НоменклатураСегмента.Номенклатура
	|			И Товары.Характеристика = НоменклатураСегмента.Характеристика
	|			И (НЕ &ФормироватьДинамически)
	|
	|ОБЪЕДИНИТЬ ВСЕ
	|
	|ВЫБРАТЬ
	|	Товары.КлючСвязи,
	|	Товары.Номенклатура,
	|	Товары.Характеристика,
	|	Товары.Количество,
	|	Товары.Сумма,
	|	Товары.СуммаВГруппе,
	|	Товары.СуммаБезСкидки
	|ИЗ
	|	ТоварыДокумента КАК Товары
	|ГДЕ
	|	&УсловиеПоДинамическомуСегменту
	|	И &ФормироватьДинамически";
	Запрос.УстановитьПараметр("ВсеТовары", ВсеТовары);
	Запрос.УстановитьПараметр("Сегмент", СегментНоменклатуры);
	
	Запрос.УстановитьПараметр("ФормироватьДинамически", (СегментНоменклатуры.СпособФормирования = Перечисления.СпособыФормированияСегментов.ФормироватьДинамически));
    	FH_ОбщегоНазначенияСервер.ДополнитьЗапросОтборомПоСегментуНоменклатуры(Запрос, СегментНоменклатуры, "Товары", "УсловиеПоДинамическомуСегменту");
	
	ТоварыСегмента = Запрос.Выполнить().Выгрузить();

Процедура ДополнитьЗапросОтборомПоСегментуНоменклатуры(Запрос, СегментНоменклатуры, ИмяТаблицыВЗапросе, ИмяПараметраОтбораПоСегменту, ИсключениеТоваровСегмента=Ложь, ПрефиксИмениПараметра="") Экспорт
	
	Настройки = СегментыВызовСервера.FH_ПолучитьНастройкиСписка(СегментНоменклатуры);
	СКД = Настройки.СКД;
	НастройкиСКДОтбор = Настройки.Настройки;
	
	СоответствиеЗамен = Новый Соответствие;
	СоответствиеЗамен.Вставить("Номенклатура", "Номенклатура");
	СоответствиеЗамен.Вставить("Характеристика", "Характеристика");
	
	ДополнитьЗапросОтборомПоОтборуСКД(Запрос, СКД, НастройкиСКДОтбор, ИмяТаблицыВЗапросе, ИмяПараметраОтбораПоСегменту, СоответствиеЗамен, ИсключениеТоваровСегмента, ПрефиксИмениПараметра);
	
КонецПроцедуры

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

Функция FH_ПолучитьНастройкиСписка(СегментСсылка) Экспорт
	
		Возврат ПолучитьНастройкиСписка(СегментСсылка);
	
	КонецФункции

				Если УчитыватьПредыдущиеСкидки Тогда
					ТекЦена = ТоварСегмента.ЦенаСоСкидкой;
				Иначе
					ТекЦена = ТоварСегмента.Цена;
				КонецЕсли;