СпрСотр . ВыбратьЭлементы();
Пока СпрСотр . ПолучитьЭлемент() = 1 Цикл
Если СпрСотрПриемник . НайтиПоКоду(СокрЛП(СпрСотр.ТекущийЭлемент() . Код),0) = 1 Тогда
Если СпрСотрудПриемник . НайтиЭлемент(СпрСотрПРиемник . ТекущийЭлемент()) = 1 Тогда
НашЭлемент = СпрСотрудПриемник . ТекущийЭлемент();
Если НашЭлемент . ЭтоГруппа() = 1 Тогда
НашЭлемент . Наименование = "";
НашЭлемент . Наименование = СокрЛП(СпрСотр.Наименование);
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший