"Мои корявые ручонки додумались с вашей подачи только до такого:<br><br>Обработка.ИзменениеВремениДокумента<br><br>Модуль формы<br>//*******************************************<br>Процедура Выполнить() <br> <br> Если ВыбДокумент.Выбран() = 0 Тогда<br> Предупреждение("Не выбран документ!");<br> Возврат;<br> КонецЕсли;<br> <br> Док = СоздатьОбъект("Документ."+ВыбДокумент.Вид());<br> Док.НайтиДокумент(ВыбДокумент);<br> БылПоведен=0;<br> <br> Если Док.Проведен() = 1 Тогда<br> Док.СделатьНеПроведенным();<br> БылПоведен = 1;<br> КонецЕсли;<br> <br> Док1 = СоздатьОбъект("Документ");<br> Док1.ВыбратьДокументы(Док.ДатаДок,Док.ДатаДок);<br> Пока Док1.ПолучитьДокумент() = 1 Цикл<br> Текущий = Док1.ТекущийДокумент();<br> КонецЦикла;<br> ЧЧ = 0;<br> ММ = 0;<br> СС = 0;<br> Текущий.ПолучитьВремя(ЧЧ,ММ,СС);<br> СС = СС + 1;<br> Если СС > 59 Тогда<br> СС = 00;<br> ММ = ММ + 1;<br> Если ММ > 59 Тогда<br> ММ = 00;<br> ЧЧ = ЧЧ + 1;<br> Если ЧЧ > 23 Тогда<br> ЧЧ = 23;<br> КонецЕсли;<br> КонецЕсли;<br> КонецЕсли;<br> <br> Док.УстановитьВремя(ЧЧ,ММ,СС);<br> Док.Записать();<br> <br> Если БылПоведен=1 Тогда<br> Док.Провести();<br> КонецЕсли; <br> <br>КонецПроцедуры<br><br>//*******************************************<br>Процедура ПриОткрытии()<br> <br> Если ТипЗначения(Форма.Параметр)=12 Тогда //Тип значения 12 - Документ<br> ВыбДокумент=Форма.Параметр;<br> Форма.Закрыть();<br> КонецЕсли; <br> <br>КонецПроцедуры <br><br>//*******************************************<br>Процедура ПриЗакрытии()<br> <br> Выполнить(); <br> <br>КонецПроцедуры<br><br><br>Теперь маюся - откуда это добро вызывать: желательно, чтобы в отгрузке добавить к кнопке "ок" вызов данной обработки..."