Процедура ПереборПодчиненыхЭлементов(Контрагент) 
   Запрос = Новый Запрос; 
      Запрос.Текст = "ВЫБРАТЬ 
       |       КонтактныеЛица.Ссылка 
 |ИЗ 
   |       Справочник.КонтактныеЛица КАК КонтактныеЛица 
  |ГДЕ 
  |       КонтактныеЛица.Владелец = &Владелец"; 
  Запрос.УстановитьПараметр("Владелец", Контрагент); 
   Результат = Запрос.Выполнить(); 
   Выборка = Результат.Выбрать(); 
    Пока Выборка.Следующий() Цикл 
             ОчереднойПодчиненый = Выборка.Ссылка; 
       КонецЦикла; 
КонецПроцедуры