Версионирование объектов в 1С УПП 1.3. Фикс дублей

23.12.15

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

В 1С УПП 1.3 есть такой замечательный механизм "версионирование объектов", который позволяет узнать: кто, когда и что изменил в документах и справочниках.
Но есть недочеты в этой системе, программа не проверяет, является ли текущая записываемая версия объекта дублем (аналогична предыдущей версии), что в итоге захламляет базу и существенно увеличивает её объем.

Предлагаю использовать такую схему проверки дублей перед записью:

Схема по исключению дублей объектов

Исходя из схемы:

  • Справочники - будут исключаться дубли без исключений;
  • Документы - будет проверка на исключаемые типы и проверка на дубли, если не исключен.

Для чего нужен список исключенных? Для таких документов, как «РасчетСебестоимостиВыпуска», «ОпределениеФинансовыхРезультатов» и тд. которые не содержат табличных частей или проведение которых само по себе делает много изменений в базе.

Исключенные по умолчанию документы имеют очень маленький размер для каждой версии в отличие от, например, документа «Реализация товаров и услуг», имеющего сотни, а то и тысячи строк в табличных частях.

Для интеграции в базу нужно создать общий модуль (или использовать имеющийся нетиповой), для того, чтобы не возникало проблем при обновлении конфигурации, и вставить эту функцию проверки дублей версионирования:

//* фикс дублей версионирования // Евсенкин 23.12.15
Функция ЯвляетсяДублем(Источник,ТекущаяВерсия) Экспорт 
	
	// * перечисленные типы писать всегда
	ИсключаемыеТипы = Новый Массив;
	ИсключаемыеТипы.Добавить(Тип("ДокументСсылка.РасчетСебестоимостиВыпуска"));
	ИсключаемыеТипы.Добавить(Тип("ДокументСсылка.КорректировкаЗаписейРегистров"));
	ИсключаемыеТипы.Добавить(Тип("ДокументСсылка.ОпределениеФинансовыхРезультатов"));
	ИсключаемыеТипы.Добавить(Тип("ДокументСсылка.ПереоценкаВалютныхСредств"));
	ИсключаемыеТипы.Добавить(Тип("ДокументСсылка.СписаниеРасходовБудущихПериодов"));
	ИсключаемыеТипы.Добавить(Тип("ДокументСсылка.ЗакрытиеГода"));
	ИсключаемыеТипы.Добавить(Тип("ДокументСсылка.РегламентныеОперацииНалоговогоУчетаПоНалогуНаПрибыль"));
	ИсключаемыеТипы.Добавить(Тип("ДокументСсылка.ПогашениеСтоимости"));
	ИсключаемыеТипы.Добавить(Тип("ДокументСсылка.АмортизацияОС"));
	ИсключаемыеТипы.Добавить(Тип("ДокументСсылка.РасчетыПоНалогуНаПрибыль"));
	ИсключаемыеТипы.Добавить(Тип("ДокументСсылка.ОперацияБух"));
	
	Исключать = ?(ИсключаемыеТипы.Найти(ТипЗнч(Источник)) = Неопределено, Ложь, Истина);
	// *
	
	Если Исключать Тогда // сразу вовращаем истину
		ЗаписатьДубль = Истина;
	Иначе // выполним проверку
		РегистрВерсий             = РегистрыСведений.ВерсииОбъектов.СоздатьНаборЗаписей();
		ОтборОбъект               = РегистрВерсий.Отбор.Найти("Объект");
		ОтборОбъект.ВидСравнения  = ВидСравнения.Равно;
		ОтборОбъект.Значение      = Источник;
		ОтборОбъект.Использование = Истина;
		РегистрВерсий.Прочитать();
		
		Индекс                    = РегистрВерсий.Количество() - 1;
		Если Индекс >= 0 Тогда 
			ПредыдущаяВерсия      = РегистрВерсий[Индекс].ВерсияОбъекта;
			ПредыдущаяВерсияВнутр = ЗначениеВСтрокуВнутр(ПредыдущаяВерсия);
			ТекущаяВерсияВнутр    = ЗначениеВСтрокуВнутр(ТекущаяВерсия);
			ЭтоДубль              = ПредыдущаяВерсияВнутр = ТекущаяВерсияВнутр;
		Иначе 
			ЭтоДубль = Ложь; 
		КонецЕсли;
		
		ИстМет = Источник.Метаданные();
		Если Метаданные.Справочники.Содержит(ИстМет) Тогда  // у справочника удаляем все дубли
			ЗаписатьДубль = Не ЭтоДубль;
		ИначеЕсли Метаданные.Документы.Содержит(ИстМет) Тогда // документы проверяем на исключаемые типы и дубль	
			ЗаписатьДубль = Не ЭтоДубль;
		КонецЕсли;
	КонецЕсли;
	
	Возврат ЗаписатьДубль;		
	
КонецФункции
//*

Для интеграции нужно сделать небольшие изменения в общем модуле «ВерсионированиеОбъектов» процедуры
МеханизмВерсионированияОбъектов_ПриЗаписиОбъекта(Источник, Отказ) 

 

Требуется найти строку 21

ВерсионированиеОбъектовПривилегированный.ЗаписатьВерсиюОбъекта(Источник.Ссылка, ЧислоВерсийОбъекта, ХранилищеДанных);

и заменить на

 

//*Проверка дубля версии объекта
Если _НазваниеВащегоОбщегоМодуля_.ЯвляетсяДублем(Источник.Ссылка,ХранилищеДанных) Тогда
	ВерсионированиеОбъектовПривилегированный.ЗаписатьВерсиюОбъекта(Источник.Ссылка, ЧислоВерсийОбъекта, ХранилищеДанных);
КонецЕсли;
//*

Темпы роста базы значительно снизятся.

P.S. Список исключаемых документов можно изменить, так как использован тот, который подходит мне.

http://evsenkin.ru/programmirovanie-1s-8-x/versionirovanie-obektov-v-1s-upp-1-3-fiks-dublej.html

История:
23.12.15г. - оптимизировал код, теперь не МнОгОбУкОв 

Версионирование версий объектов Версионирование объектов

См. также

SALE! 15%

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

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

8400 7140 руб.

20.08.2024    32387    197    104    

187

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

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

10800 руб.

22.02.2013    140802    273    146    

444

Чистка данных Системный администратор Программист 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    225098    228    83    

263

Чистка данных Программист Пользователь 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    27492    72    18    

87

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

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

6000 руб.

27.06.2018    19718    16    3    

20

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

Если в вашей информационной базе крутится очень много данных, или база должна быть доступна 24/7 (как в моем случае), или же вы боитесь запускать тестирование и исправление, НО существует потребность удалить битые ссылки, тогда эта обработка сможет Вам помочь. Обработка выявляет битые ссылки как в самих объектах метаданных, так и в их табличных частях(!), а так же может их удалить.

2400 руб.

23.08.2021    10605    21    3    

27

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

Такое бывает? Удалили документ, а проводки (движения) остались? Эта простая обработка решает данную проблему.. почему по проводкам? да потому что обычно такие вещи замечают именно бухгалтера.на самом же деле данная обработка при нахождении документа удаленного или помеченного на удаление и имеющего движения очищает все движения без исключений.

3000 руб.

06.02.2012    37000    363    30    

32

HighLoad оптимизация Инструменты администратора БД Системный администратор Программист 1С v8.3 1C:Бухгалтерия Абонемент ($m)

Обработка для простого и удобного анализа настроек, нагрузки и проблем с SQL сервером с упором на использование оного для 1С. Анализ текущих запросов на sql, ожиданий, конвертация запроса в 1С и рекомендации, где может тормозить.

5 стартмани

15.02.2024    15866    308    ZAOSTG    100    

122
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. Muxomop 155 19.11.15 15:00 Сейчас в теме
Готовое решение, спасибо
2. tehas 46 11.12.15 10:51 Сейчас в теме
3. tehas 46 23.12.15 12:53 Сейчас в теме
оптимизировал код, теперь не МнОгОбУкОв
Оставьте свое сообщение