Здравствуйте.
Задача: при открытии/создании документа на форме "повесить" счетчик времени, прошедшего с момента открытия/создания. Чтобы можно оценить время затрачиваемое на ввод документа.
Может кто-то сталкивался с такой необходимостью.

(0) По журналу регистрации можно эту задачу решить

+1 Только ньюансы есть. Маша может открыть документ и в носу ковыряться, а потом и на обед уйти, а закрыть только когда домой пойдет

если можно чуть подробннее..
может я неправильно выразилась, нужно, чтобы на форме "висел" секундомер для работающего оператора.

Зато будет видно скольона ковырялась и сколько ей за это заплатить ))

(3) Зачем?
>Чтобы можно оценить время затрачиваемое на ввод документа
можно по ЖР. А вот секундомер зачем? Кто быстрей накладную набьет? Или чтоб знали что если прошло 30 секунд, то - 5% с ЗП?

(5) ДА!!! Чтоб знали!!

(6) С секундомером не знаю как сделать, точнее знаю, но не скажу (т.к так как я знаю кроме просмотра секундомера ничего и нельзя будет сделать с этим доком). А вот по ЖР, открываешь как текст, находишь когда записан новый документ, отматываешь назад и ищешь когда он создан. Разница между двумя событиями и есть время на создание

Спасибо,Dev.
ну почему всегда простые на первый взгляд вопросы клиента оказываются из области фантастики..

Может ВК сваять?

Посмотри на http://www.belkamag.ru http://www.o-planet-1c.narod.ru или на итлэнде конфу Кафе-бухгалтерия. Обрати внимание как у них сделан хэлп бегущей строкой на форме. Может и наведет на мысль :-)

А если открыть несколько окон с документами, провести и не закрывать, тогда больше денег будет?

(MAXXL)Спасибо, посмотрю

(12) это надо, чтоб до пользователя дошло???
мож, тогда через ОбработкуОжидания()?
  
Типа
Вопрос("Вы уже мучаете этот документ "+сч+" минут! Вам штраф в размере "+сч*100+" у.е. Как вариант можно сделать подарок программистКЕ...","Да+Нет");
ЗапуститьПриложение("www.podarki.ru");

Тут наверно дуло в другом
// ввод документа
Если сч < 30 Тогда
 Уровень = Уровень + 1;
 Если Уровень = 5 Тогда
   Сообщить(" можно идти домой ");
 КонецЕсли%
Иначе
 Уровень = Уровень - 1;
 Если Уровень = -1 Тогда
   Сообщить(" Гейм овер, у вас не осталось жизней ");
 КонецЕсли;
КонецЕсли;

(14) Дуло = дело, %=;

Перем НеЗакрывать;
Процедура ПриОткрытии()
  НеЗакрывать = 1;
  Форма.Закрыть(0);
КонецПроцедуры
//_____________________________________________________________________________
Функция ПоказатьВремя()
  Форма.Обновить(0);
    Возврат ТекущееВремя();
КонецФункции //ПоказатьВремя
//_____________________________________________________________________________
Процедура ПриЗакрытии()
  Если НеЗакрывать = 1 Тогда
   НеЗакрывать = 0;
    СтатусВозврата(0);
  КонецЕсли;
КонецПроцедуры //ПриЗакрытии
На форме текст с функцией ПоказатьВремя()

Перем _СтартВремени;
  
Процедура ПриОткрытии()
...
  _СтартВремени = _GetPerformanceCounter();
...
КонецПроцедуры
Процедура ПриЗакрытии()
...
  _Секунд = (_GetPerformanceCounter() - _СтартВремени) / 1000;
  _Часов = Цел(_Секунд / 3600);
  _Секунд = _Секунд % 3600;
  _Минут = Цел(_Секунд / 60);
  _Секунд = _Секунд % 60;
  Сообщить("Вы наблюдали форму документа " + _Часов + ":" + Формат(_Минут, "Ч(0)2") + ":" + Формат(_Секунд, "Ч(0)2"));
КонецПроцедуры

бретт