Отчёт маржи

ВЫБРАТЬ
	РасчётнаяЦена.ВхЦена + РасчётнаяЦена.ВПроцентах / 100 * РасчётнаяЦена.ВхЦена + РасчётнаяЦена.ВРублях * ТоварыВРезервеНаСкладах.Номенклатура.алкЕмкость / 10 КАК РасчётнаяЦена,
	ТоварыВРезервеНаСкладах.Номенклатура,
	ТоварыВРезервеНаСкладах.Склад,
	ТоварыВРезервеНаСкладах.СерияНоменклатуры
ИЗ
	РегистрНакопления.ТоварыВРезервеНаСкладах КАК ТоварыВРезервеНаСкладах
		ЛЕВОЕ СОЕДИНЕНИЕ (ВЫБРАТЬ
			ПолученнаяВходящаяЦена.Цена КАК ВхЦена,
			КоэффициентыРасчетныхЦенСрезПоследних.ВПроцентах КАК ВПроцентах,
			КоэффициентыРасчетныхЦенСрезПоследних.ВРублях КАК ВРублях,
			ПолученнаяВходящаяЦена.Номенклатура.алкЕмкость КАК АлкЕмкость,
			ПолученнаяВходящаяЦена.Номенклатура КАК Номенклатура,
			ПолученнаяВходящаяЦена.Склад КАК Склад,
			ПолученнаяВходящаяЦена.СерияНоменклатуры КАК СерияНоменклатуры
		ИЗ
			(ВЫБРАТЬ
				ВЫБОР
					КОГДА (ВЫРАЗИТЬ(СРЕДНЕЕ(ЕСТЬNULL(ПоступлениеТоваровУслугСерия.Цена, 0)) КАК ЧИСЛО(10, 2))) <> 0
						ТОГДА ВЫРАЗИТЬ(СРЕДНЕЕ(ЕСТЬNULL(ПоступлениеТоваровУслугСерия.Цена, 0)) КАК ЧИСЛО(10, 2))
					ИНАЧЕ ВЫБОР
							КОГДА (ВЫРАЗИТЬ(СРЕДНЕЕ(ЕСТЬNULL(ПоступлениеТоваровУслугНоменклатура.Цена, 0)) КАК ЧИСЛО(10, 2))) <> 0
								ТОГДА ВЫРАЗИТЬ(СРЕДНЕЕ(ЕСТЬNULL(ПоступлениеТоваровУслугНоменклатура.Цена, 0)) КАК ЧИСЛО(10, 2))
							ИНАЧЕ ВЫБОР
									КОГДА СУ
ММА(Остатки.КоличествоОстаток) > 0
										ТОГДА ВЫРАЗИТЬ(СУММА(Остатки.СтоимостьОстаток) / СУММА(Остатки.КоличествоОстаток) КАК ЧИСЛО(10, 2))
									ИНАЧЕ 0
								КОНЕЦ
						КОНЕЦ
				КОНЕЦ КАК Цена,
				Остатки.Номенклатура КАК Номенклатура,
				Остатки.СерияНоменклатуры КАК СерияНоменклатуры,
				Остатки.Склад КАК Склад
			ИЗ
				(ВЫБРАТЬ
					ПартииТоваровНаСкладахОстатки.Номенклатура КАК Номенклатура,
					ПартииТоваровНаСкладахОстатки.СерияНоменклатуры КАК СерияНоменклатуры,
					ПартииТоваровНаСкладахОстатки.ДокументОприходования КАК ДокументОприходования,
					СУММА(ПартииТоваровНаСкладахОстатки.КоличествоОстаток) КАК КоличествоОстаток,
					СУММА(ПартииТоваровНаСкладахОстатки.СтоимостьОстаток) КАК СтоимостьОстаток,
					ПартииТоваровНаСкладахОстатки.Склад КАК Склад
				ИЗ
					РегистрНакопления.ПартииТоваровНаСкладах.Остатки(, ) КАК ПартииТоваровНаСкладахОстатки
				
				СГРУППИРОВАТЬ ПО
					ПартииТоваровНаСкладахОстатки.СерияНоменклатуры,
					ПартииТоваровНаСкладахОстатки.Номенклатура,
					ПартииТоваровНаСкладахОстатки.ДокументОприходования,
					ПартииТоваровНаСкладахОстатки.Склад
				
				ИМЕЮЩИЕ
					СУММА(ПартииТоваровНаСкладахОстатки.КоличествоОстаток) > 0) КАК Остатки
					ЛЕВОЕ СОЕДИНЕНИЕ Документ.ПоступлениеТоваровУслуг.Товары КАК ПоступлениеТоваровУслугСерия
					ПО Остатки.ДокументОприходования = ПоступлениеТоваровУслугСерия.Ссылка
						И Остатки.Номенклатура = ПоступлениеТоваровУслугСерия.Номенклатура
						И Остатки.СерияНоменклатуры = ПоступлениеТоваровУслугСерия.СерияНоменклатуры
					ЛЕВОЕ СОЕДИНЕНИЕ Документ.ПоступлениеТоваровУслуг.Товары КАК ПоступлениеТоваровУслугНоменклатура
					ПО Остатки.ДокументОприходования = ПоступлениеТоваровУслугНоменклатура.Ссылка
						И Остатки.Номенклатура = ПоступлениеТоваровУслугНоменклатура.Номенклатура
			
			СГРУППИРОВАТЬ ПО
				Остатки.Номенклатура,
				Остатки.СерияНоменклатуры,
				Остатки.Склад) КАК ПолученнаяВходящаяЦена,
			РегистрСведений.КоэффициентыРасчетныхЦен.СрезПоследних(&НаДату, ) КАК КоэффициентыРасчетныхЦенСрезПоследних) КАК РасчётнаяЦена
		ПО ТоварыВРезервеНаСкладах.Номенклатура = РасчётнаяЦена.Номенклатура

	
Функция ПолучитьЦенуНоменклатуры(Номенклатура, ХарактеристикаНоменклатуры = Неопределено, Знач ТипЦен, ДатаПараметр = Неопределено, ЕдиницаИзмерения = Неопределено,
	                             Валюта = Неопределено, Курс = 0, Кратность = 1, ПроцентСкидкиНаценки = 0, ДоговорКонтрагента = Неопределено,
	                             УсловиеПродаж = Неопределено, СерияНоменклатуры = Неопределено) Экспорт

	ЗапросРасчет = Новый Запрос();
		ЗапросРасчет.Текст = "ВЫБРАТЬ
		                     |	КоэффициентыРасчетныхЦенСрезПоследних.ТипЦен,
		                     |	КоэффициентыРасчетныхЦенСрезПоследних.ПризнакГруппыНоменклатуры,
		                     |	КоэффициентыРасчетныхЦенСрезПоследних.ВПроцентах,
		                     |	КоэффициентыРасчетныхЦенСрезПоследних.ВРублях
		                     |ИЗ
		                     |	РегистрСведений.КоэффициентыРасчетныхЦен.СрезПоследних(&НаДату, ) КАК КоэффициентыРасчетныхЦенСрезПоследних
		                     |ГДЕ
		                     |	КоэффициентыРасчетныхЦенСрезПоследних.ТипЦен = &ТипЦен
		                     |	И КоэффициентыРасчетныхЦенСрезПоследних.ПризнакГруппыНоменклатуры = &Признак";
		ЗапросРасчет.УстановитьПараметр("НаДату", Дата);
		ЗапросРасчет.УстановитьПараметр("ТипЦен", ТипЦен);
		ЗапросРасчет.УстановитьПараметр("Признак", Признак);
		Выборка = ЗапросРасчет.Выполнить().Выбрать();
		Пока Выборка.Следующий() Цикл
			Если СерияНоменклатуры <> Неопределено Тогда
				ВхЦена = ПолучитьВхЦену(Номенклатура, СерияНоменклатуры, Дата);
				Если ВхЦена <> 0 Тогда
					РасчетнаяЦена = ВхЦена + Выборка.ВПроцентах/100 * ВхЦена + Выборка.ВРублях * Номенклатура.алкЕмкость / 10;
					РасчетнаяЦена = ОкруглитьЦену(РасчетнаяЦена, Перечисления.ПорядкиОкругления.Окр1, Истина);
					Расчет = Истина;
				КонецЕсли;
			КонецЕсли;
		КонецЦикла;
	КонецЕсли;
	
	Если Расчет = Истина Тогда
		Возврат РасчетнаяЦена;
	Иначе
		Возврат ПолученнаяЦена;
	КонецЕсли;

КонецФункции // ПолучитьЦенуНоменклатуры()

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