При перемещении сотрудников из одной группы в другую пишет ошибку "Код не уникален!". Понятно что встречаются элементы в одинаковым кодом. Как сделать так чтобы элементы переносились с новый кодом?

  СпрСотр=СоздатьОбъект("Справочник.Сотрудники");
        
  СпрСотр.НайтиПоНаименованию("Приходящие");
  Приходящие=СпрСотр.ТекущийЭлемент();
  
  СпрСотр.НайтиПоНаименованию("Работающие");
  Работающие=СпрСотр.ТекущийЭлемент();
  СпрСотр.ИспользоватьРодителя(Работающие);
  СпрСотр.ВыбратьЭлементы();
  
      Пока СпрСотр.ПолучитьЭлемент()=1 Цикл
           СпрСотр.Родитель=Приходящие;
           СпрСотр.Записать();
      КонецЦикла;

"Понятно что встречаются элементы в одинаковым кодом".

Это путь армянского комсомола - сначала создать проблему, потом с жертвами её решить.

Прикинул что нужно использовать что то типа, и не могу это состыковать

Процедура ВводНового()
СпрСотр=СоздатьОбъект("Справочник.Сотрудники");
СвободныйКод=0;
Для К=1 По 99999
Цикл
Если СпрСотр.НайтиПоКоду(К)=1 Тогда
    Продолжить;
    Иначе
    СвободныйКод=К;
    Прервать;
    КонецЕсли;
КонецЦикла;                
КонецПроцедуры

(2) Мдяяя..

СпрСотр.УстановитьНовыйКод();

Скорее всего установлены серии кодов "в пределах подчнения"
и ето есть не на пользу как выяснилось. так что при переносе используйте "попытку" и в исключении можно использовать "УстановитьНовыйКод(<префикс>)" префикс не обязалово

(4) (3)
СпрСотр=СоздатьОбъект("Справочник.Сотрудники");
СпрСотр.НайтиПоНаименованию("Приходящие");
Приходящие=СпрСотр.ТекущийЭлемент();
СпрСотр.НайтиПоНаименованию("Работающие");
Работающие=СпрСотр.ТекущийЭлемент();
СпрСотр.ИспользоватьРодителя(Работающие);
СпрСотр.ВыбратьЭлементы();

Пока СпрСотр.ПолучитьЭлемент()=1 Цикл
    СпрСотр.Родитель=Приходящие;
    СпрСотр.УстановитьНовыйКод();
    СпрСотр.Записать();  
КонецЦикла;


Переносит по одному сотруднику. Как сделать чтобы сразу всех, их там сотни.

А программно не решить - в момент переноса объект заблокирован. Так что делай полную перенумерацию справочника и включай уникальность.

(6) подскажите как сделать полную перенумерацию программно?

(7) Обработку пиши

(7) Код текстовый или числовой?
Если текстовый - перекодируешь всех с префиксом и делаешь уникальные коды. Потом в конфигураторе делаешь коды на весь справочник. Можешь потом перекодировать обратно без префиксов.
Как то так:
К=1;
СпрСотр.ВыбратьЭлементы();
  Пока СпрСотр.ПолучитьЭлемент()=1 Цикл
    СпрСотр.Код="А"+К;
    К=К+1;
    СпрСотр.Записать();  
КонецЦикла;

(8) я так понял там все сложно? с разбегу не решить по-быстрому...

(10) См. (9)
Если код не текстовый - делаешь его в конфигураторе текстовым, так проще будет.

(5) сначала занеси всех сотров из папки-источника в СписокЗначений или массив (или ТЗ), потом обходя Этот список меняй родителя, устанавливай новый код, записывай

На ИТС UCRefRen.ert - все написано до вас.

(13) Переименовал с помощью обработки UCRefRen.ert
(12) Пробовал использовать СписокЗначений, может ошибся в синтаксисе, но все равно переносит по одному

Серии кодов - стоит "во всем справочнике"
Тип кода - "текстовый"

(14) код со списком

СпрСотр=СоздатьОбъект("Справочник.Сотрудники");
СписокЗнач = СоздатьОбъект("СписокЗначений");

СпрСотр.НайтиПоНаименованию("Приходящие");
Приходящие=СпрСотр.ТекущийЭлемент();
СпрСотр.НайтиПоНаименованию("Работающие");
Работающие=СпрСотр.ТекущийЭлемент();
СпрСотр.ИспользоватьРодителя(Работающие);
СпрСотр.ВыбратьЭлементы();    

Пока СпрСотр.ПолучитьЭлемент()=1 Цикл
    СписокЗнач.ДобавитьЗначение(Работающие);
    СпрСотр.Родитель=Приходящие;
    СпрСотр.УстановитьНовыйКод();
    СпрСотр.Записать();
КонецЦикла;

(17) нужно два цикла, сначала добавляешь в список, потом бежишь по списку и меняешь родителя

(18) что то я не догоняю, подскажите в чем ошибка

СпрСотр=СоздатьОбъект("Справочник.Сотрудники");
СписокЗнач = СоздатьОбъект("СписокЗначений");

СпрСотр.НайтиПоНаименованию("Приходящие");
Приходящие=СпрСотр.ТекущийЭлемент();
СпрСотр.НайтиПоНаименованию("Работающие");
Работающие=СпрСотр.ТекущийЭлемент();
СпрСотр.ИспользоватьРодителя(Работающие);
СпрСотр.ВыбратьЭлементы();    

Пока СпрСотр.ПолучитьЭлемент()=1 Цикл
    СписокЗнач.ДобавитьЗначение(СпрСотр.ТекущийЭлемент());
    КонецЦикла;
    Для Номер = 1 По СписокЗнач.РазмерСписка() Цикл
    Значение = СписокЗнач.ПолучитьЗначение(Номер);
       СпрСотр.Родитель=Приходящие;
    СпрСотр.УстановитьНовыйКод();
    СпрСотр.Записать();
КонецЦикла;

СпрСотр.Родитель=Приходящие;
{Справочник.Сотрудники.ФормаСписка.ФормаСписка.Модуль(77)}: Не выбран элемент!

(20) У тя в справочнике группа-то с таким наименованием есть?

(21) есть

(22) А ты все-таки проверь, на всякий случай, что у тебя возвращает метод СпрСотр.НайтиПоНаименованию("Приходящие"). И если 1, то убедись, что нашел он действительно группу, а не элемент.

(23) думаю что он находит действительно то что нужно, т.к. элементы до появления 2го цикла туда добавлялись.
см. пост выше

(24) Почему у тебя в (19) цикл внутри не закрывается?

(25) а, блин... короче:

В цикле по СЗ сделай такую хрень:

СпрСотр = СоздатьОбъект("Справочник.КакойТоТамСправочник");
СпрСотр.НайтиЭлемент(Значение);
СпрСотр.Родитель = Приходящие;
...

и дальше как у тебя там есть

(26) СПАСИБО Дружище! выручил, не хватает пока у меня тямы.

СпрСотр.НайтиЭлемент(Значение);
этой строчки мне не хватало