Не выгружать номенклатуру из группы на обмен

Товар = Справочники.Номенклатура;
Значение = Товар.НайтиПоКоду("РТ-00009472") ; 
БитыеСсылки = Справочники.Номенклатура.ПустаяСсылка();

Родитель = Объект.Родитель;  
Если Родитель.ЭтоГруппа = ЛОЖЬ Тогда
    Пока ЗанчениеЗаполнено(Родитель.Родитель)  Цикл 
                    
        Родитель = Родитель.Родитель; 

        Если Родитель = Значение Тогда
            Отказ = Истина;
            Прервать;
        КонецЕсли; 
    КонецЦикла;   
КонецЕсли;

Если Объект.ЭтоГруппа = ЛОЖЬ Тогда
 Если Объект.Родитель = Значение Тогда
    Отказ = Истина;
 КонецЕсли; 
КонецЕсли;