Мини-обзор разных решений задач

1. Есть стандартный и очевидный способ - используя запрос, описать все заранее известные документы с отбором по номенклатуре.
2. Второй - теперь также уже стандартный способ - генерировать запрос динамически в цикле, при этом нужно обходить все метаданные документов, находить документы с реквизитом с типом значения СправочникСсылка Номенклатура, сравнивать значение реквизита с искомой номенклатурой. Процедура поиска становится длительной с технической точки зрения. 

    Текст = "";
	Для К = 1 По Макет.ВысотаТаблицы Цикл
		
		Стр	= СокрЛП(Макет.Область(К,1,К,1).Текст);
		
		МасПодстрок = РазложитьСтрокуВМассивПодстрок(Стр, ".");
		
		Если МасПодстрок.Получить(0) <> "Документ" Тогда
			Продолжить;
		КонецЕсли;
		
		Док = МасПодстрок.Получить(1);
			
		Если МасПодстрок.Получить(2) = "Реквизит" Тогда
			
			РеквизитТЧ 	= МасПодстрок.Получить(3);
			
			Попытка			 	
				
				Запрос = Новый Запрос;
				Запрос.Текст = "ВЫБРАТЬ Первые 1
				|	""" + Док + """ КАК ТипДокумента,
				|	Ссылка КАК Ссылка,
				|	""реквизит: " + РеквизитТЧ + """ КАК ТабЧасть
				|ИЗ
				|	Документ." + Док + "
				|ГДЕ
				|	" + РеквизитТЧ + " = &Сотрудник
				|И
				|	Ссылка.Дата МЕЖДУ &НачПериода И &КонПериода";
				
				Запрос.УстановитьПараметр("Сотрудник", Объект.Сотрудник);
				Запрос.УстановитьПараметр("НачПериода", Объект.НачПериода);
				Запрос.УстановитьПараметр("КонПериода", Объект.КонПериода);
				
				Результат = Запрос.Выполнить();
				Выборка = Результат.Выбрать();
				Выборка = Неопределено;
				
			Исключение
				Продолжить;
			КонецПопытки;
			
			Текст = Текст + "ВЫБРАТЬ 
			|	""" + Док + """ КАК ТипДокумента,
			|	Ссылка КАК Ссылка,
			|	""реквизит: " + РеквизитТЧ + """ КАК ТабЧасть
			|ИЗ
			|	Документ." + Док + "
			|ГДЕ
			|	" + РеквизитТЧ + " = &Сотрудник
			|И
			|	Ссылка.Дата МЕЖДУ &НачПериода И &КонПериода
			|ОБЪЕДИНИТЬ ВСЕ
			|";    			
			
		КонецЕсли;  		

		Если МасПодстрок.Получить(2) = "ТабличнаяЧасть" Тогда
			
			ТабЧасть 	= МасПодстрок.Получить(3);		
			РеквизитТЧ 	= МасПодстрок.Получить(5);
			ИмяТаблицы 	= Док + ТабЧасть;  		
			
			Попытка			 	
				
				Запрос = Новый Запрос;
				Запрос.Текст = "ВЫБРАТЬ Первые 1
				|	""" + Док + """ КАК ТипДокумента,
				|	" + ИмяТаблицы + ".Ссылка КАК Ссылка,
				|	""табл.часть: " + ТабЧасть + """ КАК ТабЧасть
				|ИЗ
				|	Документ." + Док + "." + ТабЧасть + " КАК " + ИмяТаблицы + "
				|ГДЕ
				|	" + ИмяТаблицы + "." + РеквизитТЧ + " = &Сотрудник
				|И
				|	" + ИмяТаблицы + ".Ссылка.Дата МЕЖДУ &НачПериода И &КонПериода";
				
				Запрос.УстановитьПараметр("Сотрудник", Объект.Сотрудник);
				Запрос.УстановитьПараметр("НачПериода", Объект.НачПериода);
				Запрос.УстановитьПараметр("КонПериода", Объект.КонПериода);
				
				Результат = Запрос.Выполнить();
				Выборка = Результат.Выбрать();
				Выборка = Неопределено;
				
			Исключение
				Продолжить;
			КонецПопытки;
			
			Текст = Текст + "ВЫБРАТЬ 
			|	""" + Док + """ КАК ТипДокумента,
			|	" + ИмяТаблицы + ".Ссылка КАК Ссылка,
			|	""табл.часть: " + ТабЧасть + """ КАК ТабЧасть
			|ИЗ
			|	Документ." + Док + "." + ТабЧасть + " КАК " + ИмяТаблицы + "
			|ГДЕ
			|	" + ИмяТаблицы + "." + РеквизитТЧ + " = &Сотрудник
			|И
			|	" + ИмяТаблицы + ".Ссылка.Дата МЕЖДУ &НачПериода И &КонПериода
			|ОБЪЕДИНИТЬ ВСЕ
			|";    			
			
		КонецЕсли;  		
						
	КонецЦикла;

	Текст = Лев(Текст, СтрДлина(Текст) - 16);
	Текст = Текст + "
	|УПОРЯДОЧИТЬ ПО
	|	ТипДокумента,
	|	Ссылка
	|АВТОУПОРЯДОЧИВАНИЕ";
	
	Запрос = Новый Запрос;
	Запрос.Текст = Текст;
	Запрос.УстановитьПараметр("Сотрудник", Объект.Сотрудник);
	Запрос.УстановитьПараметр("НачПериода", Объект.НачПериода);
	Запрос.УстановитьПараметр("КонПериода", Объект.КонПериода);

	Результат = Запрос.Выполнить();
	Выборка = Результат.Выбрать(); 		
	
	Объект.СписокДокументов.Очистить();
	Пока Выборка.Следующий() Цикл
		
		Если ЗначениеЗаполнено(Выборка.Ссылка) Тогда
			
			Стр = Объект.СписокДокументов.Добавить();
			Стр.Документ = Выборка.Ссылка;
			Стр.ТипДокумента = Выборка.ТипДокумента;
			Стр.ТабЧасть = Выборка.ТабЧасть;
			
		КонецЕсли;  		
		
	КонецЦикла;  

Было бы проще, когда Бренд являлся реквизитом справочника номенклатуры. Но он является одним из свойств характеристики номенклатуры. Да и в целом, свойств очень много, и уже реализован отбор по свойствам: отбор задействует стандартное поле "Ссылка" справочника номенклатура и программно задается как "Ссылка В Списке (Ссылка1, Ссылка2, и т.д.)" - рис. 4. 

Дополнительный поиск остатков номенклатуры для динамического списка в конечном счете также начинает использовать стандартное поле "Ссылка". И тут начинается эквилибристика: при смене подгруппы номенклатуры или при смене свойства в одно и тоже поле "ссылка" нужно задавать новый список ссылок с учетом имеющегося отбора по свойствам или с учетом остатков соответственно. 

Есть первый способ - очевидный - задать три переменные - три массива или три списка значений, которые будут хранить соответственно получаемые списки "по остаткам" (первый список), список с отбором свойств (второй список), и результирующий список (третий список) - пересечение первых двух списков. Я решил, что создание массивов - это разовое решение и в целом тупиковый путь, потому что не масштабируется. При изменении требований клиентов придется переписывать алгоритм, возможно создавать новые массивы (новые списки).

Процедура ПередЗаписью(Отказ)
	
	Если ОбменДанными.Загрузка  Тогда
		Возврат;
	КонецЕсли;
	
	...
	
	//доработка+
	Если НЕ Отказ И НЕ ЭтоГруппа Тогда
		
		Если ЭтоНовый() Тогда 
			
			СсылкаНового = ЭтотОбъект.ПолучитьСсылкуНового();
			Если НЕ ЗначениеЗаполнено(СсылкаНового) Тогда
				СсылкаНового = Справочники.Номенклатура.ПолучитьСсылку();
			КонецЕсли;
			
			Если НЕ Отказ И НЕ ЗначениеЗаполнено(ЭтотОбъект.ПолучитьСсылкуНового()) Тогда
				ЭтотОбъект.УстановитьСсылкуНового(СсылкаНового);
			КонецЕсли;			
			
			Ссылка2 = ЭтотОбъект.ПолучитьСсылкуНового();
			
		Иначе
			Ссылка2 = Ссылка;
		КонецЕсли; 
		
	КонецЕсли;
	
КонецПроцедуры // ПередЗаписью()

1) Первый способ - очевидный - перейти на клиент-серверный режим работы.
Но есть проблемы: нет сисадмина, который развернет серверную СУБД и будет ее обслуживать - ну ладно, на первый раз попросил знакомого развернуть пустую СУБД.
Вторая проблема - развернув копию рабочей базы в ПостгреSQL, начались проблемы вызовов клиентских процедур на стороне сервера - скажем так, встроенные доработки перестают работать при переходе на новый серверный режим.
Один из самых известных и распространенных примеров - встроенная подсистема версионирования перестает запускать функцию Хеш() на сервере - поскольку ява-компонента "видна только на клиенте".
Этот способ не подходит только тем, что нужно предварительно отладить и протестировать все имеющиеся нетиповые доработки - а таких в базе очень много. Время на тестирование несопоставимо больше времени жизни базы.

2) Второй  способ - сделать типовую свертку. Проблема в том, что как таковой "типовой" свертки не бывает. Каждая работа по свертке индивидуальна - в этой базе нужно учесть НДС, учет по сериям, учет марок, учесть размер базы - такую большую базу я еще не сворачивал - сколько времени это займет и не обвалится ли процесс на ошибке через N часов?

Для меня понятно, что свертка нужна фрагментарная и кусочная - не только в плане периодов, но и в плане документов и регистров. Чего я также еще ни разу не делал.  

Рис. 7.

Рис. 8.

Рис. 9.

Рис. 10.

Рис. 11.

    Выборка = Документы.РеализацияТоваровУслуг.Выбрать(,Дата(2018,1,1));
	Пока Выборка.Следующий() Цикл
		
		Док = Выборка.Ссылка.ПолучитьОбъект();
		Док.ОбменДанными.Загрузка = Истина;
		Док.Товары.Очистить();
		Док.Записать(); //по умолчанию режим записи = Запись
		
	КонецЦикла;