Проблема . Чистится регистр сведений Дополнительные сведения
Добавил 4 значения на скрине ниже. Сделал внешнюю обработку по перебросу в РС Дополнительные сведения. Перебрасывается.. Спустя неделю, или пару дней все данные очищаются. В журнале регистрации непонятно что это делает. Кто может подсказать в чем дело?
Попытка
Запрос = Соединение.NewObject("Запрос");
Запрос.Текст =
"ВЫБРАТЬ
| ПриемНаРаботуВОрганизациюРаботникиОрганизации.Сотрудник.Наименование КАК Сотрудник,
| ПриемНаРаботуВОрганизациюРаботникиОрганизации.Ссылка.Номер КАК НомерПриказа,
| ПриемНаРаботуВОрганизациюРаботникиОрганизации.Ссылка.Дата КАК ДатаПриказа,
| ПриемНаРаботуВОрганизациюРаботникиОрганизации.Сотрудник.НомерДоговора КАК НомерТрудовогоДоговора,
| ПриемНаРаботуВОрганизациюРаботникиОрганизации.Сотрудник.ДатаДоговора КАК ДатаТрудовогоДоговора
|ИЗ
| Документ.ПриемНаРаботуВОрганизацию.РаботникиОрганизации КАК ПриемНаРаботуВОрганизациюРаботникиОрганизации
|ГДЕ
| ПриемНаРаботуВОрганизациюРаботникиОрганизации.Ссылка.ПометкаУдаления = ЛОЖЬ
| И ПриемНаРаботуВОрганизациюРаботникиОрганизации.Сотрудник.ПометкаУдаления = ЛОЖЬ
| И ПриемНаРаботуВОрганизациюРаботникиОрганизации.Сотрудник.ДатаУвольнения = ДАТАВРЕМЯ(1, 1, 1, 0, 0, 0)
|УПОРЯДОЧИТЬ ПО
| ПриемНаРаботуВОрганизациюРаботникиОрганизации.Сотрудник.Наименование";
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
ПК = РегистрыСведений.ДополнительныеСведения.СоздатьНаборЗаписей();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
Сотрудник = Справочники.Сотрудники.НайтиПоНаименованию(СокрЛП(ВыборкаДетальныеЗаписи.Сотрудник));
Если Сотрудник.Пустая() Тогда
Сообщить("Не нашли "+ ВыборкаДетальныеЗаписи.Сотрудник);
Иначе
НоваяЗапись = ПК.Добавить();
НоваяЗапись.Объект = Сотрудник;
НоваяЗапись.Свойство = ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоНаименованию("Номер трудового договора");
НоваяЗапись.Значение = ВыборкаДетальныеЗаписи.НомерТрудовогоДоговора;
НоваяЗапись = ПК.Добавить();
НоваяЗапись.Объект = Сотрудник;
НоваяЗапись.Свойство = ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоНаименованию("Дата трудового договора");
НоваяЗапись.Значение = ВыборкаДетальныеЗаписи.ДатаТрудовогоДоговора;
НоваяЗапись = ПК.Добавить();
НоваяЗапись.Объект = Сотрудник;
НоваяЗапись.Свойство = ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоНаименованию("Дата приказа");
НоваяЗапись.Значение = ВыборкаДетальныеЗаписи.ДатаПриказа;
НоваяЗапись = ПК.Добавить();
НоваяЗапись.Объект = Сотрудник;
НоваяЗапись.Свойство = ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоНаименованию("Номер приказа");
НоваяЗапись.Значение = ВыборкаДетальныеЗаписи.НомерПриказа;
КонецЕсли;
КонецЦикла;
ПК.Записать();
Исключение
Сообщить("Не удалось");
Соединение="";
КонецПопытки;
ПоказатьПрикрепленные файлы:

По теме из базы знаний
- Методика добавления нового ресурса в регистр накопления 1С 8.1
- Инфостарт. Восьмерка. Лучшее
- Планы обмена 1С
- Комплексный контроль остатков. Для одного или сразу нескольких логически связанных регистров накопления. Универсальное решение уровня данных для контроля не только складских остатков
- Нюансы Конвертации данных 2.1, или как небольшая задача привела нас к восстановлению регистра сведений из нескольких миллионов строк
Найденные решения
Остальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот