Перемещение содержимого из группы в подгруппу через обработку

[Женя]

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

[Golickoff]

Код Выделить Развернуть

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

Код Выделить Развернуть

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