| 0
    
        el604   24.10.11✎ 11:25 | 
        Процедура ПеребросСотрудников()
 СпрСотр = База.CreateObject("Справочник.Сотрудники");
 СпрСотрудПриемник = СоздатьОбъект("Справочник.Сотрудники");
 
 СпрПолПриемник = СоздатьОбъект("Справочник.ОКИН");
 
 СпрСотр . ВыбратьЭлементы();
 Пока СпрСотр . ПолучитьЭлемент() = 1 Цикл
 Если СпрСотрПриемник . НайтиПоКоду(СокрЛП(СпрСотр.ТекущийЭлемент() . Код),0) = 1 Тогда
 Если СпрСотрудПриемник . НайтиЭлемент(СпрСотрПРиемник . ТекущийЭлемент()) = 1 Тогда
 НашЭлемент = СпрСотрудПриемник . ТекущийЭлемент();
 Если НашЭлемент . ЭтоГруппа() = 1 Тогда
 
 
 
 НашЭлемент .  Наименование = "";
 НашЭлемент .  Наименование = СокрЛП(СпрСотр.Наименование);
 
 НашЭлемент . Записать();
 Иначе
 
 
 НашЭлемент . Наименование = "";
 НашЭлемент . Наименование = СокрЛП(СпрСотр.Наименование);
 СпрПолПРиемник . НайтиПоНаименованию(СокрЛП(СпрСотр.Пол.Наименование),,);
 НашЭлемент . Пол = СпрПолПРиемник . ТекущийЭлемент();
 СпрСотрудПриемник . НайтиПоНаименованию(СокрЛП(НашЭлемент . Наименование),,1);
 НашЭлемент . ОсновнойЭлемент = СпрСотрудПриемник . ТекущийЭлемент();
 НашЭлемент . Записать();
 
 КонецЕсли;
 КонецЕсли;
 НашЭлемент ="";
 КонецЕсли;
 КонецЦикла;
 
 КонецПроцедуры
 
 
 вот код
 почемуто пишет что не выбран элемент??
 |  |