Z1 писал(а) 24. Сентября 2012 :: 13:13:


Ну попробуй сделать это в контексте формы записанного документа

Z1 писал(а) 25. Сентября 2012 :: 05:45:


УстановитьВремя в контексте формы нового документа, кстати, работает.
АвтоВремя... в контексте формы записанного документа - емнип, тоже.

Короче, очередное место, где у 1С нет какой-то стройной логики поведения.

Eprst писал(а) 25. Сентября 2012 :: 09:04:

Эх какие красивые слова
Финт прикольный, но, имхо, малореальный. У пользователя может быть открыта форма нового документа. Наверное это тоже можно обыграть, но тогда совсем уж заморочено получится.

Написал один из наших разработчиков, алгоритм работает несколько лет никаких проблем ни с отборами ни с запросами нет. Может менять время и проведенного документа.
//*****************************************************************************
//Процедура глУстановитьВремяДокумента(Конт,ЧЧ = 0,ММ = 0,СС = 0)
// Устанавливает время документа независио от того проведен он или нет
// Устанвливает в таблицу настроек последнее время по указанному виду движений.
// Параметры:
//  конт - Контекст документа, для установки времени.
//  ЧЧ - Час документа
//  ММ - минута документ
//  СС - Секунда документа
// Если в параметрах не указано время документа, оно вычисляется автоматически исходя из вида движения в первой строке и
// даты документа.
Функция глУстановитьВремяДокумента(Конт,ЧЧ = 0,ММ = 0,СС = 0) Экспорт
     Попытка
           Если глФлагФормированияПроводокГААП=0 Тогда
                 Сообщить("ВНИМАНИЕ! Время по документу в таблицу ГААП не записаны в базу. Данный режим предназначен для тестирования","i");
                 Возврат 1;
           КонецЕсли;
           Если Конт.Выбран() = 0 Тогда
                 Конт.Записать();
           КонецЕсли;
           
           Док = Конт.ТекущийДокумент();
           Док.ПолучитьСтрокуПоНомеру(1);      
           ДатаДок = Док.ДатаДок;
           
           Если ПустоеЗначение(ЧЧ) = 1 тогда
                 сзВремени = ГлВремяДляТекущегоДВижения(Док.ВидДвижения,ДатаДок);            
                 ЧЧ = сзВремени.Получить("Час");
                 ММ = сзВремени.Получить("Минута");
                 СС = сзВремени.Получить("Секунда");      
                 Если ПустоеЗначение(ЧЧ) = 1 Тогда
                       Возврат 1;
                 КонецЕсли;            
           КонецЕсли;
           
           ТекВремяЧас = 0;
           Конт.ПолучитьВремя(ТекВремяЧас);
           Если Число(ЧЧ) = Число(ТекВремяЧас) Тогда
                 Возврат 1;
           КонецЕсли;
           
           РС = СоздатьОбъект("ODBCRecordSet");
           MDW = СоздатьОбъект("MetaDataWork");
           
           ИдДата = ,"Ч(0)2");
           Время36 = _IdToStr((ЧЧ*3600+ММ*60+СС)*10000);
           ИдДок = MDW.ЗначениеВСтрокуБД(Конт.ТекущийДокумент());
           
           ИДДокВремя = ИдДата+Время36+ИдДок;
           
           ТекстЗапроса = "
           |BEGIN TRANSACTION TIME
           |
           |UPDATE _1SJOURN
           |      SET DATE_TIME_IDDOC = '"+ИДДокВремя+"'
           |WHERE (IDDOC = :ТекДок)
           |
           |UPDATE _1SOPER
           |      SET DATE_TIME_DOCID = '"+ИДДокВремя+"'
           |WHERE (DOCID = :ТекДок)
           |
           |UPDATE _1SCRDOC
           |      SET CHILD_DATE_TIME_IDDOC = '"+ИДДокВремя+"'
           |WHERE (CHILDID = :ТекДок)
           |
           |UPDATE _1SENTRY
           |      SET DATE_TIME_DOCID = '"+ИДДокВремя+"'
           |WHERE (DOCID = :ТекДок)
           |
           |COMMIT TRANSACTION TIME
           |";      
           рс.УстановитьТекстовыйПараметр("ТекДок",Конт.ТекущийДокумент());
           //рс.Отладка(1);
           Попытка
                 рс.ВыполнитьИнструкцию(ТекстЗапроса);      
           Исключение
                 Сообщить("Ошибка установки времени документа в 1С ");
                 Возврат 0;
           КонецПопытки;
     Исключение
           Сообщить("Ошибка установки времени документа:" + ОписаниеОшибки());
           Возврат 0;
     КонецПопытки;      
КонецФункции

Если у вас движения по регистрам еще, и в этом регистре есть поле Date_Time_Iddoc то его так же нужно устнавливать. Но тут будте внимательны, нужно просмотреть всю цепочку таблиц регистра (остатки, обороты возможно еще что-то). Никогда не занимался изучением этих таблиц, поэтому подробно не расскажу.