Процедура ПереборПодчиненыхЭлементов(Контрагент) 
   // Получить выборку по указанному контрагенту. 
        Выборка = Справочники.КонтактныеЛица.Выбрать( , Контрагент); 
    Пока Выборка.Следующий() Цикл 
             ОчереднойПодчиненый = Выборка.Ссылка; 
       КонецЦикла; 
КонецПроцедуры