v7: перезапись реквизитов справочника

Процедура ПеребросСотрудников()
СпрСотр = База.CreateObject("Справочник.Сотрудники");
СпрСотрудПриемник = СоздатьОбъект("Справочник.Сотрудники");

СпрПолПриемник = СоздатьОбъект("Справочник.ОКИН");

СпрСотр . ВыбратьЭлементы();
Пока СпрСотр . ПолучитьЭлемент() = 1 Цикл
Если СпрСотрПриемник . НайтиПоКоду(СокрЛП(СпрСотр.ТекущийЭлемент() . Код),0) = 1 Тогда
Если СпрСотрудПриемник . НайтиЭлемент(СпрСотрПРиемник . ТекущийЭлемент()) = 1 Тогда
НашЭлемент = СпрСотрудПриемник . ТекущийЭлемент();
Если НашЭлемент . ЭтоГруппа() = 1 Тогда

НашЭлемент . Наименование = "";
НашЭлемент . Наименование = СокрЛП(СпрСотр.Наименование);

НашЭлемент . Записать();
Иначе

НашЭлемент . Наименование = "";
НашЭлемент . Наименование = СокрЛП(СпрСотр.Наименование);
СпрПолПРиемник . НайтиПоНаименованию(СокрЛП(СпрСотр.Пол.Наименование),,);
НашЭлемент . Пол = СпрПолПРиемник . ТекущийЭлемент();
СпрСотрудПриемник . НайтиПоНаименованию(СокрЛП(НашЭлемент . Наименование),,1);
НашЭлемент . ОсновнойЭлемент = СпрСотрудПриемник . ТекущийЭлемент();
НашЭлемент . Записать();

КонецЕсли;
КонецЕсли;
НашЭлемент ="";
КонецЕсли;
КонецЦикла;

КонецПроцедуры

вот код
почемуто пишет что не выбран элемент??