Заполнение табличной части инвентаризации по диапазону мест хранения

Писала для себя. Буду рада, если кому-то пригодится.

У нас стеллажное хранение, склад разделен на группы стеллажей (Зона А, Зона Б, Зона С) В каждой из зон изначально заводились места хранения = номерам стеллажей 01, 02, 03. Далее гением пользователей была изобретена нумерация типа 01-А или 01 полка1. А потом пользователи решили проводить инвентаризацию отдельных стеллажей...

Данная обработка проходит по местам хранения выбранной зоны, отделяет в этих местах первый числовой блок (разделенный от остального текста пробелом или дефисом) и заполняет ТЧ инвентаризации списком товаров. Пользователю остается записать документ, нажать кнопку "Перезаполнить учетные количества и суммы" и установить галку "Учитывать серии".

Процедура Инициализировать(Объект, ИмяТабличнойЧасти = Неопределено, ТабличноеПолеОбъекта = Неопределено) Экспорт

    ТабличнаяЧасть = Объект[ИмяТабличнойЧасти];

    ФормаДопПараметров = ПолучитьФорму("Форма");
    ФормаДопПараметров.ОткрытьМодально();

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


	Объект[ИмяТабличнойЧасти].Загрузить(Запрос.Выполнить().Выгрузить());
КонецПроцедуры

Функция ЭтоЧисло(Стр)
	Попытка
	    Стр = Стр * 1;
		Возврат истина;
	Исключение
		Возврат ложь;
	КонецПопытки;
КонецФункции // ЭтоЧисло()

Тестировалась на "Управление торговлей", редакция 10.3 (10.3.49.1) / 1С:Предприятие 8.3 (8.3.12.1685).