Привет Всем
Есть справочник Сотрудники в которой создали несколько основных групп с именем подразделений, в каждой группе созданы еще группы с названиями отделов подразделений, мне нужно массово разнести всех сотрудников по группам отделов подразделений, сотрудников больше тысячи, в ручную их по одному переносить в группу довольно муторно, решил накидать обработку, вот код:

Функция ВыборОтдела(ВыбСотрудник)
    Запрос = Новый Запрос;
    Запрос.Текст =
        "ВЫБРАТЬ
        |    РаботникиОрганизаций.Сотрудник,
        |    РаботникиОрганизаций.ПодразделениеОрганизации
        |ИЗ
        |    РегистрСведений.РаботникиОрганизаций КАК РаботникиОрганизаций
        |ГДЕ
        |    РаботникиОрганизаций.ПодразделениеОрганизации = &Отдел";

    Запрос.УстановитьПараметр("Отдел", Отдел);

    Результат = Запрос.Выполнить();

    Выборка = Результат.Выбрать();
       Пока Выборка.Следующий() Цикл
        Если СокрЛП(Выборка.Сотрудник) = СокрЛП(ВыбСотрудник) Тогда
            Возврат Выборка.ПодразделениеОрганизации;
        КонецЕсли;    
    КонецЦикла;
    
КонецФункции

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

КонецПроцедуры
ввиду отсутствия опыта не смог сообразить что правильно прописать в цикле Пока Спр.Следующий(), код не срабатывает , тупо создает новую группу с именем отдела, подскажите если не трудно
С Уважением Дамир

А ты там кем?

Сисадмин начал осваивать 1с

(2) ИмяОтдела = ВыборОтдела(Спр.Наименование);

ты находишь

а потом ИмяОтдела ты нигде не используешь, зачем тогда находил его?

имяОтдела использовал для сравнения так как подоразделения мне приходится вытаскивать через запрос

в справочнике Сотрудники нету реквизита Подразделение, он только на форме в виде элемента формы, я могу достать значение подразделения только через регистры сведений ПодразделениеОрганизации

Выборка = Результат.Выбрать();
       Пока Выборка.Следующий() Цикл
        Если СокрЛП(Выборка.Сотрудник) = СокрЛП(ВыбСотрудник) Тогда
            Возврат Выборка.ПодразделениеОрганизации;
        КонецЕсли;    
    КонецЦикла;


Вот ты же догадался уже, что в запросе можно делать отбор по параметрам. Так зачем же вот это???

>>код не срабатывает , тупо создает новую группу с именем отдела

Это не правда, в приведенном коде нет создания объекта.

И что такое Отдел и почему он используется то как строка, то как ссылка-родитель?

(0) Не нужно оно ни тебе, ни кому бы-то еще. Динамический список можно группировать/отбирать по любому полю. Хочешь - по полю "подразделение", хочешь - по возрасту ...
Озаботься группировкой. И не нужно будет таскать сотрудников из группы в группу в случае увольнения или перемещения.

Сколько сисадмину платят за решение вопроса?

ни хрена не платят

форма обычная не управляемая, где там группировать в динамическом списке?

(12) если у вас зуп, то там уже всё сделано. Слева дерево подразделений, справа список сотрудников

нет, список подразделений создан там же в Сотрудниках то есть где поле Наименование созданые группы подразделений, если конечно вручную мышкой перетянуть всех сотрудников по одному каждого в свой отдел то слева откроется дерево со списком

(14) Вы же понимаете, что вам еще придется прописывать пересортировку сотрудников при кадровых перемещениях?

(7) Скорее всего он просто не весь код показал....
(0) Функция ВыборОтдела(ВыбСотрудник) - шедевр. переменная Отдел не определена, хотя это и не удивительно. Ведь именно её и надо найти в функции...

(8) переменная не определена и можно использовать как хочешь.

(15) перепрописывать будет следующий сисадмин.
(0) Не делай так. Заболей пока постановщика не уволят.