() ошибка на скрине говорит, что некорректные данные пытаются записаться в регистр
посмотрел в чем дело
1С по истечении времени сделала данный регистр периодическим и поэтому такая ситуация выходит, обработка не знает, что регистр периодический
корректнее в коде так правки сделать
ДокументПомеченНаУдаление = ДокументПереносаДанных.ПометкаУдаления;
// + ДОБАВИЛ 2020-11-17
РегистрПериодический = Метаданные.РегистрыСведений.РеестрОтпусков.ПериодичностьРегистраСведений <> Метаданные.СвойстваОбъектов.ПериодичностьРегистраСведений.Непериодический;
// - ДОБАВИЛ 2020-11-17
// по порядку сотрудников как они были в списке, запишем все в регистр реестра отпусков, чтобы все было красивше
Для Каждого СтрокаСотрудник Из Сотрудники Цикл
Отбор.ИдентификаторСотрудника = СтрокаСотрудник.ИдентификаторСотрудника;
НайденныеСтроки = РеестрОтпусков.НайтиСтроки(Отбор);
Если НайденныеСтроки.Количество() > 0 Тогда
Для Каждого СтрокаРеестра Из НайденныеСтроки Цикл
Запись = Набор.Добавить();
// + ДОБАВИЛ 2020-11-17
Если РегистрПериодический Тогда
Запись.Период = ДокументПереносаДанных.Дата;
КонецЕсли;
// - ДОБАВИЛ 2020-11-17
Запись.Активность = Не ДокументПомеченНаУдаление;
Запись.Сотрудник = СтрокаСотрудник.Сотрудник;
Запись.ФизическоеЛицо = СтрокаСотрудник.Сотрудник.ФизическоеЛицо;
Запись.ДокументОснование = ДокументПереносаДанных;
Запись.Номер = НомерСтроки;
Запись.ВидОтпуска = СтрокаРеестра.ВидОтпуска;
Запись.НачалоПериодаЗаКоторыйПредоставляетсяОтпуск = СтрокаРеестра.НачалоПериодаЗаКоторыйПредоставляетсяОтпуск;
Запись.КонецПериодаЗаКоторыйПредоставляетсяОтпуск = СтрокаРеестра.КонецПериодаЗаКоторыйПредоставляетсяОтпуск;
Запись.КоличествоДнейОтпуска = СтрокаРеестра.КоличествоДнейОтпуска;
Запись.ДатаНачалаПериодаОтсутствия = СтрокаРеестра.ДатаНачалаПериодаОтсутствия;
Запись.ДатаОкончанияПериодаОтсутствия = СтрокаРеестра.ДатаОкончанияПериодаОтсутствия;
Запись.Основание = СформироватьПолноеОснованиеИзСоставляющих(СтрокаРеестра.НомерПриказа, СтрокаРеестра.ДатаПриказа, СтрокаРеестра.Основание, ПриСохраненииУбратьЛидирующиеНулиНомераПриказа);
НомерСтроки = НомерСтроки + 1;
КонецЦикла;
Иначе
Сообщить(СтрШаблон("У сотрудника '%1' (%2 '%3') не указаны периоды отпусков - пропущен.",
СтрокаСотрудник.Сотрудник, Метаданные.Справочники.Сотрудники.СтандартныеРеквизиты.Код.Синоним, СтрокаСотрудник.Сотрудник.Код));
КонецЕсли;
КонецЦикла;
Показать
