Виды цен в КА 2.5

ВЫБРАТЬ РАЗЛИЧНЫЕ
	Сегменты.Номенклатура КАК Номенклатура,
	Сегменты.Характеристика КАК Характеристика,
	ИСТИНА КАК ИспользуетсяОтборПоСегментуНоменклатуры
ПОМЕСТИТЬ ОтборПоСегментуНоменклатуры
ИЗ
	РегистрСведений.НоменклатураСегмента КАК Сегменты
{ГДЕ
	Сегменты.Сегмент.* КАК СегментНоменклатуры,
	Сегменты.Номенклатура.* КАК Номенклатура,
	Сегменты.Характеристика.* КАК Характеристика}

ИНДЕКСИРОВАТЬ ПО
	Сегменты.Номенклатура,
	Сегменты.Характеристика,
	ИспользуетсяОтборПоСегментуНоменклатуры
;

////////////////////////////////////////////////////////////­////////////////////
ВЫБРАТЬ РАЗРЕШЕННЫЕ
	НАЧАЛОПЕРИОДА(ДанныеДокумента.Ссылка.Дата, МЕСЯЦ) КАК ПериодМесяц,
	ДанныеДокумента.Организация КАК Организация,
	ДанныеДокумента.Ссылка.ПредварительныйРасчет КАК ПредварительныйРасчет
ПОМЕСТИТЬ РасчетыСебестоимости
ИЗ
	Документ.РасчетСебестоимостиТоваров.Организации КАК ДанныеДокумента
ГДЕ
	ДанныеДокумента.Ссылка.Проведен
	И ДанныеДокумента.Ссылка.Дата МЕЖДУ НАЧАЛОПЕРИОДА(&ДатаДокумента, МЕСЯЦ) И КОНЕЦПЕРИОДА(&ДатаДокумента, МЕСЯЦ)
;

////////////////////////////////////////////////////////////­////////////////////
ВЫБРАТЬ РАЗРЕШЕННЫЕ
	1 КАК Коэффициент,
	ВЫБОР
		КОГДА СУММА(СебестоимостьТоваров.Количество) > 0
			ТОГДА ВЫРАЗИТЬ(СУММА(СебестоимостьТоваров.Стоимость) / СУММА(СебестоимостьТоваров.Количество) КАК ЧИСЛО(31,2))
		ИНАЧЕ 0
	КОНЕЦ КАК Цена,
	СебестоимостьТоваров.Номенклатура КАК Номенклатура,
	СебестоимостьТоваров.Характеристика КАК Характеристика,
	ЗНАЧЕНИЕ(Справочник.УпаковкиЕдиницыИзмерения.ПустаяСсылка) КАК Упаковка,
	Константы.ВалютаУправленческогоУчета КАК Валюта
{ВЫБРАТЬ
	Коэффициент,
	Цена,
	Номенклатура.*,
	Характеристика.*,
	Упаковка.*,
	Валюта.*}
ИЗ
	(ВЫБРАТЬ
		СебестоимостьТоваров.АналитикаУчетаНоменклатуры.Номенклатура КАК Номенклатура,
		СебестоимостьТоваров.АналитикаУчетаНоменклатуры.Характеристика КАК Характеристика,
		СУММА(ВЫБОР
				КОГДА ЕСТЬNULL(РасчетыСебестоимости.ПредварительныйРасчет, ЛОЖЬ)
					ТОГДА ВЫБОР
							КОГДА ВидыЦен.ЦенаВключаетНДС
								ТОГДА ЕСТЬNULL(СтоимостьНоменклатуры.Стоимость, 0) + ЕСТЬNULL(СтоимостьНоменклатуры.СтоимостьДопРасходы, 0) + ЕСТЬNULL(СтоимостьНоменклатуры.СтоимостьЗабалансовая, 0) + ЕСТЬNULL(СтоимостьНоменклатуры.Трудозатраты, 0) + ЕСТЬNULL(СтоимостьНоменклатуры.ПостатейныеПостоянныеСНДС, 0) + ЕСТЬNULL(СтоимостьНоменклатуры.ПостатейныеПеременныеСНДС, 0)
							ИНАЧЕ ЕСТЬNULL(СтоимостьНоменклатуры.СтоимостьБезНДС, 0) + ЕСТЬNULL(СтоимостьНоменклатуры.СтоимостьДопРасходыБезНДС, 0) + ЕСТЬNULL(СтоимостьНоменклатуры.Трудозатраты, 0) + ЕСТЬNULL(СтоимостьНоменклатуры.ПостатейныеПостоянныеБезНДС, 0) + ЕСТЬNULL(СтоимостьНоменклатуры.ПостатейныеПеременныеБезНДС, 0) + (ВЫРАЗИТЬ(ЕСТЬNULL(СтоимостьНоменклатуры.СтоимостьЗабалансовая, 0) - ЕСТЬNULL(СтоимостьНоменклатуры.СтоимостьЗабалансовая, 0) * ((ЕСТЬNULL(СтавкиНДСНоменклатуры.СтавкаНДС, ЕСТЬNULL(ОсновныеСтавкиНДС.СтавкаНДС, ЗНАЧЕНИЕ(Справочник.СтавкиНДС.ПустаяСсылка)))).Ставка / 100) КАК ЧИСЛО(31,2)))
						КОНЕЦ * СебестоимостьТоваров.Количество
				ИНАЧЕ ВЫБОР
						КОГДА ВидыЦен.ЦенаВключаетНДС
							ТОГДА СебестоимостьТоваров.Стоимость + СебестоимостьТоваров.ДопРасходы + СебестоимостьТоваров.СтоимостьЗабалансовая + СебестоимостьТоваров.Трудозатраты + СебестоимостьТоваров.ПостатейныеПостоянныеСНДС + СебестоимостьТоваров.ПостатейныеПеременныеСНДС
						ИНАЧЕ СебестоимостьТоваров.СтоимостьБезНДС + СебестоимостьТоваров.ДопРасходыБезНДС + СебестоимостьТоваров.Трудозатраты + СебестоимостьТоваров.ПостатейныеПостоянныеБезНДС + СебестоимостьТоваров.ПостатейныеПеременныеБезНДС + (ВЫРАЗИТЬ(СебестоимостьТоваров.СтоимостьЗабалансовая - СебестоимостьТоваров.СтоимостьЗабалансовая * ((ЕСТЬNULL(СтавкиНДСНоменклатуры.СтавкаНДС, ЕСТЬNULL(ОсновныеСтавкиНДС.СтавкаНДС, ЗНАЧЕНИЕ(Справочник.СтавкиНДС.ПустаяСсылка)))).Ставка / 100) КАК ЧИСЛО(31,2)))
					КОНЕЦ
			КОНЕЦ) КАК Стоимость,
		СУММА(СебестоимостьТоваров.Количество) КАК Количество
	ИЗ
		РегистрНакопления.СебестоимостьТоваров КАК СебестоимостьТоваров
			ЛЕВОЕ СОЕДИНЕНИЕ РасчетыСебестоимости КАК РасчетыСебестоимости
			ПО СебестоимостьТоваров.Организация = РасчетыСебестоимости.Организация
				И (НАЧАЛОПЕРИОДА(СебестоимостьТоваров.Период, МЕСЯЦ) = РасчетыСебестоимости.ПериодМесяц)
			ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.СтоимостьТоваров КАК СтоимостьНоменклатуры
			ПО СебестоимостьТоваров.АналитикаУчетаНоменклатуры = СтоимостьНоменклатуры.АналитикаУчетаНоменклатуры
				И СебестоимостьТоваров.Организация = СтоимостьНоменклатуры.Организация
				И СебестоимостьТоваров.ВидЗапасов = СтоимостьНоменклатуры.ВидЗапасов
				И (НАЧАЛОПЕРИОДА(СебестоимостьТоваров.Период, МЕСЯЦ) = СтоимостьНоменклатуры.Период)
				И (ЕСТЬNULL(РасчетыСебестоимости.ПредварительныйРасчет, ЛОЖЬ))
			ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ВидыЦен КАК ВидыЦен
			ПО (ВидыЦен.Ссылка = &ВидЦены)
			ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.СтавкиНДСНоменклатуры.СрезПоследних({(НАЧАЛОПЕРИОДА(&ДатаДокумента, ДЕНЬ))}, Страна = &СтранаСтавокНДС) КАК СтавкиНДСНоменклатуры
			ПО СебестоимостьТоваров.АналитикаУчетаНоменклатуры.Номенклатура = СтавкиНДСНоменклатуры.Номенклатура
			ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ОсновныеСтавкиНДС.СрезПоследних({(НАЧАЛОПЕРИОДА(&ДатаДокумента, ДЕНЬ))}, Страна = &СтранаСтавокНДС) КАК ОсновныеСтавкиНДС
			ПО (ИСТИНА)
	ГДЕ
		СебестоимостьТоваров.Период МЕЖДУ НАЧАЛОПЕРИОДА(&ДатаДокумента, МЕСЯЦ) И КОНЕЦПЕРИОДА(&ДатаДокумента, ДЕНЬ)
		И СебестоимостьТоваров.ВидДвижения = ЗНАЧЕНИЕ(ВидДвиженияНакопления.Приход)
		И СебестоимостьТоваров.АналитикаУчетаНоменклатуры.ТипМестаХранения = ЗНАЧЕНИЕ(Перечисление.ТипыМестХранения.Склад)
		И НЕ СебестоимостьТоваров.ХозяйственнаяОперация В (&ИсключаемыеХозОперации)
	{ГДЕ
		((СебестоимостьТоваров.АналитикаУчетаНоменклатуры.Номенклатура, СебестоимостьТоваров.АналитикаУчетаНоменклатуры.Характеристика) В
				(ВЫБРАТЬ
					ОтборПоСегментуНоменклатуры.Номенклатура,
					ОтборПоСегментуНоменклатуры.Характеристика
				ИЗ
					ОтборПоСегментуНоменклатуры
				ГДЕ
					ОтборПоСегментуНоменклатуры.ИспользуетсяОтборПоСегментуНоменклатуры = &ИспользуетсяОтборПоСегментуНоменклатуры))}
	
	СГРУППИРОВАТЬ ПО
		СебестоимостьТоваров.АналитикаУчетаНоменклатуры.Номенклатура,
		СебестоимостьТоваров.АналитикаУчетаНоменклатуры.Характеристика
	
	ОБЪЕДИНИТЬ ВСЕ
	
	ВЫБРАТЬ
		СебестоимостьТоваров.АналитикаУчетаНоменклатуры.Номенклатура,
		СебестоимостьТоваров.АналитикаУчетаНоменклатуры.Характеристика,
		СУММА(ВЫБОР
				КОГДА ВидыЦен.ЦенаВключаетНДС
					ТОГДА СебестоимостьТоваров.СтоимостьОстаток + СебестоимостьТоваров.ДопРасходыОстаток + СебестоимостьТоваров.СтоимостьЗабалансоваяОстаток + СебестоимостьТоваров.ТрудозатратыОстаток + СебестоимостьТоваров.ПостатейныеПостоянныеСНДСОстаток + СебестоимостьТоваров.ПостатейныеПеременныеСНДСОстаток
				ИНАЧЕ СебестоимостьТоваров.СтоимостьБезНДСОстаток + СебестоимостьТоваров.ДопРасходыБезНДСОстаток + СебестоимостьТоваров.ТрудозатратыОстаток + СебестоимостьТоваров.ПостатейныеПостоянныеБезНДСОстаток + СебестоимостьТоваров.ПостатейныеПеременныеБезНДСОстаток + (ВЫРАЗИТЬ(СебестоимостьТоваров.СтоимостьЗабалансоваяОстаток - СебестоимостьТоваров.СтоимостьЗабалансоваяОстаток * ((ЕСТЬNULL(СтавкиНДСНоменклатуры.СтавкаНДС, ЕСТЬNULL(ОсновныеСтавкиНДС.СтавкаНДС, ЗНАЧЕНИЕ(Справочник.СтавкиНДС.ПустаяСсылка)))).Ставка / 100) КАК ЧИСЛО(31,2)))
			КОНЕЦ),
		СУММА(СебестоимостьТоваров.КоличествоОстаток)
	ИЗ
		РегистрНакопления.СебестоимостьТоваров.Остатки(НАЧАЛОПЕРИОДА(&ДатаДокумента, МЕСЯЦ), {((АналитикаУчетаНоменклатуры.Номенклатура, АналитикаУчетаНоменклатуры.Характеристика) В
				    (ВЫБРАТЬ
				        ОтборПоСегментуНоменклатуры.Номенклатура,
				        ОтборПоСегментуНоменклатуры.Характеристика
				    ИЗ
				        ОтборПоСегментуНоменклатуры
				    ГДЕ
				        ОтборПоСегментуНоменклатуры.ИспользуетсяОтборПоСегментуНоменклатуры = &ИспользуетсяОтборПоСегментуНоменклатуры))}) КАК СебестоимостьТоваров
			ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ВидыЦен КАК ВидыЦен
			ПО (ВидыЦен.Ссылка = &ВидЦены)
			ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.СтавкиНДСНоменклатуры.СрезПоследних({(НАЧАЛОПЕРИОДА(&ДатаДокумента, МЕСЯЦ))}, Страна = &СтранаСтавокНДС) КАК СтавкиНДСНоменклатуры
			ПО СебестоимостьТоваров.АналитикаУчетаНоменклатуры.Номенклатура = СтавкиНДСНоменклатуры.Номенклатура
			ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ОсновныеСтавкиНДС.СрезПоследних({(НАЧАЛОПЕРИОДА(&ДатаДокумента, МЕСЯЦ))}, Страна = &СтранаСтавокНДС) КАК ОсновныеСтавкиНДС
			ПО (ИСТИНА)
	
	СГРУППИРОВАТЬ ПО
		СебестоимостьТоваров.АналитикаУчетаНоменклатуры.Номенклатура,
		СебестоимостьТоваров.АналитикаУчетаНоменклатуры.Характеристика) КАК СебестоимостьТоваров
		ЛЕВОЕ СОЕДИНЕНИЕ Константы КАК Константы
		ПО (ИСТИНА)

СГРУППИРОВАТЬ ПО
	СебестоимостьТоваров.Номенклатура,
	СебестоимостьТоваров.Характеристика,
	Константы.ВалютаУправленческогоУчета