Обновить регистр сведений реестр документов?
По теме из базы знаний
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Добрые люди, специалисты, подскажите зачем нужен этот регистр? В 1С бюджет не знают как освоить и придумывают всякую лажу. То этот регистр задваивает записи, то еще что. У меня одни не цензурные слова. Может мне объяснят в чем его необходимость?
(1) Попробуйте этот код, выполняться конечно будет долго, но оно того стоит :)
Предупрежу сразу что это актуализация всех типов документов, если Вам нужен конкретный тип документов то нужно подправить код.
Выполняется это все либо в консоли кода, либо создать временную обработку с одной кнопкой
Предупрежу сразу что это актуализация всех типов документов, если Вам нужен конкретный тип документов то нужно подправить код.
Выполняется это все либо в консоли кода, либо создать временную обработку с одной кнопкой
ДокументыДляОтраженияВРеестре = Новый Соответствие;
Для каждого ТипКлюча Из Метаданные.РегистрыСведений.РеестрДокументов.Измерения.Ссылка.Тип.Типы() Цикл
МетаданныеОбъекта = Метаданные.НайтиПоТипу(ТипКлюча);
ДокументыДляОтраженияВРеестре.Вставить(МетаданныеОбъекта)
КонецЦикла;
Если ДокументыДляОтраженияВРеестре.Количество() > 0 Тогда
РегистрыСведений.РеестрДокументов.ОтразитьДанныеДокументовВРеестре(ДокументыДляОтраженияВРеестре);
КонецЕсли;
Показать
(5)
А можно просто зайти в справочник Ключи реестра документов и нажать на кнопку Удалить дубли.
Либо самому найти сами дубли и запустить
Просто зачем все колбасить?
Последнее не проверял, но должно сработать
ДокументыДляОтраженияВРеестре = Новый Соответствие;
А можно просто зайти в справочник Ключи реестра документов и нажать на кнопку Удалить дубли.
Либо самому найти сами дубли и запустить
ДополнительныеСвойства = Новый Структура;
РегистрыСведений.РеестрДокументов.ИнициализироватьИЗаписатьДанныеДокумента(ДублированнаяСсылка, ДополнительныеСвойства, Ложь);
Просто зачем все колбасить?
Последнее не проверял, но должно сработать
Если кому интересно - в последних релизах так:
ТаблицыДанных = ПроведениеДокументов.ДанныеДокументаДляПроведения(Док, "РеестрДокументов");
РегистрыСведений.РеестрДокументов.ЗаписатьДанные(ТаблицыДанных, Док, Неопределено, Ложь);
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот