Форум Программирование Общие вопросы программирования (Dev)

КД, Перенос сотрудников из ЗУП в БП3, не отображается сотрудник до перезаписи ТекущиеКадровыеДанныеСотрудников

1С:Бухгалтерия 3.0 1С:Зарплата и Управление Персоналом 3.x 1С:Конвертация данных Платформа 1С v8.3 (Устарело) Разработка
1. EvilMilko 21.12.22 09:09 Сейчас в теме
В ПКО Сотрудники (после выгрузки в файл) выполняю алгоритм: 
НаборЗаписей = РегистрыСведений.ТекущиеКадровыеДанныеСотрудников.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.Сотрудник.Установить(Источник);
НаборЗаписей.Прочитать();

Для Каждого ОбъектКоллекции из НаборЗаписей Цикл  
  ВыгрузитьПоПравилу(ОбъектКоллекции, , , Истина, "ТекущиеКадровыеДанныеСотрудников");
КонецЦикла;
Показать

Регистр успешно переносится в БП3, но сотрудник в списке не отображается пока в регистре "Текущие кадровые данные сотрудников" не перезаписать запись, при этом если еще раз произвести перенос запись дублируется, скорее всего это происходит из за того что "ПередЗаписью" и "ПриЗаписи" происходит: 
Если ЗарплатаКадры.ОтключитьБизнесЛогикуПриЗаписи(ЭтотОбъект) Тогда
	Возврат;
КонецЕсли;


Функция ОтключитьБизнесЛогикуПриЗаписи(Знач Объект) Экспорт
	Возврат Объект.ОбменДанными.Загрузка И (НЕ Объект.ДополнительныеСвойства.Свойство("ПроверятьБизнесЛогикуПриЗаписи")); 	
КонецФункции

и логика по работе с дублями и т.д. не запускается.
+ – Ответить
Найденные решения
3. EvilMilko 21.12.22 11:57 Сейчас в теме
(2)
Вообщем в после выгрузки написал: 
Запись = РегистрыСведений.ТекущиеКадровыеДанныеСотрудников.СоздатьМенеджерЗаписи();
ЗаполнитьЗначенияСвойств(Запись,Объект);
Запись.Записать();
Отказ = Истина;

Вроде работает.
+ – Ответить
Остальные ответы
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
2. RustamZz 21.12.22 11:00 Сейчас в теме
(1) Все поля заполнены? Я собираю из разных РС, мне этот источник в ЗУП не подошел
Прикрепленные файлы:
+ – Ответить
3. EvilMilko 21.12.22 11:57 Сейчас в теме
(2)
Вообщем в после выгрузки написал: 
Запись = РегистрыСведений.ТекущиеКадровыеДанныеСотрудников.СоздатьМенеджерЗаписи();
ЗаполнитьЗначенияСвойств(Запись,Объект);
Запись.Записать();
Отказ = Истина;

Вроде работает.
+ – Ответить
4. пользователь 21.12.22 12:45
Сообщение было скрыто модератором.
...
Оставьте свое сообщение
Вакансии
Программист
Санкт-Петербург
зарплата от 180 000 руб. до 240 000 руб.
Полный день
Разработчик 1С
Москва
зарплата от 150 000 руб. до 250 000 руб.
Полный день
Программист 1С
Москва
зарплата от 180 000 руб. до 220 000 руб.
Полный день
Программист 1С
Екатеринбург
зарплата от 130 000 руб. до 170 000 руб.
Полный день
Программист 1C
Санкт-Петербург
зарплата от 140 000 руб. до 200 000 руб.
Полный день