Версионирование своих объектов без проблем при обновлении на примере БП 44.115

19.09.16

Разработка - Инструментарий разработчика

Стандартный механизм версионирования - прекрасен. Для того, чтобы использовать его для "своих" объектов, нужно добавить свои типы к определяемому типу "ВерсионируемыеДанные" и к источникам подписки "ЗаписатьВерсиюДокументаБП". Но эти изменения "слетят" при следующем же обновлении. Как этого избежать?

Скачать файлы

Наименование Файл Версия Размер
Версионирование своих объектов.cfe
.cfe 18,95Kb
23
.cfe 18,95Kb 23 Скачать

Для того, чтобы использовать стандартный режим версинирования для своих объектов, нужно скопировать ОбщуюКоманду "ИсторияИзменений" и переназначить новой команде тип параметра, указав только свои объекты.  То же самое (скопировать и переназначить источник) нужно для подписки ЗаписатьВерсиюДокументаБП.

Затем необходимо создать расширение и включить в него форму "НастройкиХраненияИстории" регистра сведений "НастройкиВерсионированияОбъектов". В этой форме считываются типы с команды ИсторияИзменений в процедуре ЗаполнитьТипыОбъектовВДеревеЗначений. Наша задача дополнить эти типы нашими.

Для этого я ждал выхода 8.3.9, чтобы использовать аннотацию &Перед, но, к сожалению для себя, обнаружил, что в конфигурации поставщика БП 44.115 установлен режим совместимости 8.3.8,  запрещающий использование аннотаций. Платформа скоро выйдет, а режим совместимости БП будет ещё, думаю, несколько релизов. Поэтому придется использовать расширения, привязанные к командам. 

В связи с тем, что скоро можно будет просто воспользоваться аннотацией, я не стал извращаться, а просто продублировал команды формы, в которых вызывается процедура ЗаполнитьТипыОбъектовВДеревеЗначений, и запретил её исполнение в расширяемом объекте. (Что справедливо кто-то может оценить как лень или еретичество, не буду оправдываться - согласен). Обработчики команд в форме расширении необходимо выбрать. Это обработчик "ПриСозданииНаСервере" и команда "ОбновитьПеред". Ну а процедуру дополнения - скопировал из оригинальной ЗаполнитьТипыОбъектовВДеревеЗначений и чуть её изменил.

В итоге - заходя в настройку версионирования - видим возможность сохранять свои объекты. Команда обращения к истории сама встала в форму и работает.

Расширение приходится редакрировать намного реже обновлений. Код расширения прилагаю полностью. Прошу обратить внимание, что копию команды я назвал ITSP_ИсторияИзменений, и это название фигурирует в коде и может отличаться от вашего.


&НаКлиенте
Процедура ВерсионированиеСвоих_ОбновитьПеред(Команда)
	
	ЗаполнитьТипыОбъектовВДеревеЗначений();
	ОбновитьИнформациюОбУстаревшихВерсиях();
	ВерсионированиеСвоих_ПослеЗаполнитьТипыОбъектовВДеревеЗначений();
	
	Для Каждого Элемент Из ДеревоОбъектовМетаданных.ПолучитьЭлементы() Цикл
		Элементы.ДеревоОбъектовМетаданных.Развернуть(Элемент.ПолучитьИдентификатор(), Истина);
	КонецЦикла;
	
	УстановитьВыполнениеОбработчиковСобытия("Ложь");
КонецПроцедуры

&НаСервере
Процедура ВерсионированиеСвоих_ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
	
	Если Параметры.Свойство("АвтоТест") Тогда // Возврат при получении формы для анализа.
		Возврат;
	КонецЕсли;
	
	ЗаполнитьТипыОбъектовВДеревеЗначений();
	ВерсионированиеСвоих_ПослеЗаполнитьТипыОбъектовВДеревеЗначений();
	ЗаполнитьСпискиВыбора();
	
	Элементы.Очистить.Видимость = Ложь;
	Элементы.Расписание.Заголовок = ТекущееРасписание();
	АвтоматическиУдалятьУстаревшиеВерсии = АвтоматическаяОчисткаВключена();
	Элементы.Расписание.Доступность = АвтоматическиУдалятьУстаревшиеВерсии;
	Элементы.НастроитьРасписание.Доступность = АвтоматическиУдалятьУстаревшиеВерсии;
	Элементы.ИнформацияОбУстаревшихВерсиях.Заголовок = ТекстСостоянияПодсчет();

	УстановитьВыполнениеОбработчиковСобытия("Ложь");
КонецПроцедуры

//&После("ЗаполнитьТипыОбъектовВДеревеЗначений") Когда в свойствах БП по умолчанию будет выключен режим совместимости с 8.3.8 Тогда можно будет оставить только эту процедуру, а остальные убрать
Процедура ВерсионированиеСвоих_ПослеЗаполнитьТипыОбъектовВДеревеЗначений()
	
	НастройкиВерсионирования = ТекущиеНастройкиВерсионирования();

	ДеревоОМ = РеквизитФормыВЗначение("ДеревоОбъектовМетаданных");
	//ДеревоОМ.Строки.Очистить();
	
	// Тип параметра команды ИсторияИзменений содержит состав объектов для которых 
	// применяется версионирование.
	МассивТипов = Метаданные.ОбщиеКоманды.ITSP_ИсторияИзменений.ТипПараметраКоманды.Типы();
	
	ВсеСправочники = Справочники.ТипВсеСсылки();
	ВсеДокументы = Документы.ТипВсеСсылки();
	УзелСправочники = ДеревоОМ.Строки.Найти("01КлассСправочникиКорень","КлассОбъекта");
	УзелДокументы = ДеревоОМ.Строки.Найти("02КлассДокументыКорень","КлассОбъекта");

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

Версионирование Новые объекты Расширения

См. также

Infostart Toolkit: Инструменты разработчика 1С 8.3 на управляемых формах

Инструментарий разработчика Роли и права Запросы СКД Платформа 1С v8.3 Управляемые формы Запросы Система компоновки данных Конфигурации 1cv8 Платные (руб)

Набор инструментов программиста и специалиста 1С для всех конфигураций на управляемых формах. В состав входят инструменты: Консоль запросов, Консоль СКД, Консоль кода, Редактор объекта, Анализ прав доступа, Метаданные, Поиск ссылок, Сравнение объектов, Все функции, Подписки на события и др. Редактор запросов и кода с раскраской и контекстной подсказкой. Доработанный конструктор запросов тонкого клиента. Продукт хорошо оптимизирован и обладает самым широким функционалом среди всех инструментов, представленных на рынке.

13000 руб.

02.09.2020    119917    656    389    

701

Infostart PrintWizard

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

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

18000 руб.

06.10.2023    7008    20    6    

37

Infostart УДиФ: Управление данными и формами

Инструменты администратора БД Инструментарий разработчика Роли и права Платформа 1С v8.3 Конфигурации 1cv8 Россия Платные (руб)

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

10000 руб.

10.11.2023    3246    10    1    

31

SALE! 30%

PowerTools

Инструментарий разработчика Инструменты администратора БД Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Россия Платные (руб)

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

3600 2520 руб.

14.01.2013    177341    1070    0    

846

Многопоточность. Универсальный «Менеджер потоков» 2.1

Инструментарий разработчика Платформа 1С v8.3 Конфигурации 1cv8 Россия Платные (руб)

Восстановление партий или взаиморасчетов, расчет зарплаты, пакетное формирование документов или отчетов - теперь все это стало доступнее. * Есть желание повысить скорость работы медленных алгоритмов! Но... * Нет времени думать о реализации многопоточности? * о запуске и остановке потоков? * о поддержании потоков в рабочем состоянии? * о передаче данных в потоки и как получить ответ из потока? * об организации последовательности? Тогда ЭТО - то что надо!!!

5000 руб.

07.02.2018    99204    239    97    

296

[ЕХТ] Фреймворк для Расширений 1С

Инструментарий разработчика Платформа 1С v8.3 Управляемые формы Платные (руб)

"Фреймворк для Расширений 1С" это универсальное и многофункциональное решение, упрощающее разработку и поддержку создаваемых Расширений. Поставляется в виде комплекта из нескольких Расширений с открытым исходным кодом. Работает в любых Конфигурациях в режиме Управляемого приложения с режимом совместимости 8.3.12 и выше без необходимости внесения изменений в Конфигурацию.

3000 руб.

27.08.2019    17914    6    8    

38

1С HTML Шаблоны / HTML Templates

Инструментарий разработчика Платформа 1С v8.3 Конфигурации 1cv8 Платные (руб)

Быстрая и удобная обработка для работы с шаблонами HTML. Позволяет легко и быстро формировать код HTML.

2040 руб.

27.12.2017    27945    3    10    

14

Выполнение произвольного кода или запроса с параметрами через Web-сервис (замена COM-подключений)

Инструментарий разработчика Обмен между базами 1C Платформа 1С v8.3 Платные (руб)

В процессе работы в 1С часто возникает потребность получить данные из другой базы.  Обычно это делается через COM-соединение, и время выполнения запроса при этом оставляет желать лучшего. В данной публикации представлено универсальное решение, позволяющее практически моментально выполнить произвольный код или запрос с параметрами в другой информационной базе через Web-сервис.

2400 руб.

24.09.2019    23490    15    15    

31
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. ellavs 1021 17.11.17 15:39 Сейчас в теме
Спасибо за совет.
Только ссылка на историю изменений в документе постоянно отображается. В типовой конфигурации она исчезает у тех документов, у которых версионирование не настроено. Не подскажете, как настроить видимость этой команды в зависимости от указания версионирования у документа.
3. niv 28.02.20 23:19 Сейчас в теме
(1) Общая команда ИсторияИзменений подключена к функциональной опции ИспользоватьВерсионированиеОбъектов, а Ваша команда по всей видимости нет.
2. ЕСТЬNULL 205 20.11.17 04:17 Сейчас в теме
Эх, не знаю. И нет времени поизучать.

Надо посмотреть как работают стандартные объекты. Скорее всего какая-то процедура из общего модуля версионирования должна быть в ПриСозданииНаСервере (аналогично подсистеме печать).
4. cheromg 4 31.05.21 06:23 Сейчас в теме
Расширение не работает пишет, "Не является значение объектного типа "Тип объекта"".
6. EvgeTrofi 126 27.05.22 08:39 Сейчас в теме
(4) Если ещё интересно, то вот реализация на подключение к версионированию документов, добавленных в расширение.
https://infostart.ru/public/1665934/
5. ЕСТЬNULL 205 01.06.21 05:22 Сейчас в теме
Уже прошло 5 лет, конечно не работает. Адаптируйте его под новый релиз, принцип тот же.
7. snayper1979 5 26.07.23 11:59 Сейчас в теме
Ерп 2.5. Режим совместимости 8.3.17. Без открытия для редактирования основной конфы как в 6 сделать не получается, весь затык в РегистрСведений.ВерсииОбъектов где реквизит Объект - все ссылки, который не видит объектов расширения. Соответственно при записи выдает "Неверный тип значения: РегистрСведений.ВерсииОбъектов.Объект"
Оставьте свое сообщение