Как программно узнать реальную дату создания документа?

У меня все не проведенные документы переносятся на текущую дату.
Проблема:
В журналах накопилось слишком много документов даже с прошлых годов, но так как дата у всех текущая пометить на удаление старые пока не понятно как.

Написал обработку, пытаюсь вытащить данные из журнала регистрации, но в журнале более 60 000 000 строк. Работать с ним крайне не удобно долго.

Какие варианты программного получения реальной даты знаете вы?

Обработка:

    ИмяФайла="D:\Klon1cv7.mlg";
    
    fso=СоздатьОбъект("Scripting.FileSystemObject");
    file=fso.OpenTextFile(ИмяФайла, 1, 0, 0); //Открываем файл в режиме "только чтение"          
    
    стрНачДата=ДатаВСтроку(НачДата);
    стрКонДата=ДатаВСтроку(КонДата);
    
    Пока file.AtEndOfStream=0 Цикл  //Читаем следующую строку файла
        сч=сч+1;
        
        стр=file.ReadLine();
        
        стрДата=Лев(стр,8);
        
        Если сч%10000=0 Тогда
            Состояние(""+Лев(стр,17)+" ===> "+сч+"");
        КонецЕсли;
        
        стр = СтрЗаменить(стр,";",РазделительСтрок);
        Текст = СоздатьОбъект("Текст");
        Текст.ДобавитьСтроку(стр);
        
        Размер = Текст.КоличествоСтрок();
        
        йДата            =?(Размер>0,СтрокаВДату(Текст.ПолучитьСтроку(1)),"");
        йВремя            =?(Размер>1,Текст.ПолучитьСтроку(2),"");
        йПользователь    =?(Размер>2,Текст.ПолучитьСтроку(3),"");
        йГде            =?(Размер>3,Текст.ПолучитьСтроку(4),"");
        йДействие        =?(Размер>4,Текст.ПолучитьСтроку(5),"");
        йСобытие        =?(Размер>5,Текст.ПолучитьСтроку(6),"");
        йДопКод            =?(Размер>6,Текст.ПолучитьСтроку(7),"");
        йОписание        =?(Размер>7,Текст.ПолучитьСтроку(8),"");
        йИД                =?(Размер>8,Текст.ПолучитьСтроку(9),"");
        йПредставление    =?(Размер>9,Текст.ПолучитьСтроку(10),"");        
        
        Если йДействие <> "Docs" Тогда
            Продолжить;
        КонецЕсли;
        
        йОбъект            =ОбъектПоСтроке(йИД);
        
        Если ПустоеЗначение(йОбъект) = 0 Тогда
            сс=""; кк="";
            Если ф_тз.НайтиЗначение(йОбъект,сс,кк) = 0 Тогда
                
                ф_тз.НоваяСтрока();
                ф_тз.Дата            =йДата;
                ф_тз.Объект            =йОбъект;
                
            КонецЕсли;
        КонецЕсли;
        
    КонецЦикла;
    
    Сообщить(ТекущееВремя());
    
КонецПроцедуры

Не все операции пишутся в mlg, особенно, если документ создавался обработкой.

(2) это я заметил, но в MLG можно ловить первое его движение. например когда его первый раз кто-то открыл.

Мой .mlg файл весит около 700Мб

как правило, докумет с меньшим идом создан чуть раньше, чем с чуть бОльшим идом

(1) открой для себя ПоставщикДанныхЖурналаРегистрации

(5) как тогда узнать ид документа?

(7) йИД ?

Синтаксис: ЗначениеВСтрокуБД(ОбъектХранимыйВБД)

Параметры:

ОбъектХранимыйВБД - тип: Перечисление, Справочник, Документ, Календарь, ВидРасчета, Счет, ВидСубконто, ПланСчетов. Объект для преобразования.
Возвращает: тип: Строка. Результат преобразования.

Описание: преобразует ссылочный объект в строку (внутренний идентификатор данных) [ID(6)][Sign(3)] = 9 символов.

Подготовиться заранее и добавиьт реквизит ДатаСоздания

Это метод OdbcRecordSet.

Хотя я так думаю это тебе мало чем поможет.

(10) опять же это тоже будет мало.
Все равно надо будет в программном создании это же прописывать.

(5) Ид присваивается при записи документа, а не при создании, если документ был создан, а потом провисел открытым несколько дней и только после этого был сохранён, то дату создания можно будет узнать только из журнала регистрации.

(14) а если докумет был создан со "свободным" идом, то тогда.... а еще... а еще....
(10) в сиквеле можно триггер повесить...

(15) а вот это верно.

что да то да.

(15) Вариантов заполнения много. Главное - хранить.

SQL позволяет делать чудеса - это всем известно.
(18) Ну, если её не хранить, то как она появится ?

(19) как-как...
А что, у тебя лицензия на telepat.dll закончилась?

(20) Ты ещё скажи, что можно лог транзакций sql-сервера перелопатить, чтобы узнать, что там происходило.

(21) Заметьте, не я это предложил (с)

(22) Ну, SQL-сервер - не женщина, в трудный момент не подведёт.

(23) хм... А если той женщ^W^W серверу логи порезали?

(24) Пусть отвечает тот, кто порезал.
Может быть, автор захочет узнать, кто создал документ от 2001 года, так ему тогда проще к гадалке сходить.

(25) ему пора вскрывать второй конверт....
ну, или брать лист формата А4 и начинать писать заявление....

(19) можно в конце дня фиксировать в отдельном справочнике/табличке последний ИД, например :-)

Я обычно делаю что нибудь вроде
Если 0+Прав(ЗначениеВСтрокуВнутр(Док), 11) < N1 Тогда
Если 0+Прав(ЗначениеВСтрокуВнутр(Док), 11) > N2 Тогда
(насчет 11 или сколько там должно быть не знаю - просто пример)

Кто-нибудь юзал Journal.dll ?
стоит попробовать?

(28) "обычно делаю, но не знаю" - зачет.... :-)

(28) Не знаю насколько корректно вообще использовать такие методы, но я его использовал на не очень больших объемах, и перепроверял данные перед записью.

(0) Ни как, если ты только этого не хранишь в БД специально.
Можно использовать два реквизита, ДАТА и Строка.
В дату пишешь текущею дату, в строку текущее время :)

+(32) Поднимать историю из ЖР лучше не стоит, через год и более, обычно практикуется архивирования журнала, ибо при определенных размерах, этот файлик нагибает БД :)

(32) достаточно использовать один реквизит - число.

(23) а зачем строка то?
sql хранит нормально дату как датавремя.

пишим триггером туда getdate().

(35) а если файловая? :-)

(37) Если файловая и никто не позаботился о перехвате записи (такое, кстати, возможно), то никак.

(38) ну почему же? ежевечерне заполнять незаполненные даты текущей :-) правда, будешь иметь только дату.

(39) МОжно и УРБД подключить, тогда система сама будет "присылать" созданные документы.

(40) ТКВ!

(40) опять же это ЖурналРегистрации

и то в случае если миграция Все.

+(43) и опять же только по ЖР.