https://pastein.ru/t/sB

  скопируйте уникальную ссылку для отправки


ВЫБРАТЬ
	Организации.Ссылка КАК Ссылка
ПОМЕСТИТЬ ВТОрганизации
ИЗ
	Справочник.Организации КАК Организации
{ГДЕ
	Организации.Ссылка.* КАК ОтборОрганизации};
ВЫБРАТЬ
	ПартнерыДополнительныеРеквизиты.Значение КАК Значение,
	ПартнерыДополнительныеРеквизиты.Ссылка КАК Ссылка
ПОМЕСТИТЬ ВТСегментыПартнера
ИЗ
	Справочник.Партнеры.ДополнительныеРеквизиты КАК ПартнерыДополнительныеРеквизиты
ГДЕ
	ПартнерыДополнительныеРеквизиты.Свойство = &СегментыСвойство
;

////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
	ИерархияПартнеров.Родитель КАК Партнер
ПОМЕСТИТЬ ВТ_Партнеры
ИЗ
	РегистрСведений.ИерархияПартнеров КАК ИерархияПартнеров
ГДЕ
	ИерархияПартнеров.Уровень = 0
;
ВЫБРАТЬ
	Номенклатура.Ссылка КАК Номенклатура,
	Номенклатура.ЦеноваяГруппа КАК ЦеноваяГруппа
ПОМЕСТИТЬ ВТНоменклатура
ИЗ
	Справочник.Номенклатура КАК Номенклатура
ГДЕ
	НЕ Номенклатура.ЭтоГруппа
{ГДЕ
	Номенклатура.Ссылка.* КАК ОтборНоменклатура};
////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ РАЗЛИЧНЫЕ
	Партнеры.Ссылка КАК Ссылка,
	ВТСегментыПартнера.Значение КАК Сегмент
ПОМЕСТИТЬ ВТВладельцы
ИЗ
	Справочник.Партнеры КАК Партнеры
		ВНУТРЕННЕЕ СОЕДИНЕНИЕ ВТ_Партнеры КАК ВТ_Партнеры
			ЛЕВОЕ СОЕДИНЕНИЕ ВТСегментыПартнера КАК ВТСегментыПартнера
			ПО (ВТСегментыПартнера.Ссылка = ВТ_Партнеры.Партнер)
		ПО Партнеры.Ссылка = ВТ_Партнеры.Партнер
{ГДЕ
	Партнеры.БизнесРегион.* КАК ОтборБизнесРегионы,
	Партнеры.Ссылка.* КАК ОтборВладельцы};
ВЫБРАТЬ
	Контрагенты.Ссылка КАК Ссылка,
	ВТВладельцы.Ссылка КАК Владелец,
	ВТВладельцы.Сегмент КАК Сегмент	
ПОМЕСТИТЬ ВТТорговыеТочки
ИЗ
	Справочник.Контрагенты КАК Контрагенты
		ВНУТРЕННЕЕ СОЕДИНЕНИЕ ВТВладельцы КАК ВТВладельцы
		ПО (Контрагенты.Партнер = ВТВладельцы.Ссылка)
		ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Контрагенты.КонтактнаяИнформация КАК КонтрагентыКонтактнаяИнформацияАдрес
		ПО (Контрагенты.Ссылка = КонтрагентыКонтактнаяИнформацияАдрес.Ссылка)
			И (КонтрагентыКонтактнаяИнформацияАдрес.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.ФактАдресКонтрагента))
ГДЕ
	НЕ КонтрагентыКонтактнаяИнформацияАдрес.Представление ЕСТЬ NULL;
	ВЫБРАТЬ
	СоглашенияСКлиентами.Ссылка КАК Ссылка,
	СоглашенияСКлиентами.Партнер КАК Владелец
ПОМЕСТИТЬ ВТДоговоры
ИЗ
	Справочник.СоглашенияСКлиентами КАК СоглашенияСКлиентами
		ВНУТРЕННЕЕ СОЕДИНЕНИЕ ВТОрганизации КАК ВТОрганизации
		ПО (ВТОрганизации.Ссылка = СоглашенияСКлиентами.Организация)
		ВНУТРЕННЕЕ СОЕДИНЕНИЕ ВТВладельцы КАК ВТВладельцы
		ПО (ВТВладельцы.Ссылка = СоглашенияСКлиентами.Партнер)
		ВНУТРЕННЕЕ СОЕДИНЕНИЕ ВТТорговыеТочки КАК ВТТорговыеТочки
		ПО (ВТТорговыеТочки.Ссылка = СоглашенияСКлиентами.Контрагент)
		
ГДЕ
	СоглашенияСКлиентами.Статус = ЗНАЧЕНИЕ(Перечисление.СтатусыСоглашенийСКлиентами.Действует)
	И НЕ СоглашенияСКлиентами.Типовое;
	
ВЫБРАТЬ РАЗЛИЧНЫЕ
	1
ИЗ
	РегистрСведений.ЦеныНоменклатуры.СрезПоследних(
			,
			Номенклатура В
				(ВЫБРАТЬ
					ВТНоменклатура.Номенклатура
				ИЗ
					ВТНоменклатура КАК ВТНоменклатура)) КАК ЦеныНоменклатурыСрезПоследних
		ВНУТРЕННЕЕ СОЕДИНЕНИЕ ВТНоменклатура КАК ВТНоменклатура
		ПО (ЦеныНоменклатурыСрезПоследних.Номенклатура = ВТНоменклатура.Номенклатура)
		
ГДЕ
	ЦеныНоменклатурыСрезПоследних.Цена <> 0

ОБЪЕДИНИТЬ ВСЕ

ВЫБРАТЬ РАЗЛИЧНЫЕ
	2
ИЗ
	РегистрСведений.ЦеныНоменклатуры.СрезПоследних(
			,
			Номенклатура В
				(ВЫБРАТЬ
					ВТНоменклатура.Номенклатура
				ИЗ
					ВТНоменклатура КАК ВТНоменклатура)) КАК ЦеныНоменклатурыСрезПоследних
		ВНУТРЕННЕЕ СОЕДИНЕНИЕ ВТНоменклатура КАК ВТНоменклатура
		ПО ЦеныНоменклатурыСрезПоследних.Номенклатура = ВТНоменклатура.Номенклатура
		ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.СоглашенияСКлиентами.ЦеновыеГруппы КАК СоглашенияСКлиентамиЦеновыеГруппы
			ВНУТРЕННЕЕ СОЕДИНЕНИЕ ВТДоговоры КАК ВТДоговоры
			ПО (ВТДоговоры.Ссылка = СоглашенияСКлиентамиЦеновыеГруппы.Ссылка)
		ПО ЦеныНоменклатурыСрезПоследних.Номенклатура.ЦеноваяГруппа = СоглашенияСКлиентамиЦеновыеГруппы.ЦеноваяГруппа
			И ЦеныНоменклатурыСрезПоследних.ВидЦены = СоглашенияСКлиентамиЦеновыеГруппы.ВидЦен
ГДЕ
	ЦеныНоменклатурыСрезПоследних.Цена <> 0
	И НЕ ЦеныНоменклатурыСрезПоследних.Цена ЕСТЬ NULL