Форум Администрирование Производительность и оптимизация (HighLoad)

Удаление дубликатов версий объектов (чистка регистра сведений "Версии объектов")

Платформа 1С v8.3 Конфигурации 1cv8
0. 3 17.10.20 08:00 Сейчас в теме
Из-за частого перепроведения документов и включенного версионирования очень разрослась база. Написал обработку, которая удаляет одинаковые версии.

Перейти к публикации

+ – Ответить
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. Cyberhawk 124 24.10.20 13:00 Сейчас в теме
А каким образом определяется, одинаковая ли версия или нет?
+ – Ответить
4. A_Sa 3 26.10.20 17:19 Сейчас в теме
(1) Тупо сравниваются все реквизиты шапки и табличных частей :)
Если в одной из версий есть реквизит, а в другом его нет (добавили или удалили сам реквизит в конфигураторе), то проверяется заполненность значения данного реквизита в версии, где он присутствует.
Не очень элегантно и быстро, но мне главное был результат :)
Cyberhawk; +1 – Ответить
2. Rokky78 27 26.10.20 12:11 Сейчас в теме
Тоже приходилось писать подобный инструмент для отраслевой конфигурации со старой БСП. Там механизм версионирования был, но в зачаточном состоянии. Но кроме этого инструмента (чтобы не чистить регистр все время), добавил в алгоритм при записи объекта запись только измененной версии. Т.е. сравнение версии происходит при записи объекта. Если новая версия такая же как предыдущая - запись версии не происходит. Больше ту обработку не вспоминаю :)

P.S. в моем случае сравнивались хэши данных Fast Infoset.
A_Sa; +1 – Ответить
3. FatPanzer 11 26.10.20 12:20 Сейчас в теме
(2) Думаю, что тратить время на сравнение версий при при записи - не самый оптимальный вариант при высоконагруженных системах. Но, конечно, все зависит от прикладной логики.
+ – Ответить
5. A_Sa 3 26.10.20 17:22 Сейчас в теме
(2) Тоже думал над вариантом сравнения версий при записи объектов, но, как уже написал FatPanzer посчитал неоптимальным в плане нагрузки. Мне проще раз в месяц запускать эту обработку на выходных, когда пользователей в базе по минимуму.
+ – Ответить
6. user1464234 26.10.20 17:27 Сейчас в теме
А сравнивать сериализованное значение с записанным в историю не проще?
+ – Ответить
7. A_Sa 3 26.10.20 17:40 Сейчас в теме
(6) Имеете в виду: при записи объекта сравнивать? Просто в базе уже было накоплено куча версий и их нужно было почистить, поэтому обработка по удалению все-равно нужна. А дальше уже можно что-то сделать, чтоб эти версии не появлялись. И опять же, как писал раньше: мне сейчас проще раз в месяц на выходных запускать эту обработку :)
user1464234; +1 – Ответить
8. zaogorizont 23.12.20 21:13 Сейчас в теме
Доброго времени суток , загрузил вашу обработку и запустил через файл открыть в ЕРП 2-4-13-71 , (((( пустой экран
+ – Ответить
9. A_Sa 3 24.12.20 00:09 Сейчас в теме
(8) Здарвствуйте. Эта обработка для обычных форм, а ЕРП на управляемых... Постараюсь найти время в ближайшую неделю, чтоб доработать под управляемые формы. Но я не уверен, что даже в этом случае подойдет для вашей конфигурации - там может быть другой механизм версионирования.
+ – Ответить
10. zaogorizont 12.01.21 04:50 Сейчас в теме
(9) ждем от вас на управляемых формах
+ – Ответить
11. zaogorizont 08.02.21 15:15 Сейчас в теме
(9) Добрый день ! Подскажите когда пришлете на управляемых формах ?
+ – Ответить
12. zaogorizont 08.02.21 22:37 Сейчас в теме
(9) пытался воспользоваться обработкой для удаления в одном типе документа и выдал ошибку

Ошибка разбора XML: - [1,1]
Фатальная ошибка:
Document is empty

{ВнешняяОбработка.УдалениеДубликатовВерсийОбъектов.Форма.Форма1.Форма(525)}: Пока ЧтениеXML.Прочитать() Цикл
{ВнешняяОбработка.УдалениеДубликатовВерсийОбъектов.Форма.Форма1.Форма(481)}: Результат = РазборПредставленияОбъектаXML(СтрокаXML, Ссылка);
{ВнешняяОбработка.УдалениеДубликатовВерсийОбъектов.Форма.Форма1.Форма(295)}: ТекВерсия = РазборВерсии(СтрокиВерсий[ИндВерсии].НомерВерсии, СтрокиВерсий[ИндВерсии].Объект);
{ВнешняяОбработка.УдалениеДубликатовВерсийОбъектов.Форма.Форма1.Форма(214)}: УдалитьДубликатыВерсийОбъектов(МассивСсылок);
{ВнешняяОбработка.УдалениеДубликатовВерсийОбъектов.Форма.Форма1.Форма(226)}: УдалитьДубликатыНаСервере();

по причине:
Ошибка разбора XML: - [1,1]
Фатальная ошибка:
Document is empty
+ – Ответить
Оставьте свое сообщение
Вопросы с вознаграждением
Запретить печатать документ "Товарный чек", пока статус Чека ККМ не будет "Чек пробит", а сам Чек ККМ не будет проведен.  1 $m Dev УТ11 v8
Помогите добавить в запрос поле с выборкой со счета 90.03  0.87 $m Dev
Почему 27 счёт не попадает в поле счёт учёта ?  0.27 $m Dev БГУ
Необходимо в вузе разработать информационную систему для отчетности преподавателей по выполнению научных показателей  2 $m Управление персоналом Обучение, бизнес-тренинг, курсы Автоматизация Аналитика УУ
Помогите, пожалуйста, разобраться с выводом среднего в отчёте СКД  0.43 $m Dev УТ11 v8 ИТ-компания 1С Программист
УТ 10.3 изменяет количетсво товара в чеке ККМ при продаже БезПередачиТовара  0.4 $m Dev
Ошибка СУБД при входе в базу 1С  0.55 $m Admin СУБД PostgreSQL
Работа с файлами на мобильном клиенте  0.3 $m MobileDev v8::Mobile
Грейды программистов 1с  10 $m Общие вопросы управления
MDF SQL ищу битый файл для теста DataNumen SQL Recovery  1 $m Utils
Как получить значение имея НавигационнуюСсылку к полю  0.25 $m Dev
Мобильный клиент. Android. Обрезает строку ввода от сканера  0.35 $m MobileDev
Не приходит письмо от apple после ввода карты для оплаты.  5 $m MobileDev
Прикрепленная подпись и БСП. Возможно ли?  1 $m БСП 8.3.14
заглушка на запуск (управляемое приложение)  1 $m Dev
Сложный расчет ЗП в бухгалтерии (Нужен совет по реализации)  2 $m Зарплата БП3.0 v8
Перетаскивание в списке справочника  0.15 $m Dev
загрузка базы из dt  2 $m Admin
Списание задолженности в валюте управленческого учета  1 $m Финансы УТ11
Каким образом установить налоговый учет для 14 счета в плане счетов? И вообще - это возможно?  0.2 $m БУ БП3.0