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