Хочу отказаться от использования номеров версий в версионировании.
там регистр с ключом Объект + Номер версии + узел обмена.
Вот я и хочу использовать вместо номера дату. Там 10 разрядов.

Ну и еще хотелось бы пару разрядов на случайный ключ сделать.

Может быть как разность дат с 1980 годом?

почему именно в число, а не использовать тип Дата?

>>там 10 разрядов
ну и собери число : 20141001, для даты надо 8 разрядов.

можно в семь уложиться.
Год*1000 + НомерДнягода

unix-time было бы грамотнее и интереснее imho и как плюс  версионирование с точностью до секунды можно

(3) Даже в пять.

а, надож до секнды наверно, току от дня то

(5) да. не думаю, что версионирование идет ранее 2000-го года

(6) первые 5 цифр - дата, вторые - секунда (0-86399)

просто считать секунды с 2000 года

10 разрядов хватит примерно на 7000 лет

(10) так что можно от рождества христова тащить

(10) ошибочка на 300 лет

(9) сложновато будет декодить

(13) Дата 01.01.2000 + число секунд. Не?

Дата("20000101000000")+ЧислоСекунд;

почему
Функция ДатаЗаписиВерсии(СекундыИзРегистра)
Возврат Дата("20000101000000")+СекундыИзРегистра;
КонецФункции

забейте, решил так:



    База = Подключение();
    З = Новый Запрос(
    "ВЫБРАТЬ ПЕРВЫЕ 300
    |    ВерсииОбъектов.Объект,
    |    ВерсииОбъектов.НомерВерсии,
    |    ВерсииОбъектов.УзелПланаОбмена,
    |    ВерсииОбъектов.УзелПланаОбмена.Код,
    |    ВерсииОбъектов.ВерсияОбъекта,
    |    ВерсииОбъектов.АвторВерсии,
    |    ВерсииОбъектов.ДатаВерсии,
    |    ВерсииОбъектов.Сжато
    |ИЗ
    |    РегистрСведений.ВерсииОбъектов КАК ВерсииОбъектов
    |");
    
    ИмяФайла = ПолучитьИмяВременногоФайла();
    КомСжатие = База.NewObject("СжатиеДанных", 9); //Сильно сжатое


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

(16) пирожок на полке ждёт тебя не дождётся ;-

(16) самое удобное решение - секционирование данных средствами SQL.

(18)  да вы что? Суть в том, что все равно это будет храниться в одной базе 1С и будет пересчитываться при реструктуризациях и т.п.

COM соеденение будешь постоянно держать открытым ? Да и внешние источники данных уже некошерно использовать для хранения всякого хлама?

(20) ну что ты, буду перекачивать версии раз в час, например.

вынес на инфостарт эту тему, кому интересно: http://infostart.ru/public/305358/

(20) он не знает что такое "Внешние источники данных", т.к. только слез с 8.1.
ты его ещё про REST-сервис смотри не спроси...