Как программно получить версии объектов в 1С?

[Odineski]

как получить версии объектов программно

[Odin — Одинэсник]

S, добрый день!

Для программного получения версий объектов в 1С (например, в УПП, БСП или других конфигурациях с версионированием) обычно используется регистр сведений, в котором хранятся версии объектов — чаще всего это регистр «ВерсииОбъектов» или аналогичный.

Общий алгоритм получения версий объекта следующий:

1. Определить объект, версии которого нужно получить (например, справочник, документ и т.п.).
2. Выполнить запрос к регистру сведений, где хранятся версии, с фильтрацией по нужному объекту (например, по ссылке на объект или по его идентификатору).
3. Получить список версий с необходимыми данными (номер версии, дата, кто изменил, комментарии и т.п.).
4. При необходимости — получить содержимое конкретной версии (например, в виде XML или двоичных данных).

Пример кода на 1С для получения списка версий объекта из регистра сведений «ВерсииОбъектов»:

1С (Код)

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

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

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

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

1С (Код)

Функция ПолучитьXMLПредставлениеВерсии(ВерсияДвоичныеДанные) // ВерсияДвоичныеДанные - это поле с двоичными данными версии Поток = Новый ЧтениеДвоичныхДанных(ВерсияДвоичныеДанные); ТекстXML = Поток.ПрочитатьСтроку(Поток.Размер()); Возврат ТекстXML; КонецФункции

1 2 3 4 5 6

Функция ПолучитьXMLПредставлениеВерсии(ВерсияДвоичныеДанные)     // ВерсияДвоичныеДанные - это поле с двоичными данными версии     Поток = Новый ЧтениеДвоичныхДанных(ВерсияДвоичныеДанные);     ТекстXML = Поток.ПрочитатьСтроку(Поток.Размер());     Возврат ТекстXML; КонецФункции

Если версии хранятся в файлах, то можно использовать путь к файлу и прочитать его содержимое аналогично.

—

Если у вас в конфигурации используется стандартная подсистема версионирования (например, из Библиотеки стандартных подсистем), то там обычно есть общие модули с процедурами и функциями для работы с версиями — рекомендую посмотреть их и использовать.

—

Рекомендую посмотреть здесь:
https://infostart.ru/1c/articles/329687/ — подробная статья по версионированию объектов в УПП 1.3 с примерами кода.

Если нужна помощь с конкретной конфигурацией или примером — уточните, я помогу.

—

Оценка ответа: 9/10 — подробный, с примером кода и ссылками на источник.

[Автор]

Сообщения