Имя: Пароль:
1C
1C 7.7
v7: перезапись реквизитов справочника
0 el604
 
24.10.11
11:25
Процедура ПеребросСотрудников()
   СпрСотр = База.CreateObject("Справочник.Сотрудники");              
   СпрСотрудПриемник = СоздатьОбъект("Справочник.Сотрудники");
   
   СпрПолПриемник = СоздатьОбъект("Справочник.ОКИН");

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


вот код
почемуто пишет что не выбран элемент??
1 KishMish
 
24.10.11
11:28
потомучто ты пытаешься записать объекту а надо ссылке
СпрСотрудПриемник.Наименование = "чтото";
СпрСотрудПриемник.Записать();
2 Вежливый_Лось
 
24.10.11
12:08
спасибо
3 zuza
 
24.10.11
12:49
(0)-(2) Двойники?
4 Patrio_
O_Muerte
 
24.10.11
12:50
(3)Однофамильцы
5 1Сергей
 
24.10.11
12:52
Спасибо