Перенос РС подчиненного регистратору в РС где регистратор "Перенос данных".
Добрый день, коллеги!
Суть задачи: обмен ЗУП 3.1 - УПП 1.3.
Подзадача: перенос данных регистра "КадроваяИсторияСотрудников" в регистр "РаботникиОрганизаций". В качестве регистратора в базе приемнике хотелось бы видеть документ "Перенос данных".
Для документа "Перенос данных" создан ПКО, в котором в обработчике "ПриВыгрузке" следующий код:
Так как в источнике этого документа нет, то по моей идее (возможно ошибочной) этим кодом мы найдем документ, а если его нет, то создадим.
Далее этот документ необходимо использовать в качестве регистратора для РС "РаботникиОрганизаций". Значит нужен параметр куда будем передавать найденную ссылку.
Тут первый вопрос: в каком обработчике это можно сделать? Пробовала в ПКО "Переноса данных", в обработчике "ПослеЗагрузки"
Данные самого РС выбираю запросом и в ПВД выгружаю по правилу. Ниже, где регистратор должен быть документ "Перенос данных".
Суть задачи: обмен ЗУП 3.1 - УПП 1.3.
Подзадача: перенос данных регистра "КадроваяИсторияСотрудников" в регистр "РаботникиОрганизаций". В качестве регистратора в базе приемнике хотелось бы видеть документ "Перенос данных".
Для документа "Перенос данных" создан ПКО, в котором в обработчике "ПриВыгрузке" следующий код:
ВходящиеДанные = Новый Структура;
ВходящиеДанные.Добавить("Номер", Строка(Год(ТекущаяДата())) + "-ЗУП");
ВходящиеДанные.Добавить("Дата", НачалоГода(ТекущаяДата());
ВходящиеДанные.Добавить("Организация", Справочники.Организации.НайтиПоНаименованию("ООО ""11"""));
ВходящиеДанные.Добавить("ПериодРегистрации", НачалоГода(ТекущаяДата());
ВыгрузитьПоПравилу(,,ВходящиеДанные,,"ПереносДанных");
Так как в источнике этого документа нет, то по моей идее (возможно ошибочной) этим кодом мы найдем документ, а если его нет, то создадим.
Далее этот документ необходимо использовать в качестве регистратора для РС "РаботникиОрганизаций". Значит нужен параметр куда будем передавать найденную ссылку.
Тут первый вопрос: в каком обработчике это можно сделать? Пробовала в ПКО "Переноса данных", в обработчике "ПослеЗагрузки"
Данные самого РС выбираю запросом и в ПВД выгружаю по правилу. Ниже, где регистратор должен быть документ "Перенос данных".
Пока Выборка.Следующий() Цикл
ДанныеГрафикаДо = КадровыйУчет.КадровыеДанныеСотрудников(Истина, Выборка.Сотрудник, "ГрафикРаботы", Выборка.Период);
РезультатДанныеГрафикаДо = ДанныеГрафикаДо.Получить(0);
Если Выборка.ПериодЗавершения <>Дата(1,1,1) Тогда
ДанныеГрафикаПосле = КадровыйУчет.КадровыеДанныеСотрудников(Истина, Выборка.Сотрудник, "ГрафикРаботы", Выборка.Период-86400);
РезультатДанныеГрафикаПосле = ДанныеГрафикаПосле.Получить(0);
КонецЕсли;
ВходящиеДанные = Новый Структура;
ВходящиеДанные.Вставить("Период", Выборка.Период);
ВходящиеДанные.Вставить("Регистратор", Параметры.ПереносДанных);
ВходящиеДанные.Вставить("НомерСтроки", 1);
ВходящиеДанные.Вставить("Активность", Выборка.Активность);
ВходящиеДанные.Вставить("Сотрудник", Выборка.Сотрудник);
ВходящиеДанные.Вставить("Организация", Выборка.Организация);
ВходящиеДанные.Вставить("ЗанимаемыхСтавок", Выборка.ЗанимаемыхСтавок);
ВходящиеДанные.Вставить("ОбособленноеПодразделение", Выборка.ОбособленноеПодразделение);
ВходящиеДанные.Вставить("ПодразделениеОрганизации", Выборка.ПодразделениеОрганизации);
ВходящиеДанные.Вставить("Должность", Выборка.Должность);
ВходящиеДанные.Вставить("ГрафикРаботы", РезультатДанныеГрафикаДо.ГрафикРаботы);
ВходящиеДанные.Вставить("ПериодЗавершения", Выборка.ПериодЗавершения);
ВходящиеДанные.Вставить("ЗанимаемыхСтавокЗавершения", Выборка.ЗанимаемыхСтавокЗавершения);
ВходящиеДанные.Вставить("ОбособленноеПодразделениеЗавершения", Выборка.ОбособленноеПодразделениеЗавершения);
ВходящиеДанные.Вставить("ПодразделениеОрганизацииЗавершения", Выборка.ПодразделениеОрганизацииЗавершения);
ВходящиеДанные.Вставить("ДолжностьЗавершения", Выборка.ДолжностьЗавершения);
ВходящиеДанные.Вставить("ГрафикРаботыЗавершения", РезультатДанныеГрафикаПосле.ГрафикРаботы);
ВходящиеДанные.Вставить("ПричинаИзмененияСостояния", Выборка.ПричинаИзмененияСостояния);
ВходящиеДанные.Вставить("ПричинаИзмененияСостоянияЗавершения", Выборка.ПричинаИзмененияСостоянияЗавершения);
ВыгрузитьПоПравилу(,,ВходящиеДанные,,"РаботникиОрганизаций");
КонецЦикла;
ПоказатьПо теме из базы знаний
- Выгрузка-загрузка любых данных из 1С (и измененных) в XML между похожими конфигурациями (ФАЙЛ, HTTP, COM) ЛЮБЫХ баз 1С 8.1-8.3 с обработкой и поиском данных по произвольным полям поиска
- 1С:Хлебобулочное и кондитерское производство. Модуль для 1С:ERP и 1С:КА
- Универсальный инструмент для переноса данных через табличный документ (УФ)
- Дозагрузка измененных данных при помощи КД2
- Делаем свой интервальный регистр в ЗУП
Найденные решения
(3) держи, накидал тебе для примера. Думаю суть поймешь и сделаешь по аналогии.
Прикрепленные файлы:
ПравилаОбменаДанными.xml
Остальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(3) держи, накидал тебе для примера. Думаю суть поймешь и сделаешь по аналогии.
Прикрепленные файлы:
ПравилаОбменаДанными.xml
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот