Очистка регистра Версии Объектов

07.03.18

База данных - Чистка данных

+7 –
>
  • Запрос количества записей по номеру версии
  • Процедура удаления версий
Очистка регистра Версии Объектов - пожалуй самого быстрорастущего регистра в базе (v. 1.1)

Обработки

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование По подписке [?] Купить один файл
Удаление версионирования
.epf 6,87Kb ver:1.1
348
348 Скачать (1 SM) Купить за 1 850 руб.

Если в вашей базе включен режим отслеживания истории изменения объектов, это очень помогает в поиске КТО, С ЧЕМ, КОГДА и ЧТО сделал в информационной базе. Однако этот режим заставляет регистр Версии Объектов, расти как на дрожжах. И в скором времени таблица этого регистра будет самой большой в базе.
Данная обработка позволяет очищать этот регистр.
Проблема в том, что если этот регистр весит уже гигабайт или больше, то очистка регистра займёт очень продолжительное время и может привести к ошибке памяти 1С. Для избежания этого, была добавлена возможность частичного удаления регистра. Для этого достаточно указать номер начальной и конечной версии, которые Вы хотите удалить.

версионирование история очистка

+7 –

См. также

Database Compression Tool: Инструмент для свертки и сжатия баз данных 1С

Инструментарий разработчика Чистка данных Свертка базы Инструменты администратора БД Системный администратор Программист Руководитель проекта Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 Россия Платные (руб)

Инструмент представляет собой обработку для проведения свёртки или обрезки баз данных. Работает на ЛЮБЫХ конфигурациях (УТ, БП, ERP, УНФ, КА и т.д.). Поддерживаются серверные и файловые базы, управляемые и обычные формы. Может выполнять свертку одновременно в несколько потоков. А так же автоматически, без непосредственного участия пользователя. Решение в Реестре отечественного ПО

8400 руб.

20.08.2024    24927    163    86    

161
Удаление данных с отбором и построением дерева ссылок в базах 1С 8.1-8.3 УТ 10.3./11, БП 2/3, ЗУП 2.5/3, КА 1.1/2, УНФ 1.6/3.0

Чистка данных Системный администратор Программист Платформа 1С v8.3 Управляемые формы 1C:Бухгалтерия 1С:Управление торговлей 10 1С:Управление торговлей 11 Платные (руб)

Данные обработки помогут Вам легко и, главное быстро, выполнить удаление любых данных в Ваших базах 1С на платформах 8.1-8.3. Обработки помогут легко просмотреть связи ссылок в виде дерева, выбрать что удалять, а что нет, используя любые отборы. Это позволит уменьшить объем лишней и не нужной информации в справочниках и документах, планах видов характеристик и др. объектах и облегчит работу с данными пользователям и Вам. Понятное расположение команд и настроек, в сочетании с описанием и справкой, еще упростят процесс. (Обновление от 29.06.2023, версия 4.2)

9600 руб.

22.02.2013    140144    270    146    

441
Универсальное удаление данных из базы 1С любые конфигурации на управляемых формах

Чистка данных Программист Пользователь Платформа 1С v8.3 Управляемые формы 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Зарплата и кадры государственного учреждения 3 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Зарплата и Управление Персоналом 3.x Платные (руб)

Обработка позволяет удобно и выборочно удалить данные из базы 1С на управляемых формах например БП 3.0, УТ 11, КА 2, ERP, УНФ, ЗУП 3, Розница и др. Это могут быть как неиспользуемые элементы справочников, так и неактуальные организации. При этом есть возможность провести анализ пересечений документов с другими организациями и таким образом уберечься от того, что при удалении обороты по другой организации изменятся.

3350 руб.

28.11.2019    27029    71    18    

85
Выборочное удаление организаций из информационных баз 1С (управляемые формы), с удалением всех ссылающихся на эти организации данных

Чистка данных Системный администратор Программист Платформа 1С v8.3 Управляемые формы 1C:Бухгалтерия 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Розница 3.0 Платные (руб)

Позволяет удалить организации из любых из информационных баз 1С на управляемых формах (БП 3.0, УТ 11, КА 2, ERP 2, ЗУП 3.0, УНФ, Розница 2.0 и пр.). Главное требование - программа должна содержать справочник "Организации". Реализован самый быстрый алгоритм непосредственного удаления объектов. Работает даже на базах большого размера. Для ускорения работы алгоритма не запускается проверка контроля ссылочной целостности. Проверку учета можно запустить отдельно с помощью дополнительной обработки. Необходимо перед удалением самостоятельно проверить базу на наличие перекрестных ссылок разных организаций в одном документе. Эту дополнительную обработку проверки перекрестных ссылок по запросу предоставляем бесплатно нашим покупателям.

3582 руб.

16.03.2015    215381    223    82    

258
Алгоритм перехода на учет без серий для УТ11.4 или КА 2.4 (отказ от серий, удаление серий, отмена серий, без серий)

Оптовая торговля Логистика, склад и ТМЦ Чистка данных Программист Бухгалтер Пользователь Платформа 1С v8.3 Оперативный учет 1С:Управление торговлей 11 Россия Управленческий учет Платные (руб)

Если вы начали работать в программном продукте Управление Торговлей, редакция 11 или Комплексная Автоматизация редакция 2 и включили механизм учёта серий, то перейти обратно в учёт без серий будет не так-то просто. Сложность заключается в том, что нужно очистить серии в табличной части документа, например, Реализация Товаров и услуг. Предлагаем алгоритм перехода на учет без серий для программного продукта УТ11. (Очистка серий.)

2400 руб.

09.04.2019    29679    47    15    

48
Очистка дублей в синхронизированных базах (УТ, БП, РТ, УНФ)

Чистка данных Системный администратор Программист Бухгалтер Пользователь Управляемые формы 1C:Бухгалтерия Россия Платные (руб)

Решение по удалению дублей позволяет определить связанные элементы в двух синхронизированных базах в качестве оригиналов и избежать необходимости ручного сравнения объектов в базах перед синхронизацией.

3960 руб.

27.06.2018    19537    12    3    

17
Универсальная очистка базы для любых конфигураций на управляемых формах

Чистка данных Системный администратор Программист Платформа 1С v8.3 Управляемые формы 1С:Бухгалтерия 3.0 1С:Управление производственным предприятием 1С:ERP Управление предприятием 2 1С:Управление холдингом 1С:Зарплата и кадры государственного учреждения 3 1С:Зарплата и Управление Персоналом 3.x 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 1С:Управление торговлей 11 1С:Розница 2 Абонемент ($m)

Универсальный инструмент для очистки базы. Работает как на конфигурациях на основе БСП, так и самописных. Позволяет выбрать данные, отобразить форму списка, увидеть структуру метаданных, очистить базу применяя при необходимости условия. Удаление производится по выбранным элементам в таблице значений. Наложение условий позволяет удалить документы по выбранной организации.

1 стартмани

25.12.2023    9428    210    WeterSoft    5    

15
Очистка кэша 1С на движке Исполнителя

Чистка данных Инструментарий разработчика Системный администратор Программист Платформа 1С v8.3 Абонемент ($m)

Очередная вариативная очистка кэша 1С с помощью Исполнителя 3.0.2.2.

1 стартмани

25.10.2023    5930    6    SerVer1C    27    

25
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. petrov_al 10 30.08.12 22:11 Сейчас в теме
А почему бы не удалять самые старые по периоду...
+ – Ответить
2. pepe 64 31.08.12 13:44 Сейчас в теме
(1) Я с вами согласен. Я даже видел пример удаления, не помню у кого. Я на основании его создал регламентное задание. 
Процедура УдалитьВерсии()
//Очистка регистра версионирования, по истечению срока хранения
	КоличествоДней = Константы.ХранениеВерсионированияДней.Получить();
	Если КоличествоДней > 0 Тогда
		ДатаПо = НачалоДня(ТекущаяДата()) - КоличествоДней *60*60*24; 
		ЗаписьЖурналаРегистрации("ОчистаВерсий", УровеньЖурналаРегистрации.Информация, , , "Очистка регистра сведений версии объекта, до: " + Формат(ДатаПо, "ДЛФ=DD"));

		ЗапросДаты = Новый Запрос;
		
		ЗапросДаты.Текст="ВЫБРАТЬ РАЗЛИЧНЫЕ
		|	НАЧАЛОПЕРИОДА(ВерсииОбъектов.ДатаВерсии, ДЕНЬ) КАК ДатаВерсии
		|ИЗ
		|	РегистрСведений.ВерсииОбъектов КАК ВерсииОбъектов
		|ГДЕ
		|	НАЧАЛОПЕРИОДА(ВерсииОбъектов.ДатаВерсии, ДЕНЬ) <= &ДатаПо
		|
		|УПОРЯДОЧИТЬ ПО
		|	ДатаВерсии";
		
		ЗапросДаты.Параметры.Вставить("ДатаПо",ДатаПо);
		
		ВыборкаДаты = ЗапросДаты.Выполнить().Выбрать();
		
		Пока ВыборкаДаты.Следующий() Цикл
			
			ОчиститьНаДату(ВыборкаДаты.ДатаВерсии);
			
		КонецЦикла;
	КонецЕсли; 
КонецПроцедуры

Процедура ОчиститьНаДату(ДатаОчистки)
	
	ЗапросОчистка = Новый Запрос;

	ЗапросОчистка.Текст = "ВЫБРАТЬ
	|	ВерсииОбъектов.Объект,
	|	ВерсииОбъектов.НомерВерсии,
	|	ВерсииОбъектов.ВерсияОбъекта,
	|	ВерсииОбъектов.АвторВерсии,
	|	ВерсииОбъектов.ДатаВерсии,
	|	ВерсииОбъектов.Сжато
	|ИЗ
	|	РегистрСведений.ВерсииОбъектов КАК ВерсииОбъектов
	|ГДЕ
	|	ВерсииОбъектов.ДатаВерсии >= &НачПериода
	|	И ВерсииОбъектов.ДатаВерсии <= &КонПериода";
	
	ЗапросОчистка.Параметры.Вставить("НачПериода",НачалоДня(ДатаОчистки));
	ЗапросОчистка.Параметры.Вставить("КонПериода",КонецДня(ДатаОчистки));
	
	Выборка = ЗапросОчистка.Выполнить().Выбрать();
	
	НовыйНомерВерсии=1;
	
	Пока Выборка.Следующий() Цикл
		ВерсииОбъектов = РегистрыСведений.ВерсииОбъектов;
		
		МенеджерЗаписиИИО = ВерсииОбъектов.СоздатьМенеджерЗаписи();
		МенеджерЗаписиИИО.Объект       = Выборка.Объект;
		МенеджерЗаписиИИО.НомерВерсии  = Выборка.НомерВерсии;
		МенеджерЗаписиИИО.Прочитать();
		
		МенеджерЗаписиИИО.Объект       = Справочники.Номенклатура.ПустаяСсылка();
		МенеджерЗаписиИИО.НомерВерсии  = НовыйНомерВерсии;
		МенеджерЗаписиИИО.ВерсияОбъекта = Неопределено;
		МенеджерЗаписиИИО.Записать();
		
		НовыйНомерВерсии=НовыйНомерВерсии+1;
		
	КонецЦикла;
	
	НаборЗаписей = РегистрыСведений.ВерсииОбъектов.СоздатьНаборЗаписей();
	НаборЗаписей.Отбор.Объект.Установить(Справочники.Номенклатура.ПустаяСсылка());
	НаборЗаписей.Записать();
	
	//Сообщить ("за: "+Формат(ДатаОчистки,"ДЛФ=DD")+" очищено "+НовыйНомерВерсии+" записей." ,СтатусСообщения.Внимание);
	
КонецПроцедуры
Показать
+ – Ответить
3. worker1c 116 07.09.12 11:59 Сейчас в теме
Удаляя версии объектов, теряется история изменения объектов. Предлагаю более "мягкий" вариант оптимизации регистра "Версии объектов": Удалять записи в которых не содержится изменений относительно предыдущей записи. Обработка здесь: http://infostart.ru/public/150314/
Работает она конечно намного дольше вашей, но результат того стоит
+ – Ответить
4. serge_focus 4 23.08.13 23:44 Сейчас в теме
И чем кардинально отличается данная обработка, от представленных здесь в изобилии бесплатных обработок? ;)
+ – Ответить
5. serge_focus 4 23.08.13 23:56 Сейчас в теме
А еще с подобной задачей может справиться так называемый "чистильщик" регисторов -также на infostart.ru присутствует где-то.
Или стандартный механизм от 1С:
--------------------------------------------------------------------------------

Сервис - прочие обмены - универсальный обмен хмл - удаление данных
Bernstein_13; +1 – Ответить
6. user1476964 09.04.21 18:22 Сейчас в теме
Это конечно интересно, но зачем? 

&НаСервере
Процедура ОчиститьРегистрНаСервере()
	Записи = РегистрыСведений[Объект._Регистр].СоздатьНаборЗаписей(); // _Регистр - строковый реквизит формы, куда внесем "ВерсииОбъектов" (или любой другой)
	// или
	//Записи = РегистрыСведений.ВерсииОбъектов.СоздатьНаборЗаписей(); // Напрямую
	Записи.Записать();
КонецПроцедуры


&НаКлиенте
Процедура ОчиститьРегистр(Команда)
	ОчиститьРегистрНаСервере();
КонецПроцедуры
Показать


2 строки - вместо обработки. Типа, запишем "ничего" вместо всего. У меня КА на 50 пользаков - Версии объектов "удалялись" секунд пять
+ – Ответить
7. CaSH_2004 374 14.04.24 01:50 Сейчас в теме
(6)Можно и в одну строку уложиться: 
РегистрыСведений.ВерсииОбъектов.СоздатьНаборЗаписей().Записать()
+ – Ответить
Оставьте свое сообщение