Разбиение строки табличной части документа

Процедура ЗаполнитьПоОстаткам(Команда)
    Ответ = Новый Структура(); 
    Ответ.Вставить("ТекстОшибки", "");
    
    
    Если Ответ.ТекстОшибки <> "" Тогда
        // вывод текста ошибки    
    КонецЕсли;
    
    Для Каждого ТекущаяСтрока Из Объект.ТоварыОтбор Цикл
                ЗаполнитьПоОстаткамНаСервере(Ответ);

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

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

КонецПроцедуры

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

Для Каждого СтрокаТЧ Из Объект.ТоварыОтбор Цикл
        Если СтрокаТЧ.КоличествоУпаковок>1 Тогда
            СтрокаТЧ.КоличествоУпаковок=1;
            Для Счетчик=1 По Объект.ТоварыОтбор.Количество() Цикл
                НоваяСтрока = Объект.ТоварыОтбор.Добавить();
                ЗаполнитьЗначенияСвойств(НоваяСтрока,СтрокаТЧ);
            КонецЦикла;
        КонецЕсли;
        
    КонецЦикла;