Пронумеровать версии.
Процедура ПронумероватьВерсии(КоллекцияВерсий) Экспорт
ТекущийНомерВерсии = КоллекцияВерсий.Количество();
Для Каждого Версия Из КоллекцияВерсий Цикл
ПрефиксНомера = "";
Если Версия.Родитель <> Неопределено И Не ПустаяСтрока(Версия.Родитель.ПредставлениеНомераВерсии) Тогда
ПрефиксНомера = Версия.Родитель.ПредставлениеНомераВерсии + ".";
КонецЕсли;
Версия.ПредставлениеНомераВерсии = ПрефиксНомера + Формат(ТекущийНомерВерсии, "ЧГ=0");
ПронумероватьВерсии(Версия.Строки);
ТекущийНомерВерсии = ТекущийНомерВерсии - 1;
КонецЦикла;
КонецПроцедуры
///////////////////////////////////////////////////////////////////////////////////////////////////////
// Copyright (c) 2019, ООО 1С-Софт
// Все права защищены. Эта программа и сопроводительные материалы предоставляются
// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0)
// Текст лицензии доступен по ссылке:
// https://creativecommons.org/licenses/by/4.0/legalcode
///////////////////////////////////////////////////////////////////////////////////////////////////////